文書番号: 401692
最終更新日: 2003/03/25
《検索条件》 サンプル モジュールで指定している条件は次の通りです。
《リスト》 __|____A_____|____B_____| 1|食料品目 |販売員 | 2|肉類 |中村 | 3|乳製品 |中村 | 4|肉類 |高田 | 5|農産物 |高田 | 6|乳製品 |中村 | 7|乳製品 |小川 | 8|飲料 |中村 | 9|肉類 |小川 | 10|農産物 |中村 |
Sub ShowVisibleRows() Dim FilterRow As Range Worksheets("Sheet1").Range("A1").AutoFilter Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, _ Criteria1:="乳製品" For Each FilterRow In Worksheets("Sheet1").Range("A1"). _ CurrentRegion.Resize(, 1).SpecialCells(xlVisible) If FilterRow.Row <> 1 Then MsgBox FilterRow.Row End If Next FilterRow End Sub
Sub GetVisibleRowsCount() Dim FilterRow As Range Dim RowCount As Integer Worksheets("Sheet1").Range("A1").AutoFilter Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, _ Criteria1:="乳製品" RowCount = 0 For Each FilterRow In Worksheets("Sheet1").Range("A1"). _ CurrentRegion.Resize(, 1).SpecialCells(xlVisible) If FilterRow.Row <> 1 Then RowCount = RowCount + 1 End If Next FilterRow MsgBox RowCount End Sub
Sub AutoFilterAndCopy() Worksheets("Sheet1").Range("A1").AutoFilter Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, _ Criteria1:="乳製品" Worksheets("Sheet1").Activate Range("A1").CurrentRegion.SpecialCells(xlVisible).Select Selection.Copy Worksheets("Sheet2").Activate Range("A1").Select Worksheets("Sheet2").Paste End Sub
Keywords: KBHOWTO KB401692
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch