|
みなさんよろしくお願いします。
題名の通りなのですが下記コードのなかにJ6に約5秒間程度とどまり
E10へセル移動するコードをプラスしたいのですがこんなの出来るでしょうか。
Sub 月曜日()
Dim 日付 As Date
ActiveSheet.Unprotect
日付 = Now()
Do Until Weekday(日付) = 2
日付 = 日付 + 1
Loop
Range("J6").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
|
|