傳回工作表可見的第一個row ?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 傳回工作表可見的第一個row ??

返回列表下一主題上一主題發帖

[發問] 傳回工作表可見的第一個row ??

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2021-1-31 11:29 | 顯示全部帖子

Sub zz()
Debug.Print ActiveWindow.ActivePane.VisibleRange(1, 1).Row
End Sub

複製代碼

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

2^#

發表於 2021-2-1 11:53 | 顯示全部帖子

樓主當前有多個工作簿視窗? 所要獲得的Row號是否當前工作簿的當前工作表? 其實衹要是當前工作表, 這段代碼是可行的。

Sub zz()
Debug.Print ActiveWindow.ActivePane.VisibleRange.Rows(1).Row
End Sub

複製代碼

若其他作簿視窗的當前工作表,

Sub zz()
Debug.Print Windows(該視窗名或該視窗index).ActivePane.VisibleRange.Rows(1).Row
End Sub

複製代碼

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

3^#

發表於 2021-2-2 11:20 | 顯示全部帖子

我衹能用笨方法:

Sub zz()
Application.ScreenUpdating = 0
Dim ws As Worksheet
Set ws = ActiveSheet
With Workbooks("abc.xlsm")
.Sheets(1).Activate
Debug.Print ActiveWindow.ActivePane.VisibleRange.Rows(1).Row
End With
ws.Activate
Application.ScreenUpdating = 1
End Sub

複製代碼

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

返回列表下一主題上一主題