Visual BasicのDialogSheets（）に関して

Question

Excel2007までは、例えば、以下のコマンド？を使用できたのですが、現在のExcelでは、実行エラーとなり使用できません。

解決策を教えてください。

DialogSheets("DIALOG1").EditBoxes("エディット 2").Text = Worksheets("sheet1").Cells(m + 5, 4).Value

s1 = DialogSheets("Dialog1").DropDowns("ドロップ 1").Value

Answer 1

ご回答ありがとうございます。

ご指摘の4項目は全てチェック済みになっていました。

他に関係しそうな項目をチェックしてみましたが、実行エラーは解決できませんでした。

 Excel 2010 で動くことが分かっただけでも助かります。

ご提示のサイトで情報を集めてみたいと思います。

FusaoSendaさん、こんにちは。

手元の Windows 10 + Excel 2010 で確認した所、問題無く動きました。

[ツール] > [参照設定]で「参照不可」になっているものはないでしょうか？

解決されない場合は、開発の方が多く利用されるVBAの専用のフォーラムのあるMsdnフォーラムの方が情報が集まり易いかもしれません。

よろしければそちらにも投稿して情報を集めてみてはいかがでしょうか。

■ Msdnフォーラム（VBA）

また、ダイアログシートの機能は、現在ではユーザーフォームに移行しておりますので、ユーザーフォームに作り直す事も検討された方が良いかもしれないですね。

[参考]

What exactly is a "dialog sheet" in Excel

＞Excel 5.0で導入され、(Macでは)現在は事実上廃止されており、WindowsフォームのExcel（Office 97以降）でUserFormsに置き換えられています。

Answer 2

FusaoSendaさん、こんにちは。

手元の Windows 10 + Excel 2010 で確認した所、問題無く動きました。

[ツール] > [参照設定]で「参照不可」になっているものはないでしょうか？

解決されない場合は、開発の方が多く利用されるVBAの専用のフォーラムのあるMsdnフォーラムの方が情報が集まり易いかもしれません。

よろしければそちらにも投稿して情報を集めてみてはいかがでしょうか。

■ Msdnフォーラム（VBA）

また、ダイアログシートの機能は、現在ではユーザーフォームに移行しておりますので、ユーザーフォームに作り直す事も検討された方が良いかもしれないですね。

[参考]

What exactly is a "dialog sheet" in Excel

＞Excel 5.0で導入され、(Macでは)現在は事実上廃止されており、WindowsフォームのExcel（Office 97以降）でUserFormsに置き換えられています。