エラー制御埋め込みまくりと、将来性考えるとゴテゴテのコードになって美しくないから嫌い。 セルA1から始まり、1行目がタイトル行になっている表があります。 マクロ「Sample」は、この表からオートフィルタで抽出したデータの数をカウントします。 Sub Sample() Range("A1").AutoFilter Field:=4, _ Criteria1:="マスター会員" '「マスター会員」を抽出 If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then MsgBox "0件 ...

エラー制御埋め込みまくりと、将来性考えるとゴテゴテのコードになって美しくないから嫌い。
=======================================

エラー制御埋め込みまくりと、将来性考えるとゴテゴテのコードになって美しくないから嫌い。

セルA1から始まり、1行目がタイトル行になっている表があります。 マクロ「Sample」は、この表からオートフィルタで抽出したデータの数をカウントします。 Sub Sample() Range("A1").AutoFilter Field:=4, _ Criteria1:="マスター会員" '「マスター会員」を抽出 If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then MsgBox "0件 ...

http://ift.tt/1abnmbU
March 14, 2017 at 04:25PM