Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58966 / 76738

←次へ　｜　前へ→


	【22488】H17.2.22(火)から(火)を取りたい

ponpon - 05/2/22(火) 20:34 -


	引用なし

	パスワード

　ponponです。こんばんは。
　初心者から脱却するために自分のわかるところを積極的に回答しているのですが、表題のことすらできません。

　sheet1のA1にある日付が入力されています。
　そこで、ユーザーフォームのテキストボックスにその次の日を表示させて、
　コマンドボタンをクリックするとその値をsheet２のA1に入力したいのですが、
表示形式がうまくいきません。

sheet1のA1に2005/2/22が入っているとして、
Private Sub UserForm_Initialize()
　TextBox1.text = Format(WorkSheets("sheet1").Range("A1").Value + 1 , _
　"ge.m.d(aaa)")
End sub

Private Sub CommandButton1_Click()
　WorkSheets("sheet2").Range("A1").Value = Format(TextBox1.text,"ge.m.d")
とやっても、

　テキストボックスにはH17.2.22(火)が表示され、
　シート２のA1には、H17.2.22と表示したのですが、H17.2.22(火)と表示されてしまします。

それで今は、

Private Sub UserForm_Initialize()
　TextBox1.text = Format(WorkSheets("sheet1").Range("A1").Value + 1 , _
　"ge.mm.dd(aaa)")
End sub

Private Sub CommandButton1_Click()
　WorkSheets("sheet2").Range("A1").Value = Left(TextBox1.text,9)

とやっていますが、(火)を取る方法は、これしかないですかね？
よろしくお願いします。

0 hits

▼

【22488】H17.2.22(火)から(火)を取りたい ponpon 05/2/22(火) 20:34

≪