Private Sub psubシートの中の部分表の幅をコピーする(ByRef pshtFrom As Worksheet, _
ByVal plngFromStartRow As Long, _
ByVal pintFromStartCol As Integer, _
ByVal plngFromEndRow As Long, _
ByVal pintFromEndCol As Integer, _
ByVal pshtTo As Worksheet, _
ByVal plngToStartRow As Long, _
ByVal pintToStartCol As Integer)
Dim lngForRow As Long
Dim intForCol As Integer
Dim dblTemp As Double
If plngFromEndRow = 0 Then
plngFromEndRow = plngGetLastRow(pshtFrom, pintFromStartCol)
End If
pshtFrom.Parent.Activate
pshtFrom.Select
For lngForRow = plngFromStartRow To plngFromEndRow
dblTemp = pshtFrom.Range(pshtFrom.Cells(lngForRow, pintFromStartCol), pshtFrom.Cells(lngForRow, pintFromStartCol)).RowHeight
pshtTo.Rows(plngToStartRow + lngForRow - plngFromStartRow).RowHeight = dblTemp
Next
For intForCol = pintFromStartCol To pintFromEndCol
dblTemp = pshtFrom.Range(pshtFrom.Cells(plngFromStartRow, intForCol), pshtFrom.Cells(plngFromStartRow, intForCol)).ColumnWidth
pshtTo.Columns(pintToStartCol + intForCol - pintFromStartCol).ColumnWidth = dblTemp
Next
End Sub