エクセルのマクロについての質問です!

エクセルのマクロについての質問です! 入力フォーマットに入力した内容を別々のファイルに更新する作業をマクロで行えないかと思います 【入力フォーマット】 管理番号 品名 金額 ① ●● ●● ① ●● ●● ② ●● ●● 作成ファイル①(マスタデータ)※マスタデータフォーマットは既に作成済みとする ※マスタデータへは入力フォーマットに入力した内容を一つのシートに随時更新していきます 作成ファイル②(管理番号ファイル) ※管理番号別に別フォルダにファイルを作成します この時の作成ファイル名は管理番号に入力されているデータ名を基に作成します ファイル名① 管理番号 品名 金額 ① ●● ●● ① ●● ●● ファイル名② 管理番号 品名 金額 ② ●● ●● 理想としてはファイル名に対象の管理番号の数も入れられればなお良いです 入力フォーマットで更新ボタンを押すことでマクロが起動する様に出来ればと思います! 至急作成したいので知識がある方は是非回答お願い致します ♂️

Excel | Visual Basic49閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

1

データファイルを作成する1つの例です。参考にしてください。以下はデータリストから管理番号のファイルを新たに作成します。これ以上は具体的なことが不明(データ構成やシート構成、セル位置等)のため作成できません。あしからず。 Sub test() Dim i As Long Dim wb, newwb As Workbook Dim fn As String Dim Target As String Const Path As String = "C:\Users\○○\Desktop\△△\" '管理番号のファイルを格納するフォルダ Set wb = ThisWorkbook With wb.Worksheets("Sheet1") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row fn = .Cells(i, 1) & ".xlsx" Target = Path & fn With CreateObject("Scripting.FileSystemObject") If .FileExists(Target) Then MsgBox fn & vbCrLf & "はファイルが既にあります" 'ファイルを開いて処理するコードを書く Else MsgBox fn & vbCrLf & "が存在しません" _ & vbCrLf & "管理番号のファイルを新規作成します" Set newwb = Workbooks.Add newwb.Activate ActiveWorkbook.SaveAs FileName:=Path & fn, _ FileFormat:=xlOpenXMLWorkbook '新規作成したファイルに処理するコードを書く ActiveWorkbook.Close End If End With Next i End With End Sub

画像

1人がナイス!しています