篩選後第一個儲存格 (Emily 分享學習 VBA)

篩選後第一個儲存格

Emily | 30th Nov 2005, 13:58 PM | WB & WS | (1760 Reads)

平均分: 8.50 | 評分人數: 2

篩選後第一個儲存格

' 假設有標題行

'

Sub FindFirstCellofAutoFilter()

Dim Rng As Range

Dim Msg As String

Set Rng = Worksheets("Sheet1").Range("A1").CurrentRegion

Rng.AutoFilter Field:=3, Criteria1:="KSR1" ' Change your setting

Set Rng = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)

On Error Resume Next

Set Rng = Rng.Columns(1).SpecialCells(xlCellTypeVisible)

If Err = 0 Then

Msg = "總共有 " & Rng.Count & " 篩選行" & vbCrLf

Msg = Msg & "第一個儲存格是 " & Rng.Cells(1, 1).Address(0, 0)

Else

Err.Clear

Msg = "沒有篩選行 " & vbCrLf

End If

On Error GoTo 0

MsgBox Msg

End Sub

留言(7) | 引用(0)

[7] Re: 修月

修月 : 你好,我想請問您:我將您的程式改成下面的程式碼,我是要計算篩選後儲存格裡面的資料,但是如果目前篩選出了1,2,7,8這四個欄位,用我的方式計算出的資料會是1,2,3,4這四筆,請問要如何改正計算方式呢?謝謝1If Err = 0 Thenfor j = 1 to rng.countsum = sum + val(rng.cells(j,1).value) * val(rng.cells(j,2)....

請將問題發到

ExcelHelp
http://www.excelhelp.net/cgi-bin/forum/leoboard.cgi

[引用] | 作者 Emily | 28th Aug 2009 17:40 PM | [舉報垃圾留言]

[6]

你好,我想請問您:
我將您的程式改成下面的程式碼,我是要計算篩選後儲存格裡面的資料,但是如果目前篩選出了1,2,7,8這四個欄位,用我的方式計算出的資料會是1,2,3,4這四筆,請問要如何改正計算方式呢?謝謝1
If Err = 0 Then
for j = 1 to rng.count
sum = sum + val(rng.cells(j,1).value) * val(rng.cells(j,2).value)
next
Else
Err.Clear
End If

[引用] | 作者修月 | 24th Aug 2009 14:18 PM | [舉報垃圾留言]

[5] 問題

ph2112:

請將問題發到

ExcelHelp
http://www.excelhelp.net/cgi-bin/forum/leoboard.cgi

OfficeFans
http://www.officefans.net/cdb/forumdisplay.php?fid=1

[引用] | 作者 Emily | 26th Jul 2006 10:48 AM | [舉報垃圾留言]

[4] 統計篩選的數值

為了統計11欄及12欄的數值，用以下程序，有沒有直接的方法

ivalue(1) = 0
ivalue(2) = 0
For ij = 1 To myRng.Count
ivalue(1) = ivalue(1) + Val(myRng.Cells(ij, 11).Value)
ivalue(2) = ivalue(2) + Val(myRng.Cells(ij, 12).Value)
Next

[引用] | 作者 ph2112 | 25th Jul 2006 10:43 AM | [舉報垃圾留言]

[3]

請問如我要知道篩選後的第一列及最後一列的列號，要如何寫，因為要複製到另一表單

我用過妳遘私方法

[引用] | 作者 tom | 1st Jun 2006 12:04 PM | [舉報垃圾留言]

[2]

MsgBox "First Row is " & Rng.Cells(1, 1).Row
MsgBox "Last Row is " & Rng.Cells(Rng.Count, 1).Row

[引用] | 作者 Emily | 8th Jan 2006 20:23 PM | [舉報垃圾留言]

[1] 很值得參考

妳好：

請問如我要知道篩選後的第一列及最後一列的列號，要如何寫，因為要複製到另一表單

[引用] | 作者 ph2112 | 6th Jan 2006 11:15 AM | [舉報垃圾留言]