Excel VBA質問箱 IV

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

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


75253 / 76732 ←次へ | 前へ→

【5921】Re:3次元の検索を早く行う方法をどなたか知りませんか。
回答  ぴかる  - 03/6/9(月) 16:09 -

引用なし
パスワード
   まこさんさん、こんにちは。

こんなんでどでしょ?。こっちは、マクロ板です。
角田さん版も、今から確認させて頂きます。

Sub TEST()

Dim 数値A As Integer
Dim 数値B As Integer
Dim 数値C As Integer
Dim I As Long
  
  数値A = InputBox("数値Aを入力してちょうだい!", "検索値入力")
  数値B = InputBox("数値Bを入力してちょうだい!", "検索値入力")
  数値C = InputBox("数値Cを入力してちょうだい!", "検索値入力")

  For I = 1 To Range("A1").End(xlDown).Row
    If (数値A = Range("A" & I)) And (数値B = Range("B" & I)) And (数値C = Range("C" & I)) Then
      Range("A" & I & ":C" & I).Select
      MsgBox "一致行は、" & I & "です。"
      Exit Sub
    End If
  Next
  
  MsgBox "該当データは、無かったよ。"

End Sub

0 hits

【5919】3次元の検索を早く行う方法をどなたか知りませんか。 まこさん 03/6/9(月) 15:38 質問
【5920】Re:3次元の検索を早く行う方法をどなたか... 角田 03/6/9(月) 16:03 回答
【5921】Re:3次元の検索を早く行う方法をどなたか知... ぴかる 03/6/9(月) 16:09 回答
【5925】Re:3次元の検索を早く行う方法をどなたか知... Hirofumi 03/6/9(月) 20:31 回答
【5926】Re:3次元の検索を早く行う方法をどなたか知... Hirofumi 03/6/9(月) 21:10 発言
【5929】Re:3次元の検索を早く行う方法をどなたか知... ichinose 03/6/10(火) 1:11 回答
【5935】Re:3次元の・・・・<みんさんご回答ありが... まこさん 03/6/10(火) 13:40 お礼

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