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

Страницы: 1
Получение данных по двум условиям
 
#
06.09.2023 12:56:23
Добрый день!
На листе1 нужно заполнить столбец "Т воздуха" (желтое), с учетом "Дата" и "Время".
Данные брать из листа "прогноз".
Черновик формулы вывел, но похоже не принимаются форматы даты и времени.
 
Перейти    
Извлечь данные из ячейки
 
#
11.03.2023 22:17:56

Добрый день! Понимаю, что тема избитая, но пока не справился, пытался через регулярные выражения.

Ячейка содержит без пробелов A1,A2,B2,C1,C56,A43 . Нужно извлечь компоненты C. Тогда в соседней ячейки должно быть С1,С56.

Если можно то получить результат по возрастанию. Цифры могут быть от 1 до 9999
 
Перейти    
Формула расчета длины
 
#
25.07.2022 12:04:24

Добрый день!

Нужна помощь по написанию формулы.

6 метровая доска всегда целиком пилится вдоль, потом пилится через заданные расстояния (в примере 2600 мм). Таких отрезков может быть несколько. Нужно рассчитать длину распила.

PS Не знаю как назвать тему. Подскажите.
 
Перейти    
Обратиться к диапазону по адресу другой ячейки
 
#
06.02.2020 15:10:40
Добрый день, подскажите пожалуйста.  Нужно в файл "test" записать значение ячейки с адресом ThisRow и ThisCol с отступом в одну ячейку (offset). В коде ошибка 1004.
Код
Cell_Add = Split(rFind.Address, "$")
            ThisRow = Cell_Add(1)
            ThisCol = Cell_Add(2)
            
            Workbooks("test.xlsm").Worksheets("Sheet1").Range("D2").Value = Workbooks("DATA1.xlsx").Worksheets("HDD").Range(ThisRow, ThisCol).Offset(0, -1).Value
Как правильно записать
Код
Range(ThisRow, ThisCol).Offset(0, -1).Value
?
 
Перейти    
Поиск столбца и пустой ячейки
 
#
05.01.2019 12:57:11
Добрый день! Нужно найти столбец "Пример 8" и первую пустую ячейку в нем. Предпоследняя строчка с ошибкой, поправьте пожалуйста.
Код
Sub find()
Dim col As String
Dim rng1, cfind As Range
col = "Пример8"
Worksheets(1).Activate
Set cfind = Cells.find(what:=col, lookat:=xlWhole)
Set rng1 = Range(cfind, cfind.xlDown)

'Set rng1 = Range(cfind & Rows.Count).End(xlDown)

End Sub
 
Перейти    
Страницы: 1
Наверх