- ©«¤l
- 66
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 95
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-10-1
- ³Ì«áµn¿ý
- 2018-6-26
|
¦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¯à¿ì¨ì |
|