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