1

フォームを表示するショットカットがあります 

Form1.Show //shortcut is ctrl+Q

別のワークブックをアクティブにして ctrl+Q を押すと、フォームも表示
され、ブックがアクティブな場合にのみ表示されます。
私は試した： 

If ThisWorkbook = ActiveWorkbook Then Form1.Show

また 

If ActiveWorkbook = ThisWorkbook Then Form1.Show

そして、構文エラーが発生しました。

4

2 に答える 2

2

.name を参照してみてはどうでしょうか。

If ThisWorkbook.Name = ActiveWorkbook.Name Then
   MsgBox "Is Active"
End If

Excel 2013 でも、同じ名前の 2 つのブックを同時に開くことはできません。

于 2012-08-19T08:32:32.283 に答える
0

ActiveWorkbook と Thisworkbook はオブジェクトです。したがって、それらを比較するには、isの代わりに使用する必要があり=ます。 

If Thisworkbook is ActhiveWorkbook then Form1.Show
于 2012-08-20T08:55:21.720 に答える