【VBA】シート名に特定文字が入っていたらマクロを実行したいです。

VBA初心者です。前回こちらのサイトで大変に参考になる回答をたくさんいただきまた教えていただきたくご質問させ頂きました。

いろいろなサイトを見ながら切り貼りしてこんな以下のマクロを作成しました。
シート名に　_貼付　という文字が入っているシートだけマクロを実行したいです。

下記の内容では1つ目のシートしか処理してくれず、残りは無反応になってしまいます。
どこが間違っているのかさっぱりわからず、教えていただけないでしょうか・・・
よろしくお願いいたします。

--------------------------------------
Sub テスト()
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
Dim i
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
If ws.Name Like "*_貼付" Then

Range("L1") = "受付日"
Range("M1") = "受付時間"
Range("N1") = "対応日"
Range("O1") = "対応時間"

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, "L") = "=INT(RC[-9])"
Cells(i, "M") = "=FLOOR(RC[-10]-INT(RC[-10]),""0:30"")"
Cells(i, "N") = "=INT(RC[-10])"


If Cells(i, "D") = "" Then
Cells(i, "G") = "-"
Else
Cells(i, "G") = "=RC[-3]-RC[-4]"
End If
If Cells(i, "D") = "" Then
Cells(i, "O") = "-"
Else
Cells(i, "O") = "=FLOOR(RC[-11]-INT(RC[-11]),""0:30"")"
End If
Next
End If
Next ws

End Sub
-------------------------------

質問者からの補足コメント

• 

  確認をして気づいたのですが、ActiveSheet　かつ　*_貼付　じゃないと反応していないような感じです。
  むしろそんな高度な技は必要ないのですが、、、どこでどうそんなことになってしまっているのか・・・・

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/06/01 19:48

• あ、そんなことなかったです・・・・ちゃんと確認できていませんでした。
  単純にアクティブなシートで処理をしているようで　*_貼付　が無視されておりました。。。。
  全然関係無いシートのL1:O1に受付日　とか入ってました。

    補足日時：2020/06/01 19:55

• 

  ありがとうございますーーーーー！！！！
  
  ＞①ブック内の全てのシートをループして"*_貼付"シートを検索する？
  実は　"*_貼付"　が付くシートは2つしかありません。
  日_貼付/英_貼付　です。シートの順番も　シート7，8　と固定す。
  どうするのが良いかわからずこんな書き方をしてます。。。。
  
  >②受付日～対応時間はどのシートに出力したいのですか？
  各"*_貼付"シートに出力　です。
  
  全ておまかせでなんだか申し訳ないのですが。。。。よろしくお願いいたします。

  No.3の回答に寄せられた補足コメントです。 補足日時：2020/06/01 21:05

No.4 ベストアンサー 回答者： nekoronda 回答日時： 2020/06/01 21:15

以下で如何でしょうか？　私の理解が間違っていないのならこれでいいはず。

。。

Sub テスト()
Dim i As Integer
Dim ws As Worksheet

With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With

For Each ws In ThisWorkbook.Sheets
If ws.Name Like "*_貼付" Then

ws.Range("L1").Value = "受付日"
ws.Range("M1").Value = "受付時間"
ws.Range("N1").Value = "対応日"
ws.Range("O1").Value = "対応時間"

For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
ws.Cells(i, 12).Value = "=INT(RC[-9])"
ws.Cells(i, 13).Value = "=FLOOR(RC[-10]-INT(RC[-10]),""0:30"")"
ws.Cells(i, 14).Value = "=INT(RC[-10])"


If ws.Cells(i, 4) = "" Then
ws.Cells(i, 7) = "-"
Else
ws.Cells(i, 7) = "=RC[-3]-RC[-4]"
End If
If ws.Cells(i, 4) = "" Then
ws.Cells(i, 15) = "-"
Else
ws.Cells(i, 15) = "=FLOOR(RC[-11]-INT(RC[-11]),""0:30"")"
End If
Next
End If
Next ws

End Sub

この回答へのお礼

ありがとうございますーーー！！！
なんと素早いご対応。
そして、思っていた通りの結果が出てくれました！わーい！わーい！
拙い書き方だったのにも関わらず、こんなに早く作成頂きありがとうございます。

自分でも考えたくて後でnekorondaさんのをみて答え合わせを！と思っていたのですが、、、あまりにも自分の作成に時間がかかってしまっていたので先に実行してしまいました。
記載の仕方も大変勉強になります。
この度は本当にありがとうございました！

お礼日時：2020/06/01 21:49

No.3 回答者： nekoronda 回答日時： 2020/06/01 20:44

時間が出来たので本気で回答しようかと思いますが、

①ブック内の全てのシートをループして"*_貼付"シートを検索する？
②受付日～対応時間はどのシートに出力したいのですか？
　各"*_貼付"シートに出力？　OR　各"*_貼付"シート以外に出力？

この回答へのお礼

ありがとうございます。補足に記載させていただきました。
なんとお優しい・・・・。

お礼日時：2020/06/01 21:05

No.2 回答者： nekoronda 回答日時： 2020/06/01 19:58

すいません、ちゃんと見てませんでした。

If ws.Name Like "*_貼付" Then 内のRangeとCellsの前にws.をつけてください。
ws.Range("L1") = "受付日"　みたいに。

この回答へのお礼

こちらもありがとうございます。
nekoronda さんの内容を実施して　wsで実行するように記載しないといけないことがわかりました。

ということで、↓の部分もwsだよ　というのを記載しないと行けないと思うので、また色々調べながら実施しております。
不慣れなので時間がかかりますが、とてもいい勉強になっています。
本当にありがとうございます！！

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, "L") = "=INT(RC[-9])"
Cells(i, "M") = "=FLOOR(RC[-10]-INT(RC[-10]),""0:30"")"
Cells(i, "N") = "=INT(RC[-10])"


If Cells(i, "D") = "" Then
Cells(i, "G") = "-"
Else
Cells(i, "G") = "=RC[-3]-RC[-4]"
End If
If Cells(i, "D") = "" Then
Cells(i, "O") = "-"
Else
Cells(i, "O") = "=FLOOR(RC[-11]-INT(RC[-11]),""0:30"")"
End If

お礼日時：2020/06/01 21:24

No.1 回答者： nekoronda 回答日時： 2020/06/01 19:36

For Each ws In ActiveWindow.SelectedSheets

を
For Each ws In ThisWorkbook.Sheets
に変更してください。

この回答へのお礼

光の速さでの回答ありがとうございます！！
試してみたのですが、、、結果変わらずでした。。。
補足で記載させていただいたのですが
ActiveSheet　かつ　*_貼付　じゃないと反応していないような感じです。
もし、他にもお気づきな点があったらご指摘いただけると嬉しいです。

ありがとうございました。

お礼日時：2020/06/01 19:49