|
わいわいさん
すぐ返事をくれたんですね。ありがとうございます。
私の説明が不十分の様です。
ご迷惑をかけました。もう一度書きます。
概要
注文伝票作成ファイルの作成を思っています。
フォーム上でテキストボックスに必要事項を入力して、
それをシート上に記録して、印刷も同時にと思っています。
ある程度データが溜まれば過去の記録をオートフィルターで探してセルを選択することで印刷して、シート上に記録できればと思っています。
Sheet1上は、
CommandButton1=ボタン UserForm1を開くボタンです。
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
UserForm1上は、
CommandButton1=ボタン Sheet1の選択されたセルから各TextBoxへデータを収集するボタンです。
CommandButton2=ボタン UserForm1上の各TextBoxに表示されたデータを、
ここでは空白のB12:H12に格納するボタンです。
TextBox1=テキストボックス B列の連番の収集・格納用
TextBox2=テキストボックス C列の日付の収集・格納用
TextBox3=テキストボックス D列の品名の収集・格納用
TextBox4=テキストボックス E列の規格の収集・格納用
TextBox5=テキストボックス F列の数量の収集・格納用
TextBox6=テキストボックス G列の単価の収集・格納用
あと、
CommandButton3=ボタン UserForm1上の各TextBoxに表示されたデータを、
印刷するボタン。
を作る予定です。
しかし、私の知識では選択した1個のセルのデータを取得して表の一番下に記録することはまでしか出来なかったんです。
CommandButton1=ボタンで
Private Sub CommandButton1_Click()
TextBox1.Value = Range(Selection.Address)
End Sub
CommandButton2=ボタンで
Private Sub CommandButton2_Click()
Worksheets("sheet1").Activate
With Range("B9").End(xlDown).Offset(1, 0)
.Value = TextBox1.Value
End With
End Sub
一個のセルを選択して、一個のテキストボックスに表示して、そのテキストボックスのデータしかシートのセルに書き出す事しか出来ませんでした。
これが複数セルになると、てんでわかりません。
ご指導をお願いします。
|
|