198188

例如：
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
這樣寫對嗎？

c_c_lai

回復 1# 198188

1. if left([A1]，1）= 2 then
   
2.     ' .......
   
3. end if
   
4. 
   
5. if left([A2]，1）= 7 then
   
6.     ' .......
   
7. end if
   
8. 
   
9. if left([A3]，3）= "OBL" then
   
10.     ' .......
    
11. end if

複製代碼

198188

回復 2# c_c_lai

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

kimbal

回復 3# 198188

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

Hsieh

回復 3# 198188

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

c_c_lai

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

1. Sub Test5()
   
2.     If Not [A1] Like "*OBL*" Then   '  [A1] = "ABCDEFG"
   
3.         [B1] = "Not *OBL*"
   
4.     Else                            '  [A1] = "ABCODLDE"
   
5.         [B1] = "I Got it!"
   
6.     End If
   
7. End Sub

複製代碼

GBKEE

回復 6# c_c_lai

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

複製代碼

1. Sub Ex()
   
2.     Dim Vari
   
3.     Vari = "oBL"
   
4.     '三個式子的運算結果都一樣的 Boolean 資料型態
   
5.     'If Vari Like "*OBL*" = False Then
   
6.     'If Vari Like "*OBL*" = 0 Then
   
7.     If Not Vari Like "*OBL*" Then
   
8.         MsgBox Vari & " 不包含 : * OBL * "
   
9.     End If
   
10. End Sub

複製代碼

1. Sub Ex1()
   
2.     Dim Vari As String
   
3.     Vari = "AOBL"
   
4.     MsgBox InStr(Vari, "OBL")
   
5.     If InStr(Vari, "OBL") Then  '運算結果是 Boolean 資料型態
   
6.     'If InStr(Vari, "OBL") > 0 Then
   
7.         MsgBox Vari & " 包含 : * OBL * "
   
8.     End If
   
9. End Sub

複製代碼

c_c_lai

回復 7# GBKEE
感謝 GBKEE 版大的附加說明。

mark15jill

回復 1# 198188


    Sub oag()
    If InStr(Cells(1, 1), "2") = 1 Then
        [b1] = "2" & "在第一個"
    Else
        [b1] = "2" & "不是在第一個"
    End If

End Sub

198188

回復 7# GBKEE

請問這句話是不是有問題？type mismatch?
    .Range("D2:D" & LastRec).Value = .Range("AA2:AA" & LastRec).Value  &  .Range("AH2:AH" & LastRec).Value