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

½Ð°Ý ¤j¤j ­n¦p¦ó±N¦¹°T®§¤£­n¥X²{©O?©Î¬O¨ä¥L¤èªk

½Ð°Ý ¤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

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2011/12/13 17:39): ¥Îµu®ø®§ µ¹§Úmail

¥»©«³Ì«á¥Ñ 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¤À_

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-12-13 17:01 ½s¿è

¦^´_ 5# ookook520
¸Õ¸Õ¬Ý

    ReOk.rar (38.54 KB)

¦^´_ 6# ookook520
Âন¹Ï¤ù¤§¤èªk
  1. Sub p()
  2.     '«ü©w®É¶¡»Pµ{§Ç¦WºÙ¡@¡@¡@ '²{¦b®É¶¡+5¬í«á,©I¥sD_Sample037()
  3.     Application.OnTime Now() + TimeValue("00:00:05"), "ExportNumChart"
  4. End Sub
½Æ»s¥N½X
»PÂ_½uµLÃö

TOP

¦^´_ 5# ookook520


    ¤j¤j
¦]¬°¦b¤U¦³¦A¥[­ÓÂন¹Ï¤ù¤§¤èªk
½Ð±z¦b´ú¸Õ¬Ý¬Ý
Â_½u«á·|¥X²{ªºÁÙ¬O¦¨¥\·P¿E¤£ºÉ

TOP

¦^´_ 4# GBKEE


·PÁ¤j¤j
½Ð¬d¾\ªþ¥óÁÂÁ ok.rar (34.69 KB)

TOP

¦^´_ 3# ookook520
ÁÙ¬O·|¥X²{ ¿ù»~³sµ²ªºµøµ¡  ½ÐªþÀɬݬÝ

TOP

¥»©«³Ì«á¥Ñ ookook520 ©ó 2011-12-12 16:36 ½s¿è

·PÁ¤j¤j
ÁÙ¬O·|¥X²{
¿ù»~³sµ²ªºµøµ¡
¦b¤U¥u­n±Nºô¸ôÂ_½u«á´N·|¸õ¥X¦¹µøµ¡


¦]¸Ó¬O»¡¤@ª½¤£Â_ªº¹Á¸Õ³s½uÁa¨Ï¨º­Óºô¯¸Â_½u©Î¬O§Ú­Ìºô¸ôÂ_½u
³£¦b­I´º¤@ª½¤£Â_ªº¹Á¸Õ§ó·s¸ê®Æ¨ì«ì´_¥¿±`
µM«á¤S¤@ª½­«½Æ



¤£¾å±o¬O­n¼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

TOP

¦^´_ 1# ookook520
  1. Sub Ex()
  2.     Dim Msg As String
  3.     On Error Resume Next
  4.     Msg = "§ó·s¦¨¥\"
  5.     Sheet1.QueryTables(1).Refresh 0
  6.     If Err.Number <> 0 Then Msg = "§ó·s¥¢±Ñ"
  7.     Application.StatusBar = Msg
  8.     'StatusBar ¶Ç¦^©Î³]©wª¬ºA¦Cªº¤å¦r¡CŪ/¼g String¡C
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD