'CSVボタンPrivate Sub csv_btn_Click() Call CSV_btn_Function End Sub 'QRボタンPrivate Sub QR_btn_Click() Call QR_btn_FunctionEnd Sub

Option Explicit 'このソフトのみの関数 '基本設定（出力先のシート名など）Public Sub Standard_Set() Set ws_set = Worksheets("設定") '設定シート Set ws_Out = Worksheets(ws_set.Range("E1").Value) '出力シート Set non_Lock_rng = ws_Out.Range(ws_s…

'変数設定 Public CountData_AllField() As String '入力カウント '全項目のカウントPublic CountData_HinCode() As String '入力カウント '品目コード毎のカウントPublic CountData_zai() As String '入力カウント '在庫種類と品目コード毎のカウントPublic…