人気マンガがだれでも無料♪電子コミック読み放題!!

FIND NEXT かなにかで検索した文字を全部選択
わかる方いますでしょうか。

A 回答 (1件)

こんばんは!



あまりに質問が抽象的なので、できます!としかお答えのしようがないのですが・・・

仮にシート全体を対象に「ああ」のセルを選択する場合のコードは

Sub Sample1()
Dim myRng As Range, FoundCell As Range, FirstCell As Range
With ActiveSheet
Set FoundCell = .Cells.Find(what:="ああ", LookIn:=xlValues, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
Set myRng = FoundCell
Set FirstCell = FoundCell
Do
Set FoundCell = .Cells.FindNext(after:=FoundCell)
If FoundCell.Address = FirstCell.Address Then Exit Do
Set myRng = Union(myRng, FoundCell)
Loop
myRng.Select
Else
MsgBox "該当データなし"
End If
End With
End Sub

※ 完全一致としています。
部分一致(「ああ」が含まれる)の場合は
>lookat:=xlWhole

>lookat:=xlPart

にします。m(_ _)m
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング