|
▼かつし さん:
こんにちは。
>ichinoseさん こんにちは。ご教示有難う御座います。出張から帰り画面を見ました。ご指示の動作確認をしましたが、どうもうまくいきません。test1の文は下記です。test2の文も確認のボックスが表示されます。この表示消しがどうも分かりません。私はまだVBAの知識が薄いのでこれから少しずつ学びます。
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'↑これは、プロシジャー名の定義の外で宣言します
>Sub test1()
Sleep 15000 'この関数が15秒間待機する関数です
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
何をしたいのか(どこで15秒間待機したいのか)わかりませんが、
上記のコードをよく調べてみてください。
>とりあえず「onTime」を使っていきます。
Ontimeで希望の動作が適っているのなら、そうしてください。
もう少し、VBAのことがわかってきたとき、
再度のこの一連コードを見直してください。
その時に今回のコードを理解していただければ、
よいです。
|
|