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

Страницы: 1 2 След.
Ошибка Run-time error 13 Type mismatch
 
#
16.07.2024 07:22:26
Ограничение срабатывает, верно. Спасибо)
Изменено: Александр - 16.07.2024 07:30:52 (осознание)
 
Перейти    
Ошибка Run-time error 13 Type mismatch
 
#
16.07.2024 07:00:43
Добрый день! Перестал работать макрос, который буквально вчера работал без ошибок. На втором листе файла при вводе адреса должно выдавать данные по нему, но выскакивает ошибка Type mismatch. Вводил уже как угодно данные, менял формат ячейки Помогите починить макрос. При этом на первой странице все работает без проблем. Дебаг ссылается на строку:
Код
If IsNull(resultJSON(1)("result")) Then
 
Перейти    
Формирование кода ФИАС по строке адреса, Формирование кода ФИАС по строке адреса
 
#
10.07.2024 19:43:00
Здравствуйте! Помогите пожалуйста, мне нужно чтобы не только до улицы код ФИАС определялся, а еще учитывая дом. Как отредактировать формулу? у меня к сожалению не получилось. Использовал последний прикрепленный файл Rodo
 
Перейти    
Как считать кол-во людей (ФИО) в столбце
 
#
28.12.2022 20:34:17
Ігор Гончаренко, спасибо большое! Вроде правильно подсчитывает, +-1 человека бывает пропускает по какой то причине, завтра еще поразбираюсь)
 
Перейти    
Как считать кол-во людей (ФИО) в столбце
 
#
28.12.2022 19:40:03
mitox, Вот прикрепляю. Стобец выбрал А, данные ФИО случайные, также ниже ФИО вставил случайные слова. Их подсчитывает в ячейке сверху, а нужно только ФИО брать. Эти слова внизу могут быть другими, могут быть как между ФИО, могут быть и сверху. Поэтому необходимо только брать в расчёт диапазон всего столбца, считая только людей. Надеюсь понятно расписал.
 
Перейти    
Как считать кол-во людей (ФИО) в столбце
 
#
28.12.2022 19:27:12
Добрый день! В нужном мне столбце есть много строк с ФИО (даже иностранными). Но также в этом столбце встречаются другие ячейки со словами, не содержащими ФИО. Вопрос в том, как можно в выбранном диапазоне подсчитывать только кол-во ячеек с ФИО?
 
Перейти    
Проверка кол-ва пустых ячеек для каждой организации
 
#
26.12.2022 10:22:16
БМВ, спасибо еще раз! чем короче, тем лучше)
 
Перейти    
Проверка кол-ва пустых ячеек для каждой организации
 
#
25.12.2022 14:55:19
БМВ, огромное спасибо!!! Работает, как и должно)
 
Перейти    
Проверка кол-ва пустых ячеек для каждой организации
 
#
25.12.2022 11:09:41
БМВ, да, интересует еще брать только организации где есть бронь (то есть если хотя бы одна ячейка в ФИО пустая). Заранее признателен
 
Перейти    
Проверка кол-ва пустых ячеек для каждой организации
 
#
25.12.2022 08:59:49
Ігор Гончаренко, хорошо) тогда можно вопрос?) Как сделать так, чтобы в табличке сверху брались только те организации, у которых есть хотя бы одна пустая ячейка в столбце ФИО?
 
Перейти    
Проверка кол-ва пустых ячеек для каждой организации
 
#
25.12.2022 08:38:38
Добрый день! Имеется небольшая табличка сверху, которая показывает какие уникальные организации есть в списке. Если напротив названия организации пустая ячейка для ФИО, значит это бронь для этой организации. Проблема в том, что если встречается пустая ячейка в столбце Организация (в примере ячейка E18), то в табличке сверху вообще пусто. Как сделать пропуск пустых ячеек, для формул которые в ячейках F4 и далее?
 
Перейти    
Скрытие определенного диапазона столбцов и строк во всём файле
 
#
18.12.2022 13:53:37
Добрый день! Имеется данный макрос, удаляющий диапазон столбцов во всём документе:
Код
Sub DelColumns()
  avFiles = Application.GetOpenFilename("Excel Files (*.xl*),*.xl*", , "Choose File", "Open", False)
  Workbooks.Open (avFiles)
    Dim Application_Calculation As Long
    Application_Calculation = Application.Calculation
    Application.Calculation = xlCalculationManual
 
    Dim sh As Worksheet
    Dim rr As Range
    Dim lo As ListObject
    For Each sh In ActiveWorkbook.Worksheets
        Set rr = sh.Columns("J:N")
         
        If sh.ListObjects.Count > 1 Then
            For Each lo In sh.ListObjects
                Do
                    If Intersect(rr, lo.Range) Is Nothing Then Exit Do
                    If lo.Range.Columns.Count = 1 Then Exit Do
                    lo.Resize lo.Range.Columns(1).Resize(, lo.Range.Columns.Count - 1)
                Loop
                If Not Intersect(rr, lo.Range) Is Nothing Then lo.Delete
            Next
        End If
        rr.Delete
    Next
     
    Application.Calculation = Application_Calculation
End Sub
Как к нему прикрутить одновременное скрытие диапазона столбцов (H:I), а также строк (6:8) на ВСЕХ листах одновременно? Заранее спасибо!
Изменено: Александр - 18.12.2022 13:54:07
 
Перейти    
Сравнение даты в ячейке с датой в названии листа
 
#
13.12.2022 19:42:14
gling, Прикреплю из другой своей темы, с этим файлом Вы знакомы) тут например в любой строке столбца К нужно вписать дату, если она отличается от даты указанной в листе, то строка должна выделяться цветом
 
Перейти    
Сравнение даты в ячейке с датой в названии листа
 
#
13.12.2022 19:41:14
Юрий М, Извините, сейчас исправлюсь. Удалите пж мою цитату с этой странички)
Изменено: Александр - 13.12.2022 19:42:46
 
Перейти    
Сравнение даты в ячейке с датой в названии листа
 
#
13.12.2022 19:13:54
Цитата
написал:
Цитата
написал:
А лучше бы было, увидеть файл с примером
Прикреплю из другой своей темы, с этим файлом Вы знакомы) тут например в любой строке столбца К нужно вписать дату, если она отличается от даты указанной в листе, то строка должна выделяться цветом
 
Перейти    
Сравнение даты в ячейке с датой в названии листа
 
#
13.12.2022 18:41:02
Цитата
написал:
Здравствуйте.
А в названии листа дата в каком формате?  13.12 это что, день и месяц, а год какой. При таком вводе год установится в соответствии с годом написания этих цифр. Теперь осталось выяснить как прописана дата в имени листа, и почему строка 13, по дню даты? А лучше бы было, увидеть файл с примером.
"13.12 это что, день и месяц, а год какой." да, день и месяц, год текущий. Строка рандомная абсолютно. Пример названия листа "13.12. ЛЮБОЙ ТЕКСТ"
 
Перейти    
Сравнение даты в ячейке с датой в названии листа
 
#
13.12.2022 18:10:51
Добрый день! Например в ячейке K13 я могу вписать любую дату в формате дд.мм, также в названии листа есть дата в том же формате и доп.текст. Если например в ячейке я впишу 13.12., а в названии листа будет любая другая дата, то вся строка 13 должна окрашиваться (как условное форматирование видимо). Как можно такую проверку реализовать?  
Изменено: Александр - 13.12.2022 18:18:43
 
Перейти    
Автоматический сдвиг даты в названии листа
 
#
13.12.2022 17:43:58
Цитата
написал:
КЯА
СПАСИБО!
 
Перейти    
Автоматический сдвиг даты в названии листа
 
#
12.12.2022 18:46:58
Цитата
написал:
я тоже не понимаю зачем 2 прохода)
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12      Sub   Add1Day2SheetName()        Dim   dt   As   Date  , i&, nm$, y&        y = Year(Now)        For   i = Worksheets.Count   To   1   Step   -1          nm = Worksheets(i).Name          If   nm   Like   "##.##*"   Then            dt =   CDate  (Left(nm, 5) &   "."   & y) + 1            If   Weekday(dt) = 1   Then   dt = dt + 1            Worksheets(i).Name = Format(dt,   "DD.MM"  ) & Right(nm, Len(nm) - 5)          End   If        Next    End   Sub  
 
Извините пожалуйста если наглею, но можно подредактировать этот макрос так, чтобы +1 день сдвиг был только у листов, содержащих слово "КЯА"? Буду очень благодарен!)
 
Перейти    
Проверка задвоений/дублей по всем листам книги
 
#
08.12.2022 12:29:32
Цитата
написал:
Вариант с
Цитата
написал:
данные справа от ФИО
ДопЛист скрыт и столбцы К на листах тоже скрыты. Ссылки на листы не обязательны, достаточно только название листов.
если я добавляю в любую строку например другого человека, то он подсвечивается, хотя не должен) ведь на других листах второго такого же нет. Выделяться должны именно повторы  
 
Перейти    
Проверка задвоений/дублей по всем листам книги
 
#
07.12.2022 20:37:26
Цитата
написал:
Смотрите файл. Так подойдёт?
Похоже на то, что необходимо) как это работает? Можно ли полностью все данные справа от ФИО человека также в проверку включить? Обязательно иметь доп.лист со ссылками на все листы?
 
Перейти    
Проверка задвоений/дублей по всем листам книги
 
#
07.12.2022 19:51:12
Цитата
написал:
Здравствуйте.
В файле вариант с числами. Если покажите свою структуру таблиц, можно будет попробовать на вашем варианте.
Здравствуйте! Прикрепляю пример. В нем 2 человека с одинаковыми значениями встречаются в разных листах. Во всех листах они должны подсветиться (или выделиться как нибудь), как бы давая понять что это ПОВТОР абсолютно одинаковых значений. То есть проверка по строке в диапазоне столбцов D:J. Листов может быть очень много, с разными названиями.
 
Перейти    
Проверка задвоений/дублей по всем листам книги
 
#
07.12.2022 19:01:52
Цитата
написал:
Александр, здравствуйте
Штатными средствами, скорее всего — никак.
VBA может, но нужны чёткие условия: диапазон "ключей" (что ищем) и диапазоны на листах (где ищем ключи). А также файл-пример, где все условия присутствуют.
Диапазон столбцов везде одинаковый, то есть это листы с одинаковым оформлением, но разным наполнением. Важный момент, который я наверное упустил: Проверка на задвоения должна быть именно по строчкам. Каждая строка-это человек со своими данными. Если он есть на какой либо строке в другом листе, обе строки должны подсветиться.
 
Перейти    
Проверка задвоений/дублей по всем листам книги
 
#
07.12.2022 18:27:46
Добрый день! В экселе есть функция Условного форматирования, где можно сделать подсветку Повторяющихся значений на листе. Это очень удобно для проверки и поиска "дублей" на одной странице. Но как можно реализовать такую автопроверку по всем листам книги? То есть например есть диапазон столбцов D:J, а книга состоит из 30+ листов. Информация может повториться как на 1-м листе, так и на каком-нибудь 25-м. Как сделать такую автопроверку по всем листам, чтобы повторяющиеся значения были подсвечены на листах? Надеюсь понятно объяснил)
 
Перейти    
Автоматический сдвиг даты в названии листа
 
#
07.12.2022 17:44:54
Ігор Гончаренко,
Цитата
написал:
я тоже не понимаю зачем 2 прохода)
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12      Sub   Add1Day2SheetName()        Dim   dt   As   Date  , i&, nm$, y&        y = Year(Now)        For   i = Worksheets.Count   To   1   Step   -1          nm = Worksheets(i).Name          If   nm   Like   "##.##*"   Then            dt =   CDate  (Left(nm, 5) &   "."   & y) + 1            If   Weekday(dt) = 1   Then   dt = dt + 1            Worksheets(i).Name = Format(dt,   "DD.MM"  ) & Right(nm, Len(nm) - 5)          End   If        Next    End   Sub  
 
Отлично работает! Огромное спасибо, то что нужно!)
 
Перейти    
Автоматический сдвиг даты в названии листа
 
#
05.12.2022 19:14:33
Цитата
написал:
Sergey Stoyanov,
и прибавите к 02.12 один день станет 03.12 - а лист с таким именем уже есть!
Цитата
написал:
Там же не только даты, а текст отличается. Но, если закладываться на совпадения - то в 2 прохода, сначала имена в массив, потом с конца с шагом -1 загрузить  
Ребята, спасибо что попытались разобраться) я к сожалению не соображаю в программировании экселя и не понимаю о чем вы :))
 
Перейти    
Автоматический сдвиг даты в названии листа
 
#
05.12.2022 16:08:37
Добрый день! На скрине показал пример названия листов, которые включают в себя дату и текст. Необходимо как то автоматически сделать сдвиг на +1 день в названиях файлов, не изменяя текст в названии листа. То есть было 01.12., стало 02.12. и т.д. до конца всех листов в файле. Еще очень важно, чтобы всегда воскресенье было пропущено (то есть с субботы перескакивало сразу на понедельник). Дело в том что листов в документе 50-60, хотелось бы немного упростить процесс изменения дат :) буду благодарен за помощь
 
Перейти    
Возможностью использования веб-версии Excel по локальной сети
 
#
22.11.2022 11:26:57
Цитата
написал:
Цитата
написал:
Файлы для работы находятся на общем диске
так используйте десктопную версию Excel. А далее в ней есть тоже общий доступ, правда не такой уж и он-лайн:  Ведение журнала сделанных в книге изменений
вот в этом и загвоздка, что такой способ не подходит для полноценной работы нескольких человек одновременно. Там ограничение на обновление минимум раз в 5 минут А нажимать "сохранить" каждую секунду невозможно  
 
Перейти    
Возможностью использования веб-версии Excel по локальной сети
 
#
22.11.2022 08:38:07
Помогите пожалуйста консультацией. Есть потребность в использовании возможностей совместной работы в реальном времени нескольких человек в одном файле. Доступ к интернету очень сильно ограничен в этом плане, также нет доступа к OneDrive. Подскажите, можно как то организовать доступ в корпоративной (локальной) сети, минуя облачные сервисы? Файлы для работы находятся на общем диске. Буду признателен за помощь!
 
Перейти    
Проверка пустых/заполненных ячеек по списку
 
#
15.09.2022 19:16:51
БМВ, Огромное Вам спасибо! Это верное решение, спасибо еще раз!
 
Перейти    
Страницы: 1 2 След.
Наверх