ComboBoxが消えて二度と戻ってこない

bugfix> excel > 投稿 2020-08-22 17:40

こんばんは、

チャートを作成する際の混乱を減らす必要がない場合、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

前もって感謝します！

excel

vba

excel-vba

回答 1 件

0 の前後の二重引用符を削除する必要があると思います

さらに、コードを次のように簡素化できます。
```
Private Sub Worksheet_Change(ByVal Target As range)
    Me.ComboBox2.Visible = Cells(1, 1).value > 0
End Sub
```