| |
▼kao さん：
ponpon です。こんばんは。
>その通りです｡sheet1は情報入力用で数行一度に入力します｡そしてそれらのセルをデータをためていくsheet2の最下行に足していくというものです。
testを試して頂きましたでしょうか？
何行ずつ入力するか知りませんが、今の仕様は一行（A2〜C2）をsheet2に
入力するようになってます。
Sub test()
Dim myVal As Variant
myVal = Worksheets("sheet1").Range("A2:C2").Value
Worksheets("sheet2").Range("A65536").End(xlUp).Offset(1, 0) _
.Resize(1, 3).Value = myVal
End Sub
>フィルターはユーザーフォームに日付と顧客名を入力していただいてかけようと考えています｡その後､抽出したデータを印刷専用の定型となっているsheet3に貼付､印刷というものです｡どうか宜しくお願いします｡
test2の日付の部分をtextbox1.text とtextbox2,text
名前の部分をtextbox3.textに変えて、コマンドボタンで実行してください。
|
|
ponpon
- 05/3/28(月) 20:33 -
