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

Страницы: 1 2 След.
Редактирование формул, как изметить диапазоны в формуле
 
#
18.02.2025 15:21:30
при протягивании хорошо, при копировании нет
фишка в том что диапазон не всегда 5 от может и 15 и 27
поэтому хотел изменять только - желтый чтоб менялось зеленый
=СУММ(СУММЕСЛИМН(N167:N185;C167:C185;{"ОТ";"ЭМ";"М";"НР*";"СП*"}))-СУММ(U167:U185)
 
Перейти    
Редактирование формул, как изметить диапазоны в формуле
 
#
18.02.2025 15:06:55
таких диапазонов может быть и 100
 
Перейти    
Редактирование формул, как изметить диапазоны в формуле
 
#
18.02.2025 14:50:47
было
=СУММ(СУММЕСЛИМН(N167:N180;C167:C180;{"ОТ";"ЭМ";"М";"НР*";"СП*"}))-СУММ(U167:U180)
будет
=СУММ(СУММЕСЛИМН(N167:N185;C167:C185;{"ОТ";"ЭМ";"М";"НР*";"СП*"}))-СУММ(U167:U185)
 
Перейти    
Редактирование формул, как изметить диапазоны в формуле
 
#
18.02.2025 14:41:10
Есть формула, как изметить диапазоны одновременно? Сохраняя столбцы

=СУММ(СУММЕСЛИМН(N167:N180;C167:C180;{"ОТ";"ЭМ";"М";"НР*";"СП*"}))-СУММ(U167:U180)
 
Перейти    
Вставка формулы в ячейку, Вствка функции СУММЕСЛИ
 
#
22.02.2024 09:13:48
Спасибо большое заработало
 
Перейти    
Вставка формулы в ячейку, Вствка функции СУММЕСЛИ
 
