Excel VBA質問箱 IV

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

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


75306 / 76733 ←次へ | 前へ→

【5867】Re:1番早く行を返す方法をどなたか知りませんか?
回答  Jaka  - 03/6/4(水) 17:15 -

引用なし
パスワード
   クウガさん まこさん こんにちは。
別解です。
65536行目が最後だった場合の時の処理は、入れていませんが...。
(仕事が多くなっちゃって)

Sub ak()
  Dim 条件 As String, 先頭行 As Long, i As Long
  条件 = InputBox("条件を入力してください。")
  先頭行 = Application.Match(条件, Columns(1), 0)
  For i = 先頭行 To 65536
    If Cells(i, 1).Value <> 条件 Then
      MsgBox i - 1 & "行目"
      Exit For
    End If
  Next
End Sub
0 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 お礼

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