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

[µo°Ý] ½Ð¯q ¬O§_¦³§ó§Öªº¬d¸ß¤è¦¡

¦^´_ 3# singo1232001


    ¨ç¼Æªº³¡¤À §Ú¦³¨Ï¥Î¹L
¥u¤£¹L³o¬O§ÚÁ|¨Ò½d¨Ò ¼Æ¶q¥u¦³2¸U¦hµ§
­Yµ§¼Æ¶V¦h ¥Î¨ç¼Æ  ¹q¸£·|¶V¦Y¤O
«á¨Ó´N©ñ±ó¥Î¨ç¼Æ¤F ><""

TOP

¥t¤@Ãþ¤èªk, ¦r¨å¤¤ªº¦r¨å:
Xl0000114_v2.rar (391.29 KB)

¥HBarcode«e¤C½X¤À§O«Ø¥ß¦r¨å, °O¾Ð°}¦Cªº¦æ¦ì¸m, ¥H´î¤Ö¤£¥²­nªº°j°é,
ª`·N:Barcode¦P¦æªº¶}©l½X¤Îµ²§ô½Xªº«e¤C½X¥²¶·¬Û¦P(­Y¤£¦æ, ¥i§ï¬°«e¤»½X), ¾¨¶q¥i°µ¨ì¤ÀÃþ!!!

TOP

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


­ã¤j³o­Ó¦r¨å ·f°t ¤À³Î ªº°µªk¹ê¦b¤Ó¦n¤F
¤S¾Ç¨ì¤@©Û
¤ñ§Ú¤Á¨º­Ó99±í¤è«K¦h¤F
°O¾ÐÅé¤À°t¤£¤j
¦Ó¥B¥i¥H«ÜÀH¾÷ªº¤Á¦¨·Q­nªº¦r¤¸°Ï¶¡
¬Ý¨Ó¤W¸Uµ§¸ê®Æªº¿z¿ï¤]¦h¤F¤@©Û§ó¤è«Kªº¤è¦¡
§¹¥þÅé·|¨ìÃìªíªº¦n¥Î¤§³B
¦Ó¥B¤]¾Ç¨ì±ø½X¤å¦r¤ñ¤j¤pªº¯S®í®×¨Ò
¤@³½¨â¦Y «D±`·PÁÂ

¥t¥~·Q½Ð±Ð­ã¤j¤@­Ó·§©À¤Wªº°ÝÃD
¥Ø«e§Ú¨Ï¥Î°}¦C¥h¤Á ¬O¤£¬O¥u³Ñ¤U
"¸ê®Æ®w¦³¦hµ§¬Û¦P¸ê®Æªº±¡ªp,¨Ã¥B³£­n§ä¥X¨Ó"¤~·|¥Î±o¤W¤F
(¤£¹L·Q·Q),¦r¨å¸I¤W­«½Æ ,¦ýkey­ÈÀ³¸Ó¤]¥i¥H§â¸ê®Æ &","& °_¨Ó ©ÎªÌ ¡®" "¡®°_¨Ó

¥Ø«eªÃ«ù¹êÅç»P¾Ç²ßªººë¯«
¤p§Ì¤]§â­×§ï«á¹êÅçµ²ªG§e¤W ³t«×ºC¤F¨Ç ­n0.6¬í

3ºû°}¦C¤u³æ¬d¸ß v4.zip (822.72 KB)

TOP

¦^´_ 13# singo1232001


    ­è­èµo²{ ¦r¨å¤U­±ÁÙ¥i¥H¦A©ñ¤J¦r¨å ¤£¥Î¾á¤ß­«½Æ¤F ³o©Û¦n¥Î!
    ¤S¾Ç¨ì¤@©Û!

TOP

¦^´_ 13# singo1232001


§Ú³o¤j¬ù­n2¬í¥ª¥k(¦ÑPC-XP+2000),
³o¬O¤À¯Å¥]¸Ëªº·§©À...±N¹s¥ó²Õ¦X¦¨«~, ¦A¤À¯Å±Æ¦C,
«Ü¦nªº¹B¥Î, Æg~~~

TOP

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


    ­ã¤jªºÀÉ®× ¦b§Úªº¹q¸£¶]0.3¬í   ¤ñ§ÚªºÀɮק֤@­¿¥H¤W

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-31 13:27 ½s¿è

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

¦P¼Ëªº·§©À§ï¼g·Ç¤jµ{¦¡¡A¦ý¬O³t«×¤ñ¸ûºC (¤£¹LÁÙ¬O¤ñ¯Â¶]°j°é§Ö)

±À´ú»Ý­nÃB¥~°µ¦r¦ê¦ê±µ¡B©î¤À µ¥¹Bºâ¡A©Ò¥H©ìºC³t«×!

¯Âºé¥Î¦r¨å®r®M¡A³t«×¯uªº¨Sªk¤ñ¡A¯u¬O¼F®`!

³o·§©ÀÁÙÆZ®e©ö²z¸Ñªº¡A¹³¬O¥ý«Ø¥ß¤@­Ó¥Ø¿ý¡A¤£¥ÎÅý¹q¸£¨C­Ó¥h§ä

¦¹°µªk¡A§Ú²Ä¤@­Ó·Q¨ìªº¬O ¡A¥i¥HÀ³¥Î¦b ¦h¼h¤U©Ô¦¡¿ï³æ


Sub TEST_AT()
Dim Arr, Brr, Crr(2), xD(2), T$, i&, j%, k, Km%, TM
TM = Timer
Crr(1) = Range([L!m1], [L!a1].Cells(Rows.Count, 1).End(xlUp))
Crr(2) = Range([R!m1], [R!a1].Cells(Rows.Count, 1).End(xlUp))
For j = 1 To 2
    Set xD(j) = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(Crr(j))
        T = Left(Crr(j)(i, j + 9), 7)
        xD(j)(T) = xD(j)(T) & " " & i
    Next i
Next j
Arr = Range([§Ç¸¹!a1], [§Ç¸¹!a1].Cells(Rows.Count, 1).End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To 2)
Brr(1, 1) = "¤u³æ¸¹½X": Brr(1, 2) = "¦ì¸m"
For i = 2 To UBound(Arr)
    T$ = Left(Arr(i, 1), 7): Km = 0
    For j = 1 To 2
        For Each k In Split(Trim(xD(j)(T)))
            k = Val(k)
            If Crr(j)(k, 9 + j) <= Arr(i, 1) And Crr(j)(k, 11 + j) >= Arr(i, 1) Then
               Brr(i, 1) = Crr(j)(k, j): Brr(i, 2) = Mid("LR", j, 1) & k
               Km = 1: Exit For
            End If
        Next
        If Km = 1 Then Exit For
j01: Next j
i01: Next i
[§Ç¸¹!b1].Resize(UBound(Brr), 2) = Brr
MsgBox Timer - TM
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2021-7-31 13:27 ½s¿è

¦^´_ 14# singo1232001

ª«¥ó²z½×¤W¬O¥i¥HµL­­®r®Mªº~~~

¥i¥Hª±ª± "ª«¥óÃþ§O¼Ò²Õ"¡A¦Û¤v³Ð³yª«¥ó¡A¨Ã¥B®r®M¬Ý¬Ý~
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 17# n7822123


³o¬O§Ú­ì¨Óªº¤èªk,
¦ý,,,'
1) ­Y¦æ¼Æ¤Ó¦h, ³s±µ¦r¦ê¥i¯à¶W¹Lªø«×, ¤×¨ä¶W¹L¤Q¸U¦æ®É, ¨C­Ó¼Æ¦r³£¬O¤»­Ó¦r¤¸
2) ³s±µ¦r¦ê¥»¨Ó´N¤ñ¸ûºC, ¦óªp«á­±ÁÙ­n©î¸Ñ¤@¦¸

¤£¹L, ¦r¨å篏¦r¨å, ¤]¤£ª¾¥i¥H®e¯Ç¦h¤Ö­Ó, °O¾ÐÅé·|¤£·|±¾???
¨S¦³¹ê´ú¹L~~~~

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-31 20:52 ½s¿è

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


¤§«e°µ¹L´ú¸Õ
vbaªº¦r¨å¨S¦³¤W­­ ¯Âºé¾aªº¬O°O¾ÐÅé¤j¤p
¥u¤£¹Lvba¦³­Óbug ¦b·s¼WºÊ¬Ý¦¡ªº¦ì¸m ¥u·|Åã¥Ü³Ì¦h256­Óitem­È
¦ý¹ê»Ú¤W 257¥H«á¨SÅã¥Üªº ¤@¼Ë½T¹ê¦³¦s¦b!

·íªì§Ú¤]³Q³o­Óbug ÄF¹L ÁÙ¦bµS¿Ý¬O§_­nÄ~Äò¾Ç¦r¨å «á¨ÓÁÙ¦nµêÅå¤@³õ

³o¼Ë¤SÅý§Ú·Q°_¤@±ø·s¥X¸ô
¦pªG¨S¿ù ¸ê®Æ¶q¦b§ó¥[Ãe¤jªº±¡ªp ¬Æ¦Ü¦r¨å ¸ò °}¦C °µ±Æ§Ç¸ê®Æ ÁÙ¥i¥H¥æ¤¬¹B¥Î§ä¨ì¥­¿ÅÂI
¦r¨å´O¦r¨å³o©Û¯uªº«D±`±j¤j À³¸Ó¥i¥Hª±«Ü¤[!
·Q¨Ó´ú¸Õ¤@¤U °}¦C¸Ì­±¥i¥H¤£¥i¥H´O¦r¨å ¦pªG¥i¥Hªº¸Ü ¥iª±©Ê¤S°ª¥X³\¦h
(¬Ý¨Ó¬O¥i¥Hªº,¤£¹L«e­±­n¥[¤Wset )
Sub ttt()
Dim ar
ReDim ar(5)
Set xD = CreateObject("Scripting.Dictionary")
Set ar(1) = xD
ar(2) = 123
End Sub



¥Ø«e¥¿¦b¾Ç²ß ¤G¤e¾ð¤§Ãþªº»¼°j¤è¦¡ §Æ±æ¥¼¨Ó¯à¹ê»ÚÀ³¥Î¤W@@
³o¬O¦bºô¸ô§ä¨ìªº¸ê®Æ ¥L®i¥Ü¤F ¨âºØ¤è¦¡  »¼°j »P «D»¼°jªº ±Æ§Ç¤è¦¡ »P«e.¤¤.«á§Ç¹M¾ú
(²Åé¤å ¤£±Æ¥¸¦A¬Ý)
https://mp.weixin.qq.com/s?__biz=MzA3NTMzMjMyOA==&mid=2650919340&idx=1&sn=e5cf778df2f26e340fd3469d7a60785f&chksm=84875e2bb3f0d73d45172e70a3f202e404cbd21cbd4d26ad657c6dc9969fdf2eb6ab94cb9e65&scene=21#wechat_redirect
¤W­±¬O²Ä22½g
¥LÁÙ¦³²Ä21½g¸ò 23½g
¨«§ëµL¸ô¤~§ä¨ìªº¸ê®Æ «¢«¢(·íªì¤£ª¾¹D¦p¦ó¤UÃöÁä¦r)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD