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

[µo°Ý] ¤ÀÃþ°ÝÃD

[µo°Ý] ¤ÀÃþ°ÝÃD

ex1.rar (5.92 KB)

·Q½Ð±Ð¦U¦ì¦Ñ®v
¤p©f¤@­ÓÃö©ó¤ÀÃþªº°ÝÃD½Ð±Ð¡A¤º®e¦pªþ¥ó¡A¦]¤£¤Ó·|´y­z¡A·Q½Ð±Ð¦U¦ì¥ý¶i¡A¦¹
¤u§@©ú²Ó¥i§_¨Ï¥ÎVBA¤è¦¡§¹¦¨¤U©Ô¦¡¿ï³æ¡AÁÂÁÂ
½Ð¦h¦h«ü±Ð

¦^´_ 1# ayubbs
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Set d = CreateObject("Scripting.Dictionary")
  3. If Target.Address = "$I$7" Then
  4.     For Each a In Range([C3], [C3].End(xlDown))
  5.       If a = Target Then d(a.Offset(, 1).Value) = ""
  6.     Next
  7.     With Target.Offset(1).Validation
  8.     .Delete
  9.     .Add xlValidateList, , , Join(d.keys, ",")
  10.     End With
  11. End If
  12. End Sub

  13. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  14. Set d = CreateObject("Scripting.Dictionary")
  15. If Target.Address = "$I$7" Then
  16.     For Each a In Range([C3], [C3].End(xlDown))
  17.     d(a.Value) = ""
  18.     Next
  19.     With Target.Validation
  20.     .Delete
  21.     .Add xlValidateList, , , Join(d.keys, ",")
  22.     End With
  23. End If
  24. End Sub
½Æ»s¥N½X
ex.zip (12.76 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


ÁÂÁ¦Ѯv«ü¾É¡A«D±`¦n¥Î¡A¦ý¥t¥i½Ð±Ð¦Ñ®v¡A¦]§Ú¸ê®Æ¾ã²z®É¡A³q±`¬O¨ú¥Î¦@¥Îªº¸ê®Æ¤£¤è«K±N¥¨¶°©ñ¸m©ó¤º¡A
¥t¥i¦³¨ä¥¦¤è¦¡¥i¤£¥Îworksheet change ¤è¦¡¥i¹F¦¨§@·~¶Ü?
¤ñ¦p¨Ï¥ÎcommendButton¤è¦¡¡A±Nvba©ñ¸m©ó¥t¤@¤u§@·~­±¡A»Ý­n¨Ï¥Î®É°õ¦æ§Y¥i¡A¦¹ºØ¤è¦¡¥¼ª¾¬O§_¥i¹F¦¨¡A
¦Ñ®vªº¤è¦¡«D±`¯«©_¡A¦p¤è«K¥i§_¬°µ{¦¡½X¡Aµy¥[µù¸ÑÅý¤p©f¥i¥H¾Ç²ß¨ä¤¤ªºÀ³¥Î¤è¦¡¡AÁÂÁÂ
½Ð¦h¦h«ü±Ð

TOP

¦^´_ 3# ayubbs
­«ÂI¬O§Aªº²M³æ¬OÀHµÛ¨C­ÓÀɮפ£¦PÁÙ¬O²M³æ©ñ¦b¤@­ÓÀɮפº¡A¦Ó­n¨ä¥LÀɮקì¨ú³o¨Ç²M³æ§@¬°ÅçÃÒ¨Ó·½?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# ayubbs
   
³q±`¬O¨ú¥Î¦@¥Îªº¸ê®Æ¤£¤è«K±N¥¨¶°©ñ¸m©ó¤º

¦@¥Îªº¸ê®ÆÀɪº®æ¦¡¦p¤@­P,¥i±N¥¨¶°³]©ó¥\¯àªí¤W
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD