Преглед садржаја
Претворите матрицу у вектор
Ово је супротно упутство претварања вектора једног реда у матрични водич.
Следећа функција ће узети опсег као матрицу и претворити га у вектор једне колоне:
Опција Експлицитна функција Цреате_Вецтор (Матрик_Ранге Ас Ранге) Као варијанта Дим Но_оф_Цолс Ас Интегер, Но_Оф_Ровс Ас Интегер Дим и Ас Интегер Дим ј Ас Интегер Дим Целл Но_оф_Цолс = Матрик_Ранге.Цолумнс.Цоунт Но_Оф_Ровс = Но_Ровс_Ро_Ронг 'Уклоните НУЛЛ услове ако Матрик_Ранге није ништа Затим изађите из функције Ако је Но_оф_Цолс = 0 Затим изађите из функције Ако је Но_Оф_Ровс = 0 Затим изађите из функције За ј = 1 У Но_Оф_Ровс За и = 0 У Но_оф_Цолс - 1 Темп_Арраи ((и * Но_Оф_Ровс) Матрик_Ранге.Целлс (ј, и + 1) Нект и Нект ј Цреате_Вецтор = Темп_Арраи Енд Функција
Тако на пример вектор:
Постаће:
Тамо где смо користили следећу потпрограм за штампање вектора:
Привате Суб ЦоммандБуттон1_Цлицк () Дим Вецтор Дим к Ас Интегер Вецтор = Цреате_Вецтор (Схеетс ("Схеет1"). Ранге ("А4: Д8")) Фор к = 1 То УБоунд (Вецтор) Схеетс ("Схеет1"). Ранге (" Б20 "). Одступање (к, 1). Вредност = Вектор (к) Следеће к Крај под
Имајте на уму да ове рутине раде и на бројевима и на тексту.
Кликните овде да бисте преузели .КСЛСМ датотеку из овог водича.
