[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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
TS.Cells(Col, Row).Activate で通りますが、TS.Cells(Col, Row).Value = "データ" とすればActivate自体不要なので、Activateを止めては?
(???) 2019/03/18(月) 16:33
もしかしてシートモジュールで実行していないか? 標準モジュールで実行するとエラーにならない。
(ねむねむ) 2019/03/18(月) 16:37
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.