MyTetra Share
Делитесь знаниями!
массив из указанного листа
26.06.2018
20:56
Текстовые метки: k_Готовые модули-array,aTemp
Раздел: VBA - Array



'=========================================================================

'##### массив из указанного листа

'

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function Загрузка_массива(ByVal oSh As Worksheet, _

Optional iNbRowStart As Long = 1, _

Optional iNbClnStart As Long = 1, _

Optional iNbClnFindRowEnd As Long = 1) As Variant


' iNbClnFindRowEnd - столбец в котором ищем последнюю строку

Dim iNbRowEnd As Long

Dim iNbClnEnd As Long

With oSh

iNbCln = .Cells(iNbRowStart, 256).End(xlToLeft).Column

iNbRowEnd = .Columns(iNbClnFindRowEndt).Rows(65536).End(xlUp).Row

''''.Cells(iNbRow, 1).Resize(UBound(aTemp), UBound(aTemp, 2)) = aTemp

Загрузка_данных2 = Range(.Cells(iNbRowStart, iNbClnStart), .Cells(iNbRowEnd, iNbClnEnd)).Value

' .Range(strRange).Copy Destination:=ThisWorkbook.Sheets("ListPJI").Cells(1, 1)

End With

' Application.CopyMode = False

End Function

'=========================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования