![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
下記のマクロは先日教えて頂いたマクロです。
実行すると
作業ブック(コピー先)にコピー元のブックの指定範囲をコピペできます。
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Sub 提出シートコピー削除()
Call 提出シートを開く
Call 提出シートコピー範囲
Call 貼り付け
Call 電子提出削除
End Sub
このマクロに「Call 住所コピー」を追加すると
画像のエラーが表示されて、作業ブックの別シート(シート名:青紙表)のVBAコードの
「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。
この問題の解決方法を教えてください。
設定マクロ
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Sub 提出シートコピー削除()
Call 提出シートを開く
Call 住所コピー
Call 提出シートコピー範囲
Call 貼り付け
Call 電子提出削除
End Sub
住所コピーマクロ
Sub 住所コピー()
On Error Resume Next
Dim Wb1, Wb2
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値を取得する
Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49")
End Sub
シート「青紙表」のVBAコード
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then
Application.EnableEvents = False
Worksheets("青紙表").Range("$AX$3").Value = Worksheets("受付").Range("$J$2").Value
Application.EnableEvents = True
ActiveWorkbook.Save
End If
Sheets("青紙表").Select
Range("$C$20").Select
Sheets("Access").Visible = [AN46] = "●"
On Error Resume Next
If Range("$J$53").Value = "■" Then
Call 構造
End If
If Target.Address = "$C$23" Then
Call 電子完了
End If
If Range("$AB$35") <> "" Xor Range("AH35") <> "" Then
Call 決済図形
End If
If Range("$CO$7").Value = "有" Then
Call 浄化槽表示
End If
If Target.Address = "$O$28" Then
Call 再修正表示
End If
If Target.Address = "$O$28" Then
Call 修正表示
End If
If Target.Address = "$C$20" Then
Call 審査担当コメント非表示
End If
If Range("$EX$4").Value = "■" Then
Call 消防通知図表示
End If
If Range("$ER$3").Value = "■" Then
Call 行政メール図表示
End If
If Target.Address <> "$C$20" And Target.Address <> "$F$20" Then Exit Sub
If Target.Address = "$C$20" And Range("$F$20").Value <> "" Then Exit Sub
If Target.Address = "$F$20" And Range("$C$20").Value <> "" Then Exit Sub
If Target.Value <> "" Then
If True Then
Call 新行政報告ファイルコピー
Call 審査資料
Call 行政条例総合
Call いろはシステム
Call シート300を非表示
On Error Resume Next
Worksheets("受付").Visible = False
Worksheets("管理表").Visible = False
Worksheets("Access").Visible = False
Worksheets("地方照会").Visible = False
Worksheets("札幌道路").Visible = False
Worksheets("札幌宅地").Visible = False
Worksheets("札幌開発").Visible = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("F審査").Delete
Sheets("F設計INDX").Delete
Application.DisplayAlerts = True
End If
Else
On Error Resume Next
Worksheets("受付").Visible = True
Worksheets("管理表").Visible = True
End If
On Error Resume Next
If Range("CI20").Value = "■" Then
Call 日付
End If
If Range("EY3").Value = "■" Then
Call 消防通知図表示
End If
End Sub
以上となります。よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
>「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。
そのブックに審査シートは存在する?
にしても
With Worksheets("審査") って何処?
Worksheet_Changeイベントの処理分岐やオブジェクト設定に問題があるかもしれませんが
Call 住所コピーを加えて動かなくなった・・・
住所コピー に問題があると推測して・・・
あなたの使っているブックのVBA処理、関係するファイル、なさりたい事は
私にはわかりません
ですので、ご質問部分のみに対する回答になります
コードや諸々を推測して(出来るだけ使いまわしを想定して)
Sub 住所コピー()
On Error Resume Next
'セルの値を取得するApplication.EnableEvents = False
Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49")
On Error GoTo 0
Application.EnableEvents = True
End Sub
とすれば?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 5 2024/05/29 16:59
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/06 13:07
- Visual Basic(VBA) Excelのマクロについて教えてください。 2 2024/06/14 16:38
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/28 13:38
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/06/18 09:20
- Visual Basic(VBA) エクセルのVBAコードについて教えてください。 6 2024/06/28 11:33
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルVBA
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
5
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
6
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
7
エクセルのVBAコードについて教えてください。
Visual Basic(VBA)
-
8
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
9
久しぶりのプログラミング
Visual Basic(VBA)
-
10
Excel(M365) Vlookup/セル反転(VBA)について
Visual Basic(VBA)
-
11
VBAコードについて教えてください。
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
エクセルのVBAコードについて教えてください。
Visual Basic(VBA)
-
14
ワードVBA どの表か知ることはできますか
Visual Basic(VBA)
-
15
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
16
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
17
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
18
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
19
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
VBA 別ブックからコピペしたい...
-
コードを直していただきたいで...
-
VBA listBoxから
-
Excel VBA 定義されたプロージ...
-
ExcelのVBAコードについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロの記録を使用したマクロ...
-
ExcelのVBAです。フォルダ内の...
-
【ExcelVBA】インデックスが有...
-
エクセルファイルのデータ転記...
-
Outlookの「受信日時」「件名」...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAなくなるの?
-
VBAでCOPYを繰り返すと、処理が...
-
vba 削除
-
プログラミング
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
エクセルのVBAコードについて教...
-
久しぶりのプログラミング
-
ユーザーフォームに別シートか...
-
エクセルVBAコードで教えて下さ...
-
VBA 別ブックからコピペしたい...
-
ExcelのVBAコードについて教え...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
エクセルVBA
-
Geogebraの操作方法について
-
マクロの記録を使用したマクロ...
-
Excel(M365) Vlookup/セル反転(...
-
Excel 範囲指定スクショについ...
おすすめ情報