Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1918 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71026】Calendar1.Value ｸﾘｼｭﾌｧｰ 12/1/26(木) 17:23 質問[未読]
【71031】Re:Calendar1.Value H. C. Shinopy 12/1/26(木) 22:13 回答[未読]
【71046】Re:Calendar1.Value H. C. Shinopy 12/1/27(金) 8:31 回答[未読]
【71050】Re:Calendar1.Value ｸﾘｼｭﾌｧｰ 12/1/27(金) 9:52 お礼[未読]
【71026】Calendar1.Value
質問  ｸﾘｼｭﾌｧｰ  - 12/1/26(木) 17:23 -
引用なし
パスワード
   よろしくお願いいたします


Sheet2.Range("L51:AG53").Value = Calendar1.Value

上記の後ろに曜日も摘出できますでしょうか

よろしくお願いいたします
【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
【71046】Re:Calendar1.Value
回答  H. C. Shinopy  - 12/1/27(金) 8:31 -
引用なし
パスワード
   ありやー、もっと簡単な方法がありました。
マクロの記録でできました。

Range("B1").NumberFormatLocal = "yyyy""年""m""月""d""日""aaaa"
【71050】Re:Calendar1.Value
お礼  ｸﾘｼｭﾌｧｰ  - 12/1/27(金) 9:52 -
引用なし
パスワード
   ▼H. C. Shinopy さん：
>ありやー、もっと簡単な方法がありました。
>マクロの記録でできました。
>
>Range("B1").NumberFormatLocal = "yyyy""年""m""月""d""日""aaaa"

上記にてうまくいきました
ありがとうございます

またよろしくお願いいたします
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1918 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free