Excel VBA常量數組到VBA代碼數組

Question

我正在處理excel VBA學校作業，但遇到問題，似乎無法在線找到答案。 我有保存信息的數據庫表，在某些位置我有= {false，true，false}的常量數組，我需要將其轉換為VBA數組TF（1至3）TF（1）的值應為false TF （2）的值應為true TF（3）的值應為false到目前為止，我的代碼如下所示：

Sub trying()
Dim TF(1 To 3) As String
Set targetWorksheet = Worksheets("duomBazeSheet")
Worksheets("duomBazeSheet").Activate

With targetWorksheet
    TF(1) = .Cells(2, 8).Value
    MsgBox (TF(1))

End With
End Sub

“ duomBazeSheet”是一個工作表，其中包含所有數據，目標位置是（2，8）

有任何想法嗎？

編輯：這是工作表的鏈接：高亮顯示數組https://imgur.com/a/lII3c

Answer 1

基於“評估”功能，可以做到這一點

Dim tf
tf = Application.Evaluate("{True,False,True}")

給定H2中的公式文字，請嘗試...

Sub Test()


    Dim tf
    tf = Application.Evaluate(ActiveSheet.Cells(2, 8).Formula)

    Dim i
    For i = LBound(tf) To UBound(tf)
        MsgBox tf(i)
    Next i

End Sub

Answer 2

以下代碼聲明並填充值為false，true，false的一維數組。 For循環將在最后顯示每個元素。 目前尚不清楚您要將這些值放在何處。

Sub trying()
    Dim TF As Variant
    Dim i As Long
    Dim targetWorksheet As Worksheet

    Set targetWorksheet = Worksheets("duomBazeSheet")

    With targetWorksheet
        TF = Split(.Cells(2, 8).Value, Chr$(10)) 'Chr$(10) is a carriage return
    End With

    For i = LBound(TF) To UBound(TF)
        MsgBox TF(i)
    Next i

End Sub