[發問] 如何用vba知道選取區域作用的儲存格&amp;欄&amp;列的首欄列及尾欄列位置

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-12 10:21 | 只看該作者

[發問] 如何用vba知道選取區域作用的儲存格&欄&列的首欄列及尾欄列位置

如題：

我想透過巨集的方式篩選欄位值後
得知一部份區域的篩選後的儲存格，
想知道首欄列及尾欄列的位置

如篩選出的值落在 A50:A90
就是想知道儲存格 A50:A90 不知道要如何寫

麻煩各位大大了

樓主熱帖

ikboy

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

2016猴年全勤獎章

2^#

發表於 2015-8-12 22:54 | 只看該作者

選取區域作用的儲存格&欄&列的首欄列及尾欄列位置
debug.print Selection.address
or
debug.print Selection.address(0,0)

no3-taco

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

3^#

發表於 2015-8-13 07:31 | 只看該作者

回復 1# toromru

這裡有類似的問題可以解答
http://forum.twbts.com/thread-10166-1-1.html

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

4^#

發表於 2015-8-14 13:11 | 只看該作者

回復 3# no3-taco

他這篇我有看到@@

但是他只有讀取到一儲存格的位址

我是想知道頭尾儲存格的位址!!! 謝

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

5^#

發表於 2015-8-14 13:19 | 只看該作者

回復 2# ikboy

您好~

想詢問有辦法自動抓取篩選出來的值的位址嗎?!

篩選後似乎不會自動選取....

ikboy

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

2016猴年全勤獎章

6^#

發表於 2015-8-14 21:56 | 只看該作者

接入您的代碼試看, 但由於不知篩選的實際區域,下面代碼是以[a1]為準
Sub zz()
If ActiveSheet.FilterMode = True Then
Set rng = [a1].CurrentRegion
zr = rng.Rows.Count
zc = rng.Columns.Count
For i = 2 To zr
If rng.Cells(i, 1).RowHeight > 0 Then Exit For
Next
MsgBox rng.Cells(i, 1).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

7^#

發表於 2015-8-19 16:52 | 只看該作者

回復 6# ikboy

你好 :

   很感謝您替我解答，我篩選的欄位為d1

目前使用你的程式碼不變 a1的話出來的訊息為 A381:D806

D的值是對的無誤，但A381能否偵測為D381呢?!

想要的值為 D381:D806  !!!

但把你程式碼內的a1改成我篩選的d1  出來的訊息則都是 A381:D381 反而是確誤的!!!

再麻煩您協助幫忙  謝謝 !!

帖子: 20
主題: 5
精華: 0
積分: 25
點名: 0
作業系統: W7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2015-7-24
最後登錄: 2015-11-20

8^#

發表於 2015-8-19 16:57 | 只看該作者

回復 6# ikboy

   你好:

            又或者能否只需要得到値呢?!

            比如上則引用的訊息有出現 A381:D806

            能否訊息只出 381:806 這樣!!

ikboy

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

2016猴年全勤獎章

9^#

發表於 2015-8-19 20:55 | 只看該作者

Sub zz()
If ActiveSheet.FilterMode = True Then
Set rng = [a1].CurrentRegion
zr = rng.Rows.Count
zc = rng.Columns.Count
For i = 2 To zr
If rng.Cells(i, 1).RowHeight > 0 Then Exit For
Next
MsgBox rng.Cells(i, zc).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

10^#

發表於 2015-8-22 18:01 | 只看該作者

Set fa = [d2:d65536].SpecialCells(xlCellTypeVisible)(1)
Set fb = [D65536].End(xlUp)
MsgBox fa.Address(0, 0) & ":" & fb.Address(0, 0)
MsgBox fa.Row & ":" & fb.Row

不知取這位址目的為何？