Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34638 / 76734

←次へ　｜　前へ→


	【47302】Re:シート名の置換

Kein - 07/3/7(水) 17:03 -


	引用なし

	パスワード

>一括で
というところを意識しているのでしょうが、Worksheetオブジェクトの
コレクションである Worksheets には、Nameプロパティがありません。
従ってたとえば、配列で一気に変更するようなことは出来ないのです。
やるとすると一つずつのシートを、ループして処理していくしかありません。

Dim C As Range
Dim Nm1 As String, Nm2 As String

On Error Resume Next
For Each C In Range("A1", Range("A65536").End(xlUp))
　 Nm1 = C.Text: Nm2 = C.Offset(, 1).Text
　 Worksheets(Nm1).Name = Nm2
　 If Err.Number <> 0 Then Err.Clear
Next
On Error GoTo 0

などとすれば良いでしょう。

4 hits

▼

【47300】シート名の置換 もとやしげお 07/3/7(水) 16:50