|
教えて頂き本当に助かりました。
やりたい事がちょっと違ったのですが、strName & i を変更して解決しました。
もう一点欲しいのですが、その変更されたSheetのG2,L2,J2に
同じUserFormにあるTextBox2、TextBox3、TextBox4のテキストを
入力したくて下記のプログラムに変更したのですが、
Withの方法が間違っているみたいで動きません・・・
★もう一歩なのでたすけて下さい。★
Private Sub Button_Click()
Dim strName As String
Dim i As Integer
strName = Me.TextBox.Value
For i = 1 To 100
'シート名が存在しない場合もあるので
On Error Resume Next
Sheets(Format(i, "@")).Name = strName
On Error GoTo 0
With Workbooks("test.xls").Sheets(Format(strName, "@"))
.Range("G2") = TextBox2.Value
.Range("L2") = TextBox2.Value
.Range("J2") = TextBox2.Value
End With
Next
MsgBox "シート名を変更しました"
End Sub
|
|