=$G3="Скид: 0 - ООО ""Солнышко"""

в такой вид =$G3="*Солн*"

заливка не работает. Помогите кто знает, как прикрутить маску в условное форматриование.

Всем привет! На Листе1 в строке 3 забита формула поиска номера столбца через функцию ПОИСКПОЗ на соответствие по текстовым заголовкам столбцов на Листе 2. Найденые номера столбцов используются как аргументы в функции «Адрес».

Стоит задача на Листе 1 формулой через функции «Ячейка» и «Адрес» вернуть значение соответствующей ячейки из Листа 2.

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

Заранее спасибо. Пример прикладываю

Здравствуйте уважаемые! Есть задача импорта данных в таблицу Excell 2003 из БД MS Access 2003. Зам запрос я создал стандартным способом: Данные→Импорт внешних данных →Создать запрос. При этом запускается программа-посредник  Microsoft Query. В итоге запрос сделал успешно. Для автоматизации этого запроса записал макрос макрорекодером. «Тело» запроса постоянно, за исключением одного параметра, который можно в ручную изменить через Изменить запрос(Excell)→Microsoft Query→Создание запроса: отбор данных→Столбцы для отбора→Столбец <kod_cl>→условие <равно>→значение <изменяемые вручную данные какие мне нужны>. После того как записал макрос ввел в него переменную, которую хотел использовать в «теле» запроса вместо параметра значение.

Итоговый макрос:

Sub ZAPROS()
Dim vX As Variant ' переменная для параметра <значение> в запросе Microsoft Query
Set vX = Range("K8") ' записываю в переменную данные из ячейки <K8>, в которую _
                    вручную вношу нужное мне <значение> для запроса
Range("A1").Select ' без предварительного выделения ячейки <A1>, макрос почему-то ругается.
    With Selection.QueryTable ' это <тело> запроса
        .Connection = Array(Array( _
        "ODBC;DSN=База данных MS Access;DBQ=\\FS\Progr$\АО\реальная\5\PROGR_390.mde;DefaultDir=\\FS\Progr$\АО\реальная\5;DriverId=25;FIL=MS A" _
        ), Array("ccess;MaxBufferSize=2048;PageTimeout=5;"))
        .CommandText = Array( _
        "SELECT All_dog2.kod_cl, All_dog2.naimen_full, All_dog2.n_dog, All_dog2.data_dog, All_dog2.n_szeta, All_dog2.data_sz, All_dog2.data_naz, All_dog2.data_okon, All_dog2.sum_szeta" & Chr(13) & "" & Chr(10) & "FROM All_dog2 All_dog2" & Chr(13) & "" & Chr(10) & "" _
        , "WHERE (All_dog2.kod_cl=1904)")
        .Refresh BackgroundQuery:=False ' если в запись "WHERE (All_dog2.kod_cl=1904)" вместо значения 1904 вписать переменную vX, _
        то в этой строке ошибка Run Time error '1004': Общая ошибка OBDC
    End With
End Sub

Здравствуйте уважаемые программисты. Прошу оказать помощь по «допилке» макроса. За основу был взять макрос Николая Павлова отсюда https://www.planetaexcel.ru/techniques/12/49/ . Этот макрос импортирует листы из других книг в одну книгу (активную). Стоит такая задача, чтобы макрос помимо импорта листов возвращал бы имя импортируемого файла (книги) в ячейку U1 Листа 1. В инете много описаний как с помощью метода .GetOpenFilename этого добиться. На одном из сторонних форумов нашел кусок кода под авторством Казанского, но внедрить его в макрос не получается - происходит останов с ошибкой.

Код макроса с моими изменениями:

Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer
    Dim i As String ' переменная которую ввел для кода -получить имя файла
    Dim Name As String ' переменная которую ввел для кода -получить имя файла  
 
    Application.ScreenUpdating = False  'отключаем обновление экрана для скорости
    
    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="Файлы Excel 97-2003,*.xls", _
      MultiSelect:=True, Title:="Files to Merge")
   
   
'--------------------Пытаюсь получить имя файла--------------------------------

'Этот кусок кода приведен полностью как есть с одного из сторонних форумов (автор Казанский)
'FullPath = Application.GetOpenFilename
'i = InStrRev(FullPath, "\") 'позиция последнего \
'Name = Mid(FullPath, i + 1)
'Folder = Left(FullPath, i - 1)
'MsgBox FullPath & vbLf & Name & vbLf & Folder

'Вот моя попытка внедрить этот код в тело макроса
i = InStrRev(FilesToOpen, "\") ' Выдаёт ошибку - <Run-time error '13': Type mismatch>
Name = Mid(FilesToOpen, i + 1)
Worksheets(1).Range("U1") = Name
'--------------------------------------------------------------------------------
      
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
    
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(FileName:=FilesToOpen(x))
        Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        importWB.Close savechanges:=False
        x = x + 1
    Wend

    Application.ScreenUpdating = True
    ThisWorkbook.Sheets("Control").Activate
End Sub

Проверка на наличие данных в скрытых ячейках кодом VBA с выводом обнаруженных данных. Здравствуйте коллеги. Прошу помочь решить следующий вопрос:

Есть таблица с данными, в которой, к сожалению, встречаются скрытые строки. Смог сообразить макрос - через метод SpecialCells. Работает так - если в таблице есть скрытые строки, то просто выводится сообщение. Однако, если в скрытых строках ничего нет - меня они в общем не интересует, хуже когда там какие то данные все таки спрятаны, и это может ошибочно повлиять на итоговый результат вычислений, из-за этого нужно раскрывать и проверять, это очень не удобно. Знаний не хватает настроить макрос, чтобы он при наличии скрытых строк проверял бы их на присутствие каких -либо данных. В Экселе есть функция  ISBLANK, не знаю может ли она выполняться в VBA или это чисто экселевская функция,  если да, то как её настроить на проверку именно по скрытым строкам? Вот тело моего макроса

Sub macros()
Dim A As Integer
Dim B As Integer
Dim Diapazon As Range


A = Range("N1:N27").SpecialCells(xlVisible).Count
B = Range("N1:N27").Count

If A <> B Then
    MsgBox "Обнаружены скрытые строки"
    Else
    MsgBox "Cкрытых строк нет"
End If
    'Тут дальше только логика процесса, потому как правильно сделать код не могу.
        'If ISBLANK Diapazon.Rows.Hidden - если в скрытых строках ничего нет (пусто), то выводим сообщение такое
        'MsgBox "В скрытых строках данных нет"
        'Else Иначе (то есть, если хоть какие то данные есть) выводим такое сообщение
        'Msgbox "В скрытых строках обнаружены данные.
        'Строка 3:----'Федоров'--'30''40'-------"
        'End If
End Sub

Sub Check()
Dim dat As Range
Set dat = Range("A4:Q28")
MsgBox Application.WorksheetFunction.CountIf(dat, "груша")
End Sub

Понятно, что результатом будет вывод окна итоговой цифрой (количество ячеек, в которых есть слово груша). Однако мне необходимо сузить диапазон подсчета ячеек, то есть нужно чтобы COUNTIF обрабатывал в диапазоне "dat" только столбец "3". Но как это реализовать правильно не знаю. Обычно для таких целей я прописывал такую цепочку: Worksheets(1).dat.Columns(3). и дальше например .find(.......) и это срабатывало. Здесь так не получается. Вроде как по логике код строки с COUNTIF должен выглядеть так:

MsgBox Application.WorksheetFunction.CountIf(dat.columns(3), "груша")

Здравствуйте Люди добрые! Пожалуйста помогите оптимизировать макрос. На форуме похожие темы, конечно, есть, но я ни один из примеров не смог применить. Автофильтр для моих целей я тоже не смог применить потому как он работает сразу со всей таблицей, а мне необходима раздельная обработка в четырех диапазонах.

В таблице есть 4 блока товаров. Каждый блок состоит из 30 строк. Для компактности внутри блока пустые строки скрыты, кроме первых двух и последней с итогом. Сконструировал простейший макрос. Работает так - при внесении данных в первую строку по столбцу "F" (Ячейка  Cells(5, 6)) "раскрывается" (через Hidden = True) вторая по счёту строка. И наоборот, если целевая ячейка пуста, то вторая по счёту строка скрывается. Весь макрос "сшит" из кусков по типу:

If Cells(5,6).Value = 0 Then
     Rows(7).Hidden = True
   Else Rows(7).Hidden = False
End If 

просто последовательно менял номера строк. "Хватило" меня только на один блок. А нужно чтобы все четыре блока так работали.  Понимаю, что конструкция примитивная и кроме того макрос привязан к модулю листа через Worksheet_SelectionChange, что серьезно "грузит" систему, стоит только на листе в любом месте ткнуть мышью как идет пересчет ячеек по всему листу.  Очень хочется получить цикл с меньшим количеством строк и по возможности привязать к другому менее требовательному к ресурсам "событию". Файлик с макросом прилагаю. Целевой столбец выделен желтым цветом.

Доброго всем времени суток! Много раз меня выручал этот форум. Потому прибываю в неоплатном долгу перед всеми кто мне помогал. Не смею рассчитывать на то, что кто то снова будет тратить свое время на меня за "Спасибо". Однако, если кто из консультантов решит, что те вопросы которые я ставлю на обсуждение достаточно трудозатратны и требуют денежного вознаграждения, я не исключаю и такой вариант. Задача которую мне предстоит описать для знатоков VBA не сложна, но для того что бы понять чего я ожидаю от неравнодушного сообщества мне необходим много слов. Возлагаю надежды на лояльность модераторов, чтобы сия тема была все таки допущена на форум.

Итак, на моей "славной" работе руководство, видимо посчитав, что я за зря ем "хлеб" фирмы поручило мне наряду с моей непосредственной работой (вообще я специалист договорных отношений, т.е. юрист) в нагрузку одно довольно "геморройное" занятие. А именно - теперь я еще должен проверять (контролировать) сдачу графиков посещений нашего обслуживающего персонала среди Клиентов компании. Всё это дело ведется в Эксель 2003. Обилие ручной работы при этом контроле меня "убивает". Естественно никого не заботит как я это буду делать, хотя по хорошему здесь нужен толковый "прог" на уровне  VBA. Но это не реально, ему же надо платить зарплату, а мне можно не платить. Ну вот, пожалился... вроде полегчало...

Итак суть. Есть обслуживающий персонал - специалисты. У каждого спеца есть свои Клиенты. Спецы обязаны еженедельно заполнять в Эксель График посещений Клиентов. То есть, книга (файл) содержит листы. Один из листов содержит Плановый график, а другие листы - текущие графики. Моя задача проверить достоверность всех графиков (Плановый и текущие). Я додумался создать некий шаблон с правилами, и при импорте данных из графика специалиста в мой шаблон правила "подсветят" косяки, если таковые имеются. Прилагаю свой подопытный образец. Первый лист "План" - это и есть проект шаблона (по сути лист Получатель данных). Далее листы содержащие графики специалистов (листы Источники данных). График представляет собой две таблицы (верхняя и нижняя). Условно верхняя таблица называется "Плановый на март", нижняя - "Дополнительные визиты". Обе таблицы разделены на 5 дней недели. Здесь по тексту я решил, что диапазон строк и столбцов в таблице в границах одного рабочего дня назвать микромассивом. То есть, в каждой таблице есть 5 микромассивов: понедельник, вторник, среда, четверг, пятница. Скажем так, верхняя таблица (Плановый на март) является Первичной, нижняя таблица (Дополнительные визиты) - вторична и задействуется для обработки макросом только при условии наличия обоюдных связей в формулах по столбцу "Н". Пример итогового результата - кнопка Пятница. Если связи нет, то макрос обрабатывает только верхнюю таблицу Пример итогового результата - Все кнопки с понедельника по четверг. Я уже сделал кучу кнопок с макросами для импорта данных из листа Источника в лист Получатель. Разумеется пользовал макро рекодер  В результате макросы примитивны и корректно работают только при фиксированном и неизменном размере массивов на листе Источнике, а это невозможно. Более того не исключено и небрежное форматирование таблицы самим специалистом (где то есть пустые строки, или разрыв формул). Предполагается, что массив на листе Источнике будет динамичным, т.е. количество строк внутри дня недели не лимитируется и м.б большего либо меньше чем в примере. Нужен умный "макрос" чтобы он умел выделять на листе Источнике только тот диапазон массива (микромассив), который относится к конкретному дню недели. Очевидно, что необходимо задать границы микромассива на листе Источник по некоторым условиям. Для наглядности конечного результата можно понажимать мои кнопки. Так кнопки "понедельник", "вторник" и т.д. на листе Источник выделяют нужные микромассивы и копируют их в заданные диапазоны на лист Получатель. Замечу, что для простоты на листе Получателе предполагается, что размер микромассивов (диапазон строк и их количество) фиксирован и число строк постоянно (26 строк на один день, микромассив).  Это избыточно, но зато, на мой взгляд, упрощает импорт данных и не нужно беспокоиться о размере микромассива на листе Источнике. Вряд ли будет ситуация, где количество строк в источнике на один день превысит значение 26.

Кнопка DeleteData - очищает мой шаблон (лист Получатель) от старых данных. Кнопка "Все рабочие дни" запускает поочередно все макросы начиная с понедельника по пятницу.

По умолчанию на листе Получатель в столбце "H" в каждой первой ячейке микромассива указывается значение "8:45" - это отправная точка отсчета времени. Начиная с каждой второй ячейки микромассива и по последнюю строку (понедельник H6:H30, вторник H32:H56, среда H58:H82, четверг H84:H108, пятница H110: H134) забита формула на прирост рабочего времени. В самом простом случае предполагается, что формулы по столбцу "H" на листе Получателе недолжны изменяться, то есть макрос их "не трогает".  Для наглядности: в результате работы макроса на листе Источник должны быть корректно выделены и скопированы 5 микромассивов с несмежными диапазонами из верхней таблицы. В примере получается, что несмежные диапазоны понедельника - C5:G12 и I5:J12, вторника -  C16:G28 и I16:G28, среды - C29:G40 и I29:J40, четверга -  C41:G50 и I41:J50, пятницы - C51:G61 и I51:J61.

Я определил два основных условия определения границ микромассива и одно дополнительное условие для определения относимости данных (какие данные можно отнести к понедельнику, вторнику, среде, четвергу и пятнице):

1. Условие. Думаю, что в моем примере верхней границей микромассива на листе Источник должна быть каждая строка, где в столбце "Н" содержится значение времени "8:45". Именно это значение указывают все специалисты вначале своего дня. К другим критериям привязаться проблематично. Например, столбец "А" содержит текстовые значения - понедельник, вторник, среда, четверг, пятница по всему своему диапазону (в пределах обеих таблиц, конечно) и логичнее было бы привязать верхнюю границу к ячейке с текстом понедельник, вторник и т.д.. Однако, в результате небрежного форматирования, ячейка с днем недели может быть выше или ниже строки со значением "8:45" по столбцу "H"  (начало рабочего дня), что приведет к неправильному определению верхней границы микромассива. Обратите внимание на лист Источник, в верхней таблице - вторник (пример небрежного форматирования). В тоже время нужно чтобы макрос определял верхнюю границу микромассива именно по первому встретившемуся значению "8:45", которое вводится вручную. На примере образца на листе Источник в четверг первым значением "8:45" макрос должен считать ячейку "H41", а не ячейку "H42". Не знаю имеет ли это значение для дела, но предполагается, что в графиках в столбце "H" в первой строке микромассива (это начало дня) всегда значение равное "8:45" специалист выставляет вручную, это не результат вычислений формулы. В итоге значение "8:45" введенное вручную в столбце "H" - это верхняя граница каждого микромассива.

2. Условие. Нижняя граница микромассива должна определяться строкой, которая содержит группу формул. Например, в понедельник эта группа формул содержится в строке 12 (диапазон N12:Q12). Опять же, если это имеет значение для дела, то указанная группа формул (суммы по столбцам) в каждом микромассиве повторяется и, конечно, при изменении числа строк внутри микромассива динамически изменяется диапазон вычислений внутри этих формул.

3. Условие.  Соответствие дня недели Источника и Получателя. Иногда рабочая неделя состоит из трех дней.  На примере образца - лист 3. Необходимо чтобы макрос на листе Источник скопировал данные по оставшимся микромассивам (у нас это среда, четверг, пятница) и результат помещался на листе п

Получатель в соответствующий диапазон. В нашем примере с листа Источника данные со среды должны перейти на лист получатель также в среду, четверг в четверг ну и пятница в пятницу. Полагаю, что здесь каким то образом необходима проверка условия на наличие текстового значения в диапазоне столбца "A". То есть, макрос должен проверить - какое текстовое значение он найдет в диапазоне микромассива (между верхней строкой и нижней строкой) по столбцу "А".  Если в заданных диапазонах по столбцу "A" он найдет "понедельник", то весь микромассив, в границах которого нашлось это слово он должен скопировать соответственно в лист Получатель, в начало диапазона Понедельник. И так далее. В случае если на листе Источнике обнаружится микромассив, который не имеет в столбце "А" текста "понедельник", "вторник", "среда", "четверг", "пятница", то необходимо чтобы макрос выдал сообщение что-то типа: "Не могу определить вторник". А в случае, если специалист ошибочно по столбцу "А" в пределах одного дня указал два и более текстовых значения (например, понедельник и вторник) то необходимо сообщение что то типа "Не правильно задан день недели".

Написано очень много, даже страшно продолжать. Но если у кого-то хватило терпения, мне остается только благодарить этого человека и надеяться, что будут предложены варианты. Итак я уже делал оговорку, что в самом простом случае макрос обрабатывает только верхнюю таблицу. В более сложном варианте (посмотрите Пятницу) предполагается, что макрос должен определить по связям в формулах (если такое вообще возможно)  по столбцу "Н" наличие дополнительных данных в нижней таблице "Дополнительные визиты" и также аккуратно выделить обнаруженный диапазон и скопировать его в лист Получатель тоже в нижнюю таблицу. При этом макрос должен внести соответствующие изменения на листе Получатель в те формулы, о которых я раньше говорил, что они  не должны изменяться макросам в простых случаях. Если нажмете на кнопку "Пятница" то вы сможете увидеть, что из-за несогласованности формул результат вычислений по времени в столбце "Н" на листе Получателе не верный. То есть при переносе данных он (макрос) должен на листе Получателе (План) привести в соответствие формулу с той же логикой вычислений как на самом листе Источнике данных. Опасаюсь, что мой трактат "трещит" по швам. Дополнительные текстовые пояснения содержатся непосредственно в самом файле на первом листе (Получатель). Друзья понимаю, что многого хочу, но надеюсь, что возможно проект удастся воплотить в жизнь, если Вы примите свое участие хотя бы по кусочку. Возможно вместо одного большого макроса можно сделать много маленьких. Например был бы рад маленькому макросу как определить и выделить микромассив "понедельник" для последующего копирования на лист Получатель. По аналогии сделаю макросы для других дней, если одним макросом сразу на все дни сделать сложно.

В любом случае спасибо всем, кто потратил своем время и дочитал до конца. Уповаю на Вас и внемлю  .