• ベストアンサー

フィルター後の表示セルの値をテキストボックスへ

おせわになります。 エクセルのVBAで、 フィルターを掛けて表示されている行のセルの値を、 ユーザーフォーム・テキストボックスへ表示させたいと思っています。 ユーザーフォームの「進む」「戻る」ボタンを使って、 表示行の値を1行づつ取得したいのですが、 ・表示されているセルの値取得 ・ボタンを押すごとに表示行のみ一行づつ移動 がわからずにつまづいています。 よろしくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.1

Private Sub 進む_Click() Do ActiveCell.Offset(1, 0).Activate Loop Until Rows(ActiveCell.Row).Hidden = False TextBox1 = ActiveCell.Value End Sub Private Sub 戻る_Click() Do ActiveCell.Offset(-1, 0).Activate Loop Until Rows(ActiveCell.Row).Hidden = False TextBox1 = ActiveCell.Value End Sub でいかがでしょう

Turkey-R
質問者

お礼

kmetuさま ご回答ありがとうございます!!! すばらしいです!! 文章が悪く伝わらないだろうとおもっていて、 長いこと悩んでいたものを、こんなにあっさりと一発で! 正直、鳥肌がたちました! ありがとうございました!!

すると、全ての回答が全文表示されます。

関連するQ&A