[[20180308163016]]　『オートフィルター抽出後のデーター』（すす）　ページの最後に飛ぶ

『オートフィルター抽出後のデーター』（すす）

お世話になります

ご教示頂けたら幸いです

Private Sub ComboBox7_Change()
With Sheets("記録")

    If Not .AutoFilterMode Then
        .Range("A1").AutoFilter
    Else
        If .FilterMode Then .ShowAllData
    End If
    .Range("A1").AutoFilter Field:=3, _
        Criteria1:=Me.ComboBox7.Text
End With

End Sub

ユーザーフォーム　にて上記のようにフィルターをかけた時
D列の2行目に表示される値を　ComboBox1に表示させたいです

どの様に書けばいいのでしょうか？

お手数お掛けしますが宜しくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

う～ん　わからない・・・

けど、D列の2行目に表示される値　ってことですから、フィルタしたら最初に出てくる行ってことですよね？
（１行目がタイトル行になるとおもうので）

発想を変えて、MATCH関数でC列を対象に「Me.ComboBox7.Text」を探して、行番号を取得して

ComboBox1.Text　= .cells(行番号,"D").value

なんてのはダメですか？

（もこな２） 2018/03/08(木) 16:54

もこな２様

そうですよね　わざわざフィルターかけなくても
MATCH　でも　FINDでも

検索したほうが良いですよね
PC負担を考えれば

有難う御座います
（すす） 2018/03/08(木) 17:20

コメント返信：

[ 一覧(最新更新順) ]

[[20180308163016]] 『オートフィルター抽出後のデーター』（すす） ページの最後に飛ぶ

[[20180308163016]]　『オートフィルター抽出後のデーター』（すす）　ページの最後に飛ぶ