Excel VBA質問箱 IV

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

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


53439 / 76736 ←次へ | 前へ→

【28111】Re:値の検索と表示
回答  小僧  - 05/8/29(月) 11:08 -

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

ユーザフォームに
検索用のテキストボックス

txt検索_列
txt検索_値

結果表示用のテキストボックス
txt結果_行
txt結果_値

コマンドボタン:実行

を配置して、


Private Sub 実行_Click()
Dim SName As String
Dim MyRange As Range
Dim R As Range
Dim LngAtai As Long
Dim LngGyo As Long

  SName = "Sheet1"
  With Sheets(SName)
  Set MyRange = .Range(.Range(Me.txt検索_列 & "1"), _
             .Range(Me.txt検索_列 & "65535").End(xlUp))

  LngAtai = 0
    For Each R In MyRange
      If R.Value <= CLng(Me.txt検索_値) And _
        CLng(R.Value) >= LngAtai Then
        LngAtai = R.Value
        LngGyo = R.Row
      End If
    Next
  End With
  
  Me.txt結果_行 = LngGyo
  Me.txt結果_値 = LngAtai
End Sub

A、B、Cの各列がソートされているという条件があるのであれば
B列を最後まで見なくて良くなるので違う方法があると思います。

0 hits

【28107】値の検索と表示 sama 05/8/29(月) 10:11 質問
【28111】Re:値の検索と表示 小僧 05/8/29(月) 11:08 回答
【28113】Re:値の検索と表示 Jaka 05/8/29(月) 12:03 回答
【28114】Re:値の検索と表示 sama 05/8/29(月) 14:11 質問
【28116】Re:値の検索と表示 小僧 05/8/29(月) 15:26 発言
【28161】Re:値の検索と表示 sama 05/8/29(月) 23:01 質問
【28170】Re:値の検索と表示 小僧 05/8/30(火) 9:50 発言
【28174】Re:値の検索と表示 sama 05/8/30(火) 12:40 回答
【28175】Re:値の検索と表示 小僧 05/8/30(火) 13:53 回答
【28184】Re:値の検索と表示 sama 05/8/30(火) 15:56 お礼

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