Excel VBA質問箱 IV

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

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


51333 / 76732 ←次へ | 前へ→

【30270】Re:ワークシート名の一括置換
お礼  ものみゆ  - 05/10/24(月) 11:56 -

引用なし
パスワード
   ▼とまと さん:

たいへん素早く、適切な方法をお教えいただきましてありがとうございます。
早速試させていただきまして、期待していたとおりの結果が得られました。
本当に助かりました。

ひとつだけ質問させていただいてよろしいでしょうか?
>   Worksheets(n).Name = .Cells(i, "A").Value
なのですが、この"A"部分は、列Aを指定している部分かと思います。
であるなら、数字の1を代わりに記述してもいいのでしょうか?

お手すきの際に、ご教授いただけますと幸いです。

このたびはどうもありがとうございました。


>こんにちは
>sheet1のA1から置換するシート名が縦に入力されているとして
>下記のように書けると思います。
>
>
>Sub セルの値をシート名に()
>
>Dim i As Long
>Dim n As Long
>Dim sh1 As Worksheet
>
>Set sh1 = Worksheets("sheet1") '一覧のあるシート
>
>n = 1 'シートのn番目から
>With sh1
> For i = 1 To .Range("A65536").End(xlUp).Row
>   Worksheets(n).Name = .Cells(i, "A").Value
>   n = n + 1
> Next
>End With
>
>
>End Sub
>
>▼ものみゆ さん:
>>表題の件でお知恵をおかしください。
>>
>>ブック内の複数シートのうちのひとつのシート上に、
>>置換したいシート名を羅列した1行を作成し、
>>そのシート名リストを範囲指定し、当ブックのn番目のシート名から置換する、
>>というようなVBAをお教えいただければと思います。
>>
>>どうぞよろしくお願いいたします。

0 hits

【30246】ワークシート名の一括置換 ものみゆ 05/10/24(月) 6:33 質問
【30265】Re:ワークシート名の一括置換 とまと 05/10/24(月) 11:08 回答
【30270】Re:ワークシート名の一括置換 ものみゆ 05/10/24(月) 11:56 お礼
【30271】Re:ワークシート名の一括置換 とまと 05/10/24(月) 12:00 回答
【30276】Re:ワークシート名の一括置換 ものみゆ 05/10/24(月) 12:58 お礼

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