Excel VBA質問箱 IV

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

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


58956 / 76732 ←次へ | 前へ→

【22493】Re:H17.2.22(火)から(火)を取りたい
発言  かみちゃん  - 05/2/22(火) 21:24 -

引用なし
パスワード
   こんにちは。かみちゃん です。

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

仕様が今ひとつよくわからないのですが、
コマンドボタンをクリックすると、Sheet1のA1にある日付の次の日を表示してはい
けないのでしょうか?
テキストボックスに表示して何か編集するならわかるのですが・・・

> WorkSheets("sheet2").Range("A1").Value = Format(TextBox1.text,"ge.m.d")

TextBox1.Text は、文字列ですから、Format(TextBox1.text,"ge.m.d") は、変換
できません。

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

次の日なのだから、「H17.2.23(水)」では?

> WorkSheets("sheet2").Range("A1").Value = Left(TextBox1.text,9)

「H17.2.23(」になりませんか?
WorkSheets("sheet2").Range("A1").Value = Left(TextBox1.text,8)
としたとき「H17.11.12」などは対応できませんから、別の方法を考えないといけないでしょう。

たとえば、こんな感じ。
Worksheets("sheet2").Range("A1").Value = Replace(TextBox1.Text, Right(TextBox1.Text, 3), "")
0 hits

【22488】H17.2.22(火)から(火)を取りたい ponpon 05/2/22(火) 20:34 質問
【22493】Re:H17.2.22(火)から(火)を取りたい かみちゃん 05/2/22(火) 21:24 発言
【22494】Re:H17.2.22(火)から(火)を取りたい ponpon 05/2/22(火) 21:42 お礼
【22495】Re:H17.2.22(火)から(火)を取りたい ponpon 05/2/22(火) 22:16 お礼
【22496】Re:H17.2.22(火)から(火)を取りたい ponpon 05/2/22(火) 22:21 発言
【22517】Re:H17.2.22(火)から(火)を取りたい Jaka 05/2/23(水) 11:26 回答
【22561】Re:H17.2.22(火)から(火)を取りたい ponpon 05/2/23(水) 19:05 発言

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