|
かみちゃん 様へ
すいません間違えました下記コードです。m(_ _)m
申し訳御座いませんが、ご教授願います・・・
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") = TextBox3.Value
.Range("J2") = TextBox4.Value
End With
Next
MsgBox "シート名を変更しました"
End Sub
必ず『With Workbooks("test.xls").Sheets(Format(strName, "@"))』でエラーが出てしまいます。
|
|