- ©«¤l
- 199
- ¥DÃD
- 22
- ºëµØ
- 0
- ¿n¤À
- 233
- ÂI¦W
- 229
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2020-4-14
- ³Ì«áµn¿ý
- 2024-11-27
|
¦^´_ 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! §AnÄ~Äò¿é¤J¥»±iq³æ¶Ü? ", 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! §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
.§Ú¥ý²z¸Ñ .
ÁÂÁ 㴣³¡ªL ¦Ñ®v |
|