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

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

2 hits

【47300】シート名の置換 もとやしげお 07/3/7(水) 16:50 質問
【47301】Re:シート名の置換 ぱっせんじゃー 07/3/7(水) 17:00 発言
【47303】Re:シート名の置換 もとやしげお 07/3/7(水) 17:14 お礼
【47302】Re:シート名の置換 Kein 07/3/7(水) 17:03 回答
【47304】Re:シート名の置換 もとやしげお 07/3/7(水) 17:36 お礼

34638 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free