Excel VBA質問箱 IV

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

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


46025 / 76735 ←次へ | 前へ→

【35691】Re:質問です。
お礼  ハオ  - 06/3/10(金) 14:05 -

引用なし
パスワード
   これは申し訳ありませんでした。
初歩的な質問で、しかもコードを期待して質問をしてしまいました。
皆様にご迷惑をおかけ致しまして申し訳ございません。

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アドレスをコピーする方法をもうちょっと工夫してみます。

最初から自分の力でやろうとせず、皆さんに甘えてしまった自分に深く反省しております。

ありがとうございました。
0 hits

【35655】質問です。 ハオ 06/3/9(木) 11:01 質問
【35683】Re:質問です。 ハオ 06/3/10(金) 9:25 発言
【35684】Re:質問です。 やっちん 06/3/10(金) 10:20 発言
【35687】Re:質問です。 小僧 06/3/10(金) 11:46 回答
【35689】Re:質問です。 やっちん 06/3/10(金) 13:09 発言
【35691】Re:質問です。 ハオ 06/3/10(金) 14:05 お礼
【35692】Re:質問です。 Kein 06/3/10(金) 14:12 回答
【35694】Re:質問です。 ハオ 06/3/10(金) 14:40 お礼

46025 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free