註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 用excel上網查音標 又掛了
1
2
3
4
下一頁
返回列表
下一主題
上一主題
發帖
用excel上網查音標 又掛了
自我感覺良好
發短消息
加為好友
自我感覺良好
當前離線
UID
991
帖子
116
主題
41
精華
0
積分
162
金錢
162
點名
0
作業系統
XP
軟體版本
office2007
閱讀權限
20
性別
男
來自
Taiwan
在線時間
132 小時
註冊時間
2010-7-22
最後登錄
2024-2-9
中學生
帖子
116
主題
41
精華
0
積分
162
點名
0
作業系統
XP
軟體版本
office2007
閱讀權限
20
性別
男
來自
Taiwan
註冊時間
2010-7-22
最後登錄
2024-2-9
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2010-10-15 07:08
|
只看該作者
用excel上網查音標 又掛了
真害YAHOO!奇摩字典又改版了
音標又找不到了
只能看到解釋
新增的即時發音好像粉不錯
1. Sub searchIT(Rng As Range)
2. Dim XH As
Object
3. Dim shpRm As Shape
4. '清除已有的解釋及音標
5. With Rng.EntireRow
6. .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
7. End With
8. '開啟網頁
9. Set XH = CreateObject("Microsoft.XMLHTTP")
10. With XH
11. .Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
12. .send
13. On Error Resume Next
14. '摘取第一組中文翻譯
15. Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description""><p>1.")(1), "<")(0)
16. '摘取KK音標
17. Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span> ")(1), InStr(VBA.Split(.responseText, "KK</span> ")(1), "]"))
18.
19. End With
20. Rng.Select
21. End Sub
樓主熱帖
用excel上網查音標
我的Excel在存檔都會問…
用excel上網查音標 又掛了
設定工作表的工作範圍
日語的注音
為了明天13億的提款號碼
一秒鐘抓出Access的密碼
殺工作表列!!!
超連結的警告 請問可否將他關掉呢?
合成的巨集一個個執行
收藏
分享
50 字節以內
不支持自定義 Discuz! 代碼
HSIEN6001
發短消息
加為好友
HSIEN6001
當前離線
UID
8990
帖子
219
主題
24
精華
0
積分
243
金錢
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
在線時間
62 小時
註冊時間
2012-4-18
最後登錄
2022-2-7
中學生
帖子
219
主題
24
精華
0
積分
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
註冊時間
2012-4-18
最後登錄
2022-2-7
34
#
發表於 2012-7-17 18:35
|
只看該作者
本帖最後由 HSIEN6001 於 2012-7-17 18:37 編輯
回復
32#
GBKEE
大致上,有概念了~^^
回復
33#
c_c_lai
用 "判斷式" 的邏輯去下指令 , 避免之後程序因On Error Resume Next
未出現偵錯的段落提示 ; 而產生Run出不完整的結果
是這樣的意思,我瞭解!
受益良多,謝謝兩位大大指導!
TOP
c_c_lai
發短消息
加為好友
c_c_lai
當前離線
UID
8671
帖子
2035
主題
24
精華
0
積分
2031
金錢
2031
點名
0
作業系統
Win7
軟體版本
Office2010
閱讀權限
100
性別
男
在線時間
2394 小時
註冊時間
2012-3-22
最後登錄
2024-2-1
博士班
帖子
2035
主題
24
精華
0
積分
2031
點名
0
作業系統
Win7
軟體版本
Office2010
閱讀權限
100
性別
男
註冊時間
2012-3-22
最後登錄
2024-2-1
33
#
發表於 2012-7-17 17:20
|
只看該作者
回復
30#
HSIEN6001
如果妳事前沒加上 On Error Resume Next 偵測來避開錯誤的話,
是會產生 執行階段錯誤 '53':找不到檔案 的。
妳那種寫法是 不管三七二十一先殺了再說!
這在正規的程式撰寫語法上,是不太好的,也是我極力去避免的。
明知會產生錯誤卻又走旁道避開,哪日不靈光就嗚呼哀栽了!
總之我是建議妳學習正軌模式,對妳的功力增長會有實質幫助的。
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
32
#
發表於 2012-7-17 17:13
|
只看該作者
本帖最後由 GBKEE 於 2012-7-17 17:14 編輯
回復
31#
HSIEN6001
最小的索引值是----> 0 開始的長整數.
這不一定
例 Dim A(4 To 7) -> 最小的索引值是 4 , 最大的索引值是7
Option Base 0 或 1 可指定最小的索引值為 0 或 1
Option Explicit
Option Base 1
'Option Base 陳述式 在模組層次中用來宣告陣列索引的預設下限。語法 Option Base {0 | 1}
Sub Ex_陣列()
Dim A As String, W, xi As Integer, i As Integer
W = Array("A", "B", "C", "D")
MsgBox LBound(W)
For i = LBound(W) To UBound(W)
MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
Next
End Sub
複製代碼
TOP
HSIEN6001
發短消息
加為好友
HSIEN6001
當前離線
UID
8990
帖子
219
主題
24
精華
0
積分
243
金錢
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
在線時間
62 小時
註冊時間
2012-4-18
最後登錄
2022-2-7
中學生
帖子
219
主題
24
精華
0
積分
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
註冊時間
2012-4-18
最後登錄
2022-2-7
31
#
發表於 2012-7-17 15:12
|
只看該作者
本帖最後由 HSIEN6001 於 2012-7-17 17:09 編輯
回復
29#
GBKEE
~索引值 ~
最小的索引值是----> 0 開始的長整數.
這#17
Sub Ex_陣列()
Dim A As String, W, xi As Integer, i As Integer
W = Array("A", "B", "C", "D")
For i = LBound(W) To UBound(W)
MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
Next
End Sub
複製代碼
這
LBound(W) ---> LBound 函数可以找到数组某一维的下限索引值。
UBound(W)---> UBound 函数可以找到数组某一维的上限索引值。
故For i = LBound(W) To UBound(W) = 4 個索引值 ; 最小長整數為0 , 故 i = "W(" & i & ") = 0 To 3
W(0) = A , W(1) = B , W(2) = C , W(3) = D
而 : Split(字串, "分割字元")(1)---->指的是第(1)個索引值
兩者的() 無相關 ;是不同的應用
.....這樣的邏輯,對嗎?!
要打結了 O_Q
TOP
HSIEN6001
發短消息
加為好友
HSIEN6001
當前離線
UID
8990
帖子
219
主題
24
精華
0
積分
243
金錢
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
在線時間
62 小時
註冊時間
2012-4-18
最後登錄
2022-2-7
中學生
帖子
219
主題
24
精華
0
積分
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
註冊時間
2012-4-18
最後登錄
2022-2-7
30
#
發表於 2012-7-17 14:57
|
只看該作者
回復
26#
c_c_lai
這樣也可行
On Error Resume Next
Kill Apath & "櫃.csv"
.SaveToFile (Apath & "櫃.csv")
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
29
#
發表於 2012-7-17 14:54
|
只看該作者
回復
28#
HSIEN6001
第(
索引值
)個分割
LBound(W) ---> LBound 函数可以找到数组某一维的下限索引值。
UBound(W)---> UBound 函数可以找到数组某一维的
上限索引值
。
Option Explicit
Sub Ex()
Dim A(4 To 7), x As Integer
For x = LBound(A) To UBound(A)
A(x) = String(x, "A")
Next
MsgBox "LBound(A) =>下限索引值" & LBound(A) & Chr(10) & _
"UBound(A) =>上限索引值" & UBound(A) & Chr(10) & Join(A, "---")
End Sub
複製代碼
TOP
HSIEN6001
發短消息
加為好友
HSIEN6001
當前離線
UID
8990
帖子
219
主題
24
精華
0
積分
243
金錢
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
在線時間
62 小時
註冊時間
2012-4-18
最後登錄
2022-2-7
中學生
帖子
219
主題
24
精華
0
積分
243
點名
0
作業系統
Windows10
軟體版本
Office2016
閱讀權限
20
性別
女
註冊時間
2012-4-18
最後登錄
2022-2-7
28
#
發表於 2012-7-17 14:32
|
只看該作者
回復
27#
GBKEE
答案是--->第(1)個分割,對了嗎?!
很多語法都是先套用,對其理解度還不夠
新範例也很多還很陌生的,有助於我多瞭解意義
謝謝大大~^_^~
LBound(W) --->最小之長整數 'http://www.w3school.com.cn/vbscript/func_lbound.asp
UBound(W)--->最大之長整數 'http://msdn.microsoft.com/zh-cn/library/95b8f22f(v=vs.80).aspx
Chr(13) 歸位;回車 Chr(10) 換行 Chr(9) TAB键的空格 Chr(32) 空格 Chr(34) " chr(0)则是系统控制符,表示空,也就是Null
Chr(255) 特殊空格 範例'http://www.aspxhome.com/asp/startasp/20097/82213.htm
ASCII碼 對照表 'http://big5.webasp.net/article/15/14718.htm
真的!!!!!!我有認真再消化 O_Q
TOP
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
27
#
發表於 2012-7-17 12:59
|
只看該作者
回復
25#
HSIEN6001
我會努力消化
Option Explicit
Sub Ex_陣列() 'Split(字串,分割字元)(1)--->這個(1)是?意思
Dim A As String, W, xi As Integer, i As Integer
'A = "1ABCD2ABCD3ABCD4ABCD"
'W = Split(A, "B")
W = Array("A", "B", "C", "D")
For i = LBound(W) To UBound(W)
MsgBox "Array(""A"", ""B"", ""C"", ""D"")" & Chr(10) & "W(" & i & ") -> " & W(i)
Next
End Sub
複製代碼
TOP
c_c_lai
發短消息
加為好友
c_c_lai
當前離線
UID
8671
帖子
2035
主題
24
精華
0
積分
2031
金錢
2031
點名
0
作業系統
Win7
軟體版本
Office2010
閱讀權限
100
性別
男
在線時間
2394 小時
註冊時間
2012-3-22
最後登錄
2024-2-1
博士班
帖子
2035
主題
24
精華
0
積分
2031
點名
0
作業系統
Win7
軟體版本
Office2010
閱讀權限
100
性別
男
註冊時間
2012-3-22
最後登錄
2024-2-1
26
#
發表於 2012-7-16 20:26
|
只看該作者
回復
24#
GBKEE
回復
25#
HSIEN6001
原來它是使用 Kill 方法。
' 指定目錄內如果該檔案已經存在,則將之予以刪除。
If Dir(Apath & "市.csv") <> "" Then Kill Apath & "市.csv"
.SaveToFile (Apath & "市.csv")
' 指定目錄內如果該檔案已經存在,則將之予以刪除。
If Dir(Apath & "櫃.csv") <> "" Then Kill Apath & "櫃.csv"
.SaveToFile (Apath & "櫃.csv")
複製代碼
又學到了, 謝謝!
TOP
靜思自在 :
心中常存善解、包容、感思、知足、惜福。
1
2
3
4
下一頁
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