Excelで特定のセルをクリックしたときにカレンダーをポップアップするにはどうすればよいですか？
ワークシートに列範囲があるとすると、内部で日付を頻繁に入力および変更する必要がありますが、時間ごとに手動で日付を入力または変更するのは退屈です。 列範囲を手動で入力せずに日付をすばやく入力するにはどうすればよいですか？ この記事では、特定の範囲のセルをクリックするとカレンダーがポップアップし、カレンダーで日付を選択した後、選択したセルに日付が自動的に挿入されることについて説明しています。
VBAコードで特定のセルをクリックすると、カレンダーがポップアップ表示されます
この問題を次のように段階的に解決してください。
注意：この方法は、Microsoft Excel32ビットでのみ機能します。
ステップ1：カレンダーを使用してユーザーフォームを作成する
セルをクリックしてポップアップするカレンダーを含むユーザーフォームを作成してください。
1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > ユーザーフォーム.
3.次に、 ユーザーフォーム と ツールボックス ウィンドウがポップアップします。 ツールボックス、いずれかのコントロールをクリックして右クリックし、を選択します 追加のコントロール 右クリックメニューから。 スクリーンショットを参照してください：
4。 の中に 追加のコントロール ダイアログボックスで、下にスクロールして Microsoft MonthView コントロール 内のオプション 利用可能なコントロール ボックスをクリックし、 OK ボタン。
5.次に、 月表示 ボタンがに追加されます ツールボックス 窓。 このMonthViewボタンをクリックしてから、UserForm1ウィンドウをクリックして、ユーザーフォームにカレンダーを作成してください。
注意：ユーザーフォームの境界線をドラッグすることで、挿入されたカレンダーに合わせてユーザーフォームウィンドウのサイズを調整できます。
6. UserForm1に挿入されたカレンダーをダブルクリックし、 コード ウィンドウで、元のコードを次の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 Sub注意：このコードは、カレンダーから日付を選択した後、選択したセルに日付を挿入するのに役立ちます。
ステップ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 Sub注意：コードでは、A2：A10は、カレンダーをポップアップするためにクリックするセルです。 必要に応じてセル範囲を変更してください。
8。 押す 他の + Q キーを同時に閉じて アプリケーション向け Microsoft Visual Basic 窓。
これ以降、現在のワークシートで指定された範囲内のセルをクリックすると、以下のスクリーンショットのようにカレンダーがポップアップ表示されます。 また、カレンダーから日付を選択すると、選択したセルに日付が自動的に挿入されます。
VBAコードで特定のセルをクリックすると、カレンダーがポップアップ表示されます
このセクションでは、 日付ピッカー の有用性 Kutools for Excel。 この機能を有効にした後、日付セルをクリックするとカレンダーがポップアップします。既存の日付を新しい日付に簡単に置き換えることができます。 この機能を適用するには、以下の手順に従ってください。
1。 クリック クツール > コンテンツ > 日付ピッカーを有効にする.
2.この機能を有効にした後、日付セルをクリックすると、カレンダーアイコンがセルのすぐ横にポップアップ表示されます。
3.カレンダーアイコンをクリックして、 日付ピッカー ダイアログボックスをクリックし、新しい日付をクリックして、選択したセルの日付を置き換えます。
注意：
元に戻すボタン：このボタンをクリックして、置換日付を元に戻します。
閉じるボタン：このボタンをクリックして、[日付ピッカー]ダイアログボックスを閉じます。- この機能は、日付を含むセルにのみ適用できます。
無料トライアルをご希望の方は（30-day) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。
関連記事:
- Excelで特定のセルをクリックしてマクロをトリガーまたは実行するにはどうすればよいですか？
- Excelでセルをクリックまたは選択したときにセルの色を変更するにはどうすればよいですか？
- Excelで特定のセルをクリックしたときにメッセージボックスをポップアップするにはどうすればよいですか？
- ExcelでXNUMX回クリックした後にボタンを無効にする方法は？
- Excelでシートタブの右クリックを無効にする方法は？
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
