Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA При изменении ячейки идет подсчет на другом листе https://www.cyberforum.ru/ vba/ thread426671.html
суть программы состоит: при изменении ячейки идет подсчет на другом листе+небольшая функция поиска. Мне принесли картридж на заправку, у него есть определенный номер от 1 до 100. Я ввел в соответствующее поле значение "Заправка". После заправки отдаю пользователю, записываю в какой отдел заправленный картридж отправлен. В своде веду отчет по месяцам. Все. Сама программа работает нормально,...
VBA Сумма одинаковых значений списка
Всем добрый вечер! Подскажите пожалуйста как можно реализовать такую вот вещь! У меня есть столбец из 10 фирм. Фирмы могут по имени повторятся. Напротив каждай фирмой стоит число. Что бы когда я в фильтре выбирал по имени фирму (их может быть одинаковых от 1 до 10)мне выводилу в ячейку их сумму. Или как можно это реализовать без фильтра? Офис 2007 стоит
VBA Дан массив действительных чисел A(n). Поменять местами наибольший и наименьший элементы https://www.cyberforum.ru/ vba/ thread426335.html
Дан массив действительных чисел A(n). Поменять местами наибольший и наименьший элементы.
VBA Автоматическое добавление следующего номера документа в шаблон Здравствуйте. У меня ситуация примерно такая: есть шаблон, внутри него упоминаются цифры, которые по сути являются номером данного документа в реестре. Каждый новый документ - цифра=N+1, где N - эта цифра в прошлом документе. Вопрос заключается в том, можно ли как-нибудь написать скрипт, который будет автоматически находить предыдущий документ с максимальной цифрой в названии, брать ее(или... https://www.cyberforum.ru/ vba/ thread426282.html
Найти минимальное значение элемента и переместить его в конец массива VBA
1) Дан массив A(N). Найти минимальное значение элемента и переместить его в конец массива. 2) Дан массив A(N). Сформировать новый массив из положительных элементов найти наименьшее из них и составить новый массив. 3) Даны три натуральных числа. Определить, можно ли построить треугольник с такими длинами сторон (сумма любых двух сторон должна быть больше третьей стороны) 4) Удвоить заданное...
VBA При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL https://www.cyberforum.ru/ vba/ thread426091.html
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей книге EXCEL и если такой лист существует то уведомить об этом.
VBA Разработать программу для вычисления абсолютной температуры Т воздуха на различных высотах Н https://www.cyberforum.ru/ vba/ thread425971.html
Разработать программу для вычисления абсолютной температуры Т воздуха на различных высотах Н. Помогите пожалуйста с задачей, очень нужно Разработать программу для вычисления абсолютной температуры Т воздуха на различных высотах Н. Т=288,16-0,0065Н Т=216,16 Т=216,16+0,00276098(Н-25000) если 25000 меньше или равно Н и меньше 46000. Для выполнения вычислений использ. оператор Select Case....
Поиск в диапазоне ячеек. Добавление записи в случае ее отсутствия VBA
Веду счет количества посещений определенным клиентом. Для этого нужно искать в таблице его Ф.И.О, найдя прибавить в таблице количество посещений, не найдя - добавить его в таблицу и начать счет. Таблица выглядит так: Ф.И.О. Количество посещений Как это сделать? Private Sub Client_count() client_c = 0
VBA В шаблоне не выполняется процедура в AutoClose https://www.cyberforum.ru/ vba/ thread425835.html
Имеется шаблон, его имя например 1.dot у него есть процедура AutoClose Sub AutoClose() 'AutoClose работает при закрытии документа Ворд 'отключаем дёргание экрана при выполнении кода Application.ScreenUpdating = False 'условие, если были в документе изменения и ..., тогда ... 'сравниваем с именем "00Материал, уголовное дело №.doc" 'чтобы после сохранения документа под...
VBA Вычислить среднее значение Xср и дисперсию dx для заданного массива X(k) наблюдений https://www.cyberforum.ru/ vba/ thread425783.html
Доброго времени суток, очень нуждаюсь в помощи решения задачи Вычислить среднее значение Xср и дисперсию dx для заданного массива X(k) наблюдений Xср=1/k ΣXi ; dx=1/k-1 Σ(Xi-Xcp.)в квадрате. Добавлено через 17 часов 55 минут up :(
Как составить формулу, в которой могут вычитатся положительные и отрицательные числа VBA
Подскажите пожалуйста! как составить формулу, в каторой могут вычитатся положительные числа и отрицательные! тоесть может быть что нужно вычесть: 1) 5-2=3 или может быть 2) -5-(-2)=-7 а не -5-(-2)=3 Как поставить такое условие формуле, что могут вычитатся и отрицательные числа(а не слаживатся!). Тоесть что оно панимало что не сложить надо, а вычесть! тоесть Если перед скобками минус то не...
VBA Удалить часть символьной строки, заключенной в скобки https://www.cyberforum.ru/ vba/ thread425661.html
Удалить часть символьной строки, заключенной в скобки (вместе со скобками).
27 / 6 / 0
Регистрация: 28.10.2010
Сообщений: 352
12.01.2012, 18:20  [ТС] 0

Сумма чисел в ячейках без заливки и подчеркивания. Написать функцию - VBA - Ответ 2380535

12.01.2012, 18:20. Показов 5721. Ответов 15
Метки (Все метки)

Ответ

Я написал функцию в modules, я с VBA первый раз..мне препод дал файл excel, там таблица есть с числами, некоторые числа закрашены, а остальные нет. Нужно посчитать сумму только тех чисел, которые незакрашены.
Вот как я написал функцию.

Visual Basic
1
2
3
4
5
6
Function Summer(Summ_Range as Range) as Integer
   Dim cell as Range
   For Each cell in Summ_Range
       If cell.Font.Color<>red Then Summer=Summer+cell.Value
   Next
End Function

И при вызове функции выдается сообщение "У данной функции аргументов нет"

Вернуться к обсуждению:
Сумма чисел в ячейках без заливки и подчеркивания. Написать функцию VBA
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2012, 18:20
Готовые ответы и решения:

Сумма чисел в ячейках QTableWidget
Приветствую. Нужно посчитать сумму чисел в выбранных ячейах. Сам алгоритм в теории понятен, но...

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

Написать функцию, коротая должна вывести текст без чисел
ПОМОГИТЕ РЕШИТЬ? Написать функцию, коротая принимает в качестве параметра текст вместе с числами....

Написать логическую функцию, которая возвращает true, если сумма чисел - положительное число
Неплохие задачи по С++! Подзабыл его( выручайте, буду очень благодарен 3. Даны два целых числа....

15
12.01.2012, 18:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2012, 18:20
Помогаю со студенческими работами здесь

Нужно написать функцию или процедуру в которой сумма трёх непарных чисел наименьшая?
Делаю практику нужно помочь с заданием по функциям и процедурам задание такое: нужно написать...

Написать функцию для определения наличия в файле чисел, у которых сумма цифр целой и дробной части равны
2)Дан текстовый файл с неизвестным количеством вещественных чисел. Написать функцию для...

Написать логическую функцию, которая возвращает true, если сумма чисел - положительное число, и false в обратном случае.
Даны два целых числа. Написать логическую функцию, которая возвращает true, если сумма чисел -...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru