Excel VBA質問箱 IV

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

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


65373 / 76734 ←次へ | 前へ→

【15936】Re:意図したデータの先頭行番号の取得について
回答  ichinose  - 04/7/12(月) 20:11 -

引用なし
パスワード
   ▼おっちゃん さん:
こんばんは。

>先程質問させてもらったおっちゃんです。
>
>こんなデータがあると仮定します。
>
>     A列   B列
>行番号1 みかん   0
>行番号2 りんご   0
>行番号3 バナナ  10
>行番号4 ぶどう  13
>行番号5 なし   17
> ・    ・    ・
>
>のようにB列で並び変えてあります。
>ここでB列を検索して数値が1以上のもの、つまりバナナの行番号3
>を取得したいのです。
>
>よろしくご教授下さい。
数式で可能ですが、VBAで数式を組み立てました。
'=================================================
Sub test()
  Dim ans_row As Long
  Dim rng_A As String
  rng_A = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Address
  ans_row = Evaluate("min(if(" & rng_A & ">0,row(" & rng_A & ")))")
  MsgBox ans_row & "行目"
End Sub

例題のようなデータがあるシートをアクティブにしてマクロを実行してみて下さい。
0 hits

【15935】意図したデータの先頭行番号の取得について おっちゃん 04/7/12(月) 18:56 質問
【15936】Re:意図したデータの先頭行番号の取得につ... ichinose 04/7/12(月) 20:11 回答
【15937】Re:意図したデータの先頭行番号の取得に... IROC 04/7/12(月) 20:17 回答
【15953】Re:意図したデータの先頭行番号の取得につ... おっちゃん 04/7/13(火) 12:32 お礼
【15954】Re:意図したデータの先頭行番号の取得につ... IROC 04/7/13(火) 12:57 回答
【15957】Re:意図したデータの先頭行番号の取得につ... おっちゃん 04/7/13(火) 15:11 お礼

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