Excel VBA質問箱 IV

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

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


53239 / 76732 ←次へ | 前へ→

【28311】Re:match関数について
発言  ichinose  - 05/9/2(金) 13:21 -

引用なし
パスワード
   ▼KIKAKU さん:
こんにちは。
出かけてしまうので問題があっても投稿は夜になってしまいますが、

>ユーザーフォーム(Userform1)には

>  Textbox1----検索行の指定用--1と指定すると1行目を
>         検索対象とします

>  Textbox2----検索値指定用

>  Textbox3----検索結果表示用

  textbox4----検索の結果見つかったセルアドレス
  これを↑を追加して、
>とすると、

Userform1のモジュールの
以下のプロシジャーを差し替えて下さい。
(他は変更なしです)

'=============================================================
Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  Dim 検索値 As String
  Dim col As Long
  With ActiveSheet
    If Val(TextBox2.Value) > Application.Max(.Range(検索セル範囲)) Then
     MsgBox "検索値指定エラー"
     Cancel = True
    Else
     検索値 = TextBox2.Text
     col = .Evaluate("IF(ISERROR(MATCH(" & _
               検索値 & "," & 検索セル範囲 & ",1)),0," & _
              "IF(ISERROR(MATCH(" & 検索値 & "," & 検索セル範囲 & ",0))," & _
                "MATCH(" & 検索値 & "," & 検索セル範囲 & ",1)," & _
                "MATCH(" & 検索値 & "," & 検索セル範囲 & ",1)-1))")
               
     TextBox4.Text = .Evaluate("=OFFSET(" & 検索開始セル & ",0," & col & ",1,1)").Address
     TextBox3.Text = .Evaluate("=OFFSET(" & 検索開始セル & ",0," & col & ",1,1)")
     End If
    End With

End Sub

アドレス表示にしましたが、本当に列だけ(BとかCとかのみ)の結果がほしいなら
上記の結果をちょっと加工すれば得られます。
確認してみて下さい。
0 hits

【28222】match関数について KIKAKU 05/8/31(水) 15:44 質問
【28226】Re:match関数について ichinose 05/8/31(水) 16:42 発言
【28227】Re:match関数について KIKAKU 05/8/31(水) 17:33 お礼
【28233】Re:match関数について Hirofumi 05/8/31(水) 21:12 回答
【28238】Re:match関数について KIKAKU 05/9/1(木) 0:03 質問
【28242】Re:match関数について ichinose 05/9/1(木) 7:20 発言
【28273】Re:match関数について Hirofumi 05/9/1(木) 20:46 回答
【28275】Re:match関数について Hirofumi 05/9/1(木) 21:46 発言
【28305】Re:match関数について KIKAKU 05/9/2(金) 12:53 質問
【28311】Re:match関数について ichinose 05/9/2(金) 13:21 発言
【28340】Re:match関数について KIKAKU 05/9/2(金) 18:50 質問
【28354】Re:match関数について ichinose 05/9/3(土) 8:53 発言
【28365】Re:match関数について KIKAKU 05/9/3(土) 22:06 お礼
【28349】Re:match関数について Hirofumi 05/9/2(金) 22:21 回答

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