[[20070312164103]]　『カレンダーコントロールで』（うえきや）　ページの最後に飛ぶ

『カレンダーコントロールで』（うえきや）

 いつも大変お世話になっております。
[[20051227195115]]でカレンターコントロールの作り方？は解ったのですが
 その後が解りません。
 UserFormモジュールに？？？？？
 シートモジュールに？？？？？の状態です。
 あと、入力したいセルは、D,G,H,I列です。
 よろしくお願いします。

 配置した場所によると思いますが。
 UserFormならばUserFormモジュールに、シートならばシートモジュールに。

 >  あと、入力したいセルは、D,G,H,I列です。
 なにを入力したいのですか？
 どのようなイベントでどのようなものを入力？
 列だけでなく行も指定しないとだめですよね？
 (ROUGE)

おはようございます。

 説明不足ですみません。
 UserFormならばUserFormモジュール、シートならばシートモジュールに・・・・
 はどうやって出すんですか？
 初歩的なことでごめんなさい
 D,G,H,I列に日付が入るので、そこにカレンダーコントロールが出てくれたら良いのですが
 （うえきや）

 お返事遅くなりました。
 カレンダーコントロールを配置して、何を期待されるのかが、いまいち明確でありません。
 D、G、H、I列に日付が入ることは分かりましたが、どのようにしていれるのでしょうか。
 コマンドボタン等を配置して、押したら上から順番に入れていく。。。？
 すべての列同時に。。。？
 UserForm、シート云々以前に、何をどのようになさりたいのか、具体的にしないとできません。
 (ROUGE)

おはようございます

 まだまだ、説明不足ですみません。
 台帳を作成してまして、D4でカレンダーコントロールが出てきて、ダブルクリックで日付
 が入力できる。G4,H4,I4,も同様に・・・・・
 すべて日付はバラバラです（着工日だったり、完了日など）
　(うえきや）

 まず、今現在、どのように配置されているのか教えていただけますか？

 > D4でカレンダーコントロールが出てきて、
 ここが良く分かりません。
 (ROUGE)

ROUGEさん、お手数をおかけします。
　

          D    　　G    　　　H    　　F
 1      作成日　　変更日　　予定日　　完了日

 D4にセルをもっていくと、カレンダーコントロールが出てきて、ダブルクリックで日付が
 入力できる。
 カレンダーコントロールの使い方、間違ってますかね？
 （うえきや）

 すいません、また遅くなりました。
 UserFormで準備していると理解しました。
 UserFormにカレンダーコントロールを入れて下さい。
 ここではUserFormのオブジェクト名を「UserForm1」として進めていきます。
 ThisWorkbookモジュールに下記のコードをコピペして下さい。
 (ROUGE)
'----
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Sh.Range("D:D,F:H"), Sh.Range("2:" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Target.Value = UserForm1.Calendar1.Value
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Unload UserForm1
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count = 1 And Target.Address(0, 0) = "D4" Then
        UserForm1.Show 0
    End If
End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20070312164103]] 『カレンダーコントロールで』（うえきや） ページの最後に飛ぶ

[[20070312164103]]　『カレンダーコントロールで』（うえきや）　ページの最後に飛ぶ