Excel VBA質問箱 IV

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

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


6653 / 13644 ツリー ←次へ | 前へ→

【43981】教えてください 無知 06/10/31(火) 18:06 質問[未読]
【43986】Re:教えてください Kein 06/10/31(火) 18:42 回答[未読]
【43987】Re:教えてください 無知 06/10/31(火) 19:08 質問[未読]
【43994】Re:教えてください 無知 06/10/31(火) 20:12 質問[未読]
【43995】Re:教えてください neptune 06/10/31(火) 20:22 回答[未読]
【43996】Re:教えてください 無知 06/10/31(火) 20:31 お礼[未読]
【43997】Re:教えてください 無知 06/10/31(火) 20:36 質問[未読]
【44002】Re:教えてください Kein 06/10/31(火) 22:25 回答[未読]
【44006】Re:教えてください 無知 06/11/1(水) 8:40 お礼[未読]
【44005】Re:教えてください 注意 06/11/1(水) 1:33 発言[未読]

【43981】教えてください
質問  無知  - 06/10/31(火) 18:06 -

引用なし
パスワード
   VBA初心者です。

あるセルと同じ内容のセルを選択し、そのセルをアクティブにするマクロを教えてください。
VLOOKUPを使用すればよいのでしょうか?

先にも記述しましたが、小生はVBA初心者であるため、質問内容も漠然とした内容となってしまいましたが、教示願います。

【43986】Re:教えてください
回答  Kein  - 06/10/31(火) 18:42 -

引用なし
パスワード
   マクロの自動記録をONにして、ワークシートメニューの「編集」「検索」を
やってみて下さい。

【43987】Re:教えてください
質問  無知  - 06/10/31(火) 19:08 -

引用なし
パスワード
   早速回答頂き、ありがとうございました。
ある1行からその行とは別の行にあるセルの内容と一致するセルを選択したいのですが、どのようにすればよいのでしょうか?

Sub Macro1()
  Cells.FindNext(After:=ActiveCell).Activate
End Sub

【43994】Re:教えてください
質問  無知  - 06/10/31(火) 20:12 -

引用なし
パスワード
   下記マクロの内の検索条件である"XX"をセル:A1の値と賭する場合、下記マクロをどのように変更すればよいのでしょうか?

Cells.Find(What:="XX", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
    .Activate

【43995】Re:教えてください
回答  neptune  - 06/10/31(火) 20:22 -

引用なし
パスワード
   ▼無知 さん:
>下記マクロの内の検索条件である"XX"をセル:A1の値と賭する場合、下記マクロをどのように変更すればよいのでしょうか?
>
>Cells.Find(What:="XX", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
>    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
>    .Activate
多分、"XX"を
range("A1").value
に変更

【43996】Re:教えてください
お礼  無知  - 06/10/31(火) 20:31 -

引用なし
パスワード
   できました。
ありがとうございました。

【43997】Re:教えてください
質問  無知  - 06/10/31(火) 20:36 -

引用なし
パスワード
   因みに7行目から検索する場合はどのように変更すればよいのでしょうか?

Cells.Find(What:=Range("G6").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
    .Activate

【44002】Re:教えてください
回答  Kein  - 06/10/31(火) 22:25 -

引用なし
パスワード
   Findメソッドの対象(検索る範囲)は「特定のセル範囲」にすることが出来ます。なので
>7行目から検索する場合

Rows("7:65536").Find(Range("G6").Value).Activate

ただし、検索値が見つからない場合はエラーになるので

On Error Resume Next
Rows("7:65536").Find(Range("G6").Value).Activate
If Err.Number <> 0 Then
  MsgBox "検索値が見つかりません", 48
  Err.Clear
End If
On Error GoTo 0

などとすれば良いでしょう。

【44005】Re:教えてください
発言  注意  - 06/11/1(水) 1:33 -

引用なし
パスワード
   >VBA質問箱基本ポリシー
http://www.vbalab.net/bbspolicy.html

>質問者の方へのお願い

>タイトルは内容を示すものに
>記事のタイトルは、その質問の内容が端的にわかるようなものにしてください。
>単に「教えてください」とか「困っています」などといったタイトルでは、回答
>者があなたの質問をクリックしない可能性が非常に高くなります。すなわち、回
>答がつかない可能性が高くなる、ということです

【44006】Re:教えてください
お礼  無知  - 06/11/1(水) 8:40 -

引用なし
パスワード
   おはようございます。
回答ありがとうございました。
マクロがすっきりしていて、こちらのほうが気に入りました。

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