ªð¦^¦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

ÁÂÁÂ!!§Ú¤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¯à¿ì¨ì

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD