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

Страницы: 1 2 След.
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
10.09.2022 21:54:26
БМВ, спасибо большое, сократить я не подумал)
whateverlover, благодарю, работает на 100%
Надеюсь, кому-то еще будут полезны подходы их этой темы.
 
Перейти    
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
10.09.2022 19:29:54
whateverlover, если в списке по условию будет четное количество строк, то он дважды проставит нечетные (будет выполнятся then [index 2] * 2 - 1)
Думал думал с листом бумаги, как построить условие, но увы)
 
Перейти    
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
09.09.2022 23:23:34
whateverlover, код я разберу. Очень благодарен, что на Power Query
Есть два диапазона в файле, которые неверно проставляются.
Общая сумма в каждом блоке нечетная - в одном 4585, в другом 741
И соответственно последнее нечетное число в столбце у каждого должно быть 4585 и 741 соответственно. Но почему-то не так.
Сам файл прилагаю
 
Перейти    
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
09.09.2022 21:39:47
Igor67, про четные и нечетные - всё верно поняли. В поле Д предполагается, что всё идет по порядку (не может быть перемешено, например как 1, 2, 4, 5, 2 )
БМВ, спасибо, тоже попробовал. Чет/нечет не получилось: с какого-то момента не верно ставит
Файл прилагаю по ссылке, потому что более 300 кб файл пример с формулой и макросом dropmefiles
Два последних поля использую для проверки расхождения с ручной простановкой данных
 
Перейти    
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
09.09.2022 16:57:17
Благодарю. А у него есть какое-то ограничение? На файле примерно 8-9 тыс строк корректно
Но уже на 30 тыс, появляются расхождения
 
Перейти    
Проставить нечетные и четные числа в список по столбцу, Плюс сквозная нумерация
 
#
09.09.2022 11:05:06
Нужна помощь)
Есть рабочий файл. В нем есть столбец - "Блок условия"(D).
Для каждого значения в столбце D вручную ставится сквозная нумерация. В столбце С - так же сквозная нумерация, но уже для всего листа.
В столбец А через прогрессию проставляется первой половине списка значений из столбца D - нечетные числа, второй половине четные.
Шаг для прогрессии 2, предельное значение - количество значений в поле D. Например, для 21 - это 1521. Тоже делается вручную
Хочу соответственно это автоматизировать. На что примерно смотреть в Power Query (знаю ознакомительно, но есть желание изучить) или писать макрос?
 
Перейти    
Отрицательное или большое значение времени
 
#
15.08.2019 21:57:59
sokol92, благодарю, то что искал
buchlotnik,  IEEE 754
 
Перейти    
Отрицательное или большое значение времени
 
#
15.08.2019 19:09:04
Мне не понятно, почему если сдвинуть начальные значения времени на 1 час назад ошибка пропадает
 
Перейти    
Отрицательное или большое значение времени
 
#
15.08.2019 19:01:10
Добрый день.
Гуглил сколько мог, но не могу понять почему именно на таких значениях времени ловлю ошибку.
Файл приложил. Хочу узнать именно "почему"
 
Перейти    
Планировщик в Excel, планирование работы по датам в разных регионах
 
#
10.04.2018 22:04:59
Есть идея перенести в некое подобие календаря таблицу с диапазоном дат, названием клиента и регион.
Сейчас план работ (занимаемся доставкой) выглядит простой таблицей.
В сторону чего лучшего всего смотреть? Как вариант рассматриваю MS Project.
Но вижу что есть нечто подобное в шаблонах Excel. Может быть, подобное реализовывали?
 
Перейти    
Подсчет вложений для отправки, Макрос для подсчета вложений
 
#
14.12.2017 11:28:08
Добрый день

Требуется написать макрос, который подсчитывает число вложений.

Алгоритм.
Если количество листов 1 или 2, то конверт е65.
От 3 до 10 (включительно) с4.

Пример, если вложений 152 штуки. То будет 15 конвертов c4 по 10 вложений и один е65 с 1 вложением.
Если 156, то 15 с4 (10 вложений) и 1 с4(6 вложений)

Таблицу для примера прилагаю. По данным листа Таблица, нужно заполнять лист Результат
Бюджет 500 рублей.
Изменено: pluto21 - 14.12.2017 11:51:38
 
Перейти    
Уникальные значения столбца в одну ячейку списком
 
#
24.10.2013 16:01:36
Юрий М, благодарю вас. Это то, что нужно было.
 
Перейти    
Уникальные значения столбца в одну ячейку списком
 
#
24.10.2013 00:22:06
Есть столбец со значениями. Требуется получить все его уникальные значения (имеется ввиду без повторов) в одну ячейку. Как это реализовать?
 
Перейти    
Подведение итогов по нескольким критериям.
 
#
16.10.2013 12:28:14
Наконец-то дошли руки :)
Задачу подсчета решил формулой =СУММЕСЛИМН(C:C;A:A;A2;B:B;B2)

Не решена пока только задача удаления повторов (чтобы только один раз показывалась сумма для диапазона). Кручу формулу СЧЁТЕСЛИМН.
 
Перейти    
Подведение итогов по нескольким критериям.
 
#
14.10.2013 16:20:19
Serge 007, благодарю Вас. Работает. У меня есть один вопрос, а как изменить формулу, если в первом столбце будут идти список дат. Потому что за разные даты могут идти одни и те же категории, а если они повторяются ниже, то  формула перестает работать. Я так понимаю, здесь нужно будет сравнивать диапазон?
 
Перейти    
Подведение итогов по нескольким критериям.
 
#
14.10.2013 15:40:00
Есть таблица:
Категория Число Итог
Фурнитура 100
Фурнитура 300 400
Детали 4
Детали 2 6
Как посчитать в сводной итоги по категориям мне понятно. А как примерно это можно реализовать в текущей таблице? Что бы так же заполнялось поле итог?
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 14:49:11
Хорошо. Так лаконичнее.
В Excel'e работаю достаточно давно, но вот на VBA обратил внимание только пару дней назад. И приятно удивлен возможностями, которые он даёт. Так что буду в свободное время изучать дальше.
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 14:42:53
Hugo, благодарю вас  :)

Всё гуд, теперь работает  :)
Код
.Range("K2").AutoFill Destination:=thisWorksheet.Range("K2:K" & thisWorksheet.Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault


и что важно - корректно и полностью :)
Изменено: pluto21 - 08.10.2013 14:43:19
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 14:16:53
с точкой "метод AutoFil Из Range завершен не верно"

Код
.Range("K2" ;) .AutoFill Destination:=Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault


потому об ошибке и спрашиваю :)
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 13:46:00
к сожалению, да
Код
Dim thisWorksheet As Worksheet
For Each thisWorksheet In Worksheets
With thisWorksheet
.Range("K1" ;) .Value = "Название"
.Range("K2" ;) .FormulaArray = "=Формула"

'ошибка где-то тут. потому что формула протягивается лишь на активном листе
Range("K2" ;) .AutoFill Destination:=Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
End With
Next thisWorksheet
End Sub
Изменено: pluto21 - 08.10.2013 13:46:23
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 13:33:45
Код
For Each thisWorksheet In Worksheets
Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaArray = "=Формула"
Next
End Sub

Формула вставляется верно, только беда в том, что во всех ячейках она одинаковая

Решил так:
Код
Range("K2").FormulaArray = "=Формула"
Range("K2").AutoFill Destination:=Range("K2:K" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 11:34:33
И есть еще один вопрос, а как передать диапазону формулу массива?

Код
.Range("B2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value = "="ФормулаМассива"
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 11:20:59
Код
With .UsedRange
                .Interior.Pattern = xlNone
                .Borders.Weight = xlThin
            End With

Блестяще.

Благодарю. Работает.

Kuzmich, благодарю, подчерпнул кое-что для большей элегантности кода
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 11:16:53
С данным я разобрался еще вчера  :)  Спасибо Hugo за намек про указание листа.

У меня трабла именно со стилем.
Изменено: pluto21 - 08.10.2013 11:17:07
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
08.10.2013 10:18:56
Вопрос еще актуальный
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
07.10.2013 16:46:24
Код
secondBook.Worksheets(countSheets).Cells.Interior.Pattern = xlNone
...

Так работает

Но это делает весь лист заполненным рамками-границами, а не только область с данными.

Код
secondBook.Worksheets(countSheets).Range("A1", ActiveCell.SpecialCells(xlLastCell)).Interior.Pattern = xlNone

А тут ошибка 1004
Изменено: pluto21 - 07.10.2013 23:38:52
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
07.10.2013 16:16:01
Благодарю.

Цитата
'Применение стиля
Range("A1", ActiveCell....
тоже.
а в этой части где/как его указать. попробовал несколько вариантов, но выдало ошибки
 
Перейти    
Копирование данных в новую книгу и заполнение полей, vba
 
#
07.10.2013 15:27:01
Создаю новую книгу и перемещаю из исходной в неё данные.
Есть два поля, которые забиваются данными из кода.
Если страница одна, то код работает отлично. Если страниц больше, то корректно выглядит только первая. Остальные - заполняется только тот столбец, куда происходит копирование из исходной. А поля, которые должны быть заполнены из кода - заполняются только на одну ячейку.
В чем проблема?
Скрытый текст
 
Перейти    
Преобразование Листа к разным представлениям
 
#
22.08.2013 22:29:32
Исходный Лист1
Нужно получить Лист2, только в новой книге(ну или хотя бы так же на листе, только не в ручную)
 
Перейти    
Преобразование Листа к разным представлениям
 
#
22.08.2013 22:09:35
Ну, хорошо, понял вас.

Алгоритм такой:
Есть Книга1 с Листом1 с набором столбцов Лист1.F, Лист1.G
Нужно получить Книгу2 с листом, где A=Книга1.Лист1.F, B=Книга1.Лист1.G

Количество строк может меняться
Изменено: pluto21 - 22.08.2013 22:10:33
 
Перейти    
Страницы: 1 2 След.
Наверх