toromru

帖子: 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 不知道要如何寫

麻煩各位大大了

樓主熱帖

toromru

小學生 Rank: 1

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

11^#

發表於 2015-8-24 13:27 | 只看該作者

回復 10# 准提部林

   感謝大大的分享!!!

   我要利用篩選的方式針對儲存格內的資料做隨機產出資料

   因為對VBA不太熟但是又必須使用!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

不知取這位址目的為何？

TOP

ikboy

中學生 Rank: 2

帖子: 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

TOP

toromru

小學生 Rank: 1

帖子: 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 這樣!!

TOP

toromru

小學生 Rank: 1

帖子: 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 反而是確誤的!!!

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

TOP

ikboy

中學生 Rank: 2

帖子: 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

TOP

toromru