- ベストアンサー
フィルター後の表示セルの値をテキストボックスへ
おせわになります。 エクセルのVBAで、 フィルターを掛けて表示されている行のセルの値を、 ユーザーフォーム・テキストボックスへ表示させたいと思っています。 ユーザーフォームの「進む」「戻る」ボタンを使って、 表示行の値を1行づつ取得したいのですが、 ・表示されているセルの値取得 ・ボタンを押すごとに表示行のみ一行づつ移動 がわからずにつまづいています。 よろしくお願い致します。
- Turkey-R
- お礼率31% (5/16)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （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 でいかがでしょう
関連するQ&A
- セルの値をテキストボックスに表示したい
excelマクロ初心者です。教えてください。 ＜やりたいこと＞ 選択したセルと同じ行のうち特定の列のセルの値をフォームの テキストボックスに表示し、そのフォーム上で表示したテキスト ボックスの値をコマンドボタンでコピーしたい。 また、もうひとうつのコマンドボタンをおすと選択したセルと 同じ行の別のセルに"完了"と入力できるようにしたい。
- 締切済み
- Visual Basic
- セルの値をテキストボックスに表示したい
excel-vba初心者です。教えてください。 選択したセルと同じ行の別の列のセルの値をフォームの テキストボックスに表示する方法を教えてください。
- 締切済み
- オフィス系ソフト
- テキストボックスの値をセルに反映させたい。
はじめまして、いつもお世話になっております。 EXCEL VBAの質問です。 下記(1)(2)の質問にお答えいただきたく、お願いいたします。 (1)ユーザーフォームのテキストボックスの値をEXCELのデータが入力されている 最終行の下の空白にユーザーフォームのボタンをクリックして反映。 (2)(1)の逆で特定のセルの値をユーザーフォームのテキストボックスに反映。 色々なサイトのプロシージャをコピペしましたが、うまくいきません。 見づらいかもしれませんが、ユーザーフォームの画像を添付します。 皆様、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- セルの値をユーザーフォームのテキストボックスに
エクセルの質問です。 シート１にボタンを設置してユーザーフォームを呼び出すようにしています。 ユーザーフォームにテキストボックスを用意してて、シート１のセル（A1）に記入された数字を、ボタンを押した時に立ち上がったユーザーフォームのテキストボックスに表示されるようにしたいのですが、どうしたらいいのでしょうか？
- ベストアンサー
- Visual Basic
- セルの値を1桁ずつ、テキストボックスへ
幾つかの値が入力されたセルから1桁ずつ取り出して、テキストボックスへバラバラに表示させたいのですが・・・よろしくお願いします。 例えば1234567等の7桁の値が入力されたセルがあって、それを指定したテキストボックスへ１、２、３、４、５、６、７と7つのテキストボックスへ表示させたいのです。 セルからセルだったらＭＩＤ（Ａ1，１，１）で“１”を取得できますが、これをテキストボックスで取得したいのです。 事前にセルで取得してテキストボックスとリンクさせていたのですが、元のデータが変わるたびにやり直さないといけないので、テキストボックスから直接取得させたいのですが、何か良い方法がありましたら宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- テキストボックスのセルへの入力について
初めて利用します。どうしても分からず利用します。 よろしくお願いいたします。 A2セルにMATCH関数にて取得したセル番地が表示されています。 ユーザーフォームのテキストボックスの値をA2セルに表示されたセル番地へ 入力するにはどうしたら良いでしょうか。 ご回答よろしくお願いいたします。
- ベストアンサー
- 財務・会計・経理
- テキストボックスに改行を含む値を表示する場合
テキストファイルより1行ずつ値を改行「chr(13)」でつなげて取得し、それを テキストボックスに表示させたいのですが、そのまま値をテキストボックスの textプロパティに設定すると、改行が「・」で表示され改行されていません。 テキストボックスのプロパティでMultiLineもTrueにしてあるのですが、これは 無理なことなのでしょうか？ 一行ずつ取得してテキストボックスに表示する際に改行を設定していくしかない のでしょうか？ 詳しい方いらっしゃいましたらご教示ください。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- [エクセルVBA]セルの値をテキストボックスに表示
よろしくお願いします。 ユーザーフォームを使って作業しています。 その中で、コンボボックス１で指定した名前を検索値として、VLOOKUPを使ってあるシート（例：シート名「時間検索」）からセルの値をテキストボックスに表示させるようにしたいのです。 コードを作成し表示させることはできたのですが、セルに入っている値の書式が「[h]:mm」の時間形式（例：19:00）のためか、セルの値を引っ張ると小数点（例：0.79166....)で表示されます。 色々と調べてみた中で、format関数を使ったりしてみたんですが不首尾に終わっています。 なんとかテキストボックスに、セルと同じ形式で表示したいのですが、どのように考えればよろしいでしょうか？ ご教示お願いいたします。 質問の仕方が悪かった場合は補足・訂正させていただきますので、どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォームのテキストボックスの値をコピーしたい
excel-vba初心者です。教えてください。 フォームのテキストボックスで表示した値を コマンドボタンでコピーするにはどうすればいいですか？
- 締切済み
- オフィス系ソフト
- ユーザーフォームのテキストボックスの内の値を検索する方法
エクセルVBAのユーザフォームでテキストボックス内の値を検索したいのですが、どのように書いたら検索できるかわかりません。 検索をできるかもわかりません。 ※ユーザフォームの値はセルにセットしない形でお願いします。 直接テキストボックスの値を検索したいです。 検索の結果として返ってくる値は特になんでもいいです。 ご存知でしたらよろしくおねがいいたします。
- 締切済み
- Visual Basic
お礼
kmetuさま ご回答ありがとうございます！！！ すばらしいです！！ 文章が悪く伝わらないだろうとおもっていて、 長いこと悩んでいたものを、こんなにあっさりと一発で！ 正直、鳥肌がたちました！ ありがとうございました！！