• 締切済み

消去方法がわかりません。

ＶＢＡ初心者です。 現在フォーム上にテキストボックスを設置。 その中にSheet1の指定した範囲の値を表示させるようになっています。（RowSource) テキストボックスに表示されている列を選択して コマンドコマンドボタンを押すと、選択された データがクリアー（Sheet1から削除）されるという 作業は出来ますか？

みんなの回答

回答No.2

正確なイメージはわからないので憶測で書きます。 Sheet1と書いてあるので Excelのセルの一部を抜き出して VBの画面のテキストボックスに表示を行い テキストボックスの中身を選択して コマンドボタンを押して選択されたデータを Excelのセルから削除する作業をVBで出来るかってことでしょうか？ もしそうなのでしたら。 そういう動作はVBで出来ます。 あと、その場合は、pen_pen_penさんが言われているとおりリストボックスがよろしいと思います。

回答No.1

テキストボックスでなくリストボックスではいけませんか？ 「列を選択する」と言えばリストボックスが適切かと思うのですが。 テキストボックスでなければならないのであれば、 テキストボックスで列を選択とはどうする事を言っていますか？ 消すべき列の文字列を選択状態（反転状態？）にするのですか？

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

関連するQ&A

  • フォームのリストボックスに値を表示させたい

    VBA　フォームのリストボックスに値を表示させたい Ａ１→aaa Ａ２→bbb リストボックスに上記の値を表示させたいなら、 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!A1:A2" End Sub で出来ますが、シート上のセルで表示する値を指定するのではなく、ＶＢＡ上で、リストボックスに表示させる値を指定したいのです。 Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "aaa,bbb" End Sub を実行すると、VBA実行時エラー380になってしまいます。 UserForm1.ListBox1.RowSource = "aaa;bbb" もダメでした。 ご回答よろしくお願いします。

  • Excel ユーザーフォームでコンボボックスを使用してデータ入力

    Excelのユーザーフォームでコンボボックスを使用して、シートのデータを表示しています。 コンボボックス：ComboBox1 テキストボックス1-3：TextBox1-3 コンボボックスのRowSource：シート名!A2:C100 コンボボックスの変更時の動作： Me!TextBox1.Value = ComboBox1.Value とここまではできたんですが、テキストボックス2にシートのB列の値を、テキストボックス3にシートのC列の値を入れたいのですが、 どのようにしたらいいのでしょうか？

  • Excel VBA ユーザーフォームのコンボボックスに表示する値の入力方法

    Excel Xを使用して、VBAのユーザフォームにコンボボックスを作りましたが、どうしてもコンボボックス内に表示する値の入力方法が分かりません。 WEBや本などで「これ」と思われるものを実験していますが、どれも表示することができません。 できるだけ詳しく教えていただけませんか? したいことは、 　cbocenter　というコンボボックスに値を出します。 　値は　List　シートの　A2　から　A18　に入力済みです。 　それと値から選択した値を　data　シートの　J列　に 　表示させたいのです。（行の指定はできています） 本当に困ってます。よろしくお願いします。

  • エクセルＶＢＡについて質問です。

    エクセルＶＢＡについて質問です。 シート１のユーザーフォームにコンボボックスとテキストボックスが各１つずつ、 シート２のＡ列には１行目から順に「あ」「い」「う」と文字が入っていて、Ｂ列には「１」「２」「３」と値が入っています。 コンボボックスのリストにはシート２のＡ列の文字が選択できる状態にあります。 この状態で、例えばコンボボックスで「い」を選んだら、テキストボックスに自動的に「２」と入る、というように、コンボボックスのリストの中から任意の文字を選択したときに、テキストボックスにＢ列の値が入るようにするにはどのようにすればいいのでしょうか？よろしくお願いします。

  • エクセル2007VBAで検索するコードを知りたい。

    エクセル2007(Excel2007)のVBAで【検索と置換】と同等の機能をもった検索アプリケーションを作りたいのですが、 そのコード(コマンドボタンを実行したときのコード)を教えていただけないでしょうか。 (おそらくですが、リストボックスのコードも必要だと思います。) 正しくは、【検索と置換】から【置換】機能を無くしたものとイメージしていただきたいです。 ●設置するもの ユーザーフォーム(UserForm1) テキストボックス(TextBox1) コマンドボタン(CommandButton1) リストボックス(ListBox1) ●仕様 ユーザーフォームのテキストボックスに入力してコマンドボタンを押すと、検索対象を見つけ、 リストボックスにその対象一覧を行ごとに表示するものになります。 ●検索するときの条件 (1)大文字と小文字を区別しない (2)半角と全角を区別しない (3)部分一致すれば(一部でも一致すれば)検索対象にする (4)今、開いているワークシート上の「全てのセルが検索対象(列や行を指定しない)」 ※検索されたセルの存在する行ごとに、ユーザーフォームのリストボックスに(1行ずつ)表示したいです。 そして、リストボックスに表示されたデータのうち、どれか1つを選ぶと、その選択対象の行の【D列】にアクティブセルを移動するようにしたいです(画面もアクティブセルが見える位置にスクロールします)。 ●リストボックスに(1行ごとに)表示するもの● ↓↓↓ (左から)I列の値、D列の値、O列の値、Q列の値(→4列の値になります) ※リストボックスにQ列の値が表示された場合のみ(Q列に何かしらのデータがある場合のみ)、 リストボックス上の【その行の(I列の値、D列の値、O列の値、Q列の値の)文字すべてを赤色】にして表示していただきたいです。 分かる方がいましたらよろしくお願いいたします。

  • excel 2003 vba コンボボックス　日付

    始めまして初心者です。よろしくお願いします。 ワークシートのA列に日付、B列に作業内容、C列に作業人員が入力されているとします。 それをユーザーフォームから操作したいです。 ユーザーフォーム上にコンボボックスとテキストボックス1,2を設置しています。 コンボボックスのRowSourceにA列日付をセットしています。 コンボボックスを操作すると、その日付のB列、C列の内容をそれぞれテキストボックス1,2に表示させたいです。

  • セルの値をテキストボックスに表示したい

    excelマクロ初心者です。教えてください。 ＜やりたいこと＞ 選択したセルと同じ行のうち特定の列のセルの値をフォームの テキストボックスに表示し、そのフォーム上で表示したテキスト ボックスの値をコマンドボタンでコピーしたい。 また、もうひとうつのコマンドボタンをおすと選択したセルと 同じ行の別のセルに"完了"と入力できるようにしたい。

  • ご教授願います。

    エクセルのVBA初心者です。 期限が迫っているので、どなたかご指導、ご教授願います。 ここまでの経緯を説明いたします。 ユーザーフォーム１ オプションコマンド１　オプションコマンド２ ↑（楕円の○をつけるため） コンボボックス１ ↑（記録先シートを指定するため） テキスト１　テキスト２　テキスト３　テキスト４ ↑（Ａ列の空白行を検索語Ａ列％行にテキスト１　Ｂ列％行にテキスト２・・・） コマンドボタン１　コマンドボタン２ ↑（完了ボタンとキャンセルボタン） このようにユーザーフォーム１を構成致しました。()内は希望プログラムです。 なお、このユーザーフォーム１はシート１上に作成致しました、コマンドボタンＡによって呼び出されるようにしています。 またシート１にはオプションボタン１,２と同じ名前が書いてあるセル１,２があります。 このように構成したうえで、行いたいプログラミングは下記のようになります。 コマンドボタンＡでユーザーフォーム１を呼び出します。 オプションコマンド１（又は２）にチェックをいれ、テキストボックス１～４まで記入します。 そしてコマンド１でｈｉｄｅを使って一度隠します。 ｈｉｄｅでユーザーフォーム１を隠しはしますが、コマンドボタン１を押すと、オプションコマンド１を同じ名前のセルには楕円の○マークがでます。テキスト１～４はコンボボックスで指定したシート先のＡ行の空白セルにＡ列％行　Ｂ列％行　Ｃ列％行　Ｄ列％行に各々記入されます。％は空白行です。 また選択したコンボボックスの内容はシート１の指定セルに記入されるようにします。 このようにしたいのですが、どなたかご教授願います。 説明が至らない点、またわがままなお願いではございますが、何卒お願い致します。

  • EXCEL　VBA　ユーザーフォームコンボボックスのRowSourceの設定方法について

    EXCEL　VBAのユーザーフォーム内のコンボボックスのRowSourceの設定方法について質問があります。 基本的な質問かもしれませんが、うまく検索できませんでした。 「リスト一覧」シートに 　　　　A１　　B1　　　C１ １行　りんご　ばなな　ぶどう ２行　100円　　200円 300円 ３行　110円　　210円　310円 という値を入れる。 ユーザーフォーム内にコンボボックスを２つ設置し、 コンボボックス１の値が「リスト一覧」シートの１行の値と同じときに コンボボックス２のRowSourceを同じ列の２行、３行に設定する。 Private Sub ComboBox1_Change() Dim i As Integer 　i = 1 　　Do Until Sheets("リスト一覧").Cells(1, i) = ComboBox1.Value 　　　i = i + 1 　　Loop ComboBox2.RowSource = i列の２行目及び３行目.Address End Sub というコードになると思うのですが、うまくいきません。 どうぞよろしくお願いいたします。

  • シート上のリストボックスに値を表示するには？

    エクセル２００３です。 コントロールツールボックスからシートにリストボックスを設置しました。 ここに値を指定するにはどうすればいいでしょうか？ フォーム上のリストボックスなら Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub とすればいいのですが シートのイベントにInitializeはありません。 どこのイベントプロシージャーに 「リストボックスに値を表示する」というコードを書けばいいのでしょうか？ シートモジュールにに Private Sub ListBox1_Click() UserForm1.ListBox1.RowSource = "Sheet1!a2:a3" End Sub としても何も起こりません。 できればファイルを開いた時からリストボックスに値を表示させるようにしたいです。 ご教授よろしくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する