【薬局】Excelで自動化、自賠責請求！

薬局の自賠責請求をExcelで自動化
※2回目以降の請求書作成は、フォルダ内の前回作成した自賠CSVファイル（この動画ではレセプト一覧.CSV）をフォルダから消してから新しい自賠CSVファイルをフォルダ内に入れてください。（ファイル内には、自賠CSVファイルと請求Excelファイルの２つだけになるように。）


Sub 請求書自動作成()
Dim i As Long
Dim L As Long
FilePath = ThisWorkbook.Path
Workbooks.Open FilePath & "\レセプト一覧.csv"
L = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(1, 1).End(xlDown).Row
For i = 2 To L
Workbooks("請求書.xlsm").Worksheets("請求書").Range("H10").Value = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(i, 14).Value
Workbooks("請求書.xlsm").Worksheets("請求書").Range("F3").Value = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(i, 2).Value
Workbooks("請求書.xlsm").Worksheets("請求書").Range("C7").Value = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(i, 9).Value
Workbooks("請求書.xlsm").Worksheets("請求書").Range("H8").Value = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(i, 3).Value
Workbooks("請求書.xlsm").Worksheets("請求書").Range("H9").Value = Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Cells(i, 10).Value
Workbooks("請求書.xlsm").Worksheets("請求書").PrintPreview
Next i
Workbooks("レセプト一覧.csv").Close savechanges:=False
Workbooks("請求書.xlsm").Worksheets("患者リスト").Activate
End Sub


Sub シートを作って年月日記入()
Workbooks("請求書.xlsm").Activate
Worksheets(Worksheets.Count).Select
Worksheets.Add After:=Worksheets(Worksheets.Count)
FilePath = ThisWorkbook.Path
Workbooks.Open FilePath & "\レセプト一覧.csv"
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("C2").Activate
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("C2").Copy
Workbooks("請求書.xlsm").Activate
Worksheets(Worksheets.Count).Activate
Range("D2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Name = Format(Range("D2").Value, "yyyy""年""m""月""")
Workbooks("レセプト一覧.csv").Activate
Worksheets("レセプト一覧").Activate
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("J2", Range("J2").End(xlDown)).Select
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("J2", Range("J2").End(xlDown)).Copy
Workbooks("請求書.xlsm").Activate
Workbooks("請求書.xlsm").Worksheets(Worksheets.Count).Range("A1").Select
Workbooks("請求書.xlsm").Worksheets(Worksheets.Count).Range("A1").PasteSpecial
Application.CutCopyMode = False
Workbooks("レセプト一覧.csv").Activate
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("N2", Range("N2").End(xlDown)).Select
Workbooks("レセプト一覧.csv").Worksheets("レセプト一覧").Range("N2", Range("N2").End(xlDown)).Copy
Workbooks("請求書.xlsm").Activate
Workbooks("請求書.xlsm").Worksheets(Worksheets.Count).Range("B1").Select
Workbooks("請求書.xlsm").Worksheets(Worksheets.Count).Range("B1").PasteSpecial
Application.CutCopyMode = False
Workbooks("レセプト一覧.csv").Close savechanges:=False
Workbooks("請求書.xlsm").Activate
Range("B1", Range("B1").End(xlDown)).Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("C1", Range("C1").End(xlDown)).Select
ActiveCell.FormulaR1C1 = "=RC[-1]*10+1000"
Range("C1").Select
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
Range("C1", Range("C1").End(xlDown)).Select
Selection.NumberFormatLocal = "\#,##0_);[赤](\#,##0)"
Range("D1").Activate
Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-1])"
Range("B1", Range("B1").End(xlDown)).Select
Selection.NumberFormatLocal = "0""点"""
End Sub