シートの名前の変更について(VBA)

質問

いつもお世話になっております。
VBAでシートの名前の変更を行おうと考えています。エクセルのシートで手動でシートの名前変更を入力すると使用できない文字は、入力が出来ないようになっています。VBAでテキストボックスへの入力を同じように規制する場合、Change()を使って1文字づつチェックするルーチェンを組むしかないのでしょうか？
取って置きの手法がありそうな気がしますが、思いつきません。どなたか？助けて頂けないでしょうか？よろしくお願いいたします。

回答No.2

Wendy02 · ベストアンサー

こんにちは。Wendy02です。

テキストボックスは、コントロールツールというところにしましょうか？

＞VBAでテキストボックスへの入力を同じように規制する場合、Change()を使って1文字づつチェックするルーチェンを組むしかないのでしょうか？（←○ルーチン =routine）

1文字ずつという方法もないとはいいませんが、例えば、同名を付けられないとなると、On Error トラップでエラーから、手っ取りばやいし、負担も少ないように思いますね。なお、例をあげておきます。

例:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
On Error GoTo TextBox1_Error
　ActiveSheet.Name = TextBox1.Text
End If

TextBox1_Proc_Exit:
　Exit Sub

TextBox1_Error:

MsgBox "その名称は出来ませんので、修正しなおしてください。", vbCritical
　TextBox1.SelStart = 0
　GoTo TextBox1_Proc_Exit:
End Sub

お礼

merlionXX様、 Wendy02様有難うございます。
やはり、ご指導通り、エラートラップにて処理しようと思います。ダミーのシートを作ってTextを処理しようと思いました。
有難うございました。また、のご指導よろしくお願いします。尚、点数に差を着けなければならないことをここにお詫びいたします。

回答No.5

onlyrom

Wendy02さん、便乗質問にも拘わらず早速の回答ありがとうございます。

＞どこか、問題がありますでしょうか？

問題はどこにもありません。
ただ、ご提示のコードではNo.1さんのコードと違って
正常終了、エラーに関係なくExit Subへ行くようになっていますので、
●の部分はいらないのでは、との素朴な疑問からの質問でした。

貴重なお時間を割いていただき感謝いたします。
ありがとうございました。

お礼

merlionXX 様、Wendy02様ご指導有難うございます。onlyrom様。僕も、同じようなこと(便乗質問したいと)思うこと多かったので便乗質問大歓迎です。
ご指導頂いた内容を踏まえ現在悩んでいる所です。

回答No.4

Wendy02

こんにちは、onlyromさん。

＞●の部分はなぜ必要なのでしょうか？

Excelでは、あまり見かけないパターンかもしれませんね。それは、On Error トラップの　1つのパターンです。どこか、問題がありますでしょうか？

単に、

　On Error Goto ErrorHandler で、
'-略-
ErrorHandler:
　If Err() > 0 Then
　MsgBox "*****"
　End If

だけでもよいのです。これぐらい短いと、ほとんど処理スピードは変りません。ただ、Error ルーチンを、1つのプロシージャを正常な流れから分岐させ、エラー処理として、別の手続きをしています。正常な流れなら、Exit Subで終わります。

回答No.3

onlyrom

横から便乗質問お許し下さい。

No.2の回答者Wendy02さんお訊ねします。
ご提示のコードの

●　TextBox1_Proc_Exit:
　　Exit Sub

TextBox1_Error:
●　GoTo TextBox1_Proc_Exit:
End Sub

●の部分はなぜ必要なのでしょうか？
ご教授ください。
宜しくお願いいたします。

回答No.1

merlionXX

たとえばこんな感じ？
（シート名を変更できない場合、再入力させます）

Sub TEST01()
line1:
On Error GoTo line2
ans = InputBox("Sheet名入力")
ActiveSheet.Name = ans
Exit Sub
line2:
MsgBox "名前が不適切です。"
GoTo line1
End Sub