Excel VBA質問箱 IV

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

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


75309 / 76733 ←次へ | 前へ→

【5864】Re:1番早く行を返す方法をどなたか知りませんか?
回答  クウガ E-MAILWEB  - 03/6/4(水) 15:41 -

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

Sub 条件検索()
  条件 = InputBox("条件を入力してください。")
  データ最終行 = Cells(Rows.Count, 1).End(xlUp).Row
  For 条件の最終行 = データ最終行 To 1 Step -1
    If Cells(条件の最終行, 1) = 条件 Then
      MsgBox (条件の最終行 & "行目です。")
      Exit Sub
    End If
  Next 条件の最終行
End Sub


こんな感じでしょうか?
2 hits

【5863】1番早く行を返す方法をどなたか知りませんか? まこさん 03/6/4(水) 15:04 質問
【5864】Re:1番早く行を返す方法をどなたか知りませ... クウガ 03/6/4(水) 15:41 回答
【5867】Re:1番早く行を返す方法をどなたか知りませ... Jaka 03/6/4(水) 17:15 回答
【5869】Re:1番早く行を返す方法をどなたか知りませ... ゆと 03/6/4(水) 18:33 回答
【5876】Re:1番早く行を返す方法をどなたか知りませ... まこさん 03/6/5(木) 10:28 お礼
【5875】Re:1番早く行を返す方法をどなたか知りませ... まこさん 03/6/5(木) 10:26 お礼
【5874】Re:1番早く行を返す方法をどなたか知りませ... まこさん 03/6/5(木) 10:23 お礼
【5868】Re:1番早く行を返す方法をどなたか知りませ... ichinose 03/6/4(水) 18:01 回答
【5877】Re:1番早く行を返す方法をどなたか知りませ... まこさん 03/6/5(木) 10:32 お礼

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