下記のマクロはネットで調べたコードを自分用にアレンジした、マクロです。
このマクロを実行すると、マクロ設定ブックと同じフォルダ内にある、別ブックの指定シートの指定セル値を作業ブックにコピぺできます。
しかし、マクロを実行すると、画像のエラーメッセージが表示され、作業ブックのコピー先のシート「受付」に設定しているVBAコード「With Worksheets("審査")」が黄色く変色してしまいます。
このコード全体では
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As Variant
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
tbl = Array("D10", "D11", "E10", "E11", "F10", "F11")
With Worksheets("審査")
For i = 0 To 5
.Range("C" & 26 + i).Value = Range(tbl(i)).Value
If Range(tbl(i)).Value = "" Then
.Range("F" & 26 + i).Value = ""
Else
.Range("F" & 26 + i).Value = "後日図書の提出をお願いいたします。"
End If
Next i
End With
以下省略
End Sub
となっており、指定セル値に文字が表示されれば、シート名「審査」の指定セルに「後日図書の提出をお願いいたします。」と表示出来るようになっております。
この問題を解決できる方法を教えてください。
現状のマクロ
Sub Macro1()
Dim FilePath As String
'ファイルの入っているフォルダをパスを設定
FilePath = ThisWorkbook.Path
'コピー元のブックを開く
Workbooks.Open FilePath & "\テスト(提出用).xlsx"
'データをコピー
Workbooks("テスト(提出用).xlsx").Worksheets("提出シート").Range("B2:H47").Copy _
Workbooks("総合引き受け(1-1)(知恵袋).xlsm").Worksheets("受付").Range("B2")
'コピー元のブックを閉じる(セーブしない)
Workbooks("テスト(提出用).xlsx").Close savechanges:=False
End Sub
以上となります。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
普通に考えたら 審査 というシートが存在してないからですよね。
その原因はWorksheet_Changeが再帰的に呼び出されているからかも。
だとしたら回避策はこれ↓と同じ
https://oshiete.goo.ne.jp/qa/13826725.html
これ↓は読みましたか?
https://terakoya.sejuku.net/question/detail/32336
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
【お題】 ・存在しそうで存在しないモノマネ芸人の名前を教えてください
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら「ろうそくの数はあなたが好きな人の数です」と言われ浮気者扱いされたことをいまだに根に持っています。
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
VBAなくなるの?
Visual Basic(VBA)
-
-
4
VBAコードについて教えてください。
Visual Basic(VBA)
-
5
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
6
vba アクティブシートの名前変更について教えてください
Visual Basic(VBA)
-
7
IF文、条件分岐の整理方法
Visual Basic(VBA)
-
8
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
11
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
12
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
13
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
14
エクセルVBAについて
Visual Basic(VBA)
-
15
AIの登場でプログラマーたちが解雇されていますが
その他(プログラミング・Web制作)
-
16
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
17
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
-
18
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
-
19
VBAコードのインデント表示
Visual Basic(VBA)
-
20
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA 別ブックからコピペしたい...
-
[Excel]ADODBでNull変換されて...
-
VBA 実行時エラー 2147024893
-
VBA コードを実行すると画面が...
-
VBA アプリケーション定義また...
-
vbaで他のブックに転記したい。...
-
【ExcelVBA】インデックスが有...
-
VBAで別ブックのシートを指定し...
-
エクセル共有化のトラブル
-
【Excel VBA】書き込み先ブック...
-
【VBA】全シートの計算式を全て...
-
Access開いているブックのセル...
-
Excelのマクロについて教えてく...
-
Excelファイルを開くとき、読み...
-
VBAで別のブックにシートをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
別ブックをダイアログボックス...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBAで別のブックにシートをコピ...
-
VBA 実行時エラー 2147024893
-
VBA シート名が一致した場合の...
-
ユーザーフォームの切り替えに...
-
【マクロ】違うフォルダにある...
-
【Excel VBA】書き込み先ブック...
-
VBS Bookを閉じるコード
-
Excelマクロ 該当する値の行番...
-
VBAで複数のブックを開かずに処...
-
Excel2007VBAファイルの表示に...
-
VBA アプリケーション定義また...
おすすめ情報