助けてください！ EXCELのセルが表示されなくなりました

質問

マクロを作成しようと、簡単な記述をテストしたところ、セルが全部表示されなくなりました。
行番号も見えません。列のアルファベットは表示されていますが、選択することもできません。
どうしたら元に戻るでしょうか？

テストしたマクロの記述は以下のとおりです。

If Range("P74").Value = 0 Then
Columns("P:P").Select
Selection.EntireRow.Hidden = True
End If
End Sub

非常に困っています。どうか助けてください。

回答No.1

TAK_999 · ベストアンサー

３行目のSelection.EntireRow.Hidden = True
のTrueをFalseにしてマクロを再実行すると元に戻りませんか？

EntireRowは指定されたセルを含む行を返します。２行目でP列全てが選択状態になっており、結果として全てのセルがHiddenの対象になっています。

お礼

戻りました！
ありがとうございます。
一度EXCELを終了させ、再度開き、ご指摘の事項を実施したところ、元に戻りました。
本当に助かりました。ありがとうございます。

ちなみにマクロのどこが悪かったか、おわかりになりますか？

補足

早速の回答ありがとうございます。
試しましたところ
「Columnsメソッドは失敗しました Globalオブジェクト」
とのエラーになりました。

回答No.4

Wendy02

コードからすると、すでに、P列 の 全体の Columns　を選択してしまっているので、以下のようになりませんか？
だから、EntireColumn が必要なさそうです。

Sub test()
If Range("P74").Value = 0 Then
　　Columns("P:P").Hidden = True
End If
End Sub

ちなみに、全もどしは
Sub test2()
　Cells.EntireColumn.Hidden = False
End Sub

そうすれば、Selection の範囲選択は必要ありませんね。

回答No.3

imogasi

>マクロのどこが悪かったか、おわかりになりますか
どこも悪くありません。書かれたとおりの効果が出ただけです。
どうしたかったのか質問に書いてないじゃないですか。
だから答えられません。
起こった現象は
（１）
セルＰ７４が０なら（ＩＦ文）
たまたまＰ７４に値が入っていなかったのでしょう。
Ｐ列を範囲指定する。（Ｓｅｌｅｃｔ）
したがって全行指定してしまってます。
Sub test01()
If Range("P74").Value = 0 Then
Columns("P:P").Select
' Selection.EntireRow.Hidden = True　コメント化した
End If
End Sub
を実行すれば、どんな状態になったかわかります。
（２）
そしてその指定した行（全行）を非表示にした。
Sub test01()
If Range("P74").Value = 0 Then
Columns("P:P").Select
Selection.EntireRow.Hidden = True
End If
End Sub
（３）
書式－行－再表示の操作で元に（（１）の後の状態に）戻ります。
（４）ＶＢＡでやるなら、（３）の操作のマクロの記録をとってみればよい。あえて書けば
Sub test01()
If Range("P74").Value = 0 Then
Columns("P:P").Select
Selection.EntireRow.Hidden = True
End If
Rows.EntireRow.Hidden = False

End Sub

回答No.2

TAK_999

Columns("P:P").Select
でP列全てが選択されます。
次の行のEntireRowは指定されたセルを含む行を返すので、
Selection.EntireRowは結果として全てのセルを返しています。
これに対してHiddenをTrueにするので、全てのセルが
見えなくなってしまいます。

なにをしたいのかが良くわかりませんが、P列を非表示にしたいのなら
EntireRowではなく、EntireColumnではありませんか？

お礼

再度のご回答ありがとうございます。

そうですね。EntireColumnですね。恥ずかしっ。

ホントに助かりました。どうもありがとうございました。