我目前正在研究一個Excel宏，我找不到一種方法 if array.contains(mystring)我寫了以下內容，它給了我“Invaild Qualifier”的信息，并在Mainfram之后突出顯示IfDim Mainfram(4) As StringMainfram(0) = "apple"Mainfram(1) = "pear"Mainfram(2) = "orange"Mainfram(3) = "fruit" For Each cel In Selection If Mainfram.Contains(cel.Text) Then Row(cel.Row).Style = "Accent1" End If Next cel選擇是一列有人幫嗎？嗨，JP我嘗試了你的建議，并說它需要對象。并突出顯示 If IsInArray（cell.Text，Mainfram）然后繼承 我的完整代碼Sub changeRowColor()Columns("B:B").SelectDim cel As Excel.RangeDim Mainfram(4) As StringMainfram(0) = "apple"Mainfram(1) = "pear"Mainfram(2) = "orange"Mainfram(3) = "Banana"For Each cel In Selection If IsInArray(cell.Value, Mainfram) Then Rows(cel.Row).Style = "Accent1" End IfNext celEnd SubFunction IsInArray(stringToBeFound As String, arr As Variant) As Boolean IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)End Function沒關系，我發現那個愚蠢的錯誤......謝謝你
3 回答
MM們
TA貢獻1886條經驗 獲得超2個贊
使用我的答案中的代碼來解決一個非常相似的問題：
Sub DoSomething()
Dim Mainfram(4) As String
Dim cell As Excel.Range
Mainfram(0) = "apple"
Mainfram(1) = "pear"
Mainfram(2) = "orange"
Mainfram(3) = "fruit"
For Each cell In Selection
If IsInArray(cell.Value, MainFram) Then
Row(cell.Row).Style = "Accent1"
End If
Next cell
End Sub
Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function
紅糖糍粑
TA貢獻1815條經驗 獲得超6個贊
使用JOIN和的另一種簡單方法INSTR
Sub Sample()
Dim Mainfram(4) As String, strg As String
Dim cel As Range
Dim Delim As String
Delim = "#"
Mainfram(0) = "apple"
Mainfram(1) = "pear"
Mainfram(2) = "orange"
Mainfram(3) = "fruit"
strg = Join(Mainfram, Delim)
strg = Delim & strg
For Each cel In Selection
If InStr(1, strg, Delim & cel.Value & Delim, vbTextCompare) Then _
Rows(cel.Row).Style = "Accent1"
Next cel
End Sub
添加回答
舉報
0/150
提交
取消