¼ÐÃD:
[µo°Ý]
¤U©Ô¦¡¿ï³æªº§ó·s
[¥´¦L¥»¶]
§@ªÌ:
bridetobe
®É¶¡:
2014-7-8 14:14
¼ÐÃD:
¤U©Ô¦¡¿ï³æªº§ó·s
·Q½Ð°Ý¤U©Ô¦¡¿ï³æªº§ó·s
Y¦b²M³æ¸Ì±¤w¸g§ï¤F¸ê®Æ
¦ý¬O¦b¤U©Ô¦¡¸Ì±¨Ã¤£·|¦Û¤v¥h§ó·s¤w¸g§ó·s¹Lªº¸ê®Æ
¦Ón«·s©Ô
³o¦³¿ìªk¥i¥H¸Ñ¨M¶Ü
§@ªÌ:
¤pµØ
®É¶¡:
2014-7-8 20:12
§A¬O«üCombobox(¤U©Ô¦¡¿ï³æ)¸Ì±ªº¸ê®Æ¤£·|¦Û°Ê§ó·s¶Ü?
§@ªÌ:
bridetobe
®É¶¡:
2014-7-9 08:12
¦^´_
2#
¤pµØ
·N«ä¬O쥻¦³¤@µ§¸ê®Æ"123"¦b²M³æùØ
§Ú²{¦b§â123§ï¦¨456
¥i¬O¤U©Ô¦¡¿ï³æ¨S¦³§ó·s
[attach]18658[/attach]
n¤â°Ê«©Ô
§@ªÌ:
Hsieh
®É¶¡:
2014-7-9 09:36
¦^´_
3#
bridetobe
¤£·|¦³³o¼Ë±¡§Î¤~¹ï¡A¤W¶ÇÀɮרӬݬÝ
§@ªÌ:
bridetobe
®É¶¡:
2014-7-9 09:43
¦^´_
4#
Hsieh
[attach]18661[/attach]
³oÓ³¡¥÷~
§@ªÌ:
Hsieh
®É¶¡:
2014-7-9 10:11
¦^´_
5#
bridetobe
·|¦Û°Ê§ó·s¤X!§A«ç»ò¾Þ§@ªº?
[attach]18663[/attach]
§@ªÌ:
bridetobe
®É¶¡:
2014-7-9 10:29
¦^´_
6#
Hsieh
ªü§Úªº·N«ä¬O...
¦pªG§A§â#702§ï702
¨º¹³7/7¸¹ªº²Ä¤@µ§ÁÙ¬OÅã¥Ü#702¦Ó¤£¬O702
³o¼Ë¤lÁÙn§â±q7/1~7/7ªº#702©Ô¦¨702
§@ªÌ:
Hsieh
®É¶¡:
2014-7-9 10:46
¦^´_
7#
bridetobe
n§ó§ï¤w¸g¿é¤J¤º®e´N¥²¶·«·s¼g¤J
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range
If Target.Column <> 2 Then Exit Sub
With Sheet3
ThisWorkbook.Names.Add "²M³æ", "=OFFSET(" & .Name & "!$A$1,,,COUNTA(" & .Name & "!$A:$A),)"
With Range("B:B").Validation
.Delete
.Add xlValidateList, , , "=²M³æ"
End With
Select Case Target.Value
Case "·s¼W"
newitem = InputBox("¿é¤J·s¼W¶µ¥Ø")
If Application.CountIf([²M³æ], newitem) = 0 Then
Set A = .Columns("A:A").Find("·s¼W", lookat:=xlWhole)
A.Insert xlShiftDown
A.Offset(-1) = newitem
Target = newitem
Else
MsgBox "¶µ¥Ø¤w¦s¦b²M³æ¤º"
End If
Case "§R°£"
delitem = InputBox("¿é¤J§R°£¶µ¥Ø")
Set A = .Columns("A:A").Find(delitem, lookat:=xlWhole)
If A Is Nothing Then
MsgBox delitem & "¤£¦s¦b²M³æ¤º"
Else
A.Delete xlShiftUp
End If
Case "קï"
chitem = InputBox("¿é¤Jקﶵ¥Ø")
Set A = .Columns("A:A").Find(chitem, lookat:=xlWhole)
If A Is Nothing Then
MsgBox chitem & "¤£¦s¦b²M³æ¤º"
Else
A.Value = InputBox("¿é¤J§ó¥¿¶µ¥Ø", , chitem)
Target = A
Range("B:B").Replace chitem, A 'BÄæ©Ò¦³¤w¸g¿é¤Jªº¸ê®Æ¤@°_´À´«
End If
End Select
End With
With Range("B:B").Validation
.Modify xlValidateList, , , "=²M³æ"
End With
End Sub
½Æ»s¥N½X
§@ªÌ:
bridetobe
®É¶¡:
2014-7-9 10:59
¦^´_
8#
Hsieh
ì¨Ó¬O³o¼Ë ÁÂÁÂ!
§Ú¥H¬°n¥t¥~¼g©Î¬O«ç¼Ëªº~~~
Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)