Dim strFind As String
Dim strFind2 As String
    
        strFind = Nz(Me.Поле14.Text, "")
        strFind2 = Nz(Me.ПолеСоСписком5.Text, "")
        If strFind <> "" Then
        
            Forms![Форма1]![Форма2].Form.Filter = " strFind2 Like '*" & strFind & "*'"
            Forms![Форма1]![Форма2].Form.FilterOn = True
            
        Else
        
            Forms![Форма1]![Форма2].Form.FilterOn = False
            Me.Поле14.SetFocus
            
        End If

(читать всё…)

Нужен макрос для создания/отправки HTML-писем прямо из Outlook. В макросе должен быть прописан путь к файлу HTML, а не прописывать/переписывать в коде все теги. Просто сослаться на HTML-файл на диске.

(читать всё…)

Разрабатываю журнал посещения студентами занятий, и столкнулся с задачей — что бы когда нужные поля были заполнены, в нужное мне поле записывалась текущая дата (что бы было понятно когда преподаватель заполнил журнал).

Сделал так:

=ЕСЛИ(И(K73<>»»;K72<>»»;K18<>»»;K17 <>»»);СЕГОДНЯ();»»)

Проблема в том, что функция СЕГОДНЯ() — динамическая, и каждый раз обновляет дату.

Мне же нужно что бы автоматом подтягивалась текущая дата, записывалась в ячейку и не изменялась каждый день, а изменялась если
1. заполнены нужные поля
2. если какое-то из нужных мне полей было изменено.

(читать всё…)

Как можно сделать, чтобы в Excel в одну строку вводились данные (постоянно меняются), а на другом листе выводились эти данные, но когда я меняю на первом листе, чтобы старые данные сохранялись на втором листе, а новые просто дополнялись?

например у меня на листе 1 в ячейка А1: некст (названия лекарств).
лист 2 в ячейке А1: некст
Потом я меняю лекарство получется лист 1 в ячейке А1: ношпа
Лист 2 ячейка А1: некст
Лист 2 ячейка А2: ношпа.

(читать всё…)

Нужен макрос который:
1. скопирует с активного листа (рабочей книги) данные (диапазон A1:GT1004)
2. откроет другую книгу (она уже существует) из той-же папки что и активная.. код типа —

With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm"

3. создаст там (в CHECK BASE.xlsm) новый лист (с любым названием типа Лист1 — название будет потом все равно переименовано вручную)
4. вставит скопированное в этот новый лист в ячейку С5
5. сохранит и закроет книгу (CHECK BASE.xlsm) … ну и — End Sub

Но ОЧЕНЬ ВАЖНО чтоб данные были 1 в 1 с оригиналом (шрифт, окраска, ширина столбцов и тд включая условное форматирование)
НО вместо формул только их ЗНАЧЕНИЕ!
(читать всё…)

В каждой ячейке написали , например, Фото1, но под этим словом скрываются гиперссылки, которые нужно изменять в обычном текстовом формате ссылки http//…. , иначе говоря надо удалить лишнее из каждой =ГИПЕРССЫЛКА(«http://www.paremo.ru/upload/images/goods/2108a7fb-d910-11e4-0693-5404a6b1dcb9_11.jpg»; «Фото 11″….12,13 и оставить http://www.paremo.ru/upload/images/g…6b1dcb9_11.jpg, чтобы в ячейках были написаны обычные ссылки. В ручную можно, конечно, удалять лишнее по каждой ячейке, но их таких 1500 и у всех разные ссылки.

(читать всё…)

Хочу, чтобы Excel проговаривал, что написано в ячейке. Для этого из вложения надо скопировать Govorilka_cp.exe на диск C , прописать в Пуск-Выполнить C:\Govorilka_cp.exe -e24 -c и тогда Govorilka_cp проговорит, то что в буфере обмена. Скажите пожалуйста, каким кодом сделать тоже самое из Excel? Сам я мало чего понимаю. Привожу не рабочий

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_SHOWNORMAL = 1
  Sub Open_File(F_Name) 'Запуск файлов
 ShellExecute 0, vbNullString, F_Name, vbNullString, vbNullString, SW_SHOWNORMAL
    End Sub

Private Sub CommandButton1_Click()
'Копировать_в_Буфер
    Range("A1").Copy
    
'Проговорить текст из буфера
Open_File "C:\Govorilka_cp.exe -e24 -c" ' Не срабатывает
Open_File "C:\Govorilka_cp.exe"

End Sub

  Вложения

говорящий Excel и Govorilka_cp.rar (182.2 Кб, 30 просмотров)

(читать всё…)

Необходимо, чтобы, при отправке отчета, в получателях оказывались все адреса из поля «Фамилия» запроса/отчета.
Запрос, по которому, формируется отчет, с параметрами. Соответственно появляется ошибка: «Отсутствует значение одного или нескольких параметров».

(читать всё…)

Как быстро сравнить 2 диапазона данных на НЕСОВПАДЕНИЯ?

Всего в обработке события должно участвовать 4 столбца. 2 на странице с данными и 2 на странице библиотекой.

Если данные по ключу NUMBER на вкладке DATA отличаются во вкладке CHECK, то вывести msgbox с перечисленными полями NUMBER где есть расхождения, если данные идентичны, то вывести msgbox OK.

Формулой через ВПР это легко реализуется, но очень хочется разобраться как сделать это одним кликом. Причем столбцы могут содержать пробелы…

(читать всё…)

Часто сталкиваюсь с тем, что некоторые макросы — не выполняются на 64-x разрядных системах.
Подскажите универсальную строчку кода, которая бы позволила запускаться макросу на 64-х разрядных системах ?

(читать всё…)