Excel VBA常量数组到VBA代码数组

我正在做excel VBA学校作业，我有一个问题，似乎无法在网上find答案。 我有数据库表中保存的信息，在某些位置我有= {假，真，假}的常数arrays，我需要它将其转换为VBAarraysTF（1到3）TF（1）应具有假TF （2）应该有真正的TF值（3）应该有假的值到目前为止我的代码看起来像这样：

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

基于名为评估function可以做到这一点

 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