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
-------------------------------
No.4ベストアンサー
- 回答日時:
以下で如何でしょうか? 私の理解が間違っていないのならこれでいいはず。
。。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さんのをみて答え合わせを!と思っていたのですが、、、あまりにも自分の作成に時間がかかってしまっていたので先に実行してしまいました。
記載の仕方も大変勉強になります。
この度は本当にありがとうございました!
No.3
- 回答日時:
時間が出来たので本気で回答しようかと思いますが、
①ブック内の全てのシートをループして"*_貼付"シートを検索する?
②受付日~対応時間はどのシートに出力したいのですか?
各"*_貼付"シートに出力? OR 各"*_貼付"シート以外に出力?
No.2
- 回答日時:
すいません、ちゃんと見てませんでした。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
-
エクセルマクロでシート名を条件にする方法
Excel(エクセル)
-
-
4
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
5
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
6
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
7
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
-
8
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
9
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
10
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
15
マクロを複数シートに実行するには?
Excel(エクセル)
-
16
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
17
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAのマクロで他のシー...
-
特定の文字を含むシートだけマ...
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
ユーザーフォームに入力したデ...
-
シートが保護されている状態で...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
excelのマクロで該当処理できな...
-
VBA 最終行まで数式をコピーする
-
VBA 入力月で該当シートを選択...
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
Excel VBA 文字列のセルを反映...
-
マクロを使って、シート印刷完...
-
VBA 検索して一致したセル...
-
エクセルVBA Ifでシート名が合...
-
別のシートから値を取得するとき
-
VBAで指定シート以外の選択
-
トグルボタン一部を一度にON OF...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
別のシートから値を取得するとき
-
ブック名、シート名を他のモジ...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
エクセルのシート名変更で重複...
-
実行時エラー1004「Select メソ...
-
VBAで同じシート名のコピー時は...
-
エクセルで通し番号を入れてチ...
-
同じ作業を複数のシートに実行...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
Vba UserformからExcelシートの...
-
【Excel VBA】Worksheets().Act...
-
VBA 存在しないシートを選...
おすすめ情報
確認をして気づいたのですが、ActiveSheet かつ *_貼付 じゃないと反応していないような感じです。
むしろそんな高度な技は必要ないのですが、、、どこでどうそんなことになってしまっているのか・・・・
あ、そんなことなかったです・・・・ちゃんと確認できていませんでした。
単純にアクティブなシートで処理をしているようで *_貼付 が無視されておりました。。。。
全然関係無いシートのL1:O1に受付日 とか入ってました。
ありがとうございますーーーーー!!!!
>①ブック内の全てのシートをループして"*_貼付"シートを検索する?
実は "*_貼付" が付くシートは2つしかありません。
日_貼付/英_貼付 です。シートの順番も シート7,8 と固定す。
どうするのが良いかわからずこんな書き方をしてます。。。。
>②受付日~対応時間はどのシートに出力したいのですか?
各"*_貼付"シートに出力 です。
全ておまかせでなんだか申し訳ないのですが。。。。よろしくお願いいたします。