Question

我正在使用VBA进行处理。我正在尝试获取符号的多状态值，并使其仅在状态为2时处于可见状态。它无法正常工作，无法确定我需要在代码中包含哪些内容。它给我一个错误，说“对象变量或没有设置块变量”任何想法？

Option Explicit

Private Sub Display_DataUpdate()
Dim Simplehorizontalconveyor_16 As Symbol
Dim curState16 As MultiState

    Set curState16 = Simplehorizontalconveyor_16.GetMultiState
        If (curState16 = 2) Then
            Simplehorizontalconveyor_16.Visible = True
        Else
            Simplehorizontalconveyor_16.Visible = False
        End If
End Sub

Answer 1

您需要创建Simplehorizontalconveyor_16的实例：

Set Simplehorizontalconveyor_16 = <something>

制作多元符号的Vba消失了

1 个答案: