Note: The other languages of the website are Google-translated. Back to English

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) このユーティリティの クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (18)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
選択したセルの下にポップアップカレンダーを表示したいのですが、どうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
私はこれらのVBAコードを使用しましたが、これまでのところすべて問題ありません。 範囲はA2:A10で、セルを選択するとカレンダーがポップアップ表示されます。 ただし、行を2から10に再度マークすると、カレンダーが再び表示されます。 マークを付けると、列「A」と同じになり、カレンダーが再び表示されます。 定義した範囲でのみカレンダーを取得するには、どのように進めればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
みなさん、こんにちは、

ある範囲のセルにカレンダーをポップアップする方法を教えてもらえますが、テーブルヘッダーのすぐ下のセルから開始し、Excel列の次のセルから開始します。


よろしくお願いします。
このコメントは、サイトのモデレーターによって最小化されました
グッド·デイ、
申し訳ありませんが、質問がありません。 あなたがやろうとしていることのスクリーンショットを提供できればいいのにと思います。
このコメントは、サイトのモデレーターによって最小化されました
つまり、Range( "B6:C30")を使用します
このコメントは、サイトのモデレーターによって最小化されました
つまり、Range( "B6:C30")を使用します
このコメントは、サイトのモデレーターによって最小化されました
tarihiseçebiliyorumamaa1:a10hücrelerineseçtiğimtariheklenmiyor。 teşekkürederim
このコメントは、サイトのモデレーターによって最小化されました
行を選択しようとすると、ポップアップがアクティブになり、その行の各セルに日付が表示されます


どうすればこれを回避できますか
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、サムさん、
この記事では、問題解決のためにコードが更新されています。 ぜひお試しいただき、コメントありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
Salve il codice funziona benissimo、ma se volessi farlo funzionare anche su un altro foglio
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。私のシートに「開始日」、「終了日」、「合意日」があるので、複数の列に日付ピッカーのポップアップを表示することはできますか。 はいの場合、どのように?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはジート、
手順に従って、2番目のVBAコードの範囲「A10:A2」を列の範囲(C2:EXNUMXなど)に置き換えます。
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう! これらの指示は非常に役に立ちました:)
このコメントは、サイトのモデレーターによって最小化されました
カレンダーは表示されますが、日付をクリックしてもセルが表示されません
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
私の場合、コードはうまく機能します。 どのExcelバージョンを使用していますか?
このコメントは、サイトのモデレーターによって最小化されました
Microsoft MonthViewコントロール(Office 365)はリストされておらず、ここでの手順ではそのコントロールを取得する方法が説明されていないため、古いバージョンのExcelを使用していない限り、これはほとんど役に立ちません。
このコメントは、サイトのモデレーターによって最小化されました
リストにMicrosoftMonthViewControlが表示されていませんが、Pete(#32847)が、これはOffice365または64ビットのMicrosoftOfficeでは機能しないと述べている可能性があります。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはティーガンコードル、
Googleで提案されている方法を検索して試しましたが、最終的にはMicrosoft365でMonthViewコントロールを登録できませんでした。
ご不便おかけしてすみません。 多分あなたはこれをチェックすることができます。
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護