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

¦A°Ý¸ê®ÆÅçÃÒ

¦³Ãö¸ê®ÆÅçÃÒªº°ÝÃD

ªþ¥ó¬O§Úªºªí³æ©Mµ{¦¡,·Q½Ð±Ð¦U¦ì¹F¤H
§Ú¸Ó«ç»ò­×§ï¤~¯àÅý§ÚªºA¦C¤¤ªº¼Æ¦r
¤£·|¦]¬°§Úªº·Æ¹«¨ì³B¶ÃÂI,¦Ó¤@ª½¼W¥[¤W¥h

»s§@ªí³æ.rar (46.38 KB)

TOP

¦^´_ 1# modelcrazyer
¤£·|¦]¬°§Úªº·Æ¹«¨ì³B¶ÃÂI,¦Ó¤@ª½¼W¥[¤W¥h
¨º§A§Æ±æ¦b¦ó±ø¥ó¤U°õ¦æ  Sub Worksheet_SelectionChange

TOP

ÁÂÁÂ!!§Ú¤w¸g¸Ñ¨M¤F!!

TOP

¦A°Ý¸ê®ÆÅçÃÒ

¦U¦ì¹F¤H:
¥H¤U¬O§Úªº¸ê®ÆÅçÃÒµ{¦¡
S = Worksheets("¤u§@ªí2").Cells(Rows.Count, "a").End(xlUp).Row
Num3 = Worksheets("¤u§@ªí1").Cells(Rows.Count, "a").End(xlUp).Row
With Worksheets("¤u§@ªí2").Range("A" & S + 1).Validation
   .Delete
   .Add Type:=xlValidateList, Operator:= _
    xlBetween, Formula1:="=¤u§@ªí1!$A$2:$A$" & Num3
    .IgnoreBlank = Fsale
     .InCellDropdown = True
    .ShowInput = True
    .ShowError = True
End With
§Ú¦³­Ó¤Ñ°¨¦æªÅªº·Qªk¤£ª¾¹D¯à¤£¯à¿ì¨ì,´N¬O·í§ÚÂI¿ï¤F¬Y­ÓAÄ檺¸ê®ÆÅçÃÒ«á
¸ÓÀx¦s®æ´N¤£·|¥X²{¤U©Ô¿ï³æ,¦ý¬O·í§Ú¥Îdelete§â¸ÓÀx¦s®æªº¸ê®Æ²M°£«á
¤S¯à¦A¥X²{¸ê®ÆÅçÃÒªº¤U©Ô¿ï³æ,³o¼Ëªº·Qªk¦³¨S¦³¥i¯à¿ì¨ì

¦^´_ 4# modelcrazyer
³o¤u§@ªíªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Ex Target(1)
  4. End Sub
  5. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  6.     Ex Target(1)
  7. End Sub
  8. Sub Ex(xlTarget As Range)
  9.     On Error Resume Next
  10.     '³]©w·í¤@­Ó°õ¦æ¶¥¬q¿ù»~²£¥Í®É¡Aµ{¦¡±±¨î¥ß¨è¨ìµo¥Í¿ù»~³¯­z¦¡±µ¤U¥hªº³¯­z¦¡¡A¦ÓÄ~Äò°õ¦æ¤U¥h
  11.     If xlTarget.Column = 1 Then   'AÄæ
  12.         With xlTarget
  13.             If .Value <> "" Then
  14.                 .Validation.InCellDropdown = False  '¨S¦³¸ê®ÆÅçÃÒ·|¦³¿ù»~
  15.             Else
  16.                 .Validation.InCellDropdown = True   '¨S¦³¸ê®ÆÅçÃÒ·|¦³¿ù»~
  17.             End If
  18.         End With
  19.     End If
  20. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD