Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Phurba
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA. Добавление в формулу имени страницы
 
#
16.11.2019 20:27:12
Добрый вечер. Нужно что-бы макрос добавлял на каждую страницу формулу которая будет содержать значение листа в соответствии с названием текущей страницы. т.е формула на листе 1.11.19 дожна выглядеть как

Код
=ИНДЕКС('C:\[1.xlsx]1.11.19'!C3:C3;)

на 2.11.19 и т.д

Код
=ИНДЕКС('C:\[1.xlsx]2.11.19'!C3:C3;)

Пример прилагаю. Так-же буду благодарен за вариант корректного завершения макроса при достижении конца документа.

Изменено: Phurba - 16.11.2019 20:30:38
 
Перейти    
Формула с динамическим именем страницы в формате даты
 
#
16.11.2019 16:20:30
Добрый день.

Есть формула в файле 1 берущая данные из закрытого файла 2  
Код
=ИНДЕКС('C:\[2.xlsx]11.11.19'!O13:O13;)
имена страниц в файлах имеют формат дд.мм.гг, возможно ли динамически задать имя листа в формуле так, чтобы формула ссылалась на лист с тем же именем, как и тот на котором она находится.
 
Перейти    
Запуск макроса при изменении отслеживаемых файлов.
 
#
13.09.2017 12:36:55
Добрый день!
В прилагаемом файле в ячейках D3,E3 отображается дата и время изменения файла расположенного по ссылке, данные ячеек обновляются каждые 10 секунд. Необходимо запустить макрос "postrenew" при изменении файла (данных в ячейке d3,e3)
При использовании данного макроса реакции на изменение значения D3,E3 не происходит.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D3:E3")) Is Nothing Then
Call postrenew
End If
End Sub

Прошу помочь доработать этот макрос или альтернативное решение для отслеживания изменения файлов.
 
Перейти    
Сопоставление чисел с противоположными знаками в столбце
 
#
08.01.2017 15:54:21
Добрый день.
Имеется столбец чисел содержащий положительные и отрицательные числа (200, -155, 155, -50) , необходимо проверить является ли число отрицательным, и если да то имеется ли такое же положительные число в этом столбце ( -155 и 155 например) если положительно числа нет, то нужно прибавить это число к общей сумме отрицательных чисел без пары. До сих пор использовал следующую формулу =СУММПРОИЗВ(B2:B1001*(B2:B1001<0)*(1-СЧЁТЕСЛИ(B2:B1001;-B2:B1001))), но у нее есть недостаток, при совпадении одинаковых отрицательных чисел ( -50, 50, -50) второе число не учитывается в общей сумме как число без пары. Можно ли добавить в формулу учет повторных значений или применить для решения этой задачи макрос. Пример прилагаю.
 
Перейти    
Переменная в адресе гиперссылки
 
#
07.01.2017 15:23:21
Добрый вечер.

Нужно вставить переменную указывающую номер строки в гиперссылку, пытался задать через .address, но что-то не получилось.
Код
ActiveCell.FormulaR1C1 = _
         "=HYPERLINK(""#Лист1!""&address(5,1),""ссылка"")"
 
Перейти    
Формула суммирования с условием
 
#
31.07.2016 11:25:00
Добрый день, возникла необходимость в нетривиальном решении подсчета суммы чисел в стобце: найти в столбце отрицательные числа, и суммировать те из них, что не имеют равного им положительного значения, при этом игнорируя остальные положительные числа в столбце. Пример прилагаю.
 
Перейти    
Суммировать данные с нескольких листов по условию
 
#
12.07.2016 00:05:55
Добрый вечер, помогите правильно преобразовать формулу для корректной работы в vba.
.FormulaLocal работать отказалась
Код
Range("Q7").FormulaR1C1 = _
        "=SUM(INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16]),1,FIND(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-1,""ДД.ММ.ГГ"")&""'!o""&ROW(R[-7]C[-2])),INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16]),1,FIND(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-2,""ДД.ММ.ГГ"")&""'!o""&ROW(R[-7]C[-2])),INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16" & _
        "D(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-3,""ДД.ММ.ГГ"")&""'!o""&ROW(R[-7]C[-2])),INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16]),1,FIND(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-4,""ДД.ММ.ГГ"")&""'!o""&ROW(R[-7]C[-2])),INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16]),1,FIND(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-5,""ДД.ММ.ГГ"")" & _
        "ROW(R[-7]C[-2])),INDIRECT(""'""&TEXT(REPLACE(CELL(""имяфайла"",R[-15]C[-16]),1,FIND(""]"",CELL(""имяфайла"",R[-15]C[-16])),"""")-6,""ДД.ММ.ГГ"")&""'!o""&ROW(R[-7]C[-2])),R[-7]C[-2],)"
 
Перейти    
Формула массива с фильтром суммирования по дате.
 
#
17.05.2016 21:59:41
Доброго вечера, уважаемые  знатоки.
Можно ли использовать формулу массива для вычисления значений выбранных по диапазону дат столбцов.
То есть введя в две ячейки дату начальную и конечную, получить вычисление значений ячеек для всего выбранного диапазона.
Пример прилагаю.
Изменено: Phurba - 17.05.2016 22:00:44
 
Перейти    
Вставка значения ячейки в формулу макроса.
 
#
25.04.2016 22:44:04
Добрый вечер.
Код
sht.Cells(16, 21).FormulaR1C1 = "=(R[-8]C-R[-14]C)*7%+R[-14]C-R[-11]C-R[-6]C"

Возможно ли заменить 7% на значение ячейки другого листа, по типу Sheets("123").Cells(7, 15).
 
Перейти    
Сортировка данных по листам.
 
#
11.04.2016 23:19:12
Доброго вечера уважаемые!
Прошу помочь с доработкой макроса, на первый лист планируется выгружать данные в диапазоне до 200 строк и 10 столбцов для последующего распределения по листам. На листы данные с первого нужно добавлять последовательно, не перезаписывая, а добавляя к уже существующим, после чего сортировать по столбцу даты.
При удалении части строк на первом листе, что-то ломаеться.. видимо нужна проверка пустых строк.
Изменено: Phurba - 11.04.2016 23:56:40
 
Перейти    
Фильтрация работы макроса по дню недели.
 
#
31.03.2016 22:45:15
Доброго вечера уважаемые!
Возник следующий вопрос: при работе данного макроса создаются листы с последовательными датами в названии, для воскресений необходимо добавить дополнительную ячейку  и изменить значение одной из формул для понедельников. Возможно, ли встроить в макрос фильтр на выполнение этих действий для листов чье имя содержит дату выпадающую соответственно на вс. и пн.?
Код
Sub AddSheetsvv()
Dim i As Integer, NameSheet As String
Application.ScreenUpdating = False
For i = 2 To 15
NameSheet = i
Sheets("def").Copy After:=Sheets(Sheets.Count)
Sheets("def (2)").Cells(1, 6) = Sheets("Оглавление").Cells(i, 1)
Sheets("def (2)").Name = Sheets("Оглавление").Cells(i, 1)
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Sheets("def").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
Скрытый текст
 
Перейти    
Страницы: 1
Наверх