t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-1-30 09:48 | 只看該作者

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

本帖最後由 t8899 於 2021-1-30 10:06 編輯

傳回工作表可見的第一個row ??
是工作表不是作用視窗
如圖 row=28

樓主熱帖

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

2^#

發表於 2021-1-31 11:29 | 只看該作者

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

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

3^#

發表於 2021-1-31 12:00 | 只看該作者

回復 2# ikboy

工作表不是"當前視窗" ???

activewindow 用不上

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

4^#

發表於 2021-1-31 21:30 | 只看該作者

回復 ikboy

工作表不是"當前視窗" ???

activewindow 用不上
准提部林發表於 2021-1-31 12:00

是工作表
工作表不等於activewindow

TOP

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

5^#

發表於 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

複製代碼

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

6^#

發表於 2021-2-2 07:37 | 只看該作者

回復 5# ikboy

Windows(該視窗名或該視窗index).ActivePane.VisibleRange.Rows(1).Row
如果檔名是abc.xlsm (窗名為abc) 工作表為sheet1 （僅適用sheet1)
則語法是？？

TOP

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

7^#

發表於 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

複製代碼

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-24

8^#

發表於 2021-2-3 07:14 | 只看該作者

回復 7# ikboy

我主要目的是不知下面這句放在Worksheet_Calculate有時會出現錯誤？？才會想用別的方法替代
Private Sub Worksheet_Calculate()
IF ActiveSheet.Name = "good" Then

TOP