Excel VBA質問箱 IV

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

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


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

58961 / 76738

←次へ　｜　前へ→


	【22494】Re:H17.2.22(火)から(火)を取りたい

ponpon - 05/2/22(火) 21:42 -


	引用なし

	パスワード

▼かみちゃんさん：
いつもお世話になってます。
>仕様が今ひとつよくわからないのですが、
>コマンドボタンをクリックすると、Sheet1のA1にある日付の次の日を表示してはい
>けないのでしょうか？
>テキストボックスに表示して何か編集するならわかるのですが・・・
　はい、実際は、スピンボタンを用いて・・・・うん？
　できるかも・・・・・
　後でやってみます。
>
>> WorkSheets("sheet2").Range("A1").Value = Format(TextBox1.text,"ge.m.d")
>
>TextBox1.Text は、文字列ですから、Format(TextBox1.text,"ge.m.d")　は、変換
>できません。
やっぱり、そうですよね。
datevalueを用いてやってみましたが、だめでした。

>> 　テキストボックスにはH17.2.22(火)が表示され、
>>　シート２の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), "")
Replace関数は使ったことがないので、ヘルプで調べてやってみます。
まずは、お礼まで。

0 hits

▼

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