Excelのセル値に基づいてボタンを有効または無効にする方法は?
この記事では、Excelワークシートのセル値に基づいてボタンを有効または無効にするいくつかの方法について説明します。
VBAコードを使用したXNUMX列のデータに基づいてXNUMXつのボタンを有効または無効にします
VBAコードを使用してXNUMXつのセル値に基づいてボタンを有効または無効にします
VBAコードを使用したXNUMX列のデータに基づいてXNUMXつのボタンを有効または無効にします
たとえば、ワークシートに1つのコマンドボタンがあります。列Aにデータがある場合、button2は有効で、ボタン2は無効です。 列Cにデータが含まれている場合、ボタン1は有効で、ボタンXNUMXは無効です。 このタスクを解決するには、次のVBAコードが役立つ場合があります。
1。 ボタンが含まれているシートを右クリックして、 コードを表示 コンテキストメニューから、スクリーンショットを参照してください。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のコードをコピーして空のモジュールに貼り付けてください。
VBAコード:XNUMXつの列に基づいてXNUMXつのボタンを有効または無効にします。
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Note:上記のコードでは、 コマンドボタン1 & コマンドボタン2 はボタンの名前です。 A:A & C:C は XNUMX つのボタンを有効または無効にするために使用する XNUMX つの列です。必要に応じて変更してください。
3。 次に、コード ウィンドウを保存して閉じると、必要に応じて次の結果が得られます。
(1.) 列 A にデータを入力すると、ボタン 1 が有効になり、ボタン 2 が無効になります。スクリーンショットを参照してください。
(2.) 列 C にデータを入力すると、ボタン 2 が有効になり、ボタン 1 が無効になります。スクリーンショットを参照してください。
(3.) 列 A と列 C の両方にデータがあり、XNUMX つのボタンがすべて有効になっています。スクリーンショットを参照してください。
(4.) 列 A と列 C にデータがない場合、XNUMX つのボタンはすべて無効になります。スクリーンショットを参照してください。
VBAコードを使用してXNUMXつのセル値に基づいてボタンを有効または無効にします
1 つのセルの値に基づいてコマンド ボタンを有効または無効にする場合、たとえば、A1 の値が BXNUMX の値より大きい場合、ボタンは有効になり、それ以外の場合、ボタンは無効になります。 次の VBA コードも役に立ちます。
1。 ボタンを含むシートを右クリックし、[ コードを表示 コンテキストメニューから、 アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のコードをコピーして空のモジュールに貼り付けてください。スクリーンショットを参照してください。
VBA コード: XNUMX つのセル値に基づいてボタンを有効または無効にします。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Note:上記のコードでは、 A1 & B1 は使用するセルの値です。 コマンボタン1 はボタン名です。独自の名前に変更します。
2。 次にコード ウィンドウを保存して閉じます。A1 のセル値が B1 より大きい場合はボタンが有効になり、A1 のセル値が B1 より小さい場合はボタンが無効になります。スクリーンショットを参照してください。
最高のオフィス生産性向上ツール
🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...) | 12 変換 ツール (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット ツール (高度な結合行, 分割セル、...) | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!