bugfix> excel > 投稿

こんばんは、

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

前もって感謝します!

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

    さらに、コードを次のように簡素化できます。

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

あなたの答え