Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 21.03.2018
Сообщений: 80
1

Сумма диапазона через макрос

20.06.2020, 20:10. Просмотров 874. Ответов 11
Метки нет (Все метки)

Здравствуйте, помогите, пожалуйста, написать макрос, который будет считать сумму значений ячеек в ячейку F1(Файл прилагается) . Нужно сделать так, чтобы при подсчёте все значения "д1" равнялись как 10. Не знаю, как сделать, чтобы значение д1 записывалось в оперативную память, а не заменялось в ячейке цифрой "10". Сумма.xlsx
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2020, 20:10
Ответы с готовыми решениями:

Копирование диапазона данных двойным щелчком через макрос
Здравствуйте. Возникла необходимость оптимизировать процесс копирования данных, а именно с помощью...

Макрос на запрос диапазона
Создать макрос в MS Excel на запрос диапазона у пользователя. Предоставить письменные обьяснения к...

Макрос для сортировки диапазона
Добрый день. Помогите пожалуйста модернизировать макрос. Задача такая: 1. Есть таблица с...

Макрос на сумму диапазона ячеек со множеством листов
Всем доброго времени дня. В Vba очень новый человек, появилась необходимось в таковом макросе. Есть...

11
1117 / 422 / 79
Регистрация: 13.12.2016
Сообщений: 1,480
Записей в блоге: 1
20.06.2020, 22:46 2
mxmod, у вас не спутанное сознание? Я перечитал трижды и ничего не понял.
Цитата Сообщение от mxmod Посмотреть сообщение
макрос, который будет считать сумму значений ячеек в ячейку F1
Каких? Общее количество строк и столбцов на листе 1 048 576 строк и 16 384 столбца
Цитата Сообщение от mxmod Посмотреть сообщение
Нужно сделать так, чтобы при подсчёте все значения "д1" равнялись как 10
Одна ячейка имеет одно значение. А вы о чем?
Цитата Сообщение от mxmod Посмотреть сообщение
Не знаю, как сделать, чтобы значение д1 записывалось в оперативную память
Почему не в облако? Или интернет? Может в глобальную переменную?
Вот какой вы предполагаете ответ на такой вопрос?
0
1143 / 807 / 400
Регистрация: 23.03.2015
Сообщений: 2,735
20.06.2020, 23:34 3
mxmod,
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub MMM()
For i = 1 To 5
        If Cells(1, i).Value = "д1" Then
           RNGSUM = RNGSUM + 10
        Else
           RNGSUM = RNGSUM + Cells(1, i).Value
        End If
Range("F1").Value = RNGSUM
Next
End Sub
0
1117 / 422 / 79
Регистрация: 13.12.2016
Сообщений: 1,480
Записей в блоге: 1
20.06.2020, 23:40 4
Narimanych, Quot capĭta, tot sensūs.
0
1143 / 807 / 400
Регистрация: 23.03.2015
Сообщений: 2,735
21.06.2020, 00:02 5
АЕ,
Не спорю.....
0
4038 / 2163 / 915
Регистрация: 01.12.2010
Сообщений: 4,507
21.06.2020, 06:33 6
Лучший ответ Сообщение было отмечено mxmod как решение

Решение

Вариант без макроса.

Код
=СУММ(A1:E1;СЧЁТЕСЛИ(A1:E1;"д1")*10)
1
1 / 1 / 0
Регистрация: 21.03.2018
Сообщений: 80
21.06.2020, 11:49  [ТС] 7
Спасибо огромное, реально спас меня.
0
1143 / 807 / 400
Регистрация: 23.03.2015
Сообщений: 2,735
21.06.2020, 11:54 8
mxmod,
Если была нужна формула, нахрен про макрос спрашивали?
Цитата Сообщение от mxmod Посмотреть сообщение
Сумма диапазона через макрос
0
1117 / 422 / 79
Регистрация: 13.12.2016
Сообщений: 1,480
Записей в блоге: 1
21.06.2020, 12:07 9
Цитата Сообщение от Narimanych Посмотреть сообщение
Если была нужна формула, нахрен про макрос спрашивали?
Не зря я писал про спутанность сознания....
0
4038 / 2163 / 915
Регистрация: 01.12.2010
Сообщений: 4,507
21.06.2020, 12:14 10
Narimanych, АЕ,

Если Вы уверены, что нужен макрос, то он есть у меня

Visual Basic
1
2
3
Sub Макрос1()
    Range("F1").Formula = "=SUM(A1:E1,COUNTIF(A1:E1,""д1"")*10)"
End Sub
Visual Basic
1
2
3
Sub Макрос2() 'Only Reference style A1
    [F1] = [SUM(A1:E1,COUNTIF(A1:E1,"д1")*10)]
End Sub
А если серьёзно, каждый имеет право изменить своё мнение, нужен был макрос, формула получилась не очень громоздкая, вот и пригодилась...
0
1117 / 422 / 79
Регистрация: 13.12.2016
Сообщений: 1,480
Записей в блоге: 1
21.06.2020, 12:29 11
Цитата Сообщение от pashulka Посмотреть сообщение
Если Вы уверены
Лично я не был уверен. Об этом и написал... Я рад, что вы поняли хотелки ТС. Я не понял...
0
Fairuza
21.06.2020, 13:53     Сумма диапазона через макрос
  #12

Не по теме:

Цитата Сообщение от АЕ Посмотреть сообщение
Я не понял...
В последнее время с трудом понимаю большую половину объяснений в темах, возраст наверное...

0
21.06.2020, 13:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2020, 13:53
Привет! Вот еще темы с ответами:

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

Копирование диапазона в том же листе - макрос
Всем привет! Ребята, помогите У меня есть формулы в ячейках АD23:AS34. Мне надо чтобы...

Зависает макрос на выделение диапазона ячеек
Создала макрос на выделение ячеек через одну. Тестировала на таблице с 20-ю строками - все...

Макрос окрашивания в цвет максимальных значений диапазона
Здравствуйте! Не могу найти такой макрос, который бы находил и, самое главное, окрашивал в цвет...

Макрос по заполнению диапазона значениями с другого листа
Добрый день! В написании макросов я новичок. По долгу службы надо было оптимизировать работу, ...

Макрос для вставки скопированного диапазона в свободную ячейку
Добрый день, прошу помочь мне со следущей задачей. Необходимо, что б по нажатию на "Кнопку11" в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.