|
▼ichinose さん:
返事ありがとうございます。
コードに入れてみたのですがとどまるだけで次にE10へ行くはずですが
移動してくれません。わかりますか?よろしくお願いします。
>
>>みなさんよろしくお願いします。
>>題名の通りなのですが下記コードのなかにJ6に約5秒間程度とどまり
>>E10へセル移動するコードをプラスしたいのですがこんなの出来るでしょうか。
>>Sub 月曜日()
>> Dim 日付 As Date
>>
>> ActiveSheet.Unprotect
>> 日付 = Now()
>> Do Until Weekday(日付) = 2
>> 日付 = 日付 + 1
>> Loop
> With Range("J6")
> .Value = Format(日付, "yyyy/mm/dd")
> .Select
> Application.Wait Now() + TimeValue("00:00:05")
> End With
>> Dim II As Integer, RR As Long, CC As Long
>> For II = 1 To 14
>> Select Case II
>> Case 1 To 7: RR = 7 + II * 3: CC = 6
>> Case Else: RR = 24 + II: CC = 5
>> End Select
>> '
>> Worksheets("調書").Cells(RR, CC) _
>> .Value = "=Calendar!H" & (4 + II)
>> Next
>> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
>> ActiveSheet.EnableSelection = xlUnlockedCells
>> Application.Goto Reference:="R10C5"
>>End Sub
>というように
>Application.Wait を使ってみてください。
>
|
|