2005年1月27日木曜日

全てのコードウィンドウがオープン

'大勝利ですぞ!これで全てのコードウィンドウがオープンできます
Function testopen()
Dim c As Object
For Each c In VBE.VBProjects(1).VBComponents
c.CodeModule.CodePane.Show
Next
End Function

やったー!!!勝利の秘訣はVBEだったよー、CurrentProjectとかAllFormsとか役にたたなかったよー(泣

0 件のコメント:

コメントを投稿