|
これは申し訳ありませんでした。
初歩的な質問で、しかもコードを期待して質問をしてしまいました。
皆様にご迷惑をおかけ致しまして申し訳ございません。
VBAに関して勉強したばかりであり、苦戦している途中です。
ある日突然、上司から作れと言われ、焦って皆さんに聞いてしまいました。
他のサイトを探し、下記のコードが見つかりました。
http://park11.wakwak.com/~miko/Excel_Note/16-01_kensaku.htm#16-01-02
(2 入力された内容と一致するセルを選択する方法 )
Sub FindCells()
Dim startCell As Range
Dim aCell As Range
Dim tRange As Range
Set startCell = ActiveCell
Set tRange = startCell
Set aCell = Cells.Find(What:=startCell.Value, After:=startCell)
Do Until aCell.Address = startCell.Address
Set tRange = Union(tRange, aCell)
Set aCell = Cells.FindNext(After:=aCell)
Loop
tRange.Select
Set startCell = Nothing
Set tRange = Nothing
Set aCell = Nothing
End Sub
このコードで希望のIPアドレスが見つかるまではいいのだが、
問題は続けてこの見つかったIPアドレスをコピーする方法をもうちょっと工夫してみます。
最初から自分の力でやろうとせず、皆さんに甘えてしまった自分に深く反省しております。
ありがとうございました。
|
|