|
こんにちは。かみちゃん です。
>TEST.xlsファイルにSheet名が1〜100まで有るのですが、
>UserFormのTextBoxに名前を入力してButton1をClickすると
>シート名を若い数字番号順にTextBoxに入力された名前に変更する
>方法って出来るのでしょうか?
若い数字番号順にどのように変更していくのでしょうか?
TextBoxの値の末尾に元々の番号を付与していく方法でいいのであれば、以下のような感じになります。
Private Sub CommandButton1_Click()
Dim strName As String
Dim i As Integer
strName = Me.TextBox1.Value
For i = 1 To 2
'シート名が存在しない場合もあるので
On Error Resume Next
Sheets(Format(i, "@")).Name = strName & i
On Error GoTo 0
Next
MsgBox "シート名を変更しました"
End Sub
もしかして、元々のシート名がSheet1、Sheet2・・・・Sheet100とかいうわけではないですよね?
しかし、シート数が100もあるなんて大変ですね。
そっちのほうがむしろ気になります。
|
|