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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD