[[20051227195115]]　『カレンダーコントロール』（レリオネ）　ページの最後に飛ぶ

『カレンダーコントロール』（レリオネ）
カレンダーコントロールを使って、例えばＡ１のセルとＣ２のセルだけに、セルを押すとカレンダーが出てきて、そのカレンダーの日をダブルクリックすると入力できるようにするにはどうすればいいのでしょうか？よろしくお願いいたします。

 UserFormでカレンダーコントロールを配置し
UserFormモジュールに
Private Sub Calendar1_DblClick()
    ActiveCell.Value = Me.Calendar1.Value
End Sub
シートモジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$A$1" And Target.Address <> "$C$2" Then Exit Sub
    UserForm1.Show
End Sub
こんな感じでしょうか。
クリックイベントがないのでセルもダブルクリックの方が良いかも知れません。
(kenbou)

ありがとうございました。ようやく生産管理台帳が完成に近づいてきました。皆様本当に勉強になりました。しかしＶＢＡは複雑で難しいですが少しでも学んでいきたいと思います。また、お力を貸してください。よろしくお願い申し上げます。

 失礼いたします。本題者ではないのですが質問させてください。
カレンダーコントロールと言うのはどこにあるのでしょうか？

(おおおか)

 UserFormのツールボックスを右クリックでその他のコントロールにありせんか。
(kenbou)

 新しいページ、ページの削除とかある欄ですか？
自分のバージョン2002なんですがありますか？

 ↑はどなたでしょう？
 (kenbou)さんの方法で良いはずですが、別の方法として
 Alt+F11でVBEを起動します。挿入→ユーザーフォームでユーザーフォームを表示し、
 ツール→その他のコントロールを選択すると、Microsoft カレンダーコントロール10.0
 がありませんか？
場所はC:\Program file\Microsoft Office\Office10\MSCAL.OCX
となっているようです。
 ワークシートで使用するのなら、↓が参考になると思います。
カレンダー・コントロールで簡易スケジュール帳を作成する
http://www.atmarkit.co.jp/fwin2k/win2ktips/357calendar/calendar.html
 　　(Hatch@Excel2002)

 おおおかです。
ありました。ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20051227195115]] 『カレンダーコントロール』（レリオネ） ページの最後に飛ぶ

[[20051227195115]]　『カレンダーコントロール』（レリオネ）　ページの最後に飛ぶ