『カレンダーコントロールの簡単に移動』(レイオネ) [A1のセルに、カレンダーコントロールを呼び出して日付を入力したい。 終わればカレンダーを非表示にして、 次にA2をセレクトして再びカレンダーを呼び出して違う日付を入力したい。 どうすればいいでしょうか?宜しくお願い申し上げます。] ---- ユーザーフォームにカレンダーコントロールを配置したとして、 ダブルクリックでセルに日付を挿入するコードは↓ Private Sub Calendar1_DblClick() ActiveCell.Value = Calendar1.Value UserForm1.Hide End Sub Sheet1のA列で行うとすると、Sheet1モジュールに↓ Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Hide If Target.Column <> 1 Then Exit Sub UserForm1.Show End Sub あとは自分でアレンジしてください。 (ramrun) ----- 有難う御座いました。出来ました。それともう一つ質問なのですが、A列とC列で行うためには構文の中のどこを修整すればいいでしょうか?宜しくお願い申し上げます。本当はA列の中のA3〜A10とC3〜C10だけにこの操作をしたいのですが、お願い致します。 ---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Hide If Target.Column = 1 Or Target.Column = 3 Then If Target.Row >= 3 Or Target.Row =< 10 Then UserForm1.Show End If End If End Sub   このような感じです。(みやほりん)(-_∂)b ---- 完璧です!ありがとうございました。嬉しいです!^^