※ページの一番下により効率よいコードに変更した部品改修版あり ■呼び出し元プロシージャ Sub 読込テスト() Dim strResult As String strResult = fncImportTable("MT_社員マスタ", "W_社員マスタ", 4) Debug.Print strResult End Sub ■呼び出し先 部品使用…

Sub MergeCells() 'セルを結合する Range("B5:C5").Merge End Sub

■セルの書式設定 Sub setFormat() 'セルの書式を設定 Range("B3").NumberFormatLocal = "yyyy/mm/dd" End Sub

■セルの幅を指定 Sub setCellWidth() 'セル幅を指定 Range("B2").EntireColumn.ColumnWidth = 15 End Sub ■セルの高さを指定 Sub setColumnHight() 'セル高さを指定 Range("B2").EntireRow.RowHeight = 30 End Sub

Sub setBackgroundColor() 'セルの背景色をグレーに設定 Range("B2").Interior.ColorIndex = 15 End Sub ray88.hatenablog.com

■普通にコピペ （例）Sheet1のB1~D4の範囲をSheet2のB2セルを起点に貼り付ける ※関数も自動でセルの番地変換して貼り付けてくれるようだ Sub test5() Worksheets("Sheet1").Range("B1:D4").Copy Worksheets("Sheet2").Range("B2") End Sub ■値貼り付け （例…