• ベストアンサー

VBAテクストボックス

ＶＢＡでテキストボックスにセルから読み込んだデータを表示して 同一フォーム内にあるボタンで条件分岐するようなことは出来ますか。 一つの条件分岐が済んだらまた次のセルからデータを引っ張ってきてテキストボックスに表示させる ようなことを行いたいのですが。

  • homma
  • お礼率84% (744/884)

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

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

>テキストボックスにセルから読み込んだデータを表示して Me.TextBox1.Text = Sheets("Sheet1").Range("A1").Value >ボタンで条件分岐するようなことは出来ますか。 Private Sub CommandButton1_Click() 　　Select Case Me.TextBox1.Text 　　　　Case "○" 　　　　　　'<テキストボックスが○の場合の処理を記述> 　　　　Case "△" 　　　　　　'<テキストボックスが△の場合の処理を記述> 　　　　Case "□" 　　　　　　'<テキストボックスが□の場合の処理を記述> 　　　　Else 　　　　　　'<それ以外の処理> 　　End Select End Sub

homma
質問者

お礼

回答ありがとうございました。 返信が遅れましたことをお詫びします。 大変参考になりました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセルVBAで、テキストボックスにセルの値を入れる

    宜しくお願いします。 エクセルデータの各項目を、すでに書式（表）が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・ 各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置（すでに印刷された用紙にあわせてある）に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷　～を繰り返したいのですが、どのようなコードを書けばよいのでしょうか？ 進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。 ※印刷する場合は、テキストボックス内の文字のみ印刷（シートには印刷したくない文字書きたいので・・・） また、そのフォームには、パターンが５つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。 データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。 以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。

  • ACCESS97 VBA のテキストBOX

    VBAも初心者です。 ACCESSのフォームであるテキストBOXの内容を ボタンで同じ他のフォームのテキストBOX にデフォルト値としてSETするというような 処理をするというような場合どのような記述 をしたら良いでしょうか？ ヒントでも良いのでお願いします。

  • VBAのテキストボックスについて

    VBAで作成したユーザーフォームのテキストボックスの中にhtmlのソースを貼り付けて、そのソースの中のtableタグ中から数値を取り出してそれぞれのセルに出力したいと考えていますが、そのようなことはできるのでしょうか。 自分である程度考えているのですが、なにぶん始めたばかりなのものですから、テキストボックス内の文字列をどう処理すればよいのかわかりません。 よろしければ教えてください。

  • VBAのテキストボックスの表示について

    エクセルでVBAを使っているのですが、作成したフォームのテキストボックスに、セルの[00]や[05]といった形式の値を入れようとすると、[0]や[5]と直されてしまいます。プロパティでうまく設定する方法はありますでしょうか？ よろしくお願いいたします。

  • VBAでボタンでテキストボックス作成したい

    こんばんわ！ エクセルＶＢＡのユーザーフォーム上のボタンを押すとユーザーフォーム上に新たにテキストボックスを作成することは可能でしょうか？ （ちなみに通常時非表示でボタンを押すと表示といった内容以外でお願いします。大量にテキストボックスを作れるようにしたいので＾＾；） 可能なようでしたらサンプルソースあるいは参考ＨＰを教えてください！ ちなみに現在使用中はエクセル2003です。（2007でもＯＫです＾＾） アドバイスの程よろしくお願いいたします。

  • VBA　あるフォームのあるテキストボックスへ飛びたい

    教えてください エクセルのVBAで簡単な１問１答形式のプログラムを作っています フォームにある「次の問」を押したときに そのフォーム上に解答用のテキストボックスに 自動的に行く方法を教えてください 今は、「次の問」を押して マウスでそのテキストボックスをさらにクリックして 解答を入力するという状態です 上記の「マウスでテキストボックスをさらにクリックして」 という部分をなくしたいのです どうぞよろしくお願いします

  • Excel2000VBA　テキストボックス内での改行で・・・

    ユーザーフォームにテキストボックスを作り、 テキストボックス内での改行をできるように設定します。 このテキストボックスに入力されたデータをセルに入力すると セルでは改行したところに「・」が入ってしまいます。 例えばテキストボックスに 　こんにちは［改行］ 　いい天気ですね と入力して、これをsheet1のA1に入力します。すると、 　こんにちは・ 　いい天気ですね と入力されてしまいます。 この「・」を表示しないようにする方法はありますか？ よろしくお願いします。

  • VBAテキストボックスについて

    こんばんは。 エクセルVBAのテキストボックスの使用方法で行き詰っています。 配列内のデータをテキストボックスへ表示してあります。 テキストボックスを、ダブルクリックして内容を変更し、 変更したデータを配列へ格納する仕組みにしようとしています。 問題は、ダブルクリックすると、テキストボックス内のデータが消えてしまう事です。変更せず他のテキストボックスをクリックすると、データが消えたままになってしまいます。 データは表示したままで、必要な箇所のみ変更する。 ダブルクリック後何もせず、他のテキストボックスをクリックしても 、データは残る仕組みにしたいのですが、可能でしょうか？ ご教授お願いいたします。 ※仕事の関係でお礼が遅くなりましたら申し訳ございません。

  • EXCEL　VBA　テキストボックスを見やすくしたい

    いつもお世話になっております。 ＥＸＣＥＬ　ＶＢＡ　のユーザーフォーム上の テキストボックスについて教えて下さい。 大きめのテキストボックスを作り 改行を許可して、数十文字を表示させることができたのですが、行と行の間が詰まりすぎていて、見づらいのです。 行間を空ける方法を教えて下さい。

  • コンボボックスからテキストボックスに連続して値を出したい

    エクセルVBAのユーザーフォームで、コンボボックスで選択したものをコマンドボタンを押すことで、同じフォーム上のテキストボックスに表示するところまではできたのですが、同じテキストボックスに追記する形でコンボボックスで選択したものを表示したいのですが、可能でしょうか。テキストボックスは複数行表示できるようにプロパティのMultiLineはTlueに設定することはしたのですが、2回目以降コンボボックスで選択した後コマンドボタンを押してもそのまま上書きするようなコードしかわかりません。 テキストボックスに、20回目まで選択項目を追加表示し、最後にはエクセルのシートにそのデータをコピーしたいのです。果たして、そのようなことは可能でしょうか。可能であればどのように記述すればよいのでしょうか。ぜひ諸先輩方のお知恵をお貸しください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する