Sub CopyRange(ByVal sourceSheet As Worksheet, ByVal sourceRange As String, ByVal destinationSheet As Worksheet, ByVal destinationCell As String) Dim source As Range Dim destination As Range ' コピー元の範囲を取得 Set source = sourceSheet.R…

Function GetPrintAreas(ByVal targetSheet As Worksheet) As String() '-------------------------------------------------------------- '機能：指定されたワークシートの印刷範囲を取得する '引数：対象のワークシートオブジェクト '戻り値：印刷範囲の…