Excel VBA質問箱 IV

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

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


22702 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   途中報告と再説明です
わかりにくいと思いますがよろしくお願いいたします

book1のSheet3のA1にABCと入力し、Sheet3を非表示にします
book1に下記モジュールを貼り付けます

動作の確認1
book1のSheet1を選択し、マクロの実行でatest2()を実行すると
Sheet3がSheet1の名前でブックに挿入されSheet1が表示されますが
タスクバーのbook1は選択されていません
セルを選択してもタスクバーのbook1は選択された状態になりません
↑異常な状態と思います


動作の確認2
上記book1のほかに、book2を開きます
book1のSheet1を選択し、マクロの実行でatest2()を実行
Sheet3がSheet1の名前でブックに挿入されSheet1が表示され
タスクバーのbook1は選択されています
↑正常な状態


Q1動作の確認1はどんな状態になっているのでしょうか


Q2動作の確認1のときタスクバーのbook1をアクティブ(押された状態)
にするには、コードをどのように修正したらよいでしょうか


アドバイスよろしくお願いいたします


book1の標準のジュール

'シート1を削除して、シート3をコピーして、シート1にして挿入
Sub RENEW_st2()

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  Sheets("Sheet1").Delete
  
  Sheets("Sheet3").Visible = True
  
  Sheets("Sheet3").Copy Before:=Sheets(1)
  Sheets("Sheet3 (2)").Name = "Sheet1"
  
  Sheets("Sheet1").Visible = True
  
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

End Sub


Public Sub atest2()

RENEW_st2

'Windows(ThisWorkbook.Name).Activate
'Application.Wait (Now + TimeValue("0:00:01"))

'Windows("Book2").Activate
'Windows("Book1").Activate

Call get_ant_bk
'Windows(ThisWorkbook.Name).Activate

'MsgBox ActiveWindow.Caption
'Cells(1, 1).Select
'Windows("Book1").Activate

End Sub


'タスクバーのブック1をアクティブにするつもり
Sub get_ant_bk()

  Dim i As Integer
  
    For i = 1 To Workbooks.Count
    
      Debug.Print Workbooks(i).Name
      Debug.Print ThisWorkbook.Name
      
      If Workbooks(i).Name <> ThisWorkbook.Name Then
        Debug.Print Workbooks(i).Name
        
        Windows(Workbooks(i).Name).Activate
        ThisWorkbook.Activate
        Exit Sub
      Else
        
        
      End If
    Next
    
    ThisWorkbook.Activate
    ActiveSheet.Activate
    
  
End Sub

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 お礼

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