• ベストアンサー

リストボックスに追加

リストボックスに項目を使う時にＡｄｄＩｔｅｍをつかいますよね。でも、ＡｄｄＩｔｅｍをつかうと下に下にと追加されていってしまいます。これを上に上に追加していきたいのですがどうすればいいのでしょうか？

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

  • ベストアンサー
noname#60992
noname#60992
回答No.1

list1.additem "xxx",0 ちなみに list1.additem "xxxx",2 とすると２番目に追加されます。

hiromu0103
質問者

補足

へぇ～。そうなんですか。 ありがとうございます。 今、手元にＶＢがないので今度確認したいと思います。 確認させていただいてから締め切りたいと思います。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

質問はVBでVBAでないと思いますが、エクセルVBAでやってみました Sub test01() Sheet1.ListBox1.Clear Sheet1.ListBox1.AddItem "aaa", 0 Sheet1.ListBox1.AddItem "bbbb", 0 Sheet1.ListBox1.AddItem "ccc", 0 Sheet1.ListBox1.AddItem "dddd", 0 End Sub で リストボックス内は dddd ccc bbbb aaa になりました。 ここら辺は統一してほしいが、VB,アクセスVBA、エクセルVBAで違うところだったような気するので、あくまで参考までに。

hiromu0103
質問者

お礼

質問はＶＢ6.0のつもりでしていました。 ＶＢＡだとまた違うコードになってしまうんですね。 今度から質問するときはＶＢＡかＶＢ6.0かＶＢ.ＮＥＴか明記しておきます。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • リストボックスへの項目追加

    すでに存在するリストボックスに、新しく項目を追加することはできるのでしょうか？ ＶＢアプリでよくあるパターンなのですが、以下のような仕組みをWEB上で作ろうと思っています。 (1)親ウィンドウの「参照」ボタンをクリックして、別ウィンドウとして参照リストを表示させる。 (2)参照リストから選択した内容を親ウィンドウのリストボックスに追加する(この時、参照リストのウィンドウ表示を消します)。 なお、参照リストからのリスト選択は複数回行うことができるようにしたいです。 どなたかこの問題を解決できる方いますでしょうか？

  • [VB2008]リストボックスで項目の重複を避ける

    タイトル通り、リストボックスに項目を追加した時に 同じ項目が２つにならないようにするにはどうすればよいでしょうか？ 例えば 「あ い う」とリストボックスに入っていたとして ここに「あ」を追加した時に 「い う あ」という風になるようにしたいです。 ご回答よろしくお願いします。

  • リストボックスからリストボックスへ（複数列）

    データ読み込み済みのリストボックス１（4列）から空白のリストボックス（4列）へ、コマンドボタンをクリックしたらデータが追加されるコードを作成しました。 Private Sub CommandButton1_Click() Dim i As Long For i = 0 To 8 With ListBox1 ListBox2.AddItem .List(.ListIndex, i) End With Next i データは追加されましたが、縦方向にデータが追加され、 横方向に追加されませんでした。 どうすれば複数列のデータをそのまま複数列のリストボックスに追加できるでしょうか。 よろしくお願いします。 End Sub

  • リストボックス

    すいません以下の処理に困っております。 リストボックスで値を取得して他のリストボックスにその値を 出力したいのですがまったくできません。 ＜例＞ リストボックス１ a b c リストボックス２（上で選択した値を出力） a ちなみに構文は、 ------------------------------------------------------------ Private Sub btn選択_Click() ListBox2.Text = ListBox1.Text 'ListBox1.ListIndex + 1 & ": " & ListBox1.Text End Sub Private Sub CommandButton1_Click() End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) btn選択_Click End Sub Private Sub UserForm_Initialize() With ListBox1 .AddItem "スケジューラ" .AddItem "データ変換" .AddItem "DWH Server" .AddItem "PPP Server" .AddItem "ファイヤーウォール" .AddItem "暗号オプション" End With End Sub ---------------------------------------------------- 初心者でまったくできません。 御教授をお願いします。

  • アクセスのコンボボックスでリストに追加するには？

    アクセスでコンボボックスのリストに項目を追加したいとき、プロパティの値集合ソースで追加しますが、使用する人が誰でも簡単に追加登録できるようにしたいと考えています。マスター画面で登録し自動的にリストに追加されるようにするにはどうしたらよいでしょうか？

  • eMbeded Visual C++のリストボックスをスクロールする方法

    eMbedded Visual C++で作成したリストボックスに m_list.InsertString(-1,_T("abc")); といった具合で項目を複数追加しているのですが、 追加していってリストボックスの領域を はみ出した時に下のほうに追加された項目が見えなく なってしまいます。 自動的にスクロールさせたいのですがどのように すれば良いのでしょうか？ よろしくお願いいたします。

  • エクセルのリストボックスの使い方

    　ＷｉｎｄｏｗｓＸＰ　Ｐｒｏ　エクセル２００３です。 　エクセルのコントロールボックス機能を使ってリストボックスをつくりました。 　リストボックスからある項目を選択するとアクティブセルにそのデータが入るようにしています。（ActiveCell.Value = ListBox1.Value）その後、セルは下に移動させます（Selection.Offset1,0).Select）。 　そこで、もう一度同じ項目を入力するために上のセルと同じ項目をクリックしてもその項目が入力されません。 コントロールボックスのアクションは、リスト内の「他の項目をクリックしたとき」に実行されるということで、同じ項目は続けて指定できないようになっているようです。そこで、ある項目をクリックしたら、リスト項目内で違うところに選んだリストの場所を移動させたいと思っているのですが、そういうことができるのでしょうか。 　ご存じの方よろしくお願いします。

  • ワークシート上のcomboboxのリストへの追加

    ワークシート上のcomboboxのリストに項目を追加したいのですがうまくいきません。 Sheets("data").Combobox1.AddItem "AAAA" とするとエラーが出てしまいます。 ListRowRangeで何とかするしかないのでしょうか。

  • Excelマクロのコンボボックスについて

    マクロを初めて扱います。 どなたか詳しい方、ご教授ください。 Excelのシート上にActiveXのコンボボックスを作成しました。 そのコンボボックスに「あああ」という項目を追加したのですが、「あああ」項目が一番下に追加されてしまいました。 Me.ComboBox1.AddItem "あああ" どのように書けば、コンボボックスの最上部に追加されるのでしょうか？ どうかコードの書き方をお教えいただけませんでしょうか？

  • 複数行表示されたリストボックスから最後の行だけ削除するには

    エクセルのユーザーフォーム上にあるリストボックスですが 必要に応じてボタンクリックでAddItemにより項目が追加されて行くリストボックスがあります この複数行表示された項目の内 別のボタンクリックで最後に追加された行だけ削除していくには どのように記述すればいいのでしょうか ------------- abcde fghij klmno pqrst ------------ と表示されていたリストボックスから クリックするたびに ------------- abcde fghij klmno ------------- ------------- abcde fghij ------------- の様に最後の行だけ削除をしたいのです 単純に ListBoX1.Clear では全て消されてしまい こまっています ぜひお力をお貸し下さい よろしくお願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する