½Ð°Ý ¤j¤j n¦p¦ó±N¦¹°T®§¤£n¥X²{©O?©Î¬O¨ä¥L¤èªk
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
½Ð°Ý ¤j¤j n¦p¦ó±N¦¹°T®§¤£n¥X²{©O?©Î¬O¨ä¥L¤èªk
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-12-12 14:46 ½s¿è
½Ð°Ý n¦p¦ó¼W¼gVB±N¦¹°T®§¤£n¥X²{©O?©Î¬O¨ä¥L¤èªk
¤§«e¦³¸ò±z¦b°Q½×°Ï¤¤ ¸ß°ÝÂ^¨úºô¸ô®Æ°ÝÃD
¦]¦³®Éºô¸ô·|¯S©w®É¶¡³s½u.EXCEL±o¤@ª½¶}±Òn¦p¦ó±N¦¹µe±¨ú®ø©O?
µLªk¶}±Òhttp://......................¡CµLªk§ä¨ìºô»Úºô¸ô¦øªA¾¹©Î proxy ¦øªA¾¹¡C
µM«á¦³Ó½T©w¯Ã
¤£ª¾¬O§_¯à±N¦¹µøµ¡¤£n¥X²{¥B¯à¤£Â_¹Á¸Õ³s½u©Î¶¡¹j³s½u
·PÁ¤j¤j |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
¥»©«³Ì«á¥Ñ ookook520 ©ó 2011-12-13 18:39 ½s¿è
¤j¤j·PÁ±z¦b¤U¥Ø«eµLªk¤U¸üªþ¥ó ¤Îµo°eµu®ø®§
¬O§_¥i¥H½Ð±z¥ý¼È¤W¶Ç¨ä¥L¦ì¸m
¦b¤U§V¤O¼W¥[¿n¤À_ |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
¦^´_ 5# ookook520
¤j¤j
¦]¬°¦b¤U¦³¦A¥[ÓÂন¹Ï¤ù¤§¤èªk
½Ð±z¦b´ú¸Õ¬Ý¬Ý
Â_½u«á·|¥X²{ªºÁÙ¬O¦¨¥\·P¿E¤£ºÉ |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
¦^´_ 4# GBKEE
·PÁ¤j¤j
½Ð¬d¾\ªþ¥óÁÂÁÂ
ok.rar (34.69 KB)
|
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 20
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-5-27
- ³Ì«áµn¿ý
- 2012-6-27
|
¥»©«³Ì«á¥Ñ ookook520 ©ó 2011-12-12 16:36 ½s¿è
·PÁ¤j¤j
ÁÙ¬O·|¥X²{
¿ù»~³sµ²ªºµøµ¡
¦b¤U¥un±Nºô¸ôÂ_½u«á´N·|¸õ¥X¦¹µøµ¡
¦]¸Ó¬O»¡¤@ª½¤£Â_ªº¹Á¸Õ³s½uÁa¨Ï¨ºÓºô¯¸Â_½u©Î¬O§Ú̺ô¸ôÂ_½u
³£¦bI´º¤@ª½¤£Â_ªº¹Á¸Õ§ó·s¸ê®Æ¨ì«ì´_¥¿±`
µM«á¤S¤@ª½«½Æ
¤£¾å±o¬On¼g¦bþ¸Ì
½Ð¤j¤j¶O¤ß
¤§«e±z©Ò¼g
Private Sub Query_AfterRefresh(ByVal Success As Boolean)
Dim Msg As Boolean, R%, C%
If Not Success Then
UserForm1.Label1.Caption = "§ó ·s ¥¢ ±Ñ !!"
GoTo L
End If
For R = 2 To 3
For C = 2 To AR.Columns.Count
If Rng(R, C) <> AR(R, C) Then
Msg = True
GoTo L
End If
Next
Next
L:
Rng = ""
UserForm1.Label1.Caption = "§ó ·s ¦¨ ¥\ !!"
If Not Msg Then UserForm1.Label1.Caption = "§ó ·s ¥¢ ±Ñ !!"
UserForm1.Show 0
'Test
End Sub |
|
|
|
|
|
|