ActiveWorkbookを画面上部のウィンドウとして設定するにはどうすればよいですか？

-1

Workbook("A")からデータを収集し、結果をWorkbook("A")またはWorkbook("B")（別のもの）に出力するユーザーフォームを実行しようとしました。結果がブック（「B」）に送信された場合は、Workbook("B").Activate,Sheets(1).Activateとなります。しかし、ユーザーフォームがアンロードされ、マクロが完了した後、ワークブックのタイトルが網掛けになっていても（つまり、ワークブック（「A」）はAciveWorkbookではありません）、まだ私はWorkbook("A")です。ActiveWorkbookを画面上部のウィンドウとして設定するにはどうすればよいですか？

実際のActiveWorkbook Workbook("B")をコンピュータの画面上部に表示するにはどうすればよいですか？

出典

2017-04-30 Nicholas

あなたのコーディングを見ることなく、私たちは推測することはできません。このコードの一部を提供できますか？私が考えることのできることの1つは、 'Application.ScreenUpdating = True'を行うことを忘れてしまいますが、自然に推測されます。 – Tehscript

@Tehスクリプト私は自分のコードを投稿できません。しかし、私は 'Application.ScreenUpdating = True'を持っています。ところで、私はこの問題がwindowstateプロパティに関連していると感じています。 – Nicholas

@Nicholas 'Application.ScreenUpdating'はあなたのために何もしません。 – Masoud

これはうまくいくはずです。

Dim wb1 As Workbook, wb2 As Workbook 
Set wb1 = Workbooks("A") 
Set wb2 = Workbooks("B") 
wb2.Sheets(1).Activate

出典

2017-05-01 04:10:11 sktneer

ActiveWorkbookを画面上部のウィンドウとして設定するにはどうすればよいですか？

答えて

関連する問題