Excelで特定のセルをクリックしたときにカレンダーをポップアップするにはどうすればよいですか？
ワークシートに列範囲があるとすると、内部で日付を頻繁に入力および変更する必要がありますが、時間ごとに手動で日付を入力または変更するのは退屈です。 列範囲を手動で入力せずに日付をすばやく入力するにはどうすればよいですか？ この記事では、特定の範囲のセルをクリックするとカレンダーがポップアップし、カレンダーで日付を選択した後、選択したセルに日付が自動的に挿入されることについて説明しています。
VBAコードで特定のセルをクリックすると、カレンダーがポップアップ表示されます
この問題を次のように段階的に解決してください。
Note：この方法は、Microsoft Excel32ビットでのみ機能します。
ステップ1：カレンダーを使用してユーザーフォームを作成する
セルをクリックしてポップアップするカレンダーを含むユーザーフォームを作成してください。
1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > ユーザーフォーム.
3.次に、 ユーザーフォーム フォルダーとその下に ツールボックス ウィンドウがポップアップします。 ツールボックス、いずれかのコントロールをクリックして右クリックし、を選択します 追加のコントロール 右クリックメニューから。 スクリーンショットを参照してください：
4。 の中に 追加のコントロール ダイアログボックスで、下にスクロールして Microsoft MonthView コントロール 内のオプション 利用可能なコントロール ボックスをクリックし、 OK
5.次に、 月表示 ボタンがに追加されます ツールボックス 窓。 このMonthViewボタンをクリックしてから、UserForm1ウィンドウをクリックして、ユーザーフォームにカレンダーを作成してください。
Note：ユーザーフォームの境界線をドラッグすることで、挿入されたカレンダーに合わせてユーザーフォームウィンドウのサイズを調整できます。
6. UserForm1に挿入されたカレンダーをダブルクリックし、 Code ウィンドウで、元のコードを次のVBAスクリプトに置き換えてください。
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubNote：このコードは、カレンダーから日付を選択した後、選択したセルに日付を挿入するのに役立ちます。
ステップ2：セルをクリックしたときにカレンダーをアクティブにする
次に、クリックしたときにカレンダーをポップアップする特定のセルを指定する必要があります。 次のようにしてください。
7.クリックするセルを含むシート名をダブルクリックして、左側にカレンダーをポップアップします プロジェクト ペインで、以下のVBAコードをコピーして[コード]ウィンドウに貼り付けます。 スクリーンショットを参照してください：
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubNote：コードでは、A2：A10は、カレンダーをポップアップするためにクリックするセルです。 必要に応じてセル範囲を変更してください。
8。 押す 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。
これ以降、現在のワークシートで指定された範囲内のセルをクリックすると、以下のスクリーンショットのようにカレンダーがポップアップ表示されます。 また、カレンダーから日付を選択すると、選択したセルに日付が自動的に挿入されます。
VBAコードで特定のセルをクリックすると、カレンダーがポップアップ表示されます
このセクションでは、 日付ピッカー の有用性 Kutools for Excel。 この機能を有効にした後、日付セルをクリックするとカレンダーがポップアップします。既存の日付を新しい日付に簡単に置き換えることができます。 この機能を適用するには、以下の手順に従ってください。
1。 クリック クツール > コンテンツ > 日付ピッカーを有効にする.
2.この機能を有効にした後、日付セルをクリックすると、カレンダーアイコンがセルのすぐ横にポップアップ表示されます。
3.カレンダーアイコンをクリックして、 日付ピッカー ダイアログボックスをクリックし、新しい日付をクリックして、選択したセルの日付を置き換えます。
注意：
元に戻すボタン：このボタンをクリックして、置換日付を元に戻します。
閉じるボタン：このボタンをクリックして、[日付ピッカー]ダイアログボックスを閉じます。- この機能は、日付を含むセルにのみ適用できます。
このユーティリティの無料トライアル（30日）が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
関連記事:
- Excelで特定のセルをクリックしてマクロをトリガーまたは実行するにはどうすればよいですか？
- Excelでセルをクリックまたは選択したときにセルの色を変更するにはどうすればよいですか？
- Excelで特定のセルをクリックしたときにメッセージボックスをポップアップするにはどうすればよいですか？
- ExcelでXNUMX回クリックした後にボタンを無効にする方法は？
- 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% 向上させ、毎日何百回もマウス クリックを減らすことができます!
