|
ponponです。こんばんは。
初心者から脱却するために自分のわかるところを積極的に回答しているのですが、表題のことすらできません。
sheet1のA1にある日付が入力されています。
そこで、ユーザーフォームのテキストボックスにその次の日を表示させて、
コマンドボタンをクリックするとその値をsheet2の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(火)が表示され、
シート2の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)
とやっていますが、(火)を取る方法は、これしかないですかね?
よろしくお願いします。
|
|