VBAを使用してExcelフォームから別の行にレコードを保存するにはどうすればよいですか？
user71812
したがってInvoice_Form、ExcelワークブックInvoiceForm.xlsmのシートに次のような請求書フォームがあります。
およびInvoice DatabaseExcelワークブックInvoiceDatabase.xlsmのシートにある請求書レコードのデータベース：
フォームから請求書データベースにレコードをリンクできるVBAコードを作成しましたが、コードが現在実行できるのは、請求書フォームの最初の行のみを記録することです。 
コードは次のようになります。
Sub Submit_Invoice()
Dim LastRow As Long, ws As Worksheet
Set ws = Sheets("InvoiceDatabase")
LastRow = ws.Range("I" & Rows.Count).End(xlUp).Row + 1
ws.Range("K" & LastRow).Value = Worksheets("Invoice Form").Range("C9:C16").Value
ws.Range("L" & LastRow).Value = Worksheets("Invoice Form").Range("D9:D16").Value
....
End Sub
したがって、問題は、請求書フォームに追加の製品がある場合に、この1つのフォームに基づいて異なる行に複数のレコードを作成できるようにコードを変更するにはどうすればよいですか？
ありがとう！
user4039065
フォームから配列を作成し、その配列をInvoiceDatabaseにダンプします。
Sub Submit_Invoice()
Dim lr As Long, ws As Worksheet
dim arr as variant, i as long
with Worksheets("Invoice Form")
lr = .cells(16, "C").end(xlup).row - 8
redim arr(1 to lr, 1 to 6)
for i=lbound(arr,1) to ubound(arr, 1)
arr(i, 1) = .cells(5, "D").value
arr(i, 2) = .cells(6, "D").value
arr(i, 3) = .cells(i+8, "C").value
arr(i, 4) = .cells(i+8, "D").value
arr(i, 5) = .cells(i+8, "E").value
arr(i, 6) = .cells(i+8, "F").value
next i
end with
WITH WORKSheets("InvoiceDatabase")
lr = .Range("I" & .Rows.Count).End(xlUp).Row + 1
.cells(lr, "I").resize(ubound(arr, 1), ubound(arr, 2)) = arr
end with
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
javascriptコードを呼び出すWebサイトのフォームに入力し、Pythonを使用して別のフレームから結果を取得するにはどうすればよいですか？
- 2
別のデータフレームに保存されている、テストレコードに最も類似したデータセットからレコードを見つけるにはどうすればよいですか？
- 3
Javascriptを使用してフォームデータを別のページのテーブルに保存するにはどうすればよいですか？
- 4
ループフォームを使用してデータ行を保存してdjangoにデータを保存するにはどうすればよいですか？
- 5
フォームウィンドウが開いている間、VBAでコードを実行し続けるにはどうすればよいですか？
- 6
Pythonを使用してビデオの特定のフレームをフォルダーに保存するにはどうすればよいですか？
- 7
PHPを使用してmysqlレコードをコピーし、別のIDで保存するにはどうすればよいですか？
- 8
Access VBAで追加クエリを実行して、フォームのフィールドの数量に基づいて特定の数の同一のレコードを作成するにはどうすればよいですか？
- 9
.locを使用してforループ内の別の行にデータフレーム行を追加するにはどうすればよいですか？
- 10
別のフレームワークのコマンドラインからdnxxunitテストを実行するにはどうすればよいですか？
- 11
Sparkを使用してテキストファイルから複数行のレコードを抽出するにはどうすればよいですか？
- 12
react-routerを使用してフォームの状態をコンポーネントに保存するにはどうすればよいですか？
- 13
Excel VBAを使用して、最初の列に特定のコードを含む行を削除するにはどうすればよいですか？
- 14
reactjsを使用して1つのフォーム値を別のフォーム値として設定するにはどうすればよいですか？
- 15
ajaxを使用してlaravelに複数の行フォームを保存するにはどうすればよいですか？
- 16
ASMを使用して別のスレッドで実行されるコードを取得するにはどうすればよいですか？
- 17
ASMを使用して別のスレッドで実行されるコードを取得するにはどうすればよいですか？
- 18
別のフォームを保存するときに別のモデルフィールドを更新するにはどうすればよいですか？
- 19
フォームでカスタムメソッドを使用して、Djangoの別のサーバーからリクエストを送信し、レスポンスを受け入れるにはどうすればよいですか？
- 20
Wordpressで、ファイルアップロードオプションを使用してカスタムフォームをコーディングし、MySqlにレコードを保存するにはどうすればよいですか？
- 21
ASP.Net WebフォームでRoslynを使用してC＃コードを実行するにはどうすればよいですか？
- 22
別のデータフレームを使用してデータフレームに列を追加するにはどうすればよいですか？
- 23
elequentモデルを使用してlaravelテーブルから個別のレコードを取得するにはどうすればよいですか？
- 24
フォームに入力して戻ってphpのレコードを変更するにはどうすればよいですか
- 25
10月のCMS-フロントエンドフォームを使用してpng画像を保存するにはどうすればよいですか？
- 26
tcshで、複数のシェルコマンドをフォークし、それらがすべて完了するまで待ってから、別のコマンドを実行するにはどうすればよいですか？
- 27
以下に示すように、このコードを実行した後、opencvを使用して画像を保存するにはどうすればよいですか？
- 28
pysparkを使用してデータフレーム内の個別の行を取得するにはどうすればよいですか？
- 29
PILを使用して、パンダデータフレームの行の値から画像を作成するにはどうすればよいですか？
コメントを追加