[[20210108151242]]　『実行時エラー2147417848(80010108)について』（ゆきだるま）　ページの最後に飛ぶ

『実行時エラー2147417848(80010108)について』（ゆきだるま）

お世話になっています。

下記のマクロにおいて、”Dia01.Show”の部分でエラーが表示されます。

Sub 年月入力()
'

    Windows("【経理計算書】.xlsm").Activate
'
    Set Dia01 = Sheets("D_年月入力")
'
    Dia01.EditBoxes("Bumon_Name").Text = Cmp_Name
    Dia01.EditBoxes("NENGO").Text = Nengo
    Dia01.EditBoxes("EDIT_YY").Text = ""
    Dia01.EditBoxes("EDIT_MM").Text = ""
'
    Ok_F01 = False
    Do While Ok_F01 = False
        Dia01.Show　　←　ここでエラー発生
        If Ok_F01 = False Then
            MB = MsgBox(MSG, 48, "ERR")
        End If
    Loop
'
End Sub

何が原因なんでしょうか。
PCの容量が足りないんでしょうか。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 Excel5.0 のダイアログシートをつかってるんですね

 その　D_年月入力　という名前のシートは、ホントにありますか？
（´・ω・`） 2021/01/08(金) 15:48

 あ、そうか、EditBoxesに値を設定できてるということは、シートはちゃんとあるんですね。
 全くお役に立たず済みません
（´・ω・`） 2021/01/08(金) 15:54

 １．そのDo Loopって、いつ抜け出せるんですか？

 ２．Nengo とか、MSG　とか何が入っているのか分からないですが、
 　　コードをテキトーに削ってないですか？

     形としては、こうなると思うんですが・・（まぁ、同じエラーにはなるんでしょうが）
　　　　　　　　　↓
     　　　Ok_F01 =　Dia01.Show　　’←　ここでエラー発生

（半平太） 2021/01/08(金) 17:00

Set Dia01 = Sheets("D_年月入力")
　↓
Set Dia01 = DialogSheets("D_年月入力")

？
（Why） 2021/01/08(金) 17:50

皆さん、ありがとうございます。

もちろん、　←　ここでエラー発生　は説明のために追加しただけです。

Whyさんの案を試してみたいと思います。
（ゆきだるま） 2021/01/08(金) 19:00

コメント返信：

[ 一覧(最新更新順) ]

[[20210108151242]] 『実行時エラー2147417848(80010108)について』（ゆきだるま） ページの最後に飛ぶ

[[20210108151242]]　『実行時エラー2147417848(80010108)について』（ゆきだるま）　ページの最後に飛ぶ