#
22.02.2024 09:04:46
Подскажите пожалуйста что неправильно в коде при вставке функции в ячейку

  1 вариант      
        Range("H37").WorksheetFunction.SumIf(Worksheet("КС-2").Range("N37:AY37"),кол-во,Worksheet("КС-2").Range("N38:AY38")
в этом варианта надо приплюсовать      $J38  

2 вариант
        Range("H37").Select
        ActiveCell.FormulaR1C1 = "=СУММЕСЛИ($N$37:$AY$37;""кол-во"";$N38:$AY38)+$J38"
Изменено: Shuav - 22.02.2024 09:07:37
 
Перейти    
Редактирование ячейки через TextBox, Добавление вычисления в активную ячейку
 
#
15.02.2024 12:47:52
Спасибо
 
Перейти    
Редактирование ячейки через TextBox, Добавление вычисления в активную ячейку
 
#
09.02.2024 11:47:39
Пример файла
 
Перейти    
Редактирование ячейки через TextBox, Добавление вычисления в активную ячейку
 
#
09.02.2024 11:30:16
надо отредактировать в текст бокс  =AGGREGATE(9,7,R37C10:R2500C10)
на =AGGREGATE(9,7,R37C10:R2500C10) - ячейка(но она может быть с разным адресом)

или данные цифровые из текстбокса минус ячейка(но она может быть с разным адресом)

и вставка в активную ячейку результата
 
Перейти    
Редактирование ячейки через TextBox, Добавление вычисления в активную ячейку
 
#
09.02.2024 11:17:08
Добрый день!
Помогите пожалуйста, если это возможно
Написал макрос для вставки формулы в активную ячейку(не судите строго), но необходимо дописать чтобы произвести последующие расчеты

Вариант 1
Код
Sub КС2_Монтаж_РС()
'
' КС2_Монтаж_РС Макрос
'

'
    ActiveCell.FormulaR1C1 = "=AGGREGATE(9,7,R37C10:R2500C10)"
    ActiveCell.Select
    UserForm1.TextBox1.Text = ActiveCell
    UserForm1.Show 0
End Sub

но здесь при редакции текстбокса данные не передаются в активную ячейку

Вариант 2

В идеале надо отредактировать функцию Агрегат (отминусовать другую ячейку но адрес у нее всегда разный)
 
Перейти    
Надстройка Inquire, Сравнение файлов
 
#
30.11.2023 11:31:47
Открываю два файла для сравнения запускаю Compare Files в inquire, в меню выбираю что сравнить, процесс начинается, но нет итога сравнения, админ говорит что окно сравнения открывается и тут же закрывается.(Excel 2016). Подскажите что надо сделать чтоб работало. Заранее благодарен
 
Перейти    
Очистка значения в ячейке по адресу
 
#
12.09.2023 12:25:31
Всем спасибо
ActiveCell.SpecialCells(xlLastCell).Select (макрос переходит в конец таблицы)
 ActiveCell.Offset(-11, -5).Select              (макрос встает на нужную ячейку
 Selection.Clear                                         Ok
 
Перейти    
Очистка значения в ячейке по адресу
 
#
12.09.2023 12:16:38
ActiveCell.SpecialCells(xlLastCell).Select (макрос переходит в конец таблицы)
  ActiveCell.Offset(-11, -5).Select              (макрос встает на нужную ячейку
  Selection.ClearContens                           (ошибка)
  End Sub
 
Перейти    
Очистка значения в ячейке по адресу
 
#
12.09.2023 11:58:14
Помогите, что прописываю не правильно, нужно
1.перейти на последнюю пустую строку(ячейку) таблицы
2.перейти по координатам
3.удалить значения в этой ячейке

ActiveCell.SpecialCells(xlLastCell).Select
   ActiveCell.Offset(-11, -5).Select
   Selection.ClearContens
   End Sub
 
Перейти    
Можно ли поменять текст в модуле через форму не заходя в отладчик
 
#
18.04.2023 14:37:42
Код
ActiveCell.FormulaR1C1 = "11915-ДППД-22"
'ActiveCell.FormulaR1C1 = "17906-ДППД-22"
Нужно активировать запись 2 и деактивировать 1
 
Перейти    
Установка фильтра на содержание текста в критерии
 
#
14.04.2023 08:43:17
Цитата
написал:
Добрый день
Код
    [URL=#]?[/URL]       1      ActiveSheet.Range(  "$A$30:$K$1000"  ).AutoFilter Field:=1, Criteria1:=  "=*Итого по разделу:*"  , Operator:=xlFilterValues  
 
Спасибо
 
Перейти    
Установка фильтра на содержание текста в критерии
 
#
13.04.2023 17:25:39
Подскажите как прописать код что бы фильтр устанавливался по критерию  если содержит текст - "Итого по разделу:"
Код
Range("A30").Select
    ActiveSheet.Range("$A$30:$K$1000").AutoFilter Field:=1, Criteria1:=Array( _
        "Итого по разделу: Замена кабеля на тросе на СИП", _
        "Итого по разделу: Замена однорожкового кроншнейна", _
        "Итого по разделу: Замена опор (Бухгалтерский № 10000214)", _
        "Итого по разделу: Замена светильников", _
        "Итого по разделу: Монтаж распределительной сети", _
        "Итого по разделу: Организация движения", "Итого по разделу: ПНР", _
        "Итого по разделу: Прочие работы"), Operator:=xlFilterValues
 
Перейти    
Формула на значение ячейки в конце таблицы по адресу
 
#
13.04.2023 10:37:26
Спасибо
 
Перейти    
Формула на значение ячейки в конце таблицы по адресу
 
#
12.04.2023 16:56:28
Подскажите как прописать чтобы выделенная ячейка равнялась ячейке в конце таблицы по адресу
Код
Range("H31:I31").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.Offset(-7, -1).Select
 
Перейти    
вставить текст жирным шрифтом в ячейку
 
#
12.04.2023 09:50:38
Всем спс
Код
ActiveCell.Offset(-8, -13).Select
ActiveCell.FormulaR1C1 = "Итого по разделу: Монтаж распределительной сети"
With Selection
    .Font.Bold = True
    End With
 
Перейти    
вставить текст жирным шрифтом в ячейку
 
#
12.04.2023 09:30:58
Код
ActiveCell.Offset(-8, -13).Select
ActiveCell.FormulaR1C1 = "Итого по разделу: Монтаж распределительной сети"
помогите как вставляемый текст вставлять уже полужирным шрифтом?
 
Перейти    
Форматирование строк таблицы повторяющихся значений и выбор наименьшего значения в этой группе, Форматирование строк таблицы повторяющихся значений и выбор наименьшего значения в этой группе
 
#
03.04.2023 09:29:33
спасибо
 
Перейти    
Форматирование строк таблицы повторяющихся значений и выбор наименьшего значения в этой группе, Форматирование строк таблицы повторяющихся значений и выбор наименьшего значения в этой группе
 
#
31.03.2023 12:34:58
Форматирование строк таблицы повторяющихся значений и выбор наименьшего значения в этой группе (выделение жирным шрифтом)
Изменено: Shuav - 31.03.2023 12:39:06
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 17:16:11
Всем спасибо огромное
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 17:00:19
Цитата
написал:
если при этом не забыли стереть свойство ControlSource у этого TextBox-а.
все сделал как вы сказали но формулу не вставляет в бокс
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 16:33:59
Код
Private Sub UserForm1_Initialize()
UserForm1.TextBox19.Value = Sheets("КС2").Cells(31, 8).FormulaLocal
End Sub

Я правильно понял?
У меня вот такая форма
Изменено: Shuav - 22.11.2022 16:42:20
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 16:10:16
Вот файл
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 16:04:21
Спасибо создаю новую тему со вложением файла
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 14:39:20
К сожалению не хочет показывать формулу
Изменено: Shuav - 22.11.2022 14:39:46
 
Перейти    
Получить формулу с листа в TextBox, TextBox
 
#
22.11.2022 14:21:56
Может кто-нибудь еще подскажет?
 
Перейти    
Страницы: 1 2 След.
Наверх