Как мне запихнуть диапазон даных с листа в vsFlexArray?

@jenya111 · Регистрация: 12.01.2011

Author24 — интернет-сервис помощи студентам

Здраствуйте! Подскажите пожалуйста. ( кто знает)

Очень хочу приспособить у себя на форме vsFlexArray , а на листе есть диапазон данных - как мне запихнуть диапазон даных с листа в vsFlexArray? При том ещё нужно время от времени обновлять с листа.
Заранее благодарен.
P.S. Может что то похожее есть?!

13.01.2011, 10:10

а vsFlexArray- это что ???

@jenya111 · 13.01.2011, 10:24 **[ТС]**

ето дополнительный элемент. типа такая талбичка на форме ставится и есть такое подозрение что она работать должна.

с листа надо даные в неё запихнуть. не могу

13.01.2011, 10:34

а стандартными функциями можноли??? типа
add item items....
или присвоить Область ячеек массиву
add item items....
я не понял это список или ...

@jenya111 · 13.01.2011, 10:40 **[ТС]**

спасибо. жаль но я ничего не понял.

@pashulka · 13.01.2011, 11:36

Private Sub UserForm_Initialize()

For iRow = 1 To 10
iDate = Cells(iRow, 1).Value
vsFlexArray1.TextMatrix(iRow, 1) = iDate
Next

End Sub

@jenya111 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 4
		1
	Как мне запихнуть диапазон даных с листа в vsFlexArray? 13.01.2011, 09:49. Показов 1713. Ответов 5 Метки нет (Все метки) Здраствуйте! Подскажите пожалуйста. ( кто знает) Очень хочу приспособить у себя на форме vsFlexArray , а на листе есть диапазон данных - как мне запихнуть диапазон даных с листа в vsFlexArray? При том ещё нужно время от времени обновлять с листа. Заранее благодарен. P.S. Может что то похожее есть?! 0

@jenya111 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 4
	13.01.2011, 10:24 [ТС]	3
	ето дополнительный элемент. типа такая талбичка на форме ставится и есть такое подозрение что она работать должна. с листа надо даные в неё запихнуть. не могу 0

tomik
	13.01.2011, 10:34	4
	а стандартными функциями можноли??? типа add item items.... или присвоить Область ячеек массиву add item items.... я не понял это список или ...

@jenya111 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 4
	13.01.2011, 10:40 [ТС]	5
	спасибо. жаль но я ничего не понял. 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	13.01.2011, 11:36	6
	Private Sub UserForm_Initialize() For iRow = 1 To 10 iDate = Cells(iRow, 1).Value vsFlexArray1.TextMatrix(iRow, 1) = iDate Next End Sub 0