[[20190318160656]] 『VBA 1004エラー』(dskc) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBA 1004エラー』(dskc)

Sub statusdispmsg()

    Dim Defsb As Boolean
    Dim TS As Worksheet
    Dim Col As Integer
    Dim Row As Integer

    Set TS = Worksheets.Add
    TS.Activate
    Defsb = Application.DisplayStatusBar
    Application.DisplayStatusBar = True

    For Col = 1 To 3
        For Row = 1 To 3
            Cells(Col, Row).Activate
            ActiveCell.Value = "データ"
            Application.StatusBar = "(" & Col & ":" & Row & ")に書き込み中"
            Application.Wait (Now() + TimeValue("00:00:02"))
        Next Row
    Next Col

    Application.StatusBar = False
    Application.DisplayStatusBar = Defsb

End Sub

エラー理由がわかりません、どなたか教えていただけると助かります。

< 使用 Excel:Excel2010、使用 OS:Windows10 >


 エラーはどこで発生しているのか、またエラーダイアログのメッセージは何か?
 (私のところ(Windows10+Excel2010)ではエラーにはならなかった)
(ねむねむ) 2019/03/18(月) 16:17

私の環境も同じですが、発生しましたね。(WIN10は64bit、Excel2010は32bit) エラーになるのは、「Cells(Col, Row).Activate」の行です。

TS.Cells(Col, Row).Activate で通りますが、TS.Cells(Col, Row).Value = "データ" とすればActivate自体不要なので、Activateを止めては?
(???) 2019/03/18(月) 16:33


 もしかしてシートモジュールで実行していないか?
 標準モジュールで実行するとエラーにならない。

(ねむねむ) 2019/03/18(月) 16:37


原因は多分それですね。 シートモジュールで動かしました。
(???) 2019/03/18(月) 16:54

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.