| |
▼catcom さん：
>オートフィルターでA列を ００００００を取り除いたものを表示した後、
>可視できる件数をメッセージボックスで表示させ、
>さらに、F列に残っている ０００の件数をカウントしたいのですが、
●参考1 (セルの値が「テキスト」のとき)
Sub try1()
With Range("A1").CurrentRegion
.Worksheet.AutoFilterMode = False
.AutoFilter Field:=1, Criteria1:="<>*000000*"
.AutoFilter Field:=6, Criteria1:="=*000*"
MsgBox .Columns(1).SpecialCells(xlVisible).Count - 1
.AutoFilter
End With
End Sub
●参考2 (セルの値が「数値」で表示形式が "000000"や "000"のとき)
Sub try2()
With Range("A1").CurrentRegion
.Worksheet.AutoFilterMode = False
.AutoFilter Field:=1, Criteria1:=">0"
.AutoFilter 6, ">=0", xlAnd, "<=0"
MsgBox .Columns(1).SpecialCells(xlVisible).Count - 1
.AutoFilter
End With
End Sub
|
|
kanabun
- 12/1/26(木) 15:16 -
