|
▼とし さん:
こんばんは、
こんなことでしょうか・・・
一度試してみてください。
J6に5秒の表示、そしてそれが消え、E10にJ6の内容が表示される
ようにしています。
>みなさんよろしくお願いします。
>題名の通りなのですが下記コードのなかにJ6に約5秒間程度とどまり
>E10へセル移動するコードをプラスしたいのですがこんなの出来るでしょうか。
>
>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
|
|