Excel VBA質問箱 IV

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

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


22701 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   よろしくお願いいたします

タスクバーに
ブック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


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

0 hits

【59409】アクティブウインドウとタスクバーがずれる ON 08/12/10(水) 10:53 質問
【59410】Re:アクティブウインドウとタスクバーがず... ON 08/12/10(水) 11:12 質問
【59411】Re:アクティブウインドウとタスクバーがず... ON 08/12/10(水) 11:33 発言
【59414】Re:アクティブウインドウとタスクバーがず... ON 08/12/10(水) 13:48 質問
【59420】Re:アクティブウインドウとタスクバーがず... Jaka 08/12/10(水) 17:03 発言
【59422】Re:アクティブウインドウとタスクバーがず... ON 08/12/10(水) 17:29 発言
【59427】Re:アクティブウインドウとタスクバーがず... neptune 08/12/10(水) 20:52 発言
【59435】Re:アクティブウインドウとタスクバーがず... ON 08/12/11(木) 10:23 質問
【59446】Re:アクティブウインドウとタスクバーがず... neptune 08/12/11(木) 14:24 発言
【59456】Re:アクティブウインドウとタスクバーがず... ON 08/12/11(木) 19:57 お礼
【59457】Re:アクティブウインドウとタスクバーがず... ON 08/12/11(木) 19:59 お礼

22701 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free