|
よろしくお願いいたします
タスクバーに
ブック1、ブック2、VBEが表示されています
ブック2
ブック2のマクロを実行すると
ブック1のタスクが選択された状態なってしまいます
画面はブック2が表示されています
↑画面とタスクバがずれている
ブック1は、今回のマクロとは何の関係もありません
ここでタスクバーのVBEを選択し、再度VBEのタスクバーを選択すると
ブック2のタスクが選択された状態になります
↑画面とタスクがあっている
マクロをステップ実行すると上記不具合は発生しません
'ActiveSheet.EnableCalculation = False
'Application.EnableEvents = False
Call RENEW_hoge
'ActiveSheet.EnableCalculation = True
'Application.EnableEvents = True
RENEW_hogeをコメントアウトすると不具合は発生しません
RENEW_hogeは、
Sheets("hoge")を下記のようにして初期化しています
Sub RENEW_hoge()
'GoTo 88:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("hoge").Delete
Sheets("hoge元").Visible = True
Sheets("hoge元").Copy Before:=Sheets(1)
Sheets("hoge元 (2)").Name = "hoge"
Sheets("hoge").Visible = False
Application.DisplayAlerts = True
Application.ScreenUpdating = False
'88:
End Sub
また
Sheets("hoge")には、連番列があって
=SQ_CNT(D13)+OFFSET(E13,-1,0)
のようにしています
ただしGoToで飛ばしたりしても
上記不具合は発生しますのでこれは違うような気がします
Public Function SQ_CNT(tg As Range)
'GoTo 33:
Application.Volatile
If tg.Interior.ColorIndex = 15 Then
SQ_CNT = SQ_CNT + 0
Else
SQ_CNT = SQ_CNT + 1
End If
'33:
End Function
わかりにくいとと思いますがアドバイスお願いします
|
|