我尝试更改了别人的code
但每次执行到一半 都会出现错误1004
请问要如何更改?
Btw 我是要写一个看盘程式
当某一 column值=1 纪录那一整 Row
以下是code:
Public uMode&, StartTime, EndTime
Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&, xColumn&
...
Sub 自动记录
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then
Sht1.[J1] = "已过收盘时间"
uMode = 0
Exit Sub
End If
Sht10Range("K1") = Time
'这边都还没问题 以下是更改的地方
Dim c As Interger
For c =2 To 30
If Cells(c,10) = 1 Then
xRow = Sht2.Range("A66536").End(x1UP).Row + 1
'下面这行会出现错误1004
Sht2.Range("A" & xRow & ":K" & xRow).Value = Sht.Range(Cells(c,1), Cells(c,10)).Value
Sht2.Range("K" & xRow).Value = Time
ThisWorkbook.Save
Beep
End If
Next
Application.OnTime Now + TimeValue("00:00:05"), "自动记录"
End Sub
不吝赐教 感激不尽