Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26307 / 76732

←次へ　｜　前へ→


	【55757】選択複数セルのデータ取得

おじさん４６ - 08/5/18(日) 17:22 -


	引用なし

	パスワード

VBAの勉強も兼ねて注文伝票発行ファイルを作成しています。

選択した１個のセルのデータを取得して表の一番下に記録することは出来たんですが、

Private Sub CommandButton1_Click()
　
　　TextBox1.Value = Range(Selection.Address)

End Sub

Private Sub CommandButton2_Click()

　　Worksheets("sheet1").Activate
　　
　　With Range("B9").End(xlDown).Offset(1, 0)
　　　　.Value = TextBox1.Value
　　End With
　　
End Sub

これが複数セルになると、てんでわかりません。
学習しながら作りたいと思いますので、ご指導をお願いします。

シートの配列は下記の通りです。
　　B　　 C　　　D　　　E　　　 F　　 G　　　 H
9　連番　日付　品名　規格　　数量　単価　　金額　　※金額はセル内計算(=F*G)でもとめます。
10　1　　 080515 ペン　 PE-A01　 5　　 103.56　517.80
11　2　　 080517 付箋　 F-U01-5　3　　　80.72　242.16
12
13

行10のデータ（B10:H10のセルを選択して）をテキストボックスに順に表示したいと思っています。

流れは、
B10→TextBox1へ ※連番の作成は後日勉強します。
C10→TextBox2へ ※日付は"Now"関数で行こうと思っています。
D10→TextBox3へ
E10→TextBox4へ
F10→TextBox5へ
G10→TextBox6へ

そして、行12におのおの記録と思ったています。
記録の前に印刷があるのですが構想がまだまとまってないので、後日勉強したいと思っています。
部分的ですがよろしくお願いします。

1 hits

▼

【55757】選択複数セルのデータ取得 おじさん４６ 08/5/18(日) 17:22

≪