- ©«¤l
- 30
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2020-12-9
- ³Ì«áµn¿ý
- 2021-4-5
|
¦^´_ 18# n7822123
Dim Arr, RepNo$
Sub ³]¤U©Ô¿ï³æ()
Application.ScreenUpdating = False
On Error GoTo «ì´_
Set D = CreateObject("Scripting.Dictionary")
Arr = ['Receiving DATA'!A4].CurrentRegion
For R = 2 To UBound(Arr)
RepNo = Arr(R, 13)
If D(RepNo) = 0 Then D(RepNo) = R
Next R
For Each Key In D.keys: §å¸¹¦ê = §å¸¹¦ê & "," & Key: Next Key
With ['Receiving Report'!J6].Validation
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=§å¸¹¦ê
End With
Exit Sub
«ì´_: ¶}±ÒIJµo¨Æ¥ó
End Sub
½Ð°Ý³oӧ帹¦ê¬O¥X¦Û¨º¸Ì¡A¦]¬°§Ú¸Õ§â¨º¼Æ¦r²ÕÂন§Oªº²Õ¦X¡Aµo²{^¤å+¼Æ¦rªº²Õ¦X¥i¦æ¡A¹³apr 0001, ¦ý¦pY¥u0001©Î¬O aaa-01/12-0001 ³oºØ«K¤£¦æ¡A³oÓ§Ú¹Á¸Õ¤J®æ¦¡´«±¼[§å¸¹¦ê]¡M¤]¬O¤£¦æ¡A¬O§_³oºØ»yªk¥»¨Ó´N¤£¥i¥HÅܧ諸©O? |
|