Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 13.10.2018, 23:04   #1
Katya8041992@yande
Новичок
 
Регистрация: 13.10.2018
Сообщений: 1
Репутация: 10
По умолчанию Макрос по кнопке

Нужно,чтобы по кнопке на поле срабатывал макрос. Смысл макроса: есть два столбца (в первом количество товара, во втором стоимость) нужно просуммировать стоимость всех товаров, где кол-во больше 50. Ошибки в моем коде наверное детские, но для меня не очевидные. Пробовала определять массивы через лонг и счетчик не до 1000 а через UBoun, не спасло.Помогите.
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
Katya8041992@yande вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как присвоить кнопке макрос? КаМММ Microsoft Office Excel 2 11.01.2018 09:48
Как прописать макрос в кнопке? Benidorm Microsoft Office Excel 3 20.09.2017 16:38
КАК назначить макрос кнопке? Андрей232 Microsoft Office Excel 9 27.10.2012 15:11
Макрос текущего времени и привязка его к кнопке Severny Microsoft Office Excel 16 08.04.2011 14:36


00:30.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru