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

toromru

如題：

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

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

麻煩各位大大了

toromru

回復 10# 准提部林


     感謝大大的分享!!!

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

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

准提部林

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

不知取這位址目的為何？

ikboy

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

toromru

回復 6# ikboy


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

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

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

toromru

回復 6# ikboy


    你好 :

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

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

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

    想要的值為 D381:D806  !!!

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

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

ikboy

接入您的代碼試看, 但由於不知篩選的實際區域,下面代碼是以[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

toromru

回復 2# ikboy


   
   您好~  

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

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

toromru

回復 3# no3-taco


    他這篇我有看到@@

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

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

no3-taco

回復 1# toromru

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