Составить программу на VBA для Excel, которая будет определять самое длинное и короткое слово для введенных данных (фамилия, имя и отчество).

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

Первоначальное условие: Для заданного натурального числа n (n>=3) найти произведение первых n чисел Фибоначчи. Нужно создать программу с массивом.

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

Нужно импортировать таблицу из word (в приложении «Ворд.docx») на «Скрытый лист» книги excel (в приложении «Excel.xlsx») начиная с ячейки «E6», затем из скопированной таблички на «Скрытый лист» нужно подставить данные в таблицу на лист «База». Или возможно подставить данные в таблицу на листе «База» минуя «Скрытый лист».

	Ворд.docx (20.1 Кб)
	Excel.xlsx (9.6 Кб)

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

Нужен макрос, который будет очищать строку, если хотя бы одна ячейка в этой строке в указанном диапазоне (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. если какое-то из нужных мне полей было изменено.

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