Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Владислав Сескутов
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA и WorksheetFunction, Использование функций листа в VBA
 
#
18.01.2021 17:13:04
Здравствуйте,

необходимо в VBA трансформировать формулу:

=СУММ(ИНДЕКС(AR23:BX23;ПОИСКПОЗ($R$11;$AR$14:$BX$14;0)):ИНДЕКС(AR23:BX23;ПОИСКПОЗ($T$11;$AR$14:$BX$14;0)))

мой вариант (но не работает):
Код
Public Function CDSDayReport_a1(DateStart As Range, DateEnd As Range, Dates As Range, Volumes As Range)
    CDSDayReport_a1 = WorksheetFunction.Sum(WorksheetFunction.Index(Volumes, WorksheetFunction.Match(DateStart, Dates, 0)) : WorksheetFunction.Index(Volumes, WorksheetFunction.Match(DateEnd, Dates, 0)))
End Function

В чём-то есть "ньюанс". Поэтапно записывал, работало, как дошёл до .Sum так сломалось. Возможно необходимо цикл вместо Суммы. Я незнаю.

Подскажите, кто знает.
 
Перейти    
Получить полное значение ячейки, как оно отображается на экране.
 
#
14.12.2020 10:33:22
Доброго дня.

Вопрос следующий:

на листе установлены свойства файла "Точность как на экране", в ячейках столбца вручную устанавливается формат числа с разной разрядностью (0, 2, 3, 4 и т.д.), таким образом необходимо получить формулой или через свойства в VBA значение в ячейке так, как оно отображается.
Например:
"125,1200" - 4 разряда
"125,12" - 2 разряда
"125,000" - 3 разряда

Цель - обработка достаточной разрядности, чтобы на этапе ввода отсечь ошибки вводимых значений.
 
Перейти    
Можно ли применить динамические имена в условном форматировании
 
#
12.10.2020 16:07:27
Здравствуйте,

имеется задача.

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

Хочется:
- задать именованный диапазон на который будет распространяться заданное условие форматирования. Это Имя применить при описании критериев УФ. При добавлении строки внутрь таблицы корректировать Имя в одном месте, чтобы УФ при этом "не ломалось".

Сейчас при описанных действиях после нажатия кнопки "Применить" диапазон, заданный Именем автоматически заменяется на адресацию.

Как это обойти?
 
Перейти    
VBA и условное форматирование., Получить список условий форматирования в отдельном листе
 
#
14.09.2020 11:11:35
В тему условного форматирования такой вопрос:
- как на отдельный лист получить список всех "условий форматирования" на рабочем листе.
Например:
столбец 1          / столбец 2             / столбец 3
адрес                / формула              / диапазон на
ячейки,             /  условия               /  который
содержащей    /                               /  действует
условие            /                               /  условие
-------------------------------------------------
$F$10               /   = $O10<6            /  = $F$1:$F$11809

Пытался найти ответ на свой вопрос, зайдя в редактор VBA, полез в .Sheets.Item(1).Cells.FormatConditions.Item их там 256.
Внутри каждого - "темный лес, непролазный".
В общем - застрял.

Еще вопрос:
- как ненужные мне условия из полученного списка, удалить на рабочем листе.

С уважением,
Владислав            
 
Перейти    
Пльзовательской функции какой тип присвоить: Integer или Double
 
#
10.06.2020 12:15:01
Здравствуйте,
написал пользовательскую функцию с использованием WorksheetFunction.Sum.
При тестировании получил неожиданный результат: при исходных числах в сумме больше 40000 результат ошибка; при задании исходных диапазонов по одной ячейке - работает, при задании этих же ячеек диапазоном - ошибка.
Прошу помощи разобраться в функцией.
 
Перейти    
Страницы: 1
Наверх