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

Страницы: 1
После макроса не изменяется формат ячейки, После макроса не изменяется формат ячейки
 
#
21.03.2023 13:19:04
Здравствуйте. Создал макрос с помощью записи макроса, который заменяет текст типа "49,54 (124%)" на число "49,54", но при нажатии макроса формат ячейки не меняется.
Код
Sub Макрос10()
'
' Макрос10 Макрос
'

'
    Cells.Replace What:="(*%)", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Помогите как сделать чтобы после нажатия макроса формат ячейки становился числом
 
Перейти    
Сумма произведений из одного столбца по условиям
 
#
25.05.2022 08:11:48
Здравствуйте, есть таблица где нужно посчитать сумму произведений по условиям. Данные находятся в одном столбце. Количество суммированных произведений может быть разное. Математический вид формулы имеет вид А1*А2+б1*б2+в1*в2+г1*г2+…..n1*n2. Вручную понятно как прописать формулу. при удалении ненужных строк формула вида (J7*J27+J10*J28+J16*J29+J21*J30) ломается. А вот сделать так чтобы она работала при разном количестве произведений не могу понять.
 
Перейти    
Ошибка при выборе диапазона аргументом функции
 
#
15.11.2021 18:26:55

Здравствуйте, подскажите в чем ошибка в данной функции. При выборе диапазона аргументом "diap" появляется ошибка, если аргументом "diap" выбирать просто ячейку считает норм.

Код
Function Kt(Ki As Double, tk As Double, diap As Range) As Double


If Application.Count(diap = 1) Then
   Kt = Ki + tk

ElseIf Application.Count(diap = 2) Then
   Kt = (Ki + tk) * 2
ElseIf Application.Count(diap = 3) Then
   Kt = (Ki + tk) * 3
ElseIf Application.Count(diap = 4) Then
   Kt = (Ki + tk) * 4
End If


End Function
Изменено: vinaxel - 15.11.2021 18:40:53
 
Перейти    
[ Закрыто] Проблема с функцией, Проблема с функцией
 
#
15.11.2021 18:14:44

Здравствуйте, подскажите в чем ошибка в данной функции. При выборе диапазона аргументом "diap" появляется ошибка, если аргументом "diap" выбирать просто ячейку считает норм.

Код
Function Kt(Ki As Double, tk As Double, diap As Range) As Double


If Application.Count(diap = 1) Then
    Kt = Ki + tk

ElseIf Application.Count(diap = 2) Then
    Kt = (Ki + tk) * 2
ElseIf Application.Count(diap = 3) Then
    Kt = (Ki + tk) * 3
ElseIf Application.Count(diap = 4) Then
    Kt = (Ki + tk) * 4
End If


End Function
 
Перейти    
Автоматическое нахождение точки пересечения графиков
 
#
03.11.2021 06:24:34
Доброе утро.
Помогите с графиками.

Нужно чтобы автоматически искалась точка пересечения динамического графика с графиком находящимся выше рабочей точки, и координаты записывались в ячейки.
 
Перейти    
Одна кнопка для скрыть/отобразить строки
 
#
11.05.2020 14:28:05
Помогите пожалуйста дописать макрос. Чтобы он отображал строки если они уже скрыты, хочу сделать кнопку нажал один раз скрыл, второй раз - отобразил, и так далее
Код
Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub
 
Перейти    
Макрос удаления строк со словом "УДАЛИТЬ"
 
#
09.05.2020 16:14:45
Здравствуйте, помогите написать макрос на удаление строк по нескольким условиям.
Нужно
Находясь на листе "Исходные данные" нажать кнопку", (запустить макрос)
Макрос такой
1. На листе "Календарь добычи"  удалить все строки с надписью "УДАЛИТЬ" в столбце "A", а также удалить такие же строки на листе "auto";
2. На листе "Календарь добычи"  удалить все строки с надписью "УДАЛИТЬ" в столбце "B", а также удалить такие же строки на листе "auto";
3. На листе "Календарь добычи"  удалить все строки с надписью "УДАЛИТЬ" в столбце "C", а также удалить такие же строки на листе "auto";
4. На листе "Календарь добычи"  удалить все строки с надписью "УДАЛИТЬ" в столбце "D", а также удалить такие же строки на листе "auto";
5. Если на листе "Исходные данные" ячейка D12 пустая, то удалить на листе "Календарь добычи" столбец "J";
6. Если на листе "Исходные данные" ячейка D5 пустая, то удалить на листе "Календарь добычи" столбец "K" (который был до удаления столбца "J", столбец "L")";
7. На листе "Календарь добычи" удалить столбцы A, B, C, D.
 
Перейти    
Расчет средневзвешенного значения
 
#
07.05.2020 12:47:53
Что я не так делаю, помогите пожалуйста

=СУММПРОИЗВ(СУММЕСЛИ($C769:$C1128;"Выемочный участок*";K769:K1128);СУММЕСЛИ($C769:$C1128;"Выемочный участок*";I769:I1128))/СУММЕСЛИ($C769:$C1128;"Выемочный участок*";I769:I1128)
 
Перейти    
Отредактировать формулу, чтобы при удалении ненужных строк формула не ломалась
 
#
05.05.2020 15:23:51
Есть такая формула:
=ЕСЛИ(H8>0;'исходные данные'!$D$5;)&ЕСЛИ(H9>0;ЕСЛИ(H8>0;","&" ";)&'исходные данные'!$D$6;)&ЕСЛИ(H10>0;ЕСЛИ(ИЛИ(H8>0;H9>0);","&" ";)&'исходные данные'!$D$7;)&ЕСЛИ(H11>0;ЕСЛИ(ИЛИ(H8>0;H9>0;H10>0);","&" ";)&'исходные данные'!$D$8;)&ЕСЛИ(H12>0;ЕСЛИ(ИЛИ(H8>0;H9>0;H10>0;H11>0);","&" ";)&'исходные данные'!$D$9;)

Она прописывает из каких составляющих состоит суммарная цифра, так вот формула написана для максимального числа составляющих (5), и если мне например нужно всего 3 составляющих при удалении ненужных строк формула ломается, помогите ее как то модифицировать чтобы она работала
 
Перейти    
Копирование диапазона столбцов с данными и вставка правее исходных
 
#
04.05.2020 17:20:28
Всем привет, помогите написать макрос.
Например есть несколько годов (с формулами, условным форматированием итд итп) хотелось бы что бы при нажатии кнопки макрос добавлял один год правее последнего со всеми данными с предыдущего года
 
Перейти    
Автоматическое построение поквартального графика проходки длин пути
 
#
01.05.2020 08:14:12
Есть таблица с длинами пути, темпами проходки этих длин пути. Есть ли возможность автоматического построения графика проходки этих длин пути по кварталам?
Под таблицей приведен пример того что должно получится сделанный в ручном режиме.
 
Перейти    
Страницы: 1
Наверх