[[20080118163553]]　『ｶﾚﾝﾀﾞｰｺﾝﾄﾛｰﾙ』（ぽち）　ページの最後に飛ぶ

『ｶﾚﾝﾀﾞｰｺﾝﾄﾛｰﾙ』（ぽち）
ｾﾙにｶﾚﾝﾀﾞｰが表示されﾀﾞﾌﾞﾙｸﾘｯｸで選択した日付が入力できる方を教えて頂けないでしょうか。
C10,I10,F50～F55,G50～G55,H50～H55,I50～I55の複数のｾﾙになります。
Excel2003使用です。ど素人のためすみませんが宜しくお願い致します。

 Tips06: カレンダーコントロール色々
http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm
 Accessがインストールされてますか？されていませんか？
 (元夏バテ）

Accessｲﾝｽﾄｰﾙ済みです。
すみません、引き続きご教授ねがいます。

(ぽち)
引き続き、すみません。会社のPCを使用のため既にVisual Basic や他にﾏｸﾛを作成した履歴がありました。ｺﾝﾄﾛｰﾙﾂｰﾙﾎﾞｯｸｽの一覧が載っております。

 シートにカレンダーコントロールを配置して
 カレンダーの日付をダブルクリックしたら、アクティブセルに日付を入力する。
 という動作でしたら、こんな感じかな・・・　(Hatch)
Private Sub Calendar1_DblClick()
Dim myCell As Range
 Set myCell = ActiveCell
    If Intersect(myCell, Range("C10, I10, F50:I55")) Is Nothing Then
        MsgBox "ここには入力できません"
        myCell.Select
        Exit Sub
    Else
        myCell.Value = Calendar1.Value
        myCell.Select
    End If
End Sub

すみません。＜ﾂｰﾙﾎﾞｯｸｽ＞ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽでｶﾚﾝﾀﾞｰﾎﾞﾀﾝをｸﾘｯｸし＜UserForm1＞画面上にﾄﾞﾗｯｸﾞした状態です。教えて頂いた内容をcopy＆pasteする手順を教えていただけないでしょうか。初めて使用するため手順を調べ出している始末です。お手数おかけしておりますが、ｶﾚﾝﾀﾞｰ作成後の手順を教えて頂けないでしょうか。宜しくお願い致します。

 ユーザーフォームでの例なら↓こちらが参考になると思います。(Hatch)
http://www.geocities.jp/happy_ngi/YNxv9837.html

 UserForm1にCalendar1が張り付けてあるものとして、
 以下のような感じで・・・
 Sheet1のセルをダブルクリックし、カレンダーの日にちもダブルクリックすると
 入力されます。　　(Hatch)

 UserForm1のコード
Private Sub Calendar1_DblClick()
    ActiveCell.Value = Calendar1.Value
End Sub
Private Sub UserForm_Initialize()
    Calendar1.Value = Date
End Sub
Private Sub UserForm_Deactivate()
    Unload UserForm1
End Sub

 Sheet1のコード
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C10, I10, F50:I55")) Is Nothing Then
        MsgBox "ここには入力できません"
        Target.Select
        Exit Sub
    Else
        UserForm1.Show
        Target.Offset(1, 0).Select
   End If
End Sub

(ぽち)
(Hatch)さんのご教授により希望通りセルをダブルクリックし、カレンダーの日にちもダブルクリックするとセルに日付の入力が出来るように成りました。
本当に有難う御座いました。
すみません、追加でご教授をお願い出来ますでしょうか。
カレンダー表示の際のカレンダー名を　『UserForm1』→例：『カレンダー』へ変更。
また、カレンダーの土日、祝日の曜日を赤字へ変更。背景の色の変更などをご教授お願い致します。
お手数お掛けしまして申し訳有りませんが宜しくお願い致します。

 Private Sub UserForm_Initialize()に以下のコードを追加・・・
 > 『UserForm1』→例：『カレンダー』
    UserForm1.Caption = "カレンダー"
 > カレンダーの土日、祝日の曜日を赤字へ変更。
 　できないのでは?
 > 背景の色の変更
    (例)Calendar1.BackColor = &HC0E0FF

 VBEのプロパティ画面で設定できますので色々試されたらいかがでしょう。　(Hatch)

出来ました！
大変分かりやすくご教授して頂きましてどうも有難う御座いました。
本当に助かりました。またご教授御願いするかもしれませんが今後とも宜しく御願い致します。
有難う御座いました。(ぽち)

コメント返信：

[ 一覧(最新更新順) ]

[[20080118163553]] 『ｶﾚﾝﾀﾞｰｺﾝﾄﾛｰﾙ』（ぽち） ページの最後に飛ぶ

[[20080118163553]]　『ｶﾚﾝﾀﾞｰｺﾝﾄﾛｰﾙ』（ぽち）　ページの最後に飛ぶ