- 帖子
- 48
- 主題
- 8
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2013-4-9
- 最後登錄
- 2019-12-17
|
想請問說 因為我的儲存的列數會很多，每一次都要自己拉到最下方。
找到一個程式碼是讓最新資料顯示在可見視窗中。
在附加檔案裡的CC工作表，VBA module3裡。
Function mainFunc3(sSheetName As String) As Long 'CC工作表記錄
Dim i As Long
With Sheets(sSheetName)
i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'...記錄log
.Cells(i, "A") = Format(Time, "Hh:Mm:Ss") 'ROW A，記錄時間
.Cells(i, "E").Resize(, 3).Value = .Cells(3, "B").Resize(, 3).Value 'B3-D3複製到E4-G4
End With
mainFunc3 = i '回傳當前列數
If ActiveSheet.Name = sSheetName And iRow > 25 Then
ActiveWindow.ScrollRow = iRow - 15 '讓最新資料保持在可見視窗中
End If
End Function
請問我是哪裡寫錯了，沒有辦法讓列數保持在可見視窗中。
可以麻煩給我一點指教嗎？非常謝謝。 |
|
發表於 2013-11-11 14:20
| 
