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

Вход

Регистрация

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

 

= Мир MS Excel/массив и запись в него ячеек из таблицы - Мир MS Excel

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

Excel 2013
есть задача. нужно чтобы по нажатию на кнопку срабатывал макрос и выводил результат в определенную ячейку. Суть макроса-есть на листе экселя два столбца ( в первом количество товара, во втором его стоимость) нужно просуммировать те товары, где количество больше 50. И ответ выдать в ячейку д10. Сейчас код у меня такой. Но ошибки лезут. Это мой первый макрос и я сама сижу вникаю.
Private Sub CommandButton1_Click()
Dim arrKol
Dim arrStoim
Dim summa As Long
Dim i As Integer

summa = 0
i = 0

arrKol = [D18:D1017]
arrStoim = [F18:F1017]

For i = 1 To 1000

If arrKol(i) > 50 Then
summa = summa + arrStoim(i)
End If

Next i

Cells(10, 4) = summa

End Sub
Пробовала определять массивы As Long не помогла. Пробегала не до 1000 а через UBound, тоже не спасло. Ошибка скорее всего детская, но для меня не очевидная. Помогите, пожалуйста=)
 
Ответить
Сообщениеесть задача. нужно чтобы по нажатию на кнопку срабатывал макрос и выводил результат в определенную ячейку. Суть макроса-есть на листе экселя два столбца ( в первом количество товара, во втором его стоимость) нужно просуммировать те товары, где количество больше 50. И ответ выдать в ячейку д10. Сейчас код у меня такой. Но ошибки лезут. Это мой первый макрос и я сама сижу вникаю.
Private Sub CommandButton1_Click()
Dim arrKol
Dim arrStoim
Dim summa As Long
Dim i As Integer

summa = 0
i = 0

arrKol = [D18:D1017]
arrStoim = [F18:F1017]

For i = 1 To 1000

If arrKol(i) > 50 Then
summa = summa + arrStoim(i)
End If

Next i

Cells(10, 4) = summa

End Sub
Пробовала определять массивы As Long не помогла. Пробегала не до 1000 а через UBound, тоже не спасло. Ошибка скорее всего детская, но для меня не очевидная. Помогите, пожалуйста=)

Автор - Katya8041992
Дата добавления - 13.10.2018 в 21:51
Hugo Дата: Суббота, 13.10.2018, 21:57 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2857
Репутация: 639 ±
Замечаний: 0% ±

Ответ удален администрацией - вопрос задан с нарушением Правил форума


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеОтвет удален администрацией - вопрос задан с нарушением Правил форума

Автор - Hugo
Дата добавления - 13.10.2018 в 21:57
Pelena Дата: Суббота, 13.10.2018, 21:58 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13220
Репутация: 2908 ±
Замечаний: ±

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


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

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

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