エクセル 擬似カレンダーコントロール

質問

こんにちは！いつも拝見しています。今回はカレンダーコントロール（擬似）について教えていただきたく思います。アクセスの環境がなくユーザーフォームからカレンダーコントロールを作りました。作ったと言うか写しただけですが、今はメッセージＢＯＸで表示されて終わりです。シート１のＡ１セルに表示させるにはどうしたらいいでしょうか。
どうぞ宜しくお願いします。

Private Sub LabelClickEvent_Click()
Dim Conm As String, Nen As Long, Tuki As Long
Conm = LabelClickEvent.Name
With UserForm1
.Controls(Conm).SpecialEffect = fmSpecialEffectSunken
With .Controls("ComboBox1")
If .ListIndex >= 0 Then
Nen = .List(.ListIndex)
End If
End With
With .Controls("ComboBox2")
If .ListIndex >= 0 Then
Tuki = .List(.ListIndex)
End If
End With
MsgBox Format(Nen & "/" & Tuki & "/" & LabelClickEvent.Caption, _
"ggge年m月d日 (aaa)"), , "選択した日付"
.Controls(Conm).SpecialEffect = fmSpecialEffectEtched
End With
End Sub

回答No.2

watabe007 · ベストアンサー

>今はメッセージＢＯＸで表示されて終わりです。シート１のＡ１セルに表示させるにはどうしたらいいでしょうか。
参考に
MsgBox Format(Now(), "ggge年m月d日 (aaa)"), , "選択した日付"
Worksheets("Sheet1").Range("A1").Value = Format(Now(), "ggge年m月d日 (aaa)")

お礼

こんばんは。遅くなりました。解決致しました。いつもの如く即解決です。勉強はしていますが無理ですね。有難うございました。

回答No.1

imogasi

色んな人がこの質問を読むのです。コードだけ貼り付けないで、少し、しくみや内容を説明しては、質問者さえ答えを得れば良いというコーナーではないでしょう。
回答者の私も、時間かけて、ここで説明を補わないといけなくなる。仕様を推測すると
ユーザーフォームを１つ設ける
そこにコンボボックス２つ、
ラベルを１つ設ける。
コンボ１は年選択、コンボ２は月選択をさせるもの。
ラベルをクリックすると
選択した結果により、アクチブセルに日付としてセットしたい。
シートのF列にF1：F12に１－３０とか入れる。２００１－２０３０年）
シートのG列にG1：G31に１－１２とか入れる。月指定。
コード
質問のものを修正して
Private Sub Label1_Click()
Dim Conm As String, Nen As Long, Tuki As Long
'Conm = LabelClickEvent.Name
With UserForm1
.Controls(Label).SpecialEffect = fmSpecialEffectSunken
'--年
With .Controls("ComboBox1")
If .ListIndex >= 0 Then
Nen = .List(.ListIndex)
MsgBox Nen
End If
End With
'----月
With .Controls("ComboBox2")
If .ListIndex >= 0 Then
Tuki = .List(.ListIndex)
MsgBox Tuki
End If
End With
ActiveCell = DateSerial(Nen, Tuki, 1)
'MsgBox Format(Nen & "/" & Tuki & "/" & LabelClickEvent.Caption, _
"ggge年m月d日 (aaa)"), , "選択した日付"
End With
With UserForm1
.Controls(Label).SpecialEffect = fmSpecialEffectEtched
End With
End Sub
ーーー
これでどうです。
日付指定コンボがなぜないのかな。
セットするセルは決っているのかな。
決定のタイミングを知らせるのはコマンドボタンクリックが多いのでは。
エラーが出たところは本質と関係なさそうなので、私の「コードではコメントアウトした。
ーー
世上の擬似カレンダーは日の数字ををコントロールで表示して３１個を週ごとに並べて、日をクリックさせるものがある。作成に手間がかかる。
何かオブジェクトを入手した方がらくだと思うが。

お礼

おっしゃる通り自分本位の質問であり、趣旨を理解しておりませでした。こんなことがないように努めます。私のＰＣにアクセスの環境はありますが他の支店にはありません。全店で使えるようにと取り組んでいますのでお願いした次第です。コンボなどは記述して組んであります。もちろん私ではありませんが。アドバイスを下さり有難うございます。