Sub RecordPrice()
Dim WR As Long
Dim I As Long
WR = Range("A1").End(xlDown).Row + 1
[A2] = TimeValue(Now)
For I = 1 To 42
Cells(WR, I) = Cells(2, I)
Next 'I
With ActiveWindow
If Intersect(Cells(WR, "B"), .VisibleRange) Is Nothing Then .SmallScroll 1
End With
End Sub
以上程式碼如果我要將A1粗體的數字往下寫，Cells(WR, I) = Cells(2, I)這個地方要怎麼改??
目前往下寫粗體就會消失了 |
發表於 2015-12-22 20:51
| 
