Поиск
Автор: Ivan Timurov. Доброго времени суток! Уважаемые форумчане, создал две таблицы на 1 листе. Данные вводятся через две формы, по одной форме на таблицу, открывающиеся по нажатию кнопок. В первую таблицу данные вводятся по порядку, проверяю, если пустая ячейка – данные вводятся.
Во вторую таблицу данные должны вводится в определенные ячейки. Просто так вводить данные я не могу, поскольку лист защищен паролем (пароль снимается при вводе данных с формы).
Подскажите, можно ли сделать так, чтобы ...
Изменен: 24.12.2022
Читать сообщение на форуме или сайте.Автор: Вфьшфт Makarov. Здравствуйте, не знаю как правильно писать макросы. Задачка такая есть 7 столбцов с разным текстом. Нужно что бы в 8-ом столбце были случайные вариации текста колонок
Есть такой вариант макроса но он не охватывает все столбцы
Sub Random()
Dim r&, rn&, c&, s$
Randomize: rn = Cells(Rows.Count, 1).End(xlUp).Row
Columns(5).ClearContents
r = 100 + Rnd * 100
For r = 1 To r
s = ""
For c = 1 To 3
s = s & Cells(1 + Int(Rnd * rn), c) & " " ...
Изменен: 29.08.2022
Читать сообщение на форуме или сайте.Автор: Богдан Кох. Добрый день
Нужен макрос, который будет запускаться в книге в 08:00 и 20:00 и будет содержать эти две команды.
Thisworkbook.Save
Thisworkbook.Close
Изменен: 09.02.2022
Читать сообщение на форуме или сайте.Автор: Евгений Женькин. Здравствуйте, помогите упростить макрос. Нужно зациклить или повторить макрос, чтобы на каждом листе заменялись данные с определенной строки листа "данных".
Выглядит макрос так: Sub Замена()
Sheets("99 (2)").Select
Cells.Replace What:="99", Replacement:="2", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("99 (3)").Select
Cells.Replace ...
Изменен: 13.07.2021
Читать сообщение на форуме или сайте.Автор: Cappuccino. Добрый день форумчане...
Пытаюсь по маленьку осмыслить VBA в excel по методу практического применения :D , но нужна помощь спецов, так как немного не понятны некоторые вещи.
Файлик прикрепил, для примера (Необходимо чтобы было следующее):
На листе "ФормаВвода", вводится требование, затем по нажатию кнопки "Ввод" копируем данные требования в таблицу на лист "Учет Приход_Расход".
Лист "ФормаВвода", ...
Изменен: 18.09.2020
Читать сообщение на форуме или сайте.Автор: Ostraya. Здраствуйте.
Имеется таблица, в которой ведется учет клиентов детской комнаты. По сути - журнал посещений.
Время прибытия ребенка, после заполнения ячейки "Имя" , автоматически ставится в ячейку напротив макросом:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range("A:A")) Is Nothing Then
With cell.Offset(0, 3)
.Value = Now
.EntireColumn. ...
Изменен: 24.02.2020
Читать сообщение на форуме или сайте.Автор: drtugrik. Доброго дня.
Требуется получать расстояния от сервера Yandex, на основании 2-х значений текстового поля.
При этом значения вводятся зачастую некорректно. В связи с этим в дополнительные поля потребуется вернуть ещё и значения определившихся адресов.
Пример во вложении.
Изменен: 04.08.2019
Читать сообщение на форуме или сайте.Автор: a.m.v.. Всем привет.
Прошу помощи. Только начал разбираться в макросами, поэтому не знаю как сделать.
Задача: необходимо проставлять даты изменений в двух ячейках на одном листе. Есть одинаковые макросы (ниже), но с различными адресами ячеек. Понимаю что нужно сделать все в рамках одной процедуры "Worksheet_Change". Но как правильно объединить - так и не осилил.
Макрос №1
Private Sub Worksheet_Change(ByVal Target As Range)'Update 20140722
Dim WorkRng As Range
Dim ...
Изменен: 20.07.2019
Читать сообщение на форуме или сайте.Автор: so-yuze. Добрый день, уважаемые эксперты.
Есть макрос, который при активации открывает строку с определенным номером и открывает спрятанный в книге лист.
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
Rows("5:5").Hidden = False
Sheets("План1").Visible = True
Else
Rows("5:5").Hidden = True
Sheets("План1").Visible = False
End If
End Sub
Как сделать так, чтобы сам макрос активировался на ...
Изменен: 12.06.2019
Читать сообщение на форуме или сайте.Автор: Лямкин. Доброго времени суток, знатоки Excel!
Может кто поможет объяснить, как реализовать одну задачу?
А именно:
Есть книга, на первом листе "Данные" есть таблица выполненных работ рабочих. Данная таблица в течение месяца заполняется ответственным. По окончании периода необходимо формировать отдельные листы с итоговыми данными по каждому рабочему из данной таблицы. Но в итоговой таблице необходимо добавлять строчками те виды работ, которые были заполнены, как ...
Изменен: 13.08.2018
Читать сообщение на форуме или сайте.Автор: Klon. Доброго времени суток! Нужна помощь в создании макроса. На листе в первой строке и в последней, предполагаемого диапазона, есть данные. Нужно чтобы макрос заполнял пустые строки между первой и последней строкой, значениями что расположены выше , т.е. в первой. Поскольку заранее не известно где расположена последняя строка макрос должен заполнять строки с верху вниз пока не встретит уже занятую строку.
Изменен: 31.07.2018
Читать сообщение на форуме или сайте.