[[20180302115407]] 『逆にしたいのですが』(まつ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『逆にしたいのですが』(まつ)

過去ログで見つけて使えそうなので教えてください

このコードはHがあると実行しないですが
Hが有る時のみ実行するにはどうに書き換えたらよろしいのでしょうか?
コピーして貼り付けただけなのでわかりにくいですがよろしくお願いいたします

 Dim MyRNG As Range
'(1)
   Set MyRNG = Worksheets("A").Range("C21:AG22").Find _
      (What:="H", LookIn:=xlValues, LookAt:=xlPart)
'(2) 
   If MyRNG Is Nothing Then
      MsgBox ("見つからなかった")
   Else
      MsgBox ("最初に見つかったセルは" & MyRNG.Address)
   End If
End Sub

< 使用 Excel:Excel2010、使用 OS:Windows10 >


Hがあっても無くてもそれぞれの処理を実行するようになっていて、問題なさそうですが、以下のように書きたいと言うことですかね?
   If Not MyRNG Is Nothing Then
      MsgBox ("最初に見つかったセルは" & MyRNG.Address)
   End If
(???) 2018/03/02(金) 12:51

ありがとうございました
そのまま行けました。

(まつ) 2018/03/02(金) 20:15


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.