出現RUN-TIME ERROR '9': SUBSCRIPT OUT OF RANGE,請問哪裡出現問題？ - Excel程式區

198188

帖子: 397
主題: 56
精華: 0
積分: 479
點名: 19
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-19

1^# 跳轉到 »

發表於 2012-12-17 20:33 | 只看該作者

請問vba left 用法

例如：
A1 儲存格 207171    如何知道A1儲存格內的第一個字是不是2字 if left(A1，1）= 2 then
A2儲存格 74171 如何知道A2儲存格內的第一個字是不是7    if left(A2，1）= 7 then
A3儲存格 OBL,OHC          如何知道A3儲存格內的第一個字是不是obl    if left(A3，3）= "OBL" then
這樣寫對嗎？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2012-12-17 21:04 | 只看該作者

回復 1# 198188

if left([A1]，1）= 2 then
' .......
end if
if left([A2]，1）= 7 then
' .......
end if
if left([A3]，3）= "OBL" then
' .......
end if

複製代碼

TOP

198188

中學生 Rank: 2

帖子: 397
主題: 56
精華: 0
積分: 479
點名: 19
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-19

3^#

發表於 2012-12-17 21:24 | 只看該作者

回復 2# c_c_lai

另外請問如果是不含某個字的寫法
="<>""*OBL*"
<>"*OBL*"
哪個才對，還是兩個都不對？

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2012-12-17 21:52 | 只看該作者

回復 3# 198188

dim vari
if not ( vari like "*OBL*") then
...
end if

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-12-17 22:19 | 只看該作者

本帖最後由 Hsieh 於 2012-12-17 22:21 編輯

回復 3# 198188

不包含某字串OBL
If Instr([A1],"OBL")=0 Then
字首為OLB
If Instr([A1],"OBL")=1 Then

學海無涯_不恥下問

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-12-18 07:22 | 只看該作者

本帖最後由 c_c_lai 於 2012-12-18 07:27 編輯

回復 3# 198188
與 Hsieh 大的 Instr() 有不同的表達方式，與 Kimbal 版大的是同樣的意思，請參考！

Sub Test5()
If Not [A1] Like "*OBL*" Then ' [A1] = "ABCDEFG"
[B1] = "Not *OBL*"
Else ' [A1] = "ABCODLDE"
[B1] = "I Got it!"
End If
End Sub

複製代碼

TOP

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兔年全勤獎章

7^#

發表於 2012-12-18 09:19 | 只看該作者

本帖最後由 GBKEE 於 2012-12-18 09:43 編輯

回復 6# c_c_lai

VAB的說明
Boolean 資料型態
Boolean 變數係以 16 位元( 2 個位元組)數字的形式儲存，但只能是 True 或是 False。Boolean 變數的值不是 True 就是 False ( 在使用 Print 的時候 )，或是 #TRUE# 和 #FALSE# ( 在使用 Write # 的時候 )。使用關鍵字 True 與 False 可將 Boolean 變數指定為這兩個狀態中的一個。
當轉換其他的數值型態為 Boolean 時，0 會轉成 False，而所有其他的值則變成 True。當轉換 Boolean 值為其他的資料型態,時，False 成為 0 ，而 True 成為 -1。
If .[運算式條件]..Then...Else 陳述式其[運算式條件]之運算結果為 True 或 False
True 或 False 是 Boolean 資料型態

複製代碼