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

Страницы: 1
Условное форматирование на диапазон ячеек
 
#
27.10.2020 11:40:02
Получается эту задачу можно решить только если создавать для каждой ячейки свое правило в условном форматировании?
 
Перейти    
Условное форматирование на диапазон ячеек
 
#
27.10.2020 09:15:44
Wild.Godlike, я так тоже пробовал но в данном случае на все ячейки формула берет данные из ячейки D5, а нужно чтобы каждая ячейка была сама по себе

Цитата
V написал: и в формулах с долларами разберитесь.
Эксель на это ругается.
 
 
Перейти    
Условное форматирование на диапазон ячеек
 
#
27.10.2020 09:08:27
Цитата
Wild.Godlike написал:
Евгений , Доброго дня.Насколько верные у вас там условия в УФ не проверял.

Прикрепленные файлы
Снимок.JPG  (106.44 КБ)
я так тоже пробовал но в данном случае на все ячейки формула берет данные из ячейки D5, а нужно чтобы каждая ячейка была сама по себе
 
Перейти    
Условное форматирование на диапазон ячеек
 
#
27.10.2020 08:28:59
Добрый день, помогите разобраться как сделать условное форматирование на диапазон,  получилось сделать только на конкретную ячейку.

В данном примере условное условное форматирование визуально показывает на сколько изношен конкретный инструмент по каждому человеку.
 
Перейти    
Добавление и редактирование данных строки через элемент ActiveX "поле"
 
#
22.02.2017 10:57:29
Спасибо, то что надо. решением проблемы было изменить формулу в диспетчере имен?
 
Перейти    
Добавление и редактирование данных строки через элемент ActiveX "поле"
 
#
21.02.2017 20:47:33
Всем добрый вечер прошу помочь в этой задачке.

Есть таблица данных с текстовыми значениями в ячейках, значений в ячейках слишком много. Чтобы не запутаться в строках таблицы я выделяю нужную и продолжаю работу  уже не с самой таблицей а с верхней шапкой в которой вставлены элементы ActiveX "поле" и редактирую значения ячеек уже там.

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

на данный момент все сделано без макросов, было бы здорово обойтись без них.
Изменено: Евгений - 21.02.2017 20:54:07
 
Перейти    
Сбор табличных данных из разных файлов в один (оптимизация)
 
#
30.10.2015 19:45:38
поубивал что получилось макрос стал работать  за 90 секунд(старый вариант работал за 257 сек.)
Код
Sub тестттттт1()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
    Sheets("база контактов").Visible = True
    Sheets("база").Visible = True
    Sheets("обработка").Visible = True
    Sheets("дела").Visible = True
Const CSVfilename = "C:\ProgramData\3CX\Data\Logs\cdrsingle\calls.csv"
Workbooks.Open CSVfilename, local:=True
    Workbooks("calls.csv").Worksheets("calls").Range("A1:P10000").Copy
    Workbooks("Звонки.xlsm").Sheets("база").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Workbooks("calls.csv").Close
        'загрузка базы контактов
        Workbooks.Open Filename:="Z:\контакты.xlsm"
        Workbooks("контакты.xlsm").Worksheets("база контактов").Range("A6:U500").Copy
        Workbooks("Звонки.xlsm").Sheets("база контактов").Activate
        Range("A6").Select
        ActiveSheet.Paste
        Workbooks("контакты.xlsm").Close
            'загрузка базы фин-учета
            Workbooks.Open Filename:="Z:\01 - бухгалтерия\учет-фин.xlsx"
                'первый столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("G3:G500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("B2").Select
                ActiveSheet.Paste
                'второй столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("I3:I500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("C2").Select
                ActiveSheet.Paste
                'третий столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("N3:N500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("D2").Select
                ActiveSheet.Paste
                'четвертый столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("O3:O500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("E2").Select
                ActiveSheet.Paste
                'пятый столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("K3:K500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("G2").Select
                ActiveSheet.Paste
                'шестой столбец
                Workbooks("учет-фин.xlsx").Worksheets("учет тест").Range("Q3:Q500").Copy
                Workbooks("Звонки.xlsm").Sheets("дела").Activate
                Range("H2").Select
                ActiveSheet.Paste
            Workbooks("учет-фин.xlsx").Close
            Sheets("история").Select
    Sheets("дела").Visible = False
    Sheets("обработка").Visible = False
    Sheets("база").Visible = False
    Sheets("база контактов").Visible = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
                Dim i As Long, x As Range
    For i = 2 To 10000
        If Intersect([B:B], Rows(i)).Text = "" Then
            Range(Cells(i - 1, 2), Cells(i - 1, 2)).Select: Exit Sub
    End If: Next
End Sub

Заметил что если из нового макроса убрать строчку сохранения документа
Код
ActiveWorkbook.Save
макрос выполняется за 5 секунд, почему так сохранение занимает много времени понять не могу (файл весил 5,32 Мб)

что еще можно с макросом сделать чтобы быстрее работал?
 
Перейти    
Сбор табличных данных из разных файлов в один (оптимизация)
 
#
29.10.2015 19:13:43
А почему по началу это не занимало много времени а со временем стало, ведь диапазон копирования фиксированный и не увеличивается?

подскажите пожалуйста какими командами это можно оптимизировать?
Изменено: Евгений - 29.10.2015 19:18:48
 
Перейти    
Сбор табличных данных из разных файлов в один (оптимизация)
 
#
28.10.2015 23:34:06
Всем доброй ночи, нужна помощь оптимизировать код который собирает данные из разных таблиц и документов в один.

этот код по началу работал корректно, но со временем недели через 3-4 стал грузится заметно дольше, сейчас это занимает больше 5 минут, в чем проблема такой долгой обработки?
Скрытый текст
 
Перейти    
Записная (адресная) книжка контактов, ошибка при закрытии формы
 
#
25.08.2015 21:33:03
эта форма сделана для поиска но названию организации, если ты не помнишь точное название поиска а знаешь только часть его, причем неважно какую часть(очень удобно) в идеале можно поиск сделать тем же методом и через главную форму, но для этого надо уметь писать макросы в чем я не силен  :)
Изменено: Евгений - 26.08.2015 09:35:49
 
Перейти    
Записная (адресная) книжка контактов, ошибка при закрытии формы
 
#
25.08.2015 16:40:59
Максим Зеленский, Спасибо огромное за помощь. Я тоже считаю что форма ufSearch2 лишняя, но у меня не получалось сразу подставлять значения в нужную форму поэтому и придумал через одно место  :)
 
Перейти    
Записная (адресная) книжка контактов, ошибка при закрытии формы
 
#
25.08.2015 15:51:48
Сделал для себя удобную записную книжку контактов, но не могу понять почему после закрывания формы выскакивает ошибка.

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

Почти весь код в формах писал не я, я его собрал из разных примеров.
 
Перейти    
Удаление одинаковых значений из связанных выпадающих списков
 
#
28.03.2013 15:32:05
да наверно так и поступлю, проще отказаться от запятых чем выгружать десятки диапазонов, большое спасибо за объяснения.
 
Перейти    
Удаление одинаковых значений из связанных выпадающих списков
 
#
28.03.2013 14:32:17
а почему словарь(scripting.dictionary) разбивает данные LB-52U, Ø2,6 мм. находящиеся в одной ячейке на диапазон?
 
Перейти    
Удаление одинаковых значений из связанных выпадающих списков
 
#
28.03.2013 11:49:17
у макроса нашелся минус, если в столбце ТИП в ячейке попадается к примеру LB-52U, Ø2,6 мм., он перестает работать.
 
Перейти    
Удаление одинаковых значений из связанных выпадающих списков
 
#
27.03.2013 16:27:39
классно сделано, но как это работает, я не понял :(  Объясни пожалуйста.
можешь объяснить, что макрос делает и что должно меняться, при помощи этого можно унифицировать мой первый столбец чтобы не плясать с бубном как это сделано у меня.

к примеру :
диапазон материалы=Лист1!$J$2:$J$17

макрос на него:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim KeyCells As Range

Set KeyCells = Range("C2:C9")
   
   If Not Application.Intersect(KeyCells, Range(Target.Address)) _
          Is Nothing Then
         
       If (Cells(Target.Row, 3).Value <> "") Then
       
           имя_диапазона = "материалы"
                      Set dic = CreateObject("scripting.dictionary")
           On Error Resume Next
           For Each x In Evaluate(имя_диапазона)
               dic.Add x.Text, 0
           Next x
   With Cells(Target.Row, 3).Validation
       .Delete
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
       xlBetween, Formula1:=Join(dic.keys, ",")
       .IgnoreBlank = True
       .InCellDropdown = True
       .InputTitle = ""
       .ErrorTitle = ""
       .InputMessage = ""
       .ErrorMessage = ""
       .ShowInput = True
       .ShowError = True
   End With
           Set dic = Nothing
       End If
   End If
   
 
   
End Sub

почему он не начинает работать в ячейках сразу? Но после применения Макрос1 начинает работать.
 
Перейти    
Удаление одинаковых значений из связанных выпадающих списков
 
#
27.03.2013 14:00:37
Добрый день, есть связанный выпадающий список, и небольшой макрос на обновление последующих значений. Но если в таблице данных есть одинаковые значения то в выпадающем списки они все повторяются, возможноли убирать повторяющиеся значения?

пример:
в прилагаемом файле, в столбце "материалы" выбираем "Труба стальная" и в графе тип получаем выпадающий список с одинаковыми значениями "Ø 32", как сделать чтоб в "тип" не было повторяющихся значений?
 
Перейти    
Сортировка списка(таблицы) с вычислением
 
#
25.02.2013 15:48:51
все как просто получается, я бы о таком и не догадался, спасибо большое.

Спасибо, Владимир.
Спасибо, Nic70y.
 
Перейти    
Сортировка списка(таблицы) с вычислением
 
#
25.02.2013 13:00:14
Добрый день!

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

пока рассматривал варианты только с формулами, в написании макросов не силен...
 
Перейти    
Страницы: 1
Наверх