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

[µo°Ý] ¦p¦ó­×­q¼W¦Cµ{¦¡

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

­ã´£³¡ªL ¦Ñ®v §A¦n


¦A¸g´ú¸Õ«á.·í"«È¤á"¹j¤é­n¿é¤J®É¦P¼Ë¸gÀˬd¤~¯à¿é¤J

³o³y¦¨"«È¤á"Àˬd¥¢¥h·N¸q.

©Ò¥H²{¦b¬O¶·±N·í¤é"­q³f©ú²Óªí"¥ý¦æ«ØÀÉ«á.²MªÅ¥H§Q¹j¤é¿é¤J

¤S³y¦¨."¤ëµ²±b"®ÉµLªk«Ø¥ß¸ê®Æ¤£«K.

¦]²{Àˬd¬O¥H"­q³f©ú²Óªí"¬°°ò·Ç.Àˬd"«È¤á"¬O§_¦³­«½Æ°Ê§@

¬O§_¥i¥Î¥H"­q³f©ú²Óªí"¤§"¤é´Á"¬°°ò·Ç.¦A¥h¤ñ¹ï"«È¤á"¬O§_¦³­«½Æ.¦p¦³­«½Æ.¦A¦æ"¬O"©Î"§_"°Ê§@

       ÁÂÁ«ü±Ð
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¬¡­¶Ã¯1.zip (11.88 KB) ¦^´_ 11# BV7BW
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_  BV7BW
BV7BW µoªí©ó 2021-7-10 03:31


"­q³f©ú²Óªí"
AÄæ="«È¤á"
LÄæ="¤é´Á"
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦­´N´£¿ô¹L³o¬O¤p«¬ªº¶i¾P¦sªº»Ý¨D, ¤ÓÁcÂø...Ãø¼g
²{¦b§A­nªº´N¬O[¬d¸ß]-[­×§ï]-[¦s¤J],
¦ý§AÀɮפw­×§ï¤Ó¦h, µL±q¤U¤â, ¥u¯à¼g­Ó²©öªº, ¤£¨¾¤H¬°¿ù»~¾Þ§@:
¥X³f§@·~Dª©v01_11007.rar (356.64 KB)

1) ¨Ï¥Î[­×§ï¿é¤J]«ö¶s, ¿é¤J³渹
2) ±N­n·s¼Wªº«~¶µ¿é¤J¼Æ¶q, ¦A«ö[¿é¥X]¦s¤J©ú²Óªí
3) ª`·N:³oµLªk±Æ°£­ì¥X³f³æ¤¤ªº¤w¦³ªº«~¶µ, ¥ç§Y¥u¯à¼W¥[·sªº, ªº½Ð¦b©ú²Óªí¤¤¤â°Ê­×§ï
4) ­×§ï·s¼Wªº, ·|¶ñ¤J²Hºñ¦â¥H°Ï§O

³oºØµ{¦¡¼g¨Ó»áÃø, ­n¦Ò¼{ªº¤Ó¦h, ¨S®É¶¡¤Îºë¯«¥h¼g~~

TOP

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

­ã´£³¡ªL ¦Ñ®v §A¦n ¨¯³Ò§A¤F

ÁÂÁ§A¤£«ù¨¯³Ò.¬°¾Ç¥Í¶O¤ß.«D±`·PÁ§A

¥i¯à¬O¾Ç¥Í·Qªk¥Î·N.¤@®Éªí¹F¤£©ú.¦Ó¤£¬Oµ{¦¡°ÝÃD.®ö¶O¦Ñ®v¨¯³Ò¤Îºë¤O.©ä¶¤@¤j°é.ª`­«¦b³æ¸¹­×§ï

    ¹ê·P©êºp
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2021-7-10 17:35 ½s¿è

¦^´_ 15# BV7BW

NM = [a2] '«È¤á
DD = [A4] '¤é´Á
Mch = Application.Match(CLng(DD), [­q³f©ú²Óªí!k:k], 0)  '¥ýÀˬd¤é´Á¬O§_¦s¦b
If IsNumeric(Mch) Then
    Arr = Range([­q³f©ú²Óªí!m1], [­q³f©ú²Óªí!a1].Cells(Rows.Count, 1).End(xlUp))
    For i = Mch To UBound(Arr)
        If Arr(i, 11) <> DD Then Exit For
        If Arr(i, 11) = DD And Arr(i, 1) = NM Then '¤é´Á¬Û¦P+«È¤á¬Û¦P
           MsgBox "¡°¤é´Á:" & DD & "¡A«È¤á:" & NM & "¤w¸g¦³¸ê®Æ!   ": Exit Sub
        End If
    Next i
End If

³o¼Ë´NµLªk±N­ì³æ¥s¥X¨Ó­×§ï¼W¥[«~¶µ¤F!!! ¥ç§Y¦P¤@¤Ñ¦P¤@«È¤á¥u¯à¿é¤J¤@¦¸¸ê®Æ!
¤H¬°¿ù»~µ{¦¡¤j³¡¥÷µLªk±Æ°£, ¤@¯ë¥´³æ¤§«e¤@©w¦³¤â¼g¯ó½Z,
­n¾i¦¨²ßºD, ¿é¤J®É, ¦P®É±N¯ó½Z¤Wªº«È¤á¦WºÙ©Î½s¸¹¥Îµ§°é°_¨Ó, ³o¬O¤@­Ó«Ü­«­nªº½T»{°Ê§@,
¿é¤J§¹¦¨«á, ¤]¥²¶·¦b¯ó½Z¤W¼g¤U"³æ¸¹", ³o¼Ë´N¥i¥H±Æ°£­«ÂЩÎkey¿ùªº°ÝÃD~~

TOP

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

­ã´£³¡ªL ¦Ñ®v §A¦n
²z¸Ñ2.3¤ÑÁÙ¬O¤£©ú¥Õ.¦A²z¸Ñ²z¸Ñ
¨ä¤¤¦³2¬q¤£ª¾¥i¿Ä¶×¤@°_
xNum = [V2] '³æ¸¹
cName = [e2] '«È¤á.....
NM = [E2] '«È¤á......
DD = [E4] '¤é´Á
QQ = [E2] '«È¤á......­ì¦³³]©w

Mch = Application.Match(CLng(DD), [­q³f©ú²Óªí!L:L], 0)  '¥ýÀˬd¤é´Á¬O§_¦s¦b
If IsNumeric(Mch) Then
     Arr = Range([­q³f©ú²Óªí!L1], [­q³f©ú²Óªí!A1].Cells(Rows.Count, 1).End(xlUp))
     For i = Mch To UBound(Arr)
         If Arr(i, 11) <> DD Then Exit For
         If Arr(i, 11) = DD And Arr(i, 1) = NM Then '¤é´Á¬Û¦P+«È¤á¬Û¦P(QQ = [E2] '«È¤á......­ì¦³³]©w)
            MsgBox "¡°¤é´Á:" & DD & "¡A«È¤á:" & NM & "¤w¸g¦³¸ê®Æ!   ": Exit
.................................................................................
Beep '­Y¦s¦b, µo¥X¹ÍÁn, ¨Ã´£¥Ü¬O§_¶i¦æ¸É¼W???
    If MsgBox("**«È¤á¤w¦s¦b! §A­nÄ~Äò¿é¤J¥»±i­q³æ¶Ü?  ", 4 + 32 + 256) = vbNo Then Exit Sub '«ö"§_"µ²§ô
    [e2] = [­q³f©ú²Óªí!A:A].Cells(Mch, 1) '«ö"¬O", ¦Û°Ê¶ñ¤J"«È¤á¦W", ¥[¤J¼W¸É©ú²Ó~~
....................................................
¶×¦¨
xNum = [V2] '³æ¸¹
cName = [e2] '«È¤á.....
NM = [E2] '«È¤á......
DD = [E4] '¤é´Á
QQ = [E2] '«È¤á......­ì¦³³]©w

'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_¥X³f§@·~Dª©V01_10905
If Not xNum Like String(10, "#") Then MsgBox "**³æ¸¹¿ù»~©ÎªÅ¥Õ! ": Exit Sub
If Left(xNum, 7) <> Year([E4]) - 1911 & Format([E4], "mmdd") Then MsgBox "**³æ¸¹«e¢¶½X»P¤é´Á¤£¬Û²Å! ": Exit Sub
Mch = Application.Match(xNum, [­q³f©ú²Óªí!K:K], 0)
If IsNumeric(Mch) Then MsgBox "**³æ¸¹¤w¦s¦b! ": Exit Sub
Mch = Application.Match(CLng(DD), [­q³f©ú²Óªí!L:L], 0)  '¥ýÀˬd¤é´Á¬O§_¦s¦b
If IsNumeric(Mch) Then
     Arr = Range([­q³f©ú²Óªí!L1], [­q³f©ú²Óªí!A1].Cells(Rows.Count, 1).End(xlUp))
     For i = Mch To UBound(Arr)
         If Arr(i, 12) <> DD Then Exit For
         If Arr(i, 12) = DD And Arr QQ = NM Then '¤é´Á¬Û¦P+«È¤á¬Û¦P(QQ = [E2] '«È¤á......­ì¦³³]©w)
            MsgBox "¡°¤é´Á:" & DD & "¡A«È¤á:" & NM & "¤w¸g¦³¸ê®Æ!   ": Exit Sub
         End If
     Next i
End If
........
    Beep '­Y¦s¦b, µo¥X¹ÍÁn, ¨Ã´£¥Ü¬O§_¶i¦æ¸É¼W???
    If MsgBox("**«È¤á¤w¦s¦b! §A­nÄ~Äò¿é¤J¥»±i­q³æ¶Ü?  ", 4 + 32 + 256) = vbNo Then Exit Sub '«ö"§_"µ²§ô
    [e2] = [­q³f©ú²Óªí!A:A].Cells(Mch, 1) '«ö"¬O", ¦Û°Ê¶ñ¤J"«È¤á¦W", ¥[¤J¼W¸É©ú²Ó~~
End If

.§Ú¥ý²z¸Ñ .

ÁÂÁ ­ã´£³¡ªL ¦Ñ®v
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 17# BV7BW

¦P¤@­Ó«ö¶s, µLªk¦P®É¶i¦æ"·s¼W/­×§ï"¥\¯à, ¦]¬°Àˬd¤è¦¡¤£¬Û¦P~~
¥X³f§@·~Dª©v01_1100713.rar (355.78 KB)

­n"·s¼W"--¨Ï¥Î"­«¸m"«ö¶s--ª¬ºA"«Ý©R¤¤"--¶}©l¿é¤J
­n"§ó§ï"--¨Ï¥Î"­×§ï¿é¤J"«ö¶s--ª¬ºA"­×§ï¤¤"--¿é¤J³æ¸¹--¶}©l¿é¤J

¦Û¦æ¥h®M~~

TOP

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

­ã´£³¡ªL ¦Ñ®v §A¦n
²z¸Ñ­×§ï¦h¤Ñ.ÁÙ¬O¤£©ú¥Õ"ÀY·w·w"
§Ú¦A­«·s¾ã²z¦A´£°Ý
ÁÂÁ ­ã´£³¡ªL ¦Ñ®v
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 19# BV7BW


Ãö¤_"­×§ï¿é¤J"
¨Ò¦p:¤µ¤Ñ§A¿é¤J¤F¤@±i¥X³f³æ, «È¤á:³¯¤@, ³æ¸¹:1100724001, ¦@¿é¤J10µ§¶µ¥Ø,
¦ýÁ{®É«È¤á°l¥[¤F3ºØ°Ó«~,
´N¥i¥H¨Ï¥Î"­×§ï¿é¤J"«ö¶s, ¦binputbox¤¤¿é¤J³æ¸¹1100724001, «ö½T©w,
§Y¥i¿é¤J°l¥[ªº°Ó«~, «ö"¿é¥X", ³o3µ§´N·|¥[¤J©ú²Ó¸Ì!!!

·íµM, ¼W¥[³o¥\¯à«á, ­ìµ{¦¡´N¦³ÅÜ°Ê, ­n¦Û¦æ¥h¤ñ¹ï­þ¸Ì»Ý­n­×§ï©Î¼W¥[!!!

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD