VBA

質問

シート２のどこかに、A株式会社と入力されていたら、
シート１が表示される。
そうでなかったら、シート２が印刷される。
という設定をしたいのです。
VBAを教えて下さい。
特定のセルならできるのですが、不特定のセルになると分かりません。
お願い致します。

回答No.2

imogasi · ベストアンサー

もう回答は出たが、
セルの値で、セルを見つけるのは
エクセルの編集ー検索の操作をして
マクロの記録をとって、コードを取ってみればどんなコードになるか判る。見つからない場合のコードは、ＷＥＢで「Ｆind　ＶＢＡ」で照会すれば沢山出てくる。
そこぐらいまではやった上で質問すべきだと思う。
ーー
ＶＢＡでは、
まずマクロの記録で判らないか（ヒントが無いか）
適当な検索語を見当つけて、ＷＥＢ照会（Ｇｏｏｇｌｅなどで）する。ヘルプの利用もある。
これらは基本だと思う。

お礼

調べ方を教えていただきありがとうございました。
いいものが調べられてやれました。
FIND　というものを使う事が分からなかったのです。
助かりました。

回答No.1

merlionXX

Sub TEST01()
With Sheets("Sheet2")
Set x = .Cells.Find(What:="A株式会社", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, MatchByte:=False)
If x Is Nothing Then
.PrintPreview
Else
Sheets("Sheet1").Select
End If
End With
End Sub

では？

お礼

ご丁寧にありがとうございました。
勉強になりました。