как правильно удалить 1 элемент из массива сохранением всех остальных значений VBA

ARP123 Гость	#1 17.12.2010 10:33:23 Вот часть моего кода. работает не так как задумывалось. ReDim Preserve IArrow(x) IArrow(x) = IArrow(x) x = x - 1 Заранее спасибо

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 17.12.2010 10:38:12 http://www.planetaexcel.ru/forum.php/tips.php?thread_id=8548 А также http://yandex.ru/sitesearch?text=удалить+элемент+массива&searchid=84804

ARP123 Гость	#3 17.12.2010 10:43:15 что то я не понял... Подскажите Вы если знаете как правильно и коротко удалить элемент из массива. заранее спасибо.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

17.12.2010 11:01:48

С помощью Redim можно удалить только последние элементы (в случае многомерного массива - только последние элементы последней размерности). F1 - Redim.
В других случаях надо писать цикл для перекладывания элементов.
Удаление последнего элемента:

ReDim Preserve IArrow(ubound(IArrow)-1)

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

17.12.2010 11:23:11

так можно удалить из цикла в цикл
x=5' удаляемый элемент
redim arrF(1 to ubound(arr)-1):y=1
for i = 1 to ubound(arr)
if i<>x then arrF(y)= arr(i):y=y+1
next

Спасибо
Mail: В профиле Skype: В профиле

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#6 17.12.2010 14:59:41 ну накрутили.. :) n=5' удаляемый элемент for i=n to ubound(arr)-1 arr(i)=arr(i+1) next redim preserve arr(lbound(arr) to i-1) Живи и дай жить..

Guest Гость	#7 17.12.2010 15:50:32 {quote}{login=слэн}{date=17.12.2010 02:59}{thema=}{post}ну накрутили.. :) n=5' удаляемый элемент for i=n to ubound(arr)-1 arr(i)=arr(i+1) next redim preserve arr(lbound(arr) to i-1){/post}{/quote} Старался...... :) зы на заметку взял

Читают тему