VBA：Invalid Qualifier

Question

我的vba代碼應該組織一張我剛剛從PDF上粘貼Excel的資產負債表。因此，像大多數資產負債表一樣，項目（資產/負債/等）的描述以及正在分析的年份的值。

首先，我試圖確定文本在哪個位置結束。所以我寫了下面的代碼，這是給我和錯誤（無效限定符）。

Dim subjectCell As String 
Dim letters As String 
Dim index As Integer 

letters = "qwertyuiopasdfghjklçzxcvbnmQWERTYUIOPASDFGHJKLÇZXCVBNM " 
subjectCell = ActiveCell.Value 

For i = 0 To Len(subjectCell) - 1 

    If (letters.Contains(Mid(subjectCell, i + 1, 1))) Then 
    Else 
    index = i 
Next i 

Cell("A1").Value = index 

Answer 1

Sub test() 
    Dim subjectCell As String 
    Dim letters As String 
    Dim index As Integer 

    letters = "qwertyuiopasdfghjklçzxcvbnmQWERTYUIOPASDFGHJKLÇZXCVBNM " 
    subjectCell = ActiveCell.Value2 

    For i = 1 To Len(subjectCell) 
     If InStr(1, letters, Mid(subjectCell, i, 1), vbTextCompare) = 0 Then 
      index = i 
      Exit For 
     End If 
    Next i 
    Range("A1").Value2 = index 
End Sub 

Answer 2

有一些問題在這裏

1. 沒有結束時，如果你的if語句
2. 你的電池應該是range，如果你定義一個範圍像A1，細胞是1,1類型參考
3. 使用ActiveCell是不好的形式，明確地定義它
4. 使用Range("A1").Value更好，但也可憐的形式，完全定義它像workbooks("book1.xlsx").sheets("Sheet1").Range("A1").Value
5. 你不能使用letters.function(類型的vba，我已經說明了instr（或在字符串），以顯示如何這可以工作到類似的效果。

我已經改變了你的代碼，以更好地說明這也許應該是什麼樣子：

Sub g() 
    Dim subjectCell As String 
    Dim letters As String 
    Dim index As Integer 

    letters = "qwertyuiopasdfghjklçzxcvbnmQWERTYUIOPASDFGHJKLÇZXCVBNM " 
    'subjectCell = ActiveCell.Value 
    subjectCell = "a" 
    For i = 0 To Len(subjectCell) - 1 

     If InStr(letters, subjectCell) > 0 Then 
      Debug.Print "Found it! It starts at position: " & InStr(letters, subjectCell) 
     Else 
      Debug.Print "No Match" 
      index = i 
     End If 
    Next i 

    Range("A1").Value = index 
End Sub