- ©«¤l
- 200
- ¥DÃD
- 22
- ºëµØ
- 0
- ¿n¤À
- 234
- ÂI¦W
- 34
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2020-4-14
- ³Ì«áµn¿ý
- 2025-2-20
    
|
¦^´_ 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! §AnÄ~Äò¿é¤J¥»±iq³æ¶Ü? ", 4 + 32 + 256) = vbNo Then Exit Sub '«ö"§_"µ²§ô
[e2] = [q³f©ú²Óªí!A:A].Cells(Mch, 1) '«ö"¬O", ¦Û°Ê¶ñ¤J"«È¤á¦W", ¥[¤J¼W¸É©ú²Ó~~
End If |
|