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

[µo°Ý] ·íºô­¶¦³§ó·s¡A¦p¦ó¥XÁn­µ´£¥Ü

[µo°Ý] ·íºô­¶¦³§ó·s¡A¦p¦ó¥XÁn­µ´£¥Ü

¥»©«³Ì«á¥Ñ donod ©ó 2012-6-13 21:50 ½s¿è

½Ð±Ð¤j¤j¡A¨Ò¦p·í¥»ºô­¶¦³§ó·s/·s¯d¨¥¡A·Q¦Û°Ê¥XÁn­µ´£¥Ü¡AÀ³¸Ó¦p¦ó¼g?ÁÂÁÂ!

¬O§_¤£¯à°÷³o¼Ë?ÁÂÁÂ!

TOP

¦^´_ 2# donod

ºô­¶§ó·s»PEXCEL¦³¦óÃöÁp?
³o­Ó°ÝÃD¦ü¥G¤£À³¸Ó¬O¦bEXCELµ{¦¡°Ïµo°Ýªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh

¤§«e¦³¤j¤j¥Îexcel¥iÀ˵øºô­¶¦b½u¤H¼Æ¡A©Ò¥H¦³¦¹·Qªk¡C

TOP

¦^´_ 4# donod

¤Þ¥Î¨F©Ôªoª©¤j³¡¸¨®æ¤å³¹
ÅýWEB¬d¸ß¨ã¦³¨Æ¥ó
1.¥ý¦b²Ä¤@±i¤u§@ªí«Ø¥ß¤@­ÓWeb¬d¸ß   
2.Thisworkbook¼Ò²Õ¿é¤Jµ{¦¡½X
  1. Public WithEvents qyt As QueryTable

  2. '¬d¸ßµ²§ô«áªº¨Æ¥ó
  3. Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
  4.     ¼½©ñ "C:\Users\Hsieh\Documents\ringout.wav" '§¹¦¨§ó·s­n¼½©ñªºwavÀÉ®×
  5. End Sub

  6. Private Sub Workbook_Open()
  7.     '¦pªG¤u§@ªí Sheet1 ¤º¤w¸g¦³WEB¬d¸ß¤F¡A´N±N¨ä«ü©wµ¹ÅÜ¼Æ qyt
  8.     If Worksheets(1).QueryTables.Count > 0 Then
  9.         Set qyt = Worksheets(1).QueryTables(1)
  10.     Else
  11.         '¦pªG¨S¦³¥i¥H¦Ò¼{¦b³o¸Ì«Ø¥ß¤@­Ó¬d¸ß,¦A±N¥¦«ü©wµ¹ qyt
  12.         '©ÎªÌ±N qyt «ü©wµ¹¨ä¥L¤u§@ªíªºWEB¬d¸ß¡]¦pªG¦³»Ý­nªº¸Ü¡^
  13.     End If
  14. End Sub
½Æ»s¥N½X
3.¤@¯ë¼Ò²Õ¿é¤J¥H¤Uµ{¦¡½X
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub ¼½©ñ(mypath)
  3. On Error Resume Next
  4. mciExecute "play " & mypath
  5. End Sub
½Æ»s¥N½X
4.Àx¦sÀɮסAÃö³¬«á­«·s¶}±ÒÀÉ®×
¬d¸ß«á¼½­µ.rar (16.66 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ½Ðª©¤j«ü±Ð...
ºô­¶§ó·s´£¥Ü1.rar (16.7 KB)

TOP

¦^´_ 5# Hsieh
¥H¤U¤§µ{¦¡½X¥u¯à¦b32¦ì¤¸¤U°õ¦æ¡A½Ð±Ð¦pªG­n¦b64¦ì¤¸¤U¤]¯à§@·~­n¦p¦ó­×¥¿¡H
ÁÂÁ¤j®a¡I
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub ¼½©ñ(mypath)
  3.       On Error Resume Next
  4.       mciExecute "play " & mypath
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# donod
¤u§@ªí µ{¦¡½X
  1. Option Explicit
  2. Dim A As String
  3. Private Sub Worksheet_Calculate()
  4.      If A <> "" Then If Mid([B6], 1, 10) <> A Then MsgBox "¦³·s¦^ÂÐ"
  5.     A = Mid([B6], 1, 10)
  6. End Sub
½Æ»s¥N½X

¤u§@ªí³]¸m


   
¥~³¡¸ê®Æ¬d¸ß ³]©w¨C1¤ÀÄÁ¦Û°Ê§ó·s¸ê®Æ

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD