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

donod

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

donod

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

Hsieh

¦^´_ 2# donod

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

donod

¦^´_ 3# Hsieh

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

Hsieh

¦^´_ 4# donod

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

1. Public WithEvents qyt As QueryTable
   
2. 
   
3. '¬d¸ßµ²§ô«áªº¨Æ¥ó
   
4. Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
   
5.     ¼½©ñ "C:\Users\Hsieh\Documents\ringout.wav" '§¹¦¨§ó·s­n¼½©ñªºwavÀÉ®×
   
6. End Sub
   
7. 
   
8. Private Sub Workbook_Open()
   
9.     '¦pªG¤u§@ªí Sheet1 ¤º¤w¸g¦³WEB¬d¸ß¤F¡A´N±N¨ä«ü©wµ¹ÅÜ¼Æ qyt
   
10.     If Worksheets(1).QueryTables.Count > 0 Then
    
11.         Set qyt = Worksheets(1).QueryTables(1)
    
12.     Else
    
13.         '¦pªG¨S¦³¥i¥H¦Ò¼{¦b³o¸Ì«Ø¥ß¤@­Ó¬d¸ß,¦A±N¥¦«ü©wµ¹ qyt
    
14.         '©ÎªÌ±N qyt «ü©wµ¹¨ä¥L¤u§@ªíªºWEB¬d¸ß¡]¦pªG¦³»Ý­nªº¸Ü¡^
    
15.     End If
    
16. 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)

¤U¸ü¦¸¼Æ: 10

2012-6-15 00:00

donod

¦^´_ 5# Hsieh


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

¤U¸ü¦¸¼Æ: 8

2012-6-15 00:48

c_c_lai

¦^´_ 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

GBKEE

¦^´_ 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

¤U¸ü (69.67 KB)

2012-6-23 12:11

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

¤U¸ü (37.33 KB)

2012-6-23 12:11