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

[µo°Ý] VBA ¶ñ¼gªí®æ¤Î¥t¦s·sÀÉ

¦^´_ 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, ¦ý¦p­Y¥u0001©Î¬O aaa-01/12-0001 ³oºØ«K¤£¦æ¡A³o­Ó§Ú¹Á¸Õ¤J®æ¦¡´«±¼[§å¸¹¦ê]¡M¤]¬O¤£¦æ¡A¬O§_³oºØ»yªk¥»¨Ó´N¤£¥i¥HÅܧ諸©O?

TOP

ÁÂÁ¨â¦ì«ü±Ð¡A§Ú¦A¸Õ¸Õ

TOP

¦^´_ 23# n7822123


§Ú¸ÕµÛ§â¨âÃä³£¤å¦r¡M¦ý³£¦æ¤£¤F¡A
¦pªG·Ó檈¥D©ÒÁ¿¡A¤U©Ô²M³æ¤£³]­­¨î¡A¨º¯à¥Î / ¶Ü?
¦³¤@¥÷®t¤£¦hªº³øªí¡A¦ý¨ºReference No: ªº±Æ§Ç¬O¥Î³o­Ó®æ¦¡¡G AAA-01/21-001
¤¤¶¡´¡¤F[/] «K¥Î¤£¨ì¤F

TOP

¦^´_ 27# ­ã´£³¡ªL


    ¤£¦n·N«ä¡A§Ú¤@ª½¥H¬°¦Û¤v¦^ÂЧA¤F¡A­ì¨Ó§Ú¨S¦^¡AÁÂÁ§AªºÀ°¦£ ^^"

TOP

¦^´_ 29# mark15jill


  ¨º§Ú¥ý§ä§ä¬Ý¡AÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD