Excel VBA質問箱 IV

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

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


51082 / 76732 ←次へ | 前へ→

【30525】Re:カレンダーコントロールのタイマーとの連動について
発言  ichinose  - 05/10/29(土) 11:44 -

引用なし
パスワード
   Hiroko さん:
ponpon さん:
おはようございます。

>
>早速ご解答ありがとうございました。
>お陰さまで出来ました。和暦で表現が出来ました。
>
>後一つ教えていただけませんでしょうか。
>今回の和暦は「文字列」の和暦ですが・・・
>
>シリアルナンバーを生かした「和暦」のコードの
>作成はマクロで出来ますでしょうか。
>今日の日にちですと38654で、後のコードでこのシリアル
>ナンバーを活用したいのですが。
Calendar1.Valueは、Date型のプロパティです。

和暦表示は、セルの書式だけ予め設定しておけば、
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

確認してください。
0 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 お礼

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