セルに特定の値を入れる 指定の行を表示・非表示

Question

前提・実現したいこと

E8のセルに「500」もしくは「1000」が入力（プルダウンで選択）されたとき、
55行目（通常は非表示）と71行目（通常は非表示）を表示する。
ボタンやチェックボックスではなく、値が入力されると動作するようにしたいです。

発生している問題・エラーメッセージ

セルにマクロを登録する（？）ことができることは調べてわかっていますが、そのコードがわかりません。

Comments

[torisan]

http://bit.ly/2Vp0WPU
これだけ置いておきます。

Answer 1

やりたいことは、

もし(If)、E8セルの値(Range("E8").Value)が500のとき、
または(Or)、E8セルの値が1000のとき、
その時は(Then)、
55行目と71行目を表示(Range("55:55,71:71").hiden = false)。
そうでなければ(Else)、
55行目と71行目を非表示

と書きたいのではないですか？

Excel(エクセル) VBA入門：条件分岐処理(If～Then,Select Case)

VBAで複数行を選択する

Or　についても検索してみてください。

サンプル書いてもらって、それを見て、
傾向と対策で応用しようとしても、
なかなか上手く行きません。
基礎を身に付けていきましょう。

上で紹介した、
よねさん、
インストラクターさんのほかに、
田中さん
井上さん
アタリのサイトを一通り見られると、
基礎的なことから応用の辺りまでかなりの量網羅されていると思います。
他にもWebで検索すると大抵のことが見つかります。
それらを参考にコードを書いてみて、躓いたら掲示板で質問するようにしてみては
いかがでしょうか？

Answer 2

「値が入力されると動作する」ようにするには、Worksheet_Changeイベントを利用します。

下記が参考になるでしょう。

特定のセル範囲が変更されたときに処理を実行する：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

行の表示/非表示の切り替えは下記を参考に。

Excel VBAで行や列の表示・非表示を切り替える：Hidden | UX MILK

ちなみに、適切なキーワードで検索すれば上記のリンクはすぐに見つかります。
その方が、ここで回答を待つより早くて効率的なので、こちらのスキルも習得しましょう。

Comments

[donguri7488]

検索したものからコードを作成しましたが、上手くいきません。
どこを修正すれば良いのでしょうか。

Private Sub worksheet_change(ByVal target As Range)

if instr(target.Address,"b8")
and strconv(lcase(target.Value),vbNarrow)=500

Rows(55).Hidden = False

if instr(target.Address,"b8")
and strconv(lcase(target.Value),vbNarrow)=1000

Rows(55).Hidden = False

Else
Rows(55).Hidden = True

End If

End Sub

[hatena19]

質問は編集できますので、質問のほうにこのコードを追加してください。コードはマークダウンのコードタグで囲んでください。選択してツールバーの <code> をクリックしてもOKです。

[hatena19]

mattuwanさんの回答でも言われますが、まずは基本から学習したほうがいいでしょう。mattuwanさんの回答のリンク先から始めるといいと思います。

[donguri7488]

皆様から教えていただきましたとおり、基礎から勉強しました。
本（Excel VBA 本格入門～日常業務の自動化からアプリケーション開発まで～/大村あつし　著）を購入して基本編を読んだらすっきりと解決しました。
私がやろうとしていたことがどれだけ基本的なことだったのか、恥ずかしいばかりです。
ありがとうございました。