エクセルVBA（マクロ）を作ってみました。
プロではないのでコードが雑だと思いますが、
誰かのためになればと思いアップしました。
コードが欲しい方は、TwitterのDMまでご連絡いただければ、
この動画で使ったコードをお渡しできます。
是非ご連絡をお待ちしております。
Twitterは↓にURLあります。
♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬♪♬
◆Twitterもやってますので、良かったらフォローお願いします。
https://twitter.com/Cas03183927
⇩今回のコード
Sub 請求書作成()
Dim i As Long
Dim row As Long
Application.ScreenUpdating = False ‘画面を一時停止する
With Sheets(“データ”) ‘Withを使うとSheets(“データ”)という記述が省略できる
‘最終行の取得
row = .Range(“A3”).End(xlDown).row
‘最終行までループ
For i = 3 To row ‘i = 3というこうとは、iに3が代入されているということです
‘請求書フォーマットを最終シートの後ろにコピー
Sheets(“請求書フォーマット”).Copy after:=Sheets(Sheets.Count)
‘シート名を会社名にする
ActiveSheet.Name = .Cells(i, 1) ‘ActiveSheetとは選択されたシート
‘ここからデータの値を転記する
‘会社名
Range(“B4”) = .Cells(i, 1) ‘セルB4に、.Cells(i, 1)を代入する
‘日付
Range(“B8”) = .Cells(i, 2) ‘セルB8に、.Cells(i, 1)を代入する
‘商品名
Range(“C8”) = .Cells(i, 3) ‘セルC8に、.Cells(i, 1)を代入する
‘数量
Range(“D8”) = .Cells(i, 4) ‘セルD8に、.Cells(i, 1)を代入する
‘単価
Range(“E8”) = .Cells(i, 5) ‘セルE8に、.Cells(i, 1)を代入する
Next i
End With
Sheets(“データ”).Select
Application.ScreenUpdating = True ‘画面の一時停止を解除する
MsgBox “完了です”
End Sub
#マクロ
#転記
#エクセル
#VBA
