Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Написать формулу в новом столбце, в котором будет выдаваться текст «60+», если сотруднику на сегодняшний день больше 60 лет., В противном случае нужно оставлять ячейку пустой
 
DANIKOLA
Цитата
P.S. Интересно почему этой функции(РАЗНДАТ) нету в стандартном списке(Excel 2010):
Потому. что эта недокументированная функция, хотя функция классная. Можно почитать здесь
Создать книгу внутреннего учета, Книга внутреннего учета для швейной мастерской
 

Сначала не поверил, что ИИ писал.

Здесь не обязательно использовать On Error и в 1 столбец 3 раза записываются значения, но для ИИ пойдет.

Вопросы по автоматическому изменению значения в ячейке, Автоматическое изменение числа в ячейке
 
Татьяна З Можете прочитать эту статью возможно будет полезно для понимания
Вопросы по автоматическому изменению значения в ячейке, Автоматическое изменение числа в ячейке
 
Татьяна З
Цитата
Получается это не победить(?
Исходя из сообщения Sokol92 в теме  по ссылке сообщения №2 никак не победить
Создать книгу внутреннего учета, Книга внутреннего учета для швейной мастерской
 
Sanja
Цитата
Можно ознакомиться с творчеством ИИ? Если не секрет. Все равно бесплатно достался)
Я думаю, что данный макрос ФСБ сразу засекретило. и нам не удастся  его увидеть. :D  
Уменьшить выделенный диапазон на одну строку
 
Код
Set Rg1 = Range("Таблица1[Данные]")
Set Rg1 = Intersect(Rg1.Offset(1, 0), Rg1)
Уменьшить выделенный диапазон на одну строку
 
Faiber Здравствуйте Если снизу таблицы то так В ссылке Rg1 будет обрезанный снизу диапазон. Чтобы сверху надо через Offset  и Intersect
Код
Set Rg1 = Range("Таблица1[Данные]")
Set Rg1 = Rg1.Resize(Rg1.Rows.Count - 1)
Как объединить проверку на ноль и на пустую ячейку в одно условие
 
olege1983 Здравствуйте Во первых две строки в коде надо выбросить они не нужны
Код
Pob = 0

Ошибка видимо появляется потому что вы пытаетесь проверить в одном операторе объектную переменную на пустоту и на ноль. Объектная переменная не может сравниваться с нулем. Попробуйте проверку на ноль делать в следующей строке после проверки на пустоту.

файл поврежден или расширение этого файла является недопустимым, не открыть файл
 
opapo Здравствуйте. Я так понимаю вы используете Съемный USB диск. У них надо следить за разъемами USB. Они со временем окисляются. Есть спец жидкости (спреи) для ухода за контактами(В радиотехнических магазинах надо искать) А если диск магнитный не SSD то еще желательно доп питание на него давать, тк у них значительный ток потребления и любое окисление контактов будет приводить к скачкам питания и соответственно порче файлов при сохранении.  Если файлы повреждены маловероятно, что вы их восстановите.
Невидимые кавычки в ячейках, Удаление невидимых символов
 

Здравствуйте Уважаемые ZVI Jack Famous. Вы тут про форматы при поиске заговорили. Насколько я знаю, что в поиске надо обязательно указывать 4 аргумента LookIn, LookAt, SearchOrder, MatchBytе, они сохраняют свои значения, а вот про форматы я ничего не знаю. Объясните пожалуйста начинивающему пользователю эксель, что форматы тоже сохраняют свои значения с предыдущего поиска или есть еще какие то подводные камни с форматами о которых я не знаю.

способ сортировки с прогрессией, подскажите функцию или способ сортировки
 
Не хватает только макроса
Код
Sub enstaralfgh()
Dim Arr1, Arr2, i&, k&, kM&, Fl As Boolean
Arr1 = ActiveSheet.Cells(1).CurrentRegion
Arr2 = Arr1: k = 1
Do: kM = 0: Fl = False
    For i = 2 To UBound(Arr1)
    If Arr1(i, 1) > emtpy Then Fl = True
          If Arr1(i, 1) > kM Then
          kM = Arr1(i, 1)
          k = k + 1
          Arr2(k, 1) = Arr1(i, 1)
          Arr1(i, 1) = Empty
          End If
    Next
Loop While Fl
Range("B1").Resize(UBound(Arr2)) = Arr2
End Sub
не могу запустить макрос появляется ошибка Microsoft office обнаружил возможное нарушение безопасности
 
ivanleb Здравствуйте. Наверно Microsoft office с ума сошел от количества модулей кода, не смог их посчитать Может стоило в файле сначала порядок навести и потом выкладывать в тему.
[ Закрыто] Поиск макрос, помогите
 
AlienSx Здравствуйте. А что может насторожить что-то я не пойму. Ну удалил он свои контакты.
Вложенные циклы долго работают, Оптимизация
 
БМВ
Цитата
ибо при не уникальности на втором листе будет ошибка
Вы подправили, чтобы не было ошибки при не уникальности на 1 листе. Первый цикл по  первому листу.
Вложенные циклы долго работают, Оптимизация
 
Ну наверно надо на скорость и это проверить.
Немного кода у БМВ украл наверно выговор будет :D
Код
Sub enstaraldfhg()
Dim Arr1, Arr2, i&, g&, Col1 As New Collection
Arr1 = ThisWorkbook.Worksheets("Лист1").UsedRange
Arr2 = ThisWorkbook.Worksheets("Лист2").UsedRange
For i = 2 To UBound(Arr1): Col1.Add i, VBA.CStr(Arr1(i, 1)): Next
On Error Resume Next
For i = 2 To UBound(Arr2)
g = Col1.Item(Arr2(i, 1))
    If Err = 0 Then
    Arr1(g, 5) = Arr2(i, 2)
    Arr1(g, 9) = Arr2(i, 3)
    Arr1(g, 11) = Arr2(i, 4)
    Else: Err.Clear
    End If
Next
Sheets("Лист1").Cells(1, 1).Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
End Sub
[ Закрыто] Поиск макрос, помогите
 

Работу не оплатил. Несколько раз менял задание. Еще оказалось надо, чтобы на MACos работало. Конечно я знал, что есть бессовестные люди, но не хотелось думать, что здесь их встречу. Сегодня зарегистрировался под новым ником и выложил мой макрос в новой теме Перенос данных.

[ Закрыто] Перенос данных
 
andreivasilev
Цитата
И вы меня с кем то путаете
Если вы мне представились Богданом. и в почте gmail у вас имя Богдан Батюк, а на самом деле ваше имя возможно Артем Казаринов не говорит о том что я перепутал ведь файл, который вы выложили здесь в теме у меня на почте лежит с вашей почты batukb368@gmail.com.
Задача срок действия полиса страхования
 
Пишу в личку
Странно но ТС исчез с 29,02 не заходил на сайт. В принципе задание несложное. Ради спортивного интереса формулами накидал вариант.
Условия задания здесь выложили не полное.Вообщем решение надо макросом и не совсем все просто как я сначала подумал. Все исходные данные со временем. ТС видимо сам сделал раз до сих пор не отвечает.
Изменено: Евгений Смирнов - 08.03.2024 12:13:51
[ Закрыто] Перенос данных
 
nilske Зря беретесь за работу Большая вероятность, что не получите гонорар. В файле мой макрос. за который ничего не получил Тема чуть ниже  "Поиск макрос" Богдан Батюк перерегистрировался под новым ником. Его почта batukb368@gmail.com
Ошибка кодировки в xlsx.-файле, Не могу найти верную кодировку для табличного файла.
 
Насколько я понял изначально файл был текстовый потом его криво пересохранили в формате xlsx и отправили ТС. В таком случае по моему вариантов его поправить нет.
Задача срок действия полиса страхования
 
Nika_wang
Цитата
задает срок действия
Наверно надо указать в каком формате задается срок действия (годы, месяцы или секунды)
способ сортировки с прогрессией, подскажите функцию или способ сортировки
 
Наверно так надо
Вложенные циклы долго работают, Оптимизация
 
Msi2102
Цитата
Согласен отписался выше, не посмотрел, что во второй таблице 500 тыс
Вот я наверно по интуиции  поэтому так и сделал
Вложенные циклы долго работают, Оптимизация
 
Msi2102
Цитата
А зачем, не проще так
Так проще.Я сильно не думал как проще.Что в голову сразу пришло так написал. Ведь мы не заказ делаем. Причем вопрос спорный какой по скорости будет лучше. У меня таких больших файлов нет, чтобы побаловаться и сравнить скорости
Вложенные циклы долго работают, Оптимизация
 
rktagirov2
Цитата
Можете, пожалуйста, кратко прокомментировать ваш код, чтобы было понимание
Создаем словарь Dic1
Переносим данные с листов в переменные Arr1 Arr2
1 цикл заполняем ключи словаря значениями с 1 листа 1 столбца. (Tp1 переменная типа вариант. Забыл ее объявить Так записывается один из методов заполнения словаря ключами со значениями Emtpy)
2 цикл заполняем значения словаря номерами нужных строк со второго листа
3 цикл меняем значения в Arr1 найденными значениями с массива Arr2
Последние строки выгрузка на лист измененного массива Arr1
В принципе по моему можно по скорости еще лучше сделать, но ТС видимо на глазок замеряет. Конкретных результатов замеров  нет.
Вложенные циклы долго работают, Оптимизация
 
rktagirov2 Здравствуйте Ну зачем сразу все на вложенные циклы валить. Выхода из цикла нет, о чем написал БМВ. Вообще ничего не отключили даже обновление экрана. Надо почитать здесь. Раз применен UsedRange надо проверять в книге не захватывает ли UsedRange пустые строки и столбцы. Но здесь судя по исходным данным лучше применить CurrentRegion. Можете поэкспериментировать код со словарем. Если будут в UsedRange пустые строки и столбцы будет ошибка проверку на пустые значения не сделал.
Код
Sub enstaralgfjh()
Dim Arr1, Arr2, i As Long, Dic1
Application.ScreenUpdating = False
Set Dic1 = CreateObject("Scripting.Dictionary")

Arr1 = ThisWorkbook.Worksheets("Лист1").UsedRange
Arr2 = ThisWorkbook.Worksheets("Лист2").UsedRange

For i = 2 To UBound(Arr1): Tp1 = Dic1(Arr1(i, 1)): Next i

For i = 2 To UBound(Arr2)
If Dic1.Exists(Arr2(i, 1)) Then Dic1(Arr2(i, 1)) = i
Next i

For i = 2 To UBound(Arr1)
    Arr1(i, 5) = Arr2(Dic1(Arr1(i, 1)), 2)
    Arr1(i, 9) = Arr2(Dic1(Arr1(i, 1)), 3)
    Arr1(i, 11) = Arr2(Dic1(Arr1(i, 1)), 4)
Next i

Sheets("Лист1").Cells(1, 1).Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1

End Sub
Изменено: Евгений Смирнов - 29.02.2024 12:41:38
Доработка макроса Redesigner, игнорировать пустые значения
 
Liameerf Здравствуйте Может так будет
Код
Sub Redesigner()
    Dim i As Long
    Dim hc As Integer, hr As Integer
    Dim ns As Worksheet
     
    hr = InputBox("Строк")
    hc = InputBox("Столбцов")
     
    Application.ScreenUpdating = False
     
    i = 1
    Set inpdata = Selection
    Set ns = Worksheets.Add
     
    For r = (hr + 1) To inpdata.Rows.Count
        For c = (hc + 1) To inpdata.Columns.Count
        If inpdata.Cells(r, c) <> "" Then
            For j = 1 To hc
                ns.Cells(i, j) = inpdata.Cells(r, j)
            Next j
             
            For k = 1 To hr
                ns.Cells(i, j + k - 1) = inpdata.Cells(k, c)
            Next k
             
            ns.Cells(i, j + k - 1) = inpdata.Cells(r, c)
            i = i + 1
        End If
        Next c
    Next r
End Sub
Запрос подтверждения на удаление строк / блокировка удаления строк
 
mitya528 Не помню какой ID к чему. но точно к строкам и столбцам
FindControl(ID:=294
FindControl(ID:=3183
FindControl(ID:=293
FindControl(ID:=296
Перенос файла для macOS
 
artemkau88 Ошибка на этой строке
Код
Set Rg1 = ThisWorkbook.Worksheets(ImList).Cells
Может так попробовать
Код
Set Rg1 = ThisWorkbook.Worksheets(ImList).UsedRange
Перенос файла для macOS
 
artemkau88 Быстро сообразили. Только оператор по моему лишний.
Код
Tp2 = col(col.Count)
Изменено: Евгений Смирнов - 28.02.2024 12:25:49
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Наверх