【VBA】全てのシートに処理

質問

下図で状況を説明します。

①中央の「ｼｰﾄ名変更」ﾌﾞｯｸの全ｼｰﾄについて、各ｼｰﾄのE1ｾﾙをｷｰとして、VLOOKUPでｼｰﾄ名を左の「ｼｰﾄ名ﾏｸﾛ」ﾌﾞｯｸから拾い、「ｼｰﾄ名変更」ﾌﾞｯｸの各ｼｰﾄのA1ｾﾙに一旦表示させます。(本当はｼｰﾄ名をﾀﾞｲﾚｸﾄに変えたい)
②「ｼｰﾄ名変更」ﾌﾞｯｸのA1ｾﾙに表示された文言を、そのｼｰﾄのｼｰﾄ名とします。
③「ｼｰﾄ名変更」ﾌﾞｯｸの全てのｼｰﾄが同じ書式である為、最終ｼｰﾄ迄①/②を繰り返します。

現状、右の様にｺｰﾄﾞを書きましたが、上手く動くのがｱｸﾃｨﾌﾞｼｰﾄのみとなり、次のｼｰﾄに処理が移行しません。
間違いを教示頂きたく、宜しくお願いします。

回答No.1

kkkkkm · ベストアンサー

> 上手く動くのがｱｸﾃｨﾌﾞｼｰﾄのみとなり、次のｼｰﾄに処理が移行しません。

以下に変更して試してみてください。
Nameやそれぞれの Rangeの前にはドットがあります。

Dim Ws As Worksheet
Dim x As String

For Each Ws In Worksheets

With Ws

x = .Range("E1").Value

.Range("A1").Formula = _
Application.WorksheetFunction. _
VLookup(x, Workbooks("ｼｰﾄ名ﾏｸﾛ.xlsm").Worksheets("一覧").Range("A:B"), 2, False)

.Name = .Range("A1").Value
.Range("A1").Clear

End With

Next Ws

お礼

いつも有難うございます。
上手く動きました。
久しぶりにVBA熱が上がり、色々と作っていきたいと思っています。

回答No.2

imogasi

既に回答が出ているが、使う要素技術（VBAコードのパターン）は簡単。初歩段階の話。骨子は簡単。
具体的なブック・シートの名前等は使わないで済むことに注目。
Sub test01()
'--Activebookの全シートを捉える　For Each
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
'----Ａ各シートのA1ｾﾙに表示された文言を、そのｼｰﾄのｼｰﾄ名とします。
Sub test02()
For Each sh In Worksheets
MsgBox sh.Name
sh.Name = sh.Range("A1")
Next
End Sub
ーー
＞各ｼｰﾄのE1ｾﾙをｷｰとして、VLOOKUPでｼｰﾄ名を左の「ｼｰﾄ名ﾏｸﾛ」ﾌﾞｯｸから拾
この部分はよく理解できない。質問者同時のことで、興味なく、面倒くさいので、自分でコードなど修正などを付け加えて。

お礼

いつも有難うございます。