ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤U©Ô¦¡¿ï³æªº§ó·s

[µo°Ý] ¤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¶Ü

§A¬O«üCombobox(¤U©Ô¦¡¿ï³æ)¸Ì­±ªº¸ê®Æ¤£·|¦Û°Ê§ó·s¶Ü?

TOP

¦^´_ 2# ¤pµØ

·N«ä¬O­ì¥»¦³¤@µ§¸ê®Æ"123"¦b²M³æùØ
§Ú²{¦b§â123§ï¦¨456
¥i¬O¤U©Ô¦¡¿ï³æ¨S¦³§ó·s
¥¼©R¦W.JPG
2014-7-9 08:12

­n¤â°Ê­«©Ô

TOP

¦^´_ 3# bridetobe

¤£·|¦³³o¼Ë±¡§Î¤~¹ï¡A¤W¶ÇÀɮרӬݬÝ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
¥¼©R¦W.rar (31.71 KB)

³o­Ó³¡¥÷~

TOP

¦^´_ 5# bridetobe

·|¦Û°Ê§ó·s¤X!§A«ç»ò¾Þ§@ªº?

   
play.gif
2014-7-9 10:11
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


ªü§Úªº·N«ä¬O...
¦pªG§A§â#702§ï702
¨º¹³7/7¸¹ªº²Ä¤@µ§ÁÙ¬OÅã¥Ü#702¦Ó¤£¬O702
³o¼Ë¤lÁÙ­n§â±q7/1~7/7ªº#702©Ô¦¨702

TOP

¦^´_ 7# bridetobe
­n§ó§ï¤w¸g¿é¤J¤º®e´N¥²¶·­«·s¼g¤J
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. If Target.Column <> 2 Then Exit Sub
  4. With Sheet3
  5. ThisWorkbook.Names.Add "²M³æ", "=OFFSET(" & .Name & "!$A$1,,,COUNTA(" & .Name & "!$A:$A),)"
  6. With Range("B:B").Validation
  7.    .Delete
  8.    .Add xlValidateList, , , "=²M³æ"
  9. End With
  10. Select Case Target.Value
  11. Case "·s¼W"
  12. newitem = InputBox("¿é¤J·s¼W¶µ¥Ø")
  13. If Application.CountIf([²M³æ], newitem) = 0 Then
  14.    Set A = .Columns("A:A").Find("·s¼W", lookat:=xlWhole)
  15.    A.Insert xlShiftDown
  16.    A.Offset(-1) = newitem
  17.    Target = newitem
  18. Else
  19.    MsgBox "¶µ¥Ø¤w¦s¦b²M³æ¤º"
  20. End If
  21. Case "§R°£"
  22. delitem = InputBox("¿é¤J§R°£¶µ¥Ø")
  23. Set A = .Columns("A:A").Find(delitem, lookat:=xlWhole)
  24. If A Is Nothing Then
  25.    MsgBox delitem & "¤£¦s¦b²M³æ¤º"
  26.    Else
  27.    A.Delete xlShiftUp
  28. End If
  29. Case "­×§ï"
  30. chitem = InputBox("¿é¤J­×§ï¶µ¥Ø")
  31. Set A = .Columns("A:A").Find(chitem, lookat:=xlWhole)
  32. If A Is Nothing Then
  33.    MsgBox chitem & "¤£¦s¦b²M³æ¤º"
  34.    Else
  35.    A.Value = InputBox("¿é¤J§ó¥¿¶µ¥Ø", , chitem)
  36.    Target = A
  37.    Range("B:B").Replace chitem, A  'BÄæ©Ò¦³¤w¸g¿é¤Jªº¸ê®Æ¤@°_´À´«
  38. End If
  39. End Select
  40. End With
  41. With Range("B:B").Validation
  42.    .Modify xlValidateList, , , "=²M³æ"
  43. End With
  44. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh

­ì¨Ó¬O³o¼Ë ÁÂÁÂ!
§Ú¥H¬°­n¥t¥~¼g©Î¬O«ç¼Ëªº~~~

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD