Excelでセル値に基づいてマクロを実行するにはどうすればよいですか?
ブックに複数のマクロコードがあるとします。次に、セル値に基づいてこれらのコードを実行します。 この記事では、Excelを使用するときに日常業務で苦しむ可能性のあるいくつかの状況について説明します。
セルの値がVBAコードで特定の値よりも大きいか小さい場合は、マクロを実行またはトリガーします
セル値がVBAコードの特定のテキストと等しい場合は、マクロを実行またはトリガーします
セルの値がVBAコードで特定の値よりも大きいか小さい場合は、マクロを実行またはトリガーします
たとえば、セルA1の値が10〜50の場合は、macro1を実行し、値が50より大きい場合は、macro2を実行します。 このジョブをExcelで解決するには、次のVBAコードを適用してください。
1。 セルの値に基づいてマクロを実行するシートタブを右クリックし、[ コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。
VBAコード:セルの値が次の値より大きいか小さい場合にマクロを実行します。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Note:上記のコードでは:
A1 に基づいてマクロを実行する特定の値を含むセルです。
ケース10から50:Macro1:値が10〜50の場合、Macro1を実行することを意味します。
ケースは> 50:Macro2:値が50より大きい場合は、Macro2を実行することを意味します。
これらのマクロ名と基準を必要に応じて変更してください。また、次の基準を追加することもできます。 シミュレーション例 スクリプト。
2。 次に、このコードウィンドウを保存して閉じます。ここで、セルA10に入力した値が50〜1の場合、Macro1がトリガーされ、入力した値が50より大きい場合、Macro2が実行されます。
セル値がVBAコードの特定のテキストと等しい場合は、マクロを実行またはトリガーします
たとえば、セル内の特定のテキストに基づいてマクロをトリガーする場合は、テキスト「削除」が入力された場合はmacro1を実行し、テキスト「挿入」が入力された場合はmacro2を実行します。 次のコードはあなたに有利に働くことができます。
1。 セルの値に基づいてマクロを実行するシートを右クリックし、[ コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。
VBA コード: セルの値が特定のテキストの場合にマクロを実行する
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Note:上記のコードでは、「削除"と"インセット」は、に基づいてマクロを実行するセルテキストです。 マクロ1 • マクロ2 テキストに基づいて実行するマクロです。 必要に応じて変更してください。
2。 次に、このコードを保存してウィンドウを閉じます。セルA1に「削除」というテキストを入力すると、macro1がトリガーされ、「挿入」というテキストを入力すると、macro2が実行されます。
関連記事:
Excelでセル値が変更されたときにマクロを実行するにはどうすればよいですか?
Excelで印刷する前にマクロを自動的に実行するにはどうすればよいですか?
Excelのドロップダウンリストから選択した値に基づいてマクロを実行するにはどうすればよいですか?
Excelでハイパーリンクをクリックしてマクロを実行するにはどうすればよいですか?
ブックからシートを選択したときにマクロを実行するにはどうすればよいですか?
最高のオフィス生産性向上ツール
🤖 | 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% 向上させ、毎日何百回もマウス クリックを減らすことができます!