Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59888 / 76738

←次へ　｜　前へ→


	【21514】Re:条件を満たすセルの検索

かみちゃん - 05/1/22(土) 10:46 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>範囲指定でここからここまでを検索してマッチするものがあるかどうか検索して
>セルに区分を表示するなどと言った都合の良い記述法などはありますでしょうか？

まず一般操作の「編集」－「検索」を「マクロの記録」で記録すると、おおまかな
ことはわかります。
Findメソッドを使います。ヘルプにも使用例が載っています。
今回のり場合、例えば、以下のような感じでできると思います。
Sub Macro1()
　strName = "名無し"
　With Worksheets(1).Range("B1:B500")
　　Set c = .Find(strName, LookIn:=xlValues)
　　If Not c Is Nothing Then
　　　c.Select
　　　MsgBox c.Value & "　さんの区分は　" & _
　　　　c.Offset(0, -1).Value & "　です。"
　　Else
　　　MsgBox "リストにありません"
　　End If
　End With
End Sub

0 hits

▼

【21490】条件を満たすセルの検索 みゆき 05/1/21(金) 22:09