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

¦^´_ 21# lovenice831


1) ¥ý½T©w§Aªº½s½X¨Ó·½¬O[¤å¦r]ÁÙ¬O[¼Æ­È]®æ¦¡
2) ­Y¬O[¤å¦r]®æ¦¡, ¨º»ò¤U©Ô²M³æ¨º¤@®æ¤]¶·³]©w¬°[¤å¦r]®æ¦¡,
    §_«h¤U©Ô¿ï¨ú«á, 0001 Åܦ¨ 1 , ©Î 801E10 ©Î 2-12-3 ¤]·|Åܦ¨¤£¤@¼Ë(Åܦ¨¬ì¾Ç°O¸¹©Î¤é´Á).
    ¦Ó¥B, 0001 À³¸Ó¬O¹ê»Ú¥|­Ó¦r¤¸²Õ¦¨, ¦Ó¤£¬O¿é¤J1, ¦ý®æ¦¡³]¦¨ "0000¡¨¡D
3) ¯Â¼Æ¦rªº, §ó­nª`·N®æ¦¡, 1234 ¤Î "1234",  ¦r¨åÀÉ·|¬Ý°µ¤£¤@¼Ë, ¥Î  IF 1234 = "1234 ¤]¬O "FALSE",
    ·íµM, ½s¸¹¤]¾¨¶q¤£­n§t¦³ªÅ¥Õ¦r¤¸, ¤â°Ê¿é¤J®É®e©ö»~¥´!!!
¡@
¡@
¡@

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-1-8 12:17 ½s¿è

¦^´_ 21# lovenice831

§Ú¤w¸g­­©w  RepNo ¬O ¦r¦ê®æ¦¡¤F~~

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]
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

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

¦^´_ 25# lovenice831


AAA-01/21-001  ·í¤U©Ô²M³æ¬O¨S°ÝÃD,
¦ý­Y­n¨Ì¦¹¦s¦¨ÀɮצWºÙ¬O¦æ¤£³qªº, §t"/"¹H¤Ï©R¦W³W«h,
­Y¦³¨ä¥L°ÝÃD, À³¤W¶ÇÀÉ®×, ¤~¯à§PÂ_¬O­þ¤@Àô¸`???

TOP

¥t®×°Ñ¦Ò:
Receiving Data_01.rar (49.94 KB)

¥t¦sÀɳ¡¥÷¨S°µ~~

TOP

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


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

TOP

¦^´_  lovenice831

·Pı¸ò§Ú·Qªº®t¤£¦h§a!?~~ §AµLªk¦¬ªþ¥ó?

§Ú¶Kµ{¦¡µ¹§A¡A§A°õ¦æ"¦¬³f³øªí"§Y¥i~«á ...
n7822123 µoªí©ó 2020-12-31 02:18



    ¦L¶H¤¤~ ¬Û¦P¥\¯à§Ú¤§«e¦³µo¹L¤@¦¸ §¹¾ãª©ªº½d¨Ò... ¥u¬O­n½Â¤峹 §ä¬Ý¬Ý

    ¸Ó¥\¯à¬O ¶ñ¼g¯S©w¸ê®Æ«á  ¤â°ÊÂIÀ»Àx¦s §Y¥i®Ú¾Ú ¦WºÙ ¥t¦s

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 29# mark15jill


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

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD