用excel上網查音標 又掛了

帖子: 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出不完整的結果
是這樣的意思，我瞭解!

受益良多，謝謝兩位大大指導!

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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'：找不到檔案的。
妳那種寫法是不管三七二十一先殺了再說！
這在正規的程式撰寫語法上，是不太好的，也是我極力去避免的。
明知會產生錯誤卻又走旁道避開，哪日不靈光就嗚呼哀栽了！
總之我是建議妳學習正軌模式，對妳的功力增長會有實質幫助的。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

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

複製代碼

帖子: 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

帖子: 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")

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

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

複製代碼

帖子: 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