■指定したセルから指定した行数・列数だけ離れたセルのオブジェクトを取得するプロパティ オブジェクト.Offset( RowOffset, ColumnOffset ) ・オブジェクト：Rangeオブジェクト ・RowOffset ：行方向の移動数。元のセルを０とする整数で指定 ・ColumnOffset…

■書式：オブジェクト.Left ■以下の様に固定的に座標を取得していたとします。 Set shp = ActiveSheet.Shapes.AddLine(200, 50, 500, 50) ■Leftプロパティによって座標を取得したコードに変更 Set shp = ActiveSheet.Shapes.AddLine(Range("E2").Left, 50, Ra…

■書式：オブジェクト.Top ■以下の様に固定的に座標を取得していたとします。 Set shp = ActiveSheet.Shapes.AddLine(200, 50, 500, 50) ■Topプロパティによって座標を取得したコードに変更(セルの上端に矢印線が引かれる） Set shp = ActiveSheet.Shapes.Add…

Option Explicit Sub クリア() Dim lastRow As Integer With ThisWorkbook.Sheets("マスタ") lastRow = .Cells(Rows.Count, 4).End(xlUp).Row .Range(Cells(7, 5), Cells(lastRow, 9)).ClearContents .Range("D2:D4").ClearContents .Range("E3:F3").ClearCo…

Option Explicit Sub Prosess2() Dim wb As Workbook Dim tempPath As String Dim newPath As String Dim newWb As Workbook Dim lastRow As Long Dim strMonth As String Dim storagePath Dim val1 As String Dim val2 As String Dim TargetNum As Long Dim…

Option Explicit Const strSearchWord As String = "削除" & vbLf & "フラグ" Const strDefFileName As String = "RPA用集計.xlsx" Const masterSheet As String = "マスタ" 'マクロツールブックのマスタシート名 Const masterStartRow As Integer = 7 Dim s…