[[20051217014804]]　『カレンダーコントロールの簡単に移動』（レイオネ）　ページの最後に飛ぶ

『カレンダーコントロールの簡単に移動』（レイオネ）

 [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）

有難う御座いました。出来ました。それともう一つ質問なのですが、Ａ列とＣ列で行うためには構文の中のどこを修整すればいいでしょうか？宜しくお願い申し上げます。本当はＡ列の中のＡ３～Ａ１０とＣ３～Ｃ１０だけにこの操作をしたいのですが、お願い致します。

 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

完璧です！ありがとうございました。嬉しいです！＾＾

コメント返信：

[ 一覧(最新更新順) ]

[[20051217014804]] 『カレンダーコントロールの簡単に移動』（レイオネ） ページの最後に飛ぶ

[[20051217014804]]　『カレンダーコントロールの簡単に移動』（レイオネ）　ページの最後に飛ぶ