|
▼Hiroko さん:
返事ありがとうございます。
内容が伝わっていない様なのでもう一度書きます。
J6で5秒程度とどまり5秒後E10へ移動だけでいいのですが
いかがでしょ。
あくまでJ6に日付は表示したままでOkです。
>こんなことでしょうか・・・
>一度試してみてください。
>J6に5秒の表示、そしてそれが消え、E10にJ6の内容が表示される
>ようにしています。
>
>>Sub 月曜日()
>> Dim 日付 As Date
>>
>> ActiveSheet.Unprotect
>> 日付 = Now()
>> Do Until Weekday(日付) = 2
>> 日付 = 日付 + 1
>> Loop
>> Range("J6").Value = Format(日付, "yyyy/mm/dd")
> Application.Wait Now + TimeValue("00:00:05")
> Range("J6").Value = ""
> Range("E10").Value = Format(日付, "yyyy/mm/dd")
>> 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
|
|