
データー用のブックに、リストボックスを作り、リストボックスのデーターを
複数選び(複数選べる)、別ブロックのセルに転記するVBAが可能であれば、ご教授願います。
※リストボックスを表示させることはできたのですが、別ブックへの転記させる
VBAコードが分からず困っております。
<実施内容>
1、データー専用ブック(ブック名:データー)に、リストボックスを作成し、
そのリストボックスのデーターの中で、データを選んで、選んだデーターを
別ブックのカソールのある行のセルに転記する。
※カソールの移動先は,決まっていません。(転記先の伝票の転記先の位置がまちまちの為)
添付画像参照
画像左側が、データー用のブックです。
並びは ⇒ 部品コード 部品名称 個数 在庫 依頼数 出庫 備考
画像右側が別ブック(転記先)です。
転記対象のブックは、複数あります。
下が、リストボックス表示です
Private Sub UserForm_Initialize()
With Me.ListBox1
.MultiSelect = 1
.List = Range("A1").CurrentRegion.Value
.ColumnCount = 9
.ColumnWidths = "50;110;50;50;50;50;50;50;50"
End With
End Sub
ご教授願います

A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
リストボックスのリストがシートのセルを順に与えているのなら、
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then '★ここ
r.Value = ListBox1.List(i)
Set r = r.Offset(1)
End If
選択したリストはA1を基準としたOffsetで行列は求められますよね。
https://www.moug.net/tech/exvba/0050057.html
同じものであるなら何もリストボックスの値に拘らず、セルをコピペすれば良いのでは?
その行の求め方は
workbooks("~").worksheets("~~").range("A1").offset(i).resize(1,7).copy ~コピー先のセル~
で良いのでは?
ただコピー先については情報が不足している感じはしますので割愛させてもらいますけど。
目の前にあって対処法を考えるならまだしも、ブック名等が1つ固定なのか複数不特定なのか良くわかりませんし。
私は老眼だから画像も良く見えなくて手の打ちようがないけど、常連さんでも見えても難しいから回答が厳しいのかもね。
No.1
- 回答日時:
ちょ~簡単に書けば(あくまで練習問題)、
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 10
ListBox1.AddItem i
Next
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim r As Range
Set r = Workbooks("test.xlsx").Worksheets("Sheet1").Range("A1")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
r.Value = ListBox1.List(i)
Set r = r.Offset(1)
End If
Next
Set r = Nothing
End Sub
ListBoxの値が選択されているかをリストから順に調べて、Trueなら別のブックのシートのセルに書き出す。
→今回は Workbooks("test.xlsx").Worksheets("Sheet1").Range("A1") ここがスタート位置。
ListBoxの列については多分ググれば例題は見つかるんじゃないかな?
http://officetanaka.net/excel/vba/tips/tips158.htm
これとか?
あとは基準としていた書き込みセルから右にOFFSETして順次書いたらいけるのかも。(その分のループは必要かもですが)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/03/28 14:52
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) 【マクロ】【VBA】同じフォルダ内にあるエクセルのデータを転記したい【ブック1からブック2へ】 9 2023/08/10 07:51
- Visual Basic(VBA) Excelのマクロコードについて教えてください 1 2022/03/27 12:02
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
泣きながら食べたご飯の思い出
泣きながら食べたご飯の思い出を教えてください。
-
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
リストボックスの項目に、他のブックのセルの値を設定するには?
Access(アクセス)
-
-
4
Excelで質問です。ListBoxの項目を別bookから読込むには
その他(Microsoft Office)
-
5
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
6
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
7
VBA リストボックス(複数条件)で検索し、転記方法についてご教示ください。
Visual Basic(VBA)
-
8
UserForm1.Showでエラーになります。
工学
-
9
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
10
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
11
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
12
エクセルVBAで複数選択できるように設定したリストボックスの、選択され
Visual Basic(VBA)
-
13
リストボックスの複数データをセルに転記する
その他(プログラミング・Web制作)
-
14
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
-
15
エクセル VBA ユーザーフォーム リストボックスで選択した値をテキストボックスに自動表示
Visual Basic(VBA)
-
16
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
17
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
18
VBAコンボボックスで選択した値をシートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
VBA コードを実行すると画面が...
-
【Excel VBA】書き込み先ブック...
-
[Excel]ADODBでNull変換されて...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBAで複数のブックを開かずに処...
-
ワイルドカード「*」を使うとう...
-
Excelブックがアクティブになっ...
-
2つ目のコンボボックスが動作...
-
VBS Bookを閉じるコード
-
VBAで別のブックにシートをコピ...
-
エクセルのマクロについて教え...
-
VBSでExcelのオープン確認
-
【マクロ】違うフォルダにある...
-
マクロを使って不特定のファイ...
-
Dir関数で複数ブックへ行いたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別ブックをダイアログボックス...
-
VBA シートをコピーする際に Co...
-
VBA 別ブックからコピペしたい...
-
エクセルVBAが途中で止まります
-
VBAで別ブックのシートを指定し...
-
ワイルドカード「*」を使うとう...
-
Excelマクロ 該当する値の行番...
-
VBAで別のブックにシートをコピ...
-
【Excel VBA】書き込み先ブック...
-
[Excel]ADODBでNull変換されて...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【ExcelVBA】インデックスが有...
-
VBS Bookを閉じるコード
-
ユーザーフォームの切り替えに...
-
vbaでvbaProjectのパスワード解...
-
【VBA】全シートの計算式を全て...
-
Excel にて、 リストボックスの...
-
フォルダ内の全てのファイルに...
-
【マクロ】違うフォルダにある...
おすすめ情報
対応して頂き誠にありがとうございました。
練習問題ではなく、伝票発行に使用したいと思っております。
希望としては、可能であれば、カソールのあるセルに転記していけたらと考えて
いました。
説明不足で済みません。