Question

我正在开展一个项目，我想尽可能保持长期使用的动态。我在参考表中有大部分可变数据，可以根据需要轻松更新。我遇到的唯一问题是，有一些if-then语句可能在将来发生变化，而不是期望未来的用户能够在VBA中工作（如果我因某些原因不再在这里），我有一个Statement单元，您只需输入条件，我的VBA代码就会将其输入到if-then语句中。

语句单元格是（i，20），变量是cs1作为字符串。我可以通过Locals Window在变量中看到我的文本，所以我知道它正在阅读它。我认为这个问题围绕着文本。

有没有办法将此单元格的数据输入到if if语句中？这是我的代码的一部分。感谢

Dim cs1 As String
Dim cs2 As String

cn = chkdata.Cells(cm, 2) 'check number
cnm = chkdata.Cells(cm, 1) & " Check " & chkdata.Cells(cm, 2) 'check name
csrc = chkdata.Cells(cm, 7) ' Special rule yes/no
csr = Range(chkdata.Cells(cm, 8), chkdata.Cells(cm, 18)) 'check stations range
cs1 = chkdata.Cells(cm, 19) ' specific qualification statement
cs2 = chkdata.Cells(cm, 20) ' specific qualification statement2

If csrc = "No" Then
    If .Cells(i, 20) = "" Then
        .Cells(i, 20) = cnm
    Else
        .Cells(i, 20) = .Cells(i, 20) & "-" & cnm
    End If
    GoTo NextLoop
End If

If csrc = "Yes" Then
RONQual = .Cells(i, 17)
RODQual = .Cells(i, 18)
MXIS = TimeSerial(Hour(.Cells(i, 14)), Minute(.Cells(i, 14)), Second(.Cells(i, 14)))
MXOS = TimeSerial(Hour(.Cells(i, 15)), Minute(.Cells(i, 15)), Second(.Cells(i, 15)))

    If cs1 Then
        If sc2 = "" Then
            If .Cells(i, 20) = "" Then
                .Cells(i, 20) = cnm
            Else
                .Cells(i, 20) = .Cells(i, 20) & "-" & cnm
            End If
            GoTo NextLoop

使用单元格中的字符串作为if语句中的条件

0 个答案: