Нужен макрос, который будет очищать строку, если хотя бы одна ячейка в этой строке в указанном диапазоне (A6:F505) — пустая.
А затем делать так, чтобы между первой заполненной строкой и последней не было пустых строк, но не удалять их, а как бы копировать значения из строки ниже на эту пустую строку и т.д.

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

Как изменить координаты графического объекта?
Есть такой код

Worksheets("Лист1").Shapes("strela").ScaleWidth 2, msoFalse, msoScaleFromTopLeft

а нельзя ли явно указать x1,y1,x2,y2?

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

Столкнулся с проблемой, когда попытался настроить фильтр на форме. В идеале в ComboBox нужно выбрать поле фильтра, затем ввести данные в TextBox и нажатием кнопки фильтровать.

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

Форма 1 — та на которой расположены поля и кнопки, Форма 2 — табличная форма на которой нужно фильтровать данные.
После нажатия на кнопку не происходит ничего, ни ошибок, ни результата.

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

Как закрыть доступ пользователя к колонтитулам? Ловится ли событие «вход в редактирование колонтитула»?

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

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 и у всех разные ссылки.

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