IDでもっと便利に新規取得

Yahoo!知恵袋

JavaScriptが無効です。ブラウザの設定でJavaScriptを有効にしてください。
JavaScriptを有効にするには

亜紀さん

2022/1/28 20:10

11回答

VBAで、listbox の内容が複数選択されたとき、受け取り側は、どうやって取得するのですか

VBAで、listbox の内容が複数選択されたとき、受け取り側は、どうやって取得するのですか

Visual Basic・29閲覧・25

ベストアンサー

ggrksさん

カテゴリマスター

2022/1/28 20:38

＞受け取り側という謎の言葉は見ないことにして。 Listboxで行が複数選択されているとき、選択されている行だけを取り出すなら、 Dim SelectedItems As String Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then SelectedItems = SelectedItems & "," & ListBox1.list(i) End If Next Debug.Print SelectedItems

亜紀さん

質問者2022/1/28 21:14

なるほど、selected に紐づいているのね・・・ありがとうございました。

質問者からのお礼コメント

＼(^o^)／

お礼日時：1/28 21:15

カテゴリQ&Aランキング

Visual Basic

34.5年余り、ソフトウェア開発を行ってきましたが、わけあって転職しました。転職先で今までに比べると極めて小規模なソフトウェアを作成していますが、評判が良かったらしくVB.netで作成したソフトウェアをAccessのフォームからも呼び出したいとの依頼を受けました。VBでは他のプロジェクトからも使える様にクラスライブラリとして作成しました。今までVBAから呼び出したことがないので良く解らない部分があり、質問させて頂きました。プロジェクトのプロパティでCOMとして使えるように設定してビルドを行いました。DLLとTLBファイルは作成されました。他のPCで使うにはregasmを実行しないと使えな...

VBAについて先輩からVBAを現在進行形で教わっているのですが、その先輩がやった莫大な数あるコードから検索機能？を使った小技を見逃してしまいました。これはここのコードを参考にして～みたいな感じでショートカットキーを使いその検索機能を表示し、そこに単語を打ち込んだらその単語が黄色く表示されるという技です。どなたかやり方がわかる方、ご教授ください。

VBAコードなのですが、依頼で作ってもらったものですが、マクロコードでActiveCell.FormulaR1C1=_"=IF(R8C="""","""",IF(OFFSET(集計!R[-9]C2,0,3)=R8C,OFFSET(集計!R[-9]C2,0,6),""""))"となってます。エクセルバーではこの表示になってます。=IF(C$8="","",IF(OFFSET(集計!$B2,0,3)=C$8,OFFSET(集計!$B2,0,6),""))これを下記のように表示させるには、どのようにコードを修正すればよいですか？また不可能の場合マクロコードを書き直せばよいでしょうか？=IF(B...

VBAで以下のようなことが出来ますでしょうか？B列の任意の位置に数値が入っています。また、空白や文字列も存在してます。B列の任意のセルに数値を入力したときに、そのセル以下の数値を書き換えたいです。例えば添付画像のセルB10に3と入力した場合、入力したセルより下にある数値を3→4,4→5,5→6,…のように変更させたい。

VBAで複数条件のデータ判定をしたいのですが、初心者のためお助けください。条件が細かく、どのようなコードにしたらよいかわかりません。どなたか教えてください。下記のようなデータがあります。A列B列C列2行目実行あああ承認済3行目計画あああ却下4行目実行いいい承認済5行目実行いいい却下6行目計画いいい承認済7行目計画いいい却下8行目実行ううう承認済9行目計画ううう承認済10行目計画ううう却下11行目計画ううう承認依頼中（大元の入力データが日付順になっており、優先順位B列→A列の順で昇順に並べ替えしてあり、実行の一番下・計画の一番下のデータが最新の状態を表しています）基本的には、例1)の様にB...

インターネットエクスプローラーで開けたサイトからデータをvbaで取得してます。IEモードで同じようにサイトを開けてデータを同じように取得するにはどのようにvbaを改修すればよいか教えて下さい。

[VBA]特定の範囲のセルの値を変更または新規入力した際に、先頭にシングルクォーテーションを追加するという記述方法を教えてください。実行したい内容は①実行範囲：B9より下のセル全て（B列のみ、B1～８は外す）②実行のタイミング：セルの値変更をした時、または新規入力をしたとき③入力された値の先頭にシングルクォーテーションを付ける④セルの値が変更、新規入力された時以外は実行しない。（セルを選択しただけ、変更していない場合は実行しない）一応、ネットで調べて自分で作ったものを載せておきます。B列に入力すると、エラーが出ます。Selectionから始まる行が黄色くなります。。。PrivateSub...

VBAでLen関数を使って文字列を抜き出したい時に､3文字のものを2文字抜き出したい時はどうやってやりますか？例)男3030だけを抜き出したい時のプログラムの書き方を教えていただきたいです。※“男30“はDataという変数を使ってます

VBAでコードが書けずにいつも「マクロ記録」を使って作成しているのですが、今回コンパイルエラーで調べると「長すぎる」という内容のエラーでした。コードの整理も全くできず、今回しようとしていることの作業量が多いこともあると思います。・共有フォルダーの別ブックを開く・A列～DK列までの入力されたシートの必要な列だけ残して削除・必要な列の「セルを結合して中央ぞろえ」を解除・必要な部分だけを範囲選択コピー・マクロをつけるブックのシートに張り付け・共有フォルダの別ブックは「保存しない」できればこれを4列分したいのですが4列分すると上のエラーが出て、1列ずつすると謎の挙動がします。マクロを作成したシー...

エクセルのVBAの記述について教えてください。ワークシートが36つあるファイルがあります。このファイルが複数個「集計用」フォルダにあります。「集計用」フォルダ内の各ファイル、各ワークシート内の「ME9:NN26」の部分の値を「まとめファイル」に上から順に貼り付けて集計したいです。例：「集計用」フォルダ内の一番目のファイルの一番目のワークシートの「ME9:NN26」をコピー↓「まとめファイル」A1セルに値を貼り付け↓「集計用」フォルダ内の一番目のファイルの二番目のワークシートの「ME9:NN26」をコピー↓「まとめファイル」A19セルに値を貼り付け↓「集計用」フォルダ内の一番目のファイルの...

【新機能】アンケート投票のテストを実施中

アンケート投票

コロナで変わった生活様式、実は嬉しいことはどれ？

アンケート中

2732人投票中

災害への備え、どの程度している？

アンケート中

1188人投票中

「ゲーム」といえば、どんなゲームを思い浮かべる？

アンケート中

2231人投票中

ニュースなどの情報、主にどうやって手に入れてる？

アンケート中

1275人投票中

もっと見る

カテゴリ一覧

コンピュータテクノロジー

プログラミング

C言語関連

Java

PHP

Ruby

JavaScript

HTML、CSS

Visual Basic

カテゴリ一覧を見る

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。