excel - セルの内容に基づいて VBA で ActiveX コマンド ボタンを非表示にする方法

Question

非表示のセルにリンクされたドロップダウン リストを含む Excel 2010 シートがあります。ドロップダウンはデフォルトでは設定されていません (リンクされたセルは空です)。ユーザーの選択に基づいて Web サイトを開く" " という ActiveX コマンド ボタンもありますが、セルに値が含まれる (ドロップダウン リストにリンクされる)VISまでボタンを表示したくありません。ボタンが空白の場合は非表示にし、空白でない場合は表示するにはどうすればよいですか? より簡単な場合は、VBA で/引数を使用できるセル内の式もあります。ありがとう。J1J1J1.value = ""M1 "=IF(J1="",TRUE,FALSE)"truefalse

Answer 1

それが最善の方法だとは言いませんが、ここに方法があります...次のようにworksheet_calculateイベントを使用します。

Private Sub Worksheet_Calculate()
VIS.Visible = Not Range("M1").Value
End Sub

現在のシート設計とレイアウトしたロジックに適合するため、この方法を使用しました。別の方法が必要な場合は、喜んで提供させていただきます。いずれにせよ、あなたが正しい方向に進むことを願っています！

わかりました、私は抵抗できませんでした。Worksheet_Change イベントを使用する別の方法を次に示します。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = "$J$1" Then VIS.Visible = Application.WorksheetFunction.CountA(Range("J1"))
    Application.EnableEvents = True
End Sub

worksheet_change イベントの利点は、M1 にある数式を削除できることです。シート レイアウトによっては、 Application.EnableEvents = False は必要ない場合があります。