Excel VBA質問箱 IV

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

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


75304 / 76733 ←次へ | 前へ→

【5869】Re:1番早く行を返す方法をどなたか知りませんか?
回答  ゆと E-MAIL  - 03/6/4(水) 18:33 -

引用なし
パスワード
   皆さんこんばんは。
すでに幾つも回答で出ているようですが、せっかく作ったので一例を。

Sub 検索()
条件 = InputBox("条件を入力してください。")
Set R = Columns("A").Find(What:=条件)
  If Not R Is Nothing Then
    i = Application.CountIf(Columns("A"), 条件) - 1
    MsgBox (R.Row + i & "行目です。")
  Else
    MsgBox ("入力された条件はありませんでした。")
  End If
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 お礼

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