Sub ReplaceFolderNames()Dim ws As WorksheetDim lastRow As Long, i As LongDim folderPath As String, searchName As String, replaceName As StringDim folder As Object, fso As Object Set ws = ThisWorkbook.Sheets(1) ' 1番目のシートを使用lastRow …

Sub CopyDataFromMultipleWorkbooks()' 変数宣言Dim wsTemplate As Worksheet, wsNew As WorksheetDim wbSource As WorkbookDim strFolderPath As String, strFileName As StringDim selectedMonth As StringDim targetColumn As Integer ' ユーザーに月名の…

Sub TransferData()Dim ws As WorksheetDim newWorkbook As WorkbookDim newRow As IntegerDim cellValueE12 As Variant, cellValueE13 As Variant ' 新規ワークブックを作成Set newWorkbook = Workbooks.AddnewRow = 1 ' ThisWorkbookの各シートをループFor…

Sub SearchTextInWordDocument()' 必要な変数の宣言Dim wordApp As Word.ApplicationDim wordDoc As Word.DocumentDim selectedFile As VariantDim ws As WorksheetDim lastRow As Long, i As LongDim searchText As StringDim searchCount As Long ' ユーザ…

' 指定されたテンプレート文字列内のプレースホルダーを実際のデータで置き換える関数Function ReplacePlaceholders(ByVal template As String, ByVal ws As Worksheet, ByVal rowNum As Long) As String' 置き換えるプレースホルダーの配列Dim placeholders…

Sub ClearDataAndFormatting()Dim ws As WorksheetDim LastRow As Long ' Excelシートの設定Set ws = ThisWorkbook.Sheets("メール送付_一括送付") ' 最終行を取得LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' E列、F列、G列の既存データをクリ…

Sub CopyEmailContentsToSheet()Dim OutlookApp As ObjectDim OutNamespace As ObjectDim SharedInbox As ObjectDim MailItem As ObjectDim ws As WorksheetDim i As Long, j As IntegerDim Found As Boolean On Error GoTo ErrorHandler ' Excelシートの設…