|
▼かみちゃん さん:
いつもお世話になってます。
>仕様が今ひとつよくわからないのですが、
>コマンドボタンをクリックすると、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(火)が表示され、
>> シート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), "")
Replace関数は使ったことがないので、ヘルプで調べてやってみます。
まずは、お礼まで。
|
|