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

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

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

¦U¦ì «e½ú¥ý¶i ¤j®a¦n

°ÝÃD½Ð±Ð:¦p¦ó­×­q¼W¦Cµ{¦¡
         »Ý¨D="«È¤á¤w¦s¦b"«á.§ó§ï¼W¥[¤W¥i¤¹³\­«½ÆÄ~Äò°õ¦æ

Sub «È¤á­qÁʪí_¿é¥X()
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_¥X³f§@·~Dª©V01_10905
Dim R&, CN&, Arr, Brr, Crr, Drr, QQ, i&, j%, N&, xE As Range, X%, Mch, xNum&, PNo$, CL$
R = [L65536].End(xlUp).Row
CN = Application.Count(Range("M4:M" & R))
If CN = 0 Then MsgBox "**©|¥¼¿é¤J¼Æ¶q!  ": Exit Sub

If [E2] = "" Then MsgBox "**©|¥¼¿é¤J«È¤á¦WºÙ!  ": Exit Sub

If Not IsDate([E4]) Then MsgBox "**¤é´ÁªÅ¥Õ©Î¿ù»~! ": Exit Sub


'------------------------------------
xNum = [V2] '³æ¸¹
CL = [E2] '«È¤á
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ª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(xNum, [­q³f©ú²Óªí!A:A], 0)

If IsNumeric(Mch) Then MsgBox "**«È¤á¤w¦s¦b! ": Exit Sub >>>>»Ý¨D=§ó§ï¼W¥[¤W¥i¤¹³\­«½ÆÄ~Äò°õ¦æ

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

¦^´_ 1# BV7BW


    §ó¥¿
Mch = Application.Match(CL, [­q³f©ú²Óªí!A:A], 0)

If IsNumeric(Mch) Then MsgBox "**«È¤á¤w¦s¦b! ": Exit Sub >>>>»Ý¨D=§ó§ï¼W¥[¤W¥i¤¹³\­«½ÆÄ~Äò°õ¦æ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 2# BV7BW


¤¹³\­«ÂÐ, ´N§R¥h, ¤£Àˬd§Y¥i~~

TOP

¦^´_ 3# ­ã´£³¡ªL
­ã´£³¡ªL ¦Ñ®v§A¦n

¦Ñ®v¥i¯à»~¸Ñ¤¹³\­«½Æ¥Î·N

²Ä1¦¸¬O¿é¤J¬O¥¿±`­qÁÊ.¦ý¦³®É¦b¿é¤J®É·|¥i¯à²£¥Í­«½Æ¿é¤J«È¤á¦W

.¾É­P±ÄÁʤΰt°eÄY­«»~®t.¦]¦¹¥ý¦³Àˬd¤è¦¡.¨¾¤î­«½Æ
.
²Ä2¦¸¦b¿é¤J¬O¸É³f­qÁÊ.¦ý·í¤é¤w¦³­qÁʬö¿ý®É.´N¾×¦í¤£¯à¿é¤J.

©Ò¥H»Ý¨D¥i¿ï¾Ü¥i"¬O"©Î"§_"Ä~Äò°õ¦æ

¥Ø«e¥u¯à¥ý¦æÀˬd°Ê§@.¥i§_¯à¦A¶i¤@¨B"¬O"©Î"§_"¿ï¾Ü¤è¦¡

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

TOP

¦^´_ 4# BV7BW

__²Ä1¦¸¬O¿é¤J¥¿±`­qÁÊ.¦ý¦³®É¦b¿é¤J®É·|¥i¯à²£¥Í­«½Æ¿é¤J«È¤á¦W
¨C±i³æ¸¹¥u·|¦³¤@­Ó«È¤á¦W, «ç·|¦³­«ÂЫȤá¦Wªº°ÝÃD???
¦P¤@«È¤á·|¦³¤£¦P³æ¸¹, ¦b¥X³f©ú²Óªí·íµM·|¦³­«ÂÐ, ³o®ÉÀˬd«È¤á¦W¬O§_­«ÂÐ, ¬O¤£¥¿½Tªº(¥H«áªº³£µLªk¿é¤J¤F)!!!
§Ú­ì¨Ó¼gªº¨Ã¨S¦³ÀË´ú«È¤á¬O§_­«ÂÐ??? §A¦Û¤v¥[ªº§a!!!

­Y²Ä1¦¸¿é¤J¤F¿ù»~ªº«È¤á¦W, ¥u¯à¦b¥X³f©ú²Óªí¤¤¤â°Ê§ó¥¿¤F~~~

TOP

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

¦^´_ 4# BV7BW

­ì¼gªºÀɮפw³Q§ó°Ê, ¥u¯à½M¼g, ¥H¤Uªº¦ì§}¶·¦Û¦æ§ó§ï~~

Mch = Application.Match(xNum, [­q³f©ú²Óªí!K:K], 0) 'Àˬd³æ¸¹¬O§_¦s¦b
If IsNumeric(Mch) Then
   Beep '­Y¦s¦b, µo¥X¹ÍÁn, ¨Ã´£¥Ü¬O§_¶i¦æ¸É¼W???
   If MsgBox("**³æ¸¹¤w¦s¦b! §A½T©w­n¼W¥[¥»±i­q³æªº¥X³f©ú²Ó?  ", 4 + 32 + 256) = vbNo Then Exit Sub '«ö"§_"µ²§ô
   [e2] = [­q³f©ú²Óªí!A:A].Cells(Mch, 1) '«ö"¬O", ¦Û°Ê¶ñ¤J"«È¤á¦W"
End If

TOP

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

·PÁ ­ã´£³¡ªL ¦Ñ®v

§¹¥þ­Á¦X»Ý¨D.¦ì§}¤w­×§ï¥H¤U

Mch = Application.Match(CL, [­q³f©ú²Óªí!A:A], 0) 'Àˬd«È¤á¬O§_¦s¦b
If IsNumeric(Mch) Then
   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

«D±`·PÁ ­ã´£³¡ªL ¦Ñ®v ÁÂÁ±оÉ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

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

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

­è´ú¸Õ¥Î«È¤á¦W¬O¼Æ¦r(991)(992)993)....µ¥µ¥³£¬O¥H¼Æ¦r½s¸¹.§¹¥þ¹B§@.µL¿ù»~
´«¤W¥¿±`¨Ï¥Îª©¤§«È¤á¦W¬O¥H¤¤¤å.¦C(A¨®).(B¨®)(ºÖµØ¶º©±)µ¥µ¥¦³¤¤¤å®É¥X²{¿ù»~²{¶H
CL=[e2]Åã¥Ü¥X(°õ¦æ¶¥¬q¿ù»~"13"«¬ºA¤£²Å¦X)
¬O§_¥i§ï?
­ìµ{¦¡
Sub «È¤á­qÁʪí_¿é¥X()
Dim R&, CN&, Arr, Brr, Crr, Drr, QQ, i&, j%, N&, xE As Range, X%, Mch, xNum&, PNo$
R = [L65536].End(xlUp).Row
CN = Application.Count(Range("M4:M" & R))
If CN = 0 Then MsgBox "**©|¥¼¿é¤J¼Æ¶q!  ": Exit Sub
If [E2] = "" Then MsgBox "**©|¥¼¿é¤J«È¤á¦WºÙ!  ": Exit Sub
If Not IsDate([E4]) Then MsgBox "**¤é´ÁªÅ¥Õ©Î¿ù»~! ": Exit Sub
'------------------------------------
xNum = [V2] '³æ¸¹
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

­ìµ{¦¡¼W¦C CL&
           CL = [e2] '«È¤á
           ³o2¦a¤è
­×§ï«áµ{¦¡
Sub «È¤á­qÁʪí_¿é¥X()
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ªL_¥X³f§@·~Dª©V01_10905
Dim R&, CN&, Arr, Brr, Crr, Drr, QQ, i&, j%, N&, xE As Range, X%, Mch, xNum&, PNo$, CL&
R = [L65536].End(xlUp).Row
CN = Application.Count(Range("M4:M" & R))
If CN = 0 Then MsgBox "**©|¥¼¿é¤J¼Æ¶q!  ": Exit Sub
If [e2] = "" Then MsgBox "**©|¥¼¿é¤J«È¤á¦WºÙ!  ": Exit Sub
If Not IsDate([E4]) Then MsgBox "**¤é´ÁªÅ¥Õ©Î¿ù»~! ": Exit Sub
'------------------------------------
xNum = [V2] '³æ¸¹
CL = [e2] '«È¤á
'µ{¦¡¸ê®Æ¨Ó·½¦Ü­ã´£³¡ª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(CL, [­q³f©ú²Óªí!A:A], 0)
'If IsNumeric(Mch) Then MsgBox "**«È¤á¤w¦s¦b! ": Exit Sub
Mch = Application.Match(CL, [­q³f©ú²Óªí!A:A], 0) 'Àˬd³æ¸¹¬O§_¦s¦b
If IsNumeric(Mch) Then
   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
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 8# BV7BW

xNum&  ---³o©w¸q¬°ªø¾ã¼Æ
«È¤á¦W¬O¤å¦r«¬ºA
¥t©w¸q¤@­Ó cName$ ´À´«

TOP

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

­ã´£³¡ªL ¦Ñ®v §A¦n
²{´ú¸Õ«á.¥i¦æ¹B§@.
¤]µo²{¨ì°²¦p¥Î¼Æ¦r½s¸¹´N¨S¸g¹LÀˬd°Ê§@.´Nª½±µ¿é¤J­q³f©ú²Ó.¦p«á­±¥[¤@¤¤¤å¬J¥i

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

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD