[[20100225142911]]　『Commandbuttonでコードウィンドの表示』（みか）　ページの最後に飛ぶ

『Commandbuttonでコードウィンドの表示』（みか）

UserFormのCommandbuttonでコードウィンドを表示させたく

記録してみたのですが、記録されません。

シート右クリック等でなければ、表示できないのでしょうか？

Commandbuttonでコードウィンドの表示が可能なら、教えて下さい。

XP2003

 Application.SendKeys "%{f11}", True
こんなコードでVBEを起動することはできますが、不安定は覚悟してください。
下世話ながら、フォームのコード実行中にいったい何を目的としてコードウィンドウを開く
必要があるのか、興味が沸くところではあります。
(みやほりん)(-_∂)b

 これ？
 sub aaaa()
 Application.VBE.MainWindow.Visible = True
 ThisWorkbook.VBProject.VBComponents("Module1").Activate
 End sub
 BJ

みやほりんさん　BJさん　　有り難うございました。（みか）

 あ、・・・・・。
 本当にできたのかな？？？？
 シートモジュールだと、
 ThisWorkbook.VBProject.VBComponents("Sheet2").CodeModule.CodePane.Show
 こんな感じ。

 ひょっとすると、こう？
 shnm = ActiveSheet.Name
 ThisWorkbook.VBProject.VBComponents(shnm).CodeModule.CodePane.Show
 BJ

 たびたび。
 >UserFormのCommandbuttonでコードウィンドを表示
 って書いてありますね...。全く読んでなかった。

 ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule.CodePane.Show
 BJ

 でも、実行中にコードウィンドウ開いてどうするんですかね。
編集するわけじゃないと思うんですけれども。
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20100225142911]] 『Commandbuttonでコードウィンドの表示』（みか） ページの最後に飛ぶ

[[20100225142911]]　『Commandbuttonでコードウィンドの表示』（みか）　ページの最後に飛ぶ