Excel VBA質問箱 IV

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

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


51074 / 76732 ←次へ | 前へ→

【30533】Re:カレンダーコントロールのタイマーとの連動について
お礼  Hiroko  - 05/10/29(土) 13:59 -

引用なし
パスワード
   ▼ichinose さん:

ありがとうございました。
セルの書式を先にマクロで設定しておくのですね。
勉強になりました。
(今まではエクセルのシート上で書式の設定をしていました。)

確かにシリアルナンバーが確保されています。
文字列の表現ですと
セルの《左から》「平成17年10月29日」と表示されましたが、
今回の表示は《右詰》になっています。

TypeName(Calendar1.Value)は⇒「Day」と表示されましたので
TypeNameを外しましたら「05/10/29」とMsgBoxにでました。

色々とご指導ありがとうございました。非常に勉強になりました。

>和暦表示は、セルの書式だけ予め設定しておけば、
>calendar1.valueをそのまま設定すれば、シリアル値がセルに入ります。
>
>'==========================================================
>Private Sub Calendar1_Click()
>  MsgBox TypeName(Calendar1.Value) 'これは、確認のためです
>  With Range("C65536").End(xlUp).Offset(1, 0)
>     .Value = Calendar1.Value
>    End With
>End Sub
>'===============================================================
>Private Sub UserForm_Initialize()
>  Calendar1.Today
>  Range("c:c").NumberFormatLocal = "ggge""年""m""月""d""日"""
>End Sub
>
>確認してください。
1 hits

【30498】カレンダーコントロールのタイマーとの連動について Hiroko 05/10/28(金) 19:45 質問
【30504】Re:カレンダーコントロールのタイマーとの... ichinose 05/10/28(金) 20:51 発言
【30508】Re:カレンダーコントロールのタイマーとの... Hiroko 05/10/29(土) 8:06 お礼
【30510】Re:カレンダーコントロールのタイマーとの... ponpon 05/10/29(土) 8:19 発言
【30521】Re:カレンダーコントロールのタイマーとの... Hiroko 05/10/29(土) 11:26 お礼
【30525】Re:カレンダーコントロールのタイマーとの... ichinose 05/10/29(土) 11:44 発言
【30533】Re:カレンダーコントロールのタイマーとの... Hiroko 05/10/29(土) 13:59 お礼
【30526】Re:カレンダーコントロールのタイマーとの... ponpon 05/10/29(土) 11:50 発言
【30534】Re:カレンダーコントロールのタイマーとの... Hiroko 05/10/29(土) 14:08 お礼

51074 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free