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