|
ichinoseさん こんにちは。ご教示有難う御座います。出張から帰り画面を見ました。ご指示の動作確認をしましたが、どうもうまくいきません。test1の文は下記です。test2の文も確認のボックスが表示されます。この表示消しがどうも分かりません。私はまだVBAの知識が薄いのでこれから少しずつ学びます。とりあえず「onTime」を使っていきます。
Sub test1()
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
MsgBox Now()
Sleep 15000
MsgBox Now()
Columns("G:G").Select
Selection.Copy
Columns("G:G").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G5").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
|
|