エクセル セル値 行 非表示

質問

過去の回答を参考にさせていただき，私なりに頑張ったのですが，どうしてもマクロ設定が上手くいきません。朝からかれこれ１２時間が経とうとしています。（涙）

Ｍ列が０～１５０行まであるのですが，そのＭ列の中にあるセルが「０」を示した行を非表示にするマクロを組みたいと思っています。どなたかお知恵を拝借できませんでしょうか。

ご教授，どうぞよろしくお願いいたします。

回答No.4

keithin · ベストアンサー

ん？ 削除なんてこと勿論やってませんよ。
マクロで何をやってるのか、まったく理解できてないのはよくわかりました。

非表示：（再掲）
sub hidezero()
range("M:M").autofilter field:=1, criteria1:="<>0"
end sub

再表示：
sub showalldata()
activesheet.autofiltermode = false
end sub

「あなたの非表示マクロ」に勝手にこれらを使っても、同じく全く効き目はないので間違えないようにしてください。

お礼

ありがとうございました。
おかげで仕事が進みました。
本をじっくり読んで，勉強します。
またなにかありましたらよろしくお願いします，

回答No.3

AkiraHari

マクロの自動記録で行の非表示を試してください。
それで、１行非表示にする方法が解ります。

次に１行目から１５０行目までループして、もし０だったら非表示にする、としてください。

"ループ"（繰り返し）や"もし"（分岐）ということをどのようにコーディングしたらいいかが分からないなら、まずはExcelVBAの本を１冊買って勉強してください。

補足

本を昨日買っていろいろ試していますが，なかなか的確にいかず，ネット＆このサイトに頼っています。仕事上，急ぎの用事で，今まで手にしたことがないＶＢＡにチャレンジしている次第です。本も読みながらネットも検索しながらやっているのですが…手際が悪くてすみません。

回答No.2

keithin

どういうアプローチをしているのか提示が無いのは、勝手にやってイイという事です。

sub macro1()
range("M:M").autofilter field:=1, criteria1:="<>0"
end sub
みたいな。

補足

ご回答ありがとうございます。
教えていただいたマクロで「０」を含んだ行は非表示になりました！！
が…再表示のマクロで再表示されません。
ということは…「削除」なのかな？と思い，補足しています。
あくまで「非表示」とかってできませんか？
的外れな意見・お願いでしたら，申し訳ございません。

回答No.1

OKWavex

うまくいかない例を示せば間違いの個所を指摘できるでしょう

補足

次のサンプル1が、「A列のセルの値が1の時、その行を非表示にします。」ということだったんで，他にも似たようなサンプルを集めていろいろ試してみたのですが，どうもマクロが初心者で…「１」の代わりに「０」を入れるとデバッグ表示が出てしまい，上手くいきません。やはり，マクロの組み方が根本的に違っているのでしょうか？

●サンプル1●
Sub Sample1()
Dim LastRow As Long
Dim i As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, 1) = 1 Then Rows(i).Hidden = True
Next i
End Sub