Excel VBA質問箱 IV

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

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


6978 / 13646 ツリー ←次へ | 前へ→

【41989】テキストボックスに DDT 06/8/28(月) 13:34 質問[未読]
【41990】Re:テキストボックスに Blue 06/8/28(月) 13:39 回答[未読]
【41992】Re:テキストボックスに DDT 06/8/28(月) 14:21 質問[未読]
【41993】Re:テキストボックスに Blue 06/8/28(月) 14:27 回答[未読]
【42003】Re:テキストボックスに うっず 06/8/28(月) 21:55 発言[未読]

【41989】テキストボックスに
質問  DDT  - 06/8/28(月) 13:34 -

引用なし
パスワード
   ユーザーフォームを出したときに、そのユーザーフォーム上にあるテキストボックスに日付が出るようにしたいのですが、Dateだと、2006/8/28と表示されます。これ以外を表示させる方法(例:H18.8.28)を知りたいのですが。教えてください。

【41990】Re:テキストボックスに
回答  Blue  - 06/8/28(月) 13:39 -

引用なし
パスワード
   Format関数について調べてみてください。

例)
Dim d As Date
d = Date()
MsgBox Format(d, "gee.m.d")

ちなみに
>例:H18.8.28
のように全角にしたい場合は、StrConv関数を使ってください。

【41992】Re:テキストボックスに
質問  DDT  - 06/8/28(月) 14:21 -

引用なし
パスワード
   Blue さん
回答ありがたいのですが、私がやりたいのはユーザーフォーム上に設置してあるテキストボックスに表示させるやり方なのですが・・・

【41993】Re:テキストボックスに
回答  Blue  - 06/8/28(月) 14:27 -

引用なし
パスワード
   >ユーザーフォーム上に設置してあるテキストボックスに表示させるやり方なのですが・・・
んなの、100の承知ですけど。
答えを書いたつもりはないです。あくまでサンプルです。
コピペするだけならば、回答する気はありません。

Format関数の値を文字列に入れる例)

Dim d As Date
Dim s As String

d = Date()
s = Format(d, "yyyy/mm/dd")

文字列をテキストボックスに入れる例)

Dim s As String
s = "もじ"
Me.TextBox1.Text = s

【42003】Re:テキストボックスに
発言  うっず  - 06/8/28(月) 21:55 -

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

これで如何でしょう

Private Sub UserForm_initialize()
  TextBox1 = Format(Date, "ge/mm/dd")
End Sub

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