0

ワークシート (エントリ) にフォームがあり、誰かがフォームに入力して [送信] をクリックすると、同じワークブック内の別のシート (集計) に値が保存されます。問題は、送信されたすべてのフォームを収集し、以前の値を上書きせずに集計シートに順番に配置する必要があることです。現時点で私は持っています：

r = Range("B5:E5")
Sheets("Tally").Range("B5:E5") = r

しかし、これは明らかに、送信ボタンがクリックされるたびに Tally の値を上書きします。何かのようなもの：

r = Range("B5:E5")
x = next free row on Tally
Sheets("Tally").Range("Bx:Ex") = r
4

1 に答える 1

1 
r = worksheets("entry").range("b5:e5")
nextFreeRow = worksheets("tally").Cells(Rows.Count,"B").end(xlup).row + 1
worksheets("tally").range("b" & nextFreeRow, "c" & nextFreeRow) = r

動作するはずですが、今はこれをテストできません。悪いフォーマットのためにsry、ipadからの書き込み

于 2013-01-21T23:43:04.220 に答える