- 締切済み
ご指導お願い致します。
データ整理で悩んでるんですが、どなたかご提案願います。 ＶＢＡは初心者なのでご指導も願います。 テキストボックスで記入する欄が８個ほどあります。 記録用シートにコマンドボタンで転送させます。その記録用シートには Ａ Ｂ Ｃ Ｄ Ｆ １ テキスト1 テキスト2 テキスト3 テキスト4 テキスト8 ２ テキスト5 ３ テキスト6 ３ テキスト7 となっています。 その後登録ごとに同じような内容が転送されるようます。 転送・記録の手順は整いましたが、記録用シートで管理・検索もしようと思ったらどうしたらいいのかわからなくなってきました。 検索するときはオートフィルタなどでも良いと思いましたが、テキスト1でフィルタしてもＤ列にあるテキスト５～７は検索にひっかからないな・・・と思いまして。 本当は最初の転送させる前のテキストボックスにクリックなどしたら表示されたらいいんですが。説明不足だと思いますが、なにとぞご教授願います。 尚最初の転送前のシートには下記のようなフォームであります。 オプションボタン１（転送先シートを決定するため） オプションボタン２ ・ ・ ・ オプションボタン６ テキストボックス１（先ほどの転送前のテキストボックス） テキストボックス２ テキストボックス３ テキストボックス４ テキストボックス５ テキストボックス６ テキストボックス７ テキストボックス８ コマンドボタン１（クリックしたらオプションボタン別にシートを分別しているので、選択シートにテキストボックスが転送されるマクロを登録）
- aikagi
- お礼率0% (0/7)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- Craford
- ベストアンサー率50% (1/2)
うーん、これだとかなり情報が足りないのでアドバイスが難しいです。 (1) オプションボタンで転送先シートを決める (2) テキストボックス１～８に転送したいテキストを入れる (3) コマンドボタンで(1)で指定したシートに(2)のデータを転送 ここまではわかりました。 転送先の配置方法は、ご質問にかかれた形なんでしょうか。 それとも転送先シートにより違いますか？ 転送については上記のとおり推測がつくのですが、管理のためにどのように検索をかけたいかがはっきりしないです。 >本当は最初の転送させる前のテキストボックスにクリックなどしたら表示されたらいいんですが。 このあたりもなにをしたいか不明なのでご説明いただけると助かります。
関連するQ&A
- ご指導願います。
エクセルのVBAを勉強中の初心者です。業務上VBAを使用することになりまして、試行錯誤を繰り返していますが、どうも思ったようにいきません。どなたかご指導願います。 現在フォームを使って外観はできています。 ○オプションボタン１ ○オプションボタン２ ○オプションボタン３ ○オプションボタン４ [テキストボックス１] [テキストボックス２] [テキストボックス３] [テキストボックス４] [テキストボックス５] （次へ）←コマンドボタンでクリック作業が終わるようにしたい このようになっています。尚、オプションボタンの名前別に記録用のシートが用意してあります。 オプションボタンを選択し、テキストボックスを入力して[次へ]を押すと、選択したオプションボタンの名前のシート先に記入したテキストボックスの内容を転送させたいのです。 色々サイトなども調べ、マクロの記録から修正を加えても中々思うようなことができなかったり、エラーがでます。 どなたかご教授願います。よろしくお願い致します。
- 締切済み
- Visual Basic
- エクセルで検索窓のようなものを作る
エクセルのシートにテキストボックスとコマンドボタンを配置してシート上のデータを検索することは可能でしょうか？今現在はB列に、複数の文字データが入力してあるので、オートフィルタのオプションから「を含む」で検索してます。 イメージとしては、オートフィルタのオプションから「を含む」を選んでから検索しなくても予めシートに用意してあるテキストボックスに検索したい文字を入れてボタンを押すと、オートフィルタで検索したときと同じような結果が得られるようにしたいと思ってます。 例） A B C －－－－－－－－－－－－－－ 1 血液型 2 A 3 B 4 O 5 AB 上のような表があったとして、テキストボックスにAと入力してボタンを押すとB2とB5が表示されるようにしたと思ってます。いい方法があればご教示願います。
- ベストアンサー
- オフィス系ソフト
- ご教授願います。
エクセルのVBAを多少勉強致しましたが、行き詰っていますのでどなたかご教授願います。 エクセルにコマンドボタンを二つ作成 最初のコマンドボタンをクリックするとコンボボックスが現れます。 コンボボックスには１～４があります。 １はシート１""あいう""のシート ２はシート１""かきく""のシート ３はシート１""さしす""のシート ４はシート１""たちつ""のシート を指定するようになっています。 ここでとりあえず自分の希望のしーとになるように１～４の数字を選びます。 次にもうひとつのコマンドボタンを選択するとテキストボックスが現れます。 記入し、テキストボックスと同userformにあらかじめ作っていたコマンドボタンをクリックすると先ほど選択した１～４にテキストボックスを転送するようにしたいのです。 hideを使って先ほど表示させたコンボボックスのuserformを隠して、テキストボックスのuserformを閉じる際に指定したシートをにとさせようとしましたが、 そのテキストボックスのuserformが何個かあるのでどうすればいいのかわかりません。 どなたかご教授願えませんでしょうか？ よろしくお願い致します。 なお、私の説明不足で内容がよくわからなかったら一報ください。 申し訳ありませんが、どうぞよろしくお願い致します。
- 締切済み
- Visual Basic
- フォーカスを移動させない方法
エクセル2003のユーザーフォームにリストボックス１、リストボックス２、テキストボックス１、コマンドボタン１（シート転送用）を作成しました。（タブオーダーはこの順になってます。） 転送用ボタンは最後にクリックしますが、前3個のコントロールの操作の順番はどれでも可能にしたいと思います。ただしテキストボックスは入力の都度クリックしなくてよいようにフォーカスを常駐させたいのです。どなたか簡単な方法を教えてください。
- 締切済み
- Visual Basic
- フォーカスを移動させない方法
エクセル2003のユーザーフォームにリストボックス１、リストボックス２、テキストボックス１、コマンドボタン１（シート転送用）を作成しました。（タブオーダーはこの順になってます。） 転送用ボタンは最後にクリックしますが、前3個のコントロールの操作の順番はどれでも可能にしたいと思います。ただしテキストボックスは入力の都度クリックしなくてよいようにフォーカスを常駐させたいのです。どなたか簡単な方法を教えてください。
- 締切済み
- Visual Basic
- ご教授願います。
エクセルのVBA初心者です。 期限が迫っているので、どなたかご指導、ご教授願います。 ここまでの経緯を説明いたします。 ユーザーフォーム１ オプションコマンド１ オプションコマンド２ ↑（楕円の○をつけるため） コンボボックス１ ↑（記録先シートを指定するため） テキスト１ テキスト２ テキスト３ テキスト４ ↑（Ａ列の空白行を検索語Ａ列％行にテキスト１ Ｂ列％行にテキスト２・・・） コマンドボタン１ コマンドボタン２ ↑（完了ボタンとキャンセルボタン） このようにユーザーフォーム１を構成致しました。()内は希望プログラムです。 なお、このユーザーフォーム１はシート１上に作成致しました、コマンドボタンＡによって呼び出されるようにしています。 またシート１にはオプションボタン１,２と同じ名前が書いてあるセル１,２があります。 このように構成したうえで、行いたいプログラミングは下記のようになります。 コマンドボタンＡでユーザーフォーム１を呼び出します。 オプションコマンド１（又は２）にチェックをいれ、テキストボックス１～４まで記入します。 そしてコマンド１でｈｉｄｅを使って一度隠します。 ｈｉｄｅでユーザーフォーム１を隠しはしますが、コマンドボタン１を押すと、オプションコマンド１を同じ名前のセルには楕円の○マークがでます。テキスト１～４はコンボボックスで指定したシート先のＡ行の空白セルにＡ列％行 Ｂ列％行 Ｃ列％行 Ｄ列％行に各々記入されます。％は空白行です。 また選択したコンボボックスの内容はシート１の指定セルに記入されるようにします。 このようにしたいのですが、どなたかご教授願います。 説明が至らない点、またわがままなお願いではございますが、何卒お願い致します。
- 締切済み
- Visual Basic
- エクセルマクロで検索ボックスを作成する
エクセル2010のマクロで検索ボックスを作成したいと考えています。 質問No.4072490を参照して作成しました。 ////////////////////////////////////////////////////////// 質問 エクセルのシートにテキストボックスとコマンドボタンを配置してシート上のデータを検索することは可能でしょうか？今現在はB列に、複数の文字データが入力してあるので、オートフィルタのオプションから「を含む」で検索してます。 イメージとしては、オートフィルタのオプションから「を含む」を選んでから検索しなくても予めシートに用意してあるテキストボックスに検索したい文字を入れてボタンを押すと、オートフィルタで検索したときと同じような結果が得られるようにしたいと思ってます。 例） A B C －－－－－－－－－－－－－－ 1 血液型 2 A 3 B 4 O 5 AB 上のような表があったとして、テキストボックスにAと入力してボタンを押すとB2とB5が表示されるようにしたと思ってます。いい方法があればご教示願います。 回答 シートにテキストボックス１個、コマンドボタン２個を配置します。 これは出来ますね。 コマンドボタン１個目は検索ボタン、２個目は解除ボタンです。 ツール→マクロ→Visual Basic Editorを選択して シートに以下のコードを貼り付ける。 ------------------ ここから下 ---------------------- Option Explicit Private Sub CommandButton1_Click() Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=2, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd End Sub Private Sub CommandButton2_Click() Selection.AutoFilter End Sub ---------------- ここまで ------------------ エクセル２０００です。 機能は「を含む」です。つまり文字列のどこにでもテキストボックスに入力した文字が含む行を表示します。 ////////////////////////////////////////////////////////// 上記を参照して検索ボックスを作成したところ、一回目の検索とフィルタ戻しは問題なくできましたが、２回目から検索ができません。 どこか変更した方が良いでしょうか。 追加でもう一つ質問です。 検索範囲がB列に限定されてしまいます。 シート状のすべてで検索することはできるでしょうか。
- ベストアンサー
- Visual Basic
- ご指導願います。
どなたが教えてください。 エクセルのVBAです。 dim row as Integer for row = 1 to 65535 if (selectSheet.Cells(1, row) = "") then selectSheet.Cells(1, row) = "#####" EndIf をアレンジしたいのです。 上記のプログラムが構築されているコマンドボタンと同じuserformにオプションボタンを５個、コンボボックスを一つ作りました。 オプションボタン１を選択するとコンボボックスにはあ行が。 オプションボタン２を選択するとコンボボックスにはか行が。 オプションボタン３を選択するとコンボボックスにはさ行が。 オプションボタン４を選択するとコンボボックスにはた行が。 オプションボタン５を選択するとコンボボックスにはな行が。 選択できるようにしたいのです。 次に選んだオプションボタンと同名前のシートに上記の#####が入力されるようにしたいのですが、どのようにすればいいのですか？ また、違うuserformでもオプションボタンで選択したシートに記入されるように選択の保持ですか？ そういったことは可能なのでしょうか？ どなたか教えてください。
- 締切済み
- Visual Basic
- Excelマクロ初心者なのですが、なんとか作成したいのでどうかご指導く
Excelマクロ初心者なのですが、なんとか作成したいのでどうかご指導ください。 例えばですが、商品ID、商品名、商品の概要、製品番号、単価、在庫数、入力日、生産中止、倉庫ID というフィールド名の商品情報というExcelファイルがあるとします。 これをユーザーホームを表示して、すべてのフィールドの数のテキストボックスを作成し、コマンドボタンをクリックしたら、あいまい検索（一部を入力して検索させる）。 元のデータにフィルタをかけて表示させたいのです。今回のデータには数字のデータや日付のデータが入りそうですが、実際のデータはすべてテキストが入るフィールドです。 一度検索したら検索条件をクリアさせるボタンをクリックして、再度条件を変えて検索します。 各テキストボックスすべてに入力するとは限らず、１つか２つのテキストボックスに入力してほかは空白という場合もあります。 Excelファイルは不定期で送られてくるものなので、できればどのファイルでも使えるような マクロにしてボタンで登録できてつかえたらなと思っています。 このファイルは25台のPCでそれぞれが使って検索します。 ファイルを開いてボタンをクリックすると検索するユーザーホームが表示されればいいなと・・・ このような場合にはどうすればいいのでしょうか？ やりたいことははっきりしているのですが、何をどのようにすればいいかわからず本当に困っています。 どうかご指導ください。 サンプルファイルなどあれば教えていただければ参考にさせていただきたいです。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelユーザーフォームでのデータ検索
初心者の質問で申し訳ございません。 ユーザーフォームを利用して検索ボタンを作ろうと考えています。 ユーザーフォームでテキストボックスを２個と コマンドボタン１個を作成し、 テキストボックス１に検索したい氏名を入力して コマンドボタンを押すと、 ワークシート(ワークシート名、データ)に作成されたデータのD列から 一致するものを検索し、 一致したデータのA列にある「番号」をテキストボックス２、 表示する。 というマクロが書けず困っています。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
補足
まず回答ありがとうございます。 また、返事が遅れたことをお詫び申し上げます。 転送先シートの配置方法は全て最初の投稿で書かせていただいた内容でございます。 管理のためとは、Ａ列でオートフィルタで検索をかけたり、Ｂ列でもオートフィルタをかけて検索といった感じで、オートフィルタを使って記録したデータを検索かけて行ごとにデータがほしいんです。しかしＤ列で検索をかけますとテキスト５～８は他の列は空白なのでＤ列オートフィルタで、テキスト５の内容でした場合、他の列には何もでてこない・・・といった具合になります。 ある程度進んでから、この先どうしたらいいのだろうと、現在のところでつまっています。 >本当は最初の転送させる前のテキストボックスにクリックなどしたら表示されたらいいんですが。 ↑このことですが、内容を考えたら無理だと判別しました。お手数をおかけして申し訳ございません。 今回の説明も不足しているかもしれませんが、ご教授願います。 よけいにわかりにくくなりかもですが、より具体的な内容をつけてみます。 ｛登録用シート｝ [果物] オプションボタン１（転送先シートを決定するため） [魚] オプションボタン２ [肉] オプションボタン３ [飲み物] オプションボタン４ [衣類] オプションボタン６ ＜＜＜↑の[ ]の中のシートがある＞＞＞ [商品名] テキストボックス１（先ほどの転送前のテキストボックス） [値段] テキストボックス２ [購入スーパー] テキストボックス３ [個数]テキストボックス４ テキストボックス５ テキストボックス６ テキストボックス７ テキストボックス８ ＜＜＜↑の[ ]の中は説明書きでテキストボックスに実際書き込む。・・・テキストボックス５～はいい説明書きが思いつきませんでした。すみません。＞＞＞ ｛転送先シート｝果物で例を書きます Ａ Ｂ Ｃ Ｄ Ｆ １ りんご １９０円 Ａ店 ５個 テキスト8 ２ テキスト5 ３ テキスト6 ３ テキスト7 コマンドボタン１（クリックしたらオプションボタン別にシートを分別しているので、選択シートにテキストボックスが転送されるマクロを登録）