Vba 组合框消失，再也不会回来

大家晚上好

我试图通过让activex组合框消失来提高工作簿的可用性，因为在创建图表时不需要它来减少混乱。 问题是，一旦它消失，它就再也不会回来了。 我需要在代码中添加更多内容吗？这实际上只是删除我的组合框吗

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value > "0" Then
        Me.ComboBox2.Visible = True
    Else
        Me.ComboBox2.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

---

提前谢谢

我认为您必须删除

0

此外，您的代码可以简化为：

Private Sub Worksheet_Change(ByVal Target As range)
    Me.ComboBox2.Visible = Cells(1, 1).value > 0
End Sub

---

我认为您必须删除

0

此外，您的代码可以简化为：

Private Sub Worksheet_Change(ByVal Target As range)
    Me.ComboBox2.Visible = Cells(1, 1).value > 0
End Sub

---

对我来说似乎还可以，请尝试单步执行代码，确保正在运行行

me.ComboBox2.Visible=True

maybe

If单元格（1，1）。Value>0

（删除

0

）删除整个If块，只需使用

me.ComboBox2.Visible=（单元格（1，1）。Value>0）

，无需切换屏幕更新。对我来说似乎工作正常，请尝试单步执行代码确保您正在运行行

me.ComboBox2.Visible=True

可能

If单元格（1，1）。Value>0

（删除

0

）删除整个If块，只需使用

me.ComboBox2.Visible=（单元格（1，1）。Value>0）

，无需切换屏幕更新。问题的实际解决方案是

Me.ComboBox2.Visible=Cells（1，1）。Value=0

，但感谢您帮助我解决此问题。当目标单元格中没有任何内容时，我希望组合框可见。您的代码帮助我摆脱了非常棒的

If

语句。问题的实际解决方案是

me.ComboBox2.Visible=Cells（1，1）。Value=0

，但感谢您帮助我解决这个问题。当目标单元格中没有任何内容时，我希望组合框可见。你的代码帮助我摆脱了非常棒的

If

语句。