第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全，請及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題，去搜搜看，總會(huì)有你想問的

如何查找數(shù)組是否包含字符串

如何查找數(shù)組是否包含字符串

我目前正在研究一個(gè)Excel宏，我找不到一種方法 if array.contains(mystring)我寫了以下內(nèi)容，它給了我“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沒關(guān)系，我發(fā)現(xiàn)那個(gè)愚蠢的錯(cuò)誤......謝謝你
查看完整描述

3 回答

?
MM們

TA貢獻(xiàn)1886條經(jīng)驗(yàn) 獲得超2個(gè)贊

使用我的答案中的代碼來解決一個(gè)非常相似的問題：


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


查看完整回答
反對 回復(fù) 2019-09-02
?
紅糖糍粑

TA貢獻(xiàn)1815條經(jīng)驗(yàn) 獲得超6個(gè)贊

使用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


查看完整回答
反對 回復(fù) 2019-09-02
  • 3 回答
  • 0 關(guān)注
  • 990 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

 公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)