Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11315 / 76807

←次へ　｜　前へ→


	【71031】Re:Calendar1.Value

H. C. Shinopy - 12/1/26(木) 22:13 -


	引用なし

	パスワード

Format関数を使えば済むと思います。

細かい点は、VBEの画面でF1を押して、ヘルプを表示し、
「日付/時刻表示書式指定文字 (Format 関数)」を検索して下さい。
以下、マクロ。

Sub Macro4()
　Dim myString As String
　'
　myString = Format("2012/01/26", "aaa")
　MsgBox myString
　'
　myString = Format("2012/01/26", "aaaa")
　MsgBox myString
End Sub

御質問の件は、下記の通りと思われます。

Private Sub Calendar1_Click()
　Sheet2.Range("L51:AG53").Value = Calendar1.Value & " (" & Format(Calendar1.Value, "aaa") & ")"
End Sub

4 hits

▼

【71026】Calendar1.Value ｸﾘｼｭﾌｧｰ 12/1/26(木) 17:23