Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22701 / 76732

←次へ　｜　前へ→


	【59409】アクティブウインドウとタスクバーがずれる

ON - 08/12/10(水) 10:53 -


	引用なし

	パスワード

よろしくお願いいたします

タスクバーに
ブック1、ブック2、VBEが表示されています

ブック2
ブック2のマクロを実行すると
ブック1のタスクが選択された状態なってしまいます
画面はブック２が表示されています
↑画面とタスクバがずれている

ブック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

わかりにくいとと思いますがアドバイスお願いします

0 hits

▼

【59409】アクティブウインドウとタスクバーがずれる ON 08/12/10(水) 10:53

≪