Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение значения в массив после цикла - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение значения в массив после цикла (Макросы/Sub)
Сохранение значения в массив после цикла
DimanYamoz Дата: Вторник, 29.01.2019, 12:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Как правильно сохранить значение после цикла в массив. После завершения цикла вывести этот массив на экран.

[vba]
Код
Dim kolv As Integer
Dim intC As Integer
Dim r As Range
Dim mar()
Range(Selection, Selection.End(xlToRight)).Select
kolv = Selection.Cells.Count
ActiveCell.Offset(0, 1).Select

For i = 0 To kolv - 1
If Selection.Cells.Value >= 1 Then
Set r = ActiveCell
intC = r.Column
mar() = intC

End If

If IsEmpty(ActiveCell) = True Then
MsgBox "End"
Exit Sub
End If
ActiveCell.Offset(0, 1).Select

Next i
MsgBox ("Stolbec: " & mar(intC))
'MsgBox ("Stolbec: " & mar)
End Sub
[/vba]


Сообщение отредактировал DimanYamoz - Вторник, 29.01.2019, 13:31
 
Ответить
СообщениеКак правильно сохранить значение после цикла в массив. После завершения цикла вывести этот массив на экран.

[vba]
Код
Dim kolv As Integer
Dim intC As Integer
Dim r As Range
Dim mar()
Range(Selection, Selection.End(xlToRight)).Select
kolv = Selection.Cells.Count
ActiveCell.Offset(0, 1).Select

For i = 0 To kolv - 1
If Selection.Cells.Value >= 1 Then
Set r = ActiveCell
intC = r.Column
mar() = intC

End If

If IsEmpty(ActiveCell) = True Then
MsgBox "End"
Exit Sub
End If
ActiveCell.Offset(0, 1).Select

Next i
MsgBox ("Stolbec: " & mar(intC))
'MsgBox ("Stolbec: " & mar)
End Sub
[/vba]

Автор - DimanYamoz
Дата добавления - 29.01.2019 в 12:01
Pelena Дата: Вторник, 29.01.2019, 12:13 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13660
Репутация: 3004 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
DimanYamoz, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеDimanYamoz, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 29.01.2019 в 12:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение значения в массив после цикла (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!