Excel VBA質問箱 IV

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

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


13101 / 76738 ←次へ | 前へ→

【69146】オートフィルタで抽出した値をテキストボックスに
質問  ダイジ  - 11/5/20(金) 17:03 -

引用なし
パスワード
   始めまして。
オートフィルタで抽出した状態で、一番右側にある「伝票番号」を取得し
ユーザーフォームのテキストボックスに表示するにはどのような記述がよろしいのでしょうか?よろしくお願い致します。
オートフィルタで見えなくなったセルの値を取得してしまいます。

イメージだと
  A    B     C  D
1伝票番号 商品名  数量 金額
2  1   パン
3  2   バナナ
4  3   ジュース
5  5   チョコ
6  7   ジュース
7  8   ジュース

でフィルタを掛けて
  A    B     C  D
1伝票番号 商品名  数量 金額
4  3   ジュース
6  7   ジュース
7  8   ジュース

値を取得しようとすると「1」が表示されます
ここで「3」を取得したいのです。

現在使っているコードは下記になります
Private Sub UserForm_Initialize()
Sheets("原簿").Select
TextBox1.Value = Range("A1").End(xlUp).Offset(1, 0).Value
Sheets("帳票").Select
End Sub

みなさまのお力を貸してください。よろしくお願い致します。

0 hits

【69146】オートフィルタで抽出した値をテキストボックスに ダイジ 11/5/20(金) 17:03 質問
【69153】Re:オートフィルタで抽出した値をテキスト... UO3 11/5/20(金) 20:44 発言
【69154】Re:オートフィルタで抽出した値をテキスト... kanabun 11/5/20(金) 20:49 発言
【69155】Re:オートフィルタで抽出した値をテキスト... 123 11/5/20(金) 21:10 回答
【69156】Re:オートフィルタで抽出した値をテキスト... kanabun 11/5/20(金) 23:24 発言
【69158】Re:オートフィルタで抽出した値をテキスト... 123 11/5/21(土) 4:48 発言
【69159】Re:オートフィルタで抽出した値をテキスト... kanabun 11/5/21(土) 9:46 発言

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