データー用のブックに、リストボックスを作り、リストボックスのデーターを
複数選び(複数選べる)、別ブロックのセルに転記する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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
リストボックスの項目に、他のブックのセルの値を設定するには?
Access(アクセス)
-
Excelで質問です。ListBoxの項目を別bookから読込むには
その他(Microsoft Office)
-
VBA。リストボックスの値を別のユーザーフォームのテキストボックスに反映したい。
Access(アクセス)
-
-
4
VBA リストボックス内の値を複数選択し別シートに転記するには
Visual Basic(VBA)
-
5
excelのリストボックスで選択した項目をアクティブセルに入力方法
Excel(エクセル)
-
6
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
7
Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。
Visual Basic(VBA)
-
8
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
9
Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。
Visual Basic(VBA)
-
10
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
11
リストボックスをクリックすると、他フォームに値代入
Excel(エクセル)
-
12
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
-
13
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
14
VBAで指定期間の範囲を抽出し、リストボックスに表示したいです。
Visual Basic(VBA)
-
15
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
条件に応じてコンボボックスの背景色を変えたいです
Excel(エクセル)
-
18
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
19
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
20
EXCEL-VBAでコマンドボタンに条件を追加したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAが途中で止まります
-
VBA シートをコピーする際に Co...
-
エクセルのVBAコードについて教...
-
ワイルドカード「*」を使うとう...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBA コードを実行すると画面が...
-
Excel-VBAでのファイルの開き方
-
【ExcelVBA】zip圧縮されたCSV...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】インデックスが有...
-
Excel2007VBAファイルの表示に...
-
VBA 実行時エラー 2147024893
-
VBSでExcelのオープン確認
-
別ブックからの取込み保存エラー
-
VBA 別ブックからコピペしたい...
-
Workbooks(workbooks.count)に...
-
転記先VBA 一致しているセルが...
-
複数ファイルのシートを1つにま...
-
Excelのマクロコードについて教...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報
対応して頂き誠にありがとうございました。
練習問題ではなく、伝票発行に使用したいと思っております。
希望としては、可能であれば、カソールのあるセルに転記していけたらと考えて
いました。
説明不足で済みません。