|
こんにちは。かみちゃん です。
> 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), "")
|
|