おはようございます。
Excelのマクロ有効テンプレートで保存しているブック名が「ひな形」があり、そのブックの中に
シート名が「受付」があり、そのシートに下記のコードを設定しております。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tbl As Variant
Dim i As Integer
tbl = Array("D10", "D11", "E10", "E11", "F10", "F11")
If Not Intersect(Target, Range("D10:F11")) Is Nothing Then
With Worksheets("審査")
For i = 0 To 5
If Target.Address(False, False) = tbl(i) Then
.Range("B" & 26 + i).Value = Target.Value
If Target.Value = "" Then
.Range("E" & 26 + i).Value = ""
Else
.Range("E" & 26 + i).Value = "後日図書の提出をお願いいたします。"
End If
Exit For
End If
Next i
End With
Else
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("消防添").Visible = [D12] = "有"
Sheets("消防事").Visible = [E12] = "郵送(紙)"
Sheets("函館市").Visible = [F3] = "函館市"
Sheets("北見市").Visible = [F3] = "北見市"
Sheets("苫小牧市").Visible = [F3] = "苫小牧市"
Sheets("帯広市").Visible = [F3] = "帯広市"
Sheets("小樽市").Visible = [F3] = "小樽市"
Sheets("室蘭市").Visible = [F3] = "室蘭市"
Sheets("札幌市").Visible = [F3] = "札幌市"
Sheets("釧路市").Visible = [F3] = "釧路市"
Sheets("旭川市").Visible = [F3] = "旭川市"
Sheets("江別市").Visible = [F3] = "江別市"
Sheets("北海道").Visible = [AF3] = "北海道"
Sheets("INDX").Visible = [D2] = "電子申請"
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
このコードは
ある顧客からブック名が「提出」がメール等で送られてきて、そのブックのシート名が「提出」のセルB1~H47までをコピーし、Excelのマクロ有効テンプレートで保存しているブック名が「ひな形」の
シート名が「受付」のセルB1~H47にペーストすると、セル値によって非表示シートが表示するように設定しておりますが、
ペーストしたタイミングで上手くシートが表示されません、受付シートのどこかのセルを操作するとシートが表示されます。
このひな形ブックは何度か改良を重ねていますが、最近になってこの現象(ペーストしたタイミングでシートが表示されない)が起きてます。
解決方法を教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Application.EnableEvents = False
↑
このコードが、他のどこかで不用意に使われています。
Application.EnableEvents = True
↑
対になるこのコードが必ず実行される様になっているか確認してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
XL:BeforeDoubleClickが動かない
-
セルの値によって、シート見出...
-
【ExcelVBA】全シートのセルの...
-
【VBA】色のついたシート名を取得
-
エクセルのシート名変更で重複...
-
ブック名、シート名を他のモジ...
-
ExcelVBA シート名を複数セルか...
-
VBAでオブジェクト変数にsetし...
-
Worksheet_Changeの内容を標準...
-
同じ作業を複数のシートに実行...
-
VBAの天才来てください
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
別のシートを参照して計算する方法
-
【VBA】指定した検索条件に一致...
-
ExcelのVBAのマクロで他のシー...
-
【Excel VBA】Worksheets().Act...
-
excelのマクロで該当処理できな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報
回答ありがとうございました。
Application.EnableEvents = False
Application.EnableEvents = True
を削除してみて、実行しましたが、やはり、同じように上手くいきませんでした。
何度も申し訳ありません。
よろしくお願いいたします。