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

Страницы: 1 2 След.
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
28.07.2025 05:16:54
Цитата
написал:
Учите матчасть
Труден путь к познанию.
Цитата
написал:
Лучше явно указывать
Огромное Спасибо! Всё работает отлично.

Выражаю большую благодарность всем участкам обсуждения по данному вопросу. Каждый ответ, для меня по-настоящему ценен. Спасибо!
 
Перейти    
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
26.07.2025 16:36:03
Добрый вечер! Выполнил поправки в макросе. Но после сохранения, при повторном открытии файла пишет "Ошибка в части содержимого в книге. Выполнить попытку восстановление? Если вы доверяете источнику". В стандартный модуль внес корректировку под свою таблицу.  ActiveSheet заменил на ActiveWorkbook.Worksheets("Топливо")

Я как понимаю ошибка в модуле ЭтаКнига при открывания, но возможно ошибку вызывает связь между модулями.
Цитата
написал:
Добавьте код в модуль ЭтаКнига
Код
'Данная процедура показывает перед открытием книги НЕ все листы,
'кроме листа "WARNING"
Private Sub Workbook_Open()
     Dim wsSh As Worksheet
'Данная процедура скрывает перечисленые листы глубоко, перед закрытие спрашивает созранить или нет
    For Each wsSh In ThisWorkbook.Sheets
        If wsSh.Name <> "Ввод РТО" And wsSh.Name <> "РТО" And wsSh.Name <> "Наагрзка гд и кВт" And wsSh.Name <> "Нагрузка ГД,ДГ" And wsSh.Name <> "Daily Report 1" And wsSh.Name <> "Форма 2 (скрыть)" And wsSh.Name <> "форма 3 (скрыть)" And wsSh.Name <> "форма 4" And wsSh.Name <> "форма 1" And wsSh.Name <> "Про100" And wsSh.Name <> "Температура" And wsSh.Name <> "таблицы" And wsSh.Name <> "Цистерны ЖНО" And wsSh.Name <> "Daily Report (2)" And wsSh.Name <> "ННК" Then wsSh.Visible = -1
    Next wsSh
    ThisWorkbook.Sheets("WARNING").Visible = 2
    Dim aDate As Date: aDate = #7/17/3025#
    If Date <= aDate Then Exit Sub
    MsgBox "Срок использования программы закончился", vbInformation
    On Error Resume Next
Application.EnableEvents = False
  DoSortColumn
Application.EnableEvents = True
End Sub

Цитата
написал:
Добавьте код в модуль листа
Код
Option Explicit
 
Private Sub Worksheet_Calculate()
On Error Resume Next
Application.EnableEvents = False
  DoSortColumn
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(SortColumn)) Is Nothing Then DoSortColumn
End Sub

Цитата
написал:
Это в стандартный модуль.
Код
Option Explicit
Public Const SortColumn = "U"
 
Public Sub DoSortColumn()
    ActiveWorkbook.Worksheets("Топливо").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Топливо").Sort.SortFields.Add Key:=Range(SortColumn & "1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Топливо").Sort
        .SetRange Range("Q1:W" & Cells(Rows.Count, SortColumn).End(xlUp).Row) 'Указываем диапазон сортировки
        .Header = xlYes 'Указываем, что первая строка - заголовок
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Изменено: saratau1 - 28.07.2025 04:34:00 (Изменение оформление кода)
 
Перейти    
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
26.07.2025 03:10:53
Цитата
написал:
Power Query
Добрый день! Я пока не знаком с таким инструментом как "Power Query" для меня трудно будет переключиться, тему нужно изучать.
 
Перейти    
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
26.07.2025 02:57:39
Цитата
написал:
Это в стандартный модуль.
Добрый день! Подскажите, сделал всё по инструкции, вставил макрос в файл, нажал запуск макроса выполнилась сортировка. Для проверки работы макроса, изменил "интервал проверки" в таблице, а также менял "дату проверки". Автоматического обновлении таблицы не происходит как в реальном времени, так и при следующем открытии Ексель файла.  
 
Перейти    
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
25.07.2025 15:36:24
Вечер добрый! Нашел в Макрос поправил и вставил в модуль. Но работает только когда вручную запускаю макрос.
Не подскажите в чем проблема?

Sub SortColumn()
Dim SortColumn As String
SortColumn = "E"

ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range(SortColumn & "1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
   .SetRange Range("A1:F10") 'Указываем диапазон сортировки
   .Header = xlYes 'Указываем, что первая строка - заголовок
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
End With
End Sub
 
Перейти    
Сортировка таблицы по дате, Автоматическое перемещение (сортировка) строк.
 
#
25.07.2025 05:38:15
Добрый день! Подскажите как отсортировать таблицу по графе «Следующая проверка" чтобы это происходила в автоматическом режиме. При изменении даты "Следующая проверка" строки таблицы перемещалась вверх таблицы и сортировалась от старых к новым датам.  
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
20.07.2025 16:46:03
Цитата
написал:
2 (4).xlsx  

Уважаемый gling подскажите пожалуйста, что нужно изменить в форме чтобы таблица продолжала считать по порядку, но в зависимости от в введенных в нее дополнительные даты, начало и окончания рейса. Файл приложил. Сам я пробивал изменить формулу, но мне это не по силам.

Вопрос вроде вписывается в предыдущие вопросы и не выходит за пределы тематики.

 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
17.07.2025 18:27:24
Цитата
написал:
файл с макросом
Цитата
написал:
псевдослучайное число
Господа! Огромное Вам СПАСИБО за помощь в моем вопросе. Конечно с файлами разобраться будет на много проще. Позже отпишусь что у меня получилось при переносе.
 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
15.07.2025 15:43:26
Цитата
написал:
Код
Добрый день! Вставил этот код в структуру листа, но ничего не сработало.
 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
14.07.2025 03:11:18
Цитата
написал:
=ЕСЛИ(B8>F$3;СЛЧИС()*(F$3-E$3)+E$3;B8)
Muxa K прошу Вас подскажите как можно отключить постоянную генерацию чисел в ячейках, а то при внесении данных в другие ячейки происходит постоянное изменение чисел в генерирующих ячейках.
 
Перейти    
Сбор числовых данных с одной таблицы и распределения их относительно времени в другую.
 
#
13.07.2025 15:09:33
Здравствуйте, подскажите пожалуйста. Данные собираются из таблицы «Ввод формы» в таблицу №1 за один отчётный период. Как разделить
на несколько периодов. Количество периодов может меняться относительно одного месяца.
 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
12.07.2025 04:41:29

Добрый день! Сразу не обратил внимание что сгенерированные числа в «столбце С» постоянно меняются, при редактировании каких-либо ячеек.

В настройках поставить вычисления вручную не подходит т.к. действует на всю книгу. А мне нужно только ограничить на данном листе или в этих ячейках. Файл в сообщении №3.
 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
10.07.2025 04:18:16

Господа! Спасибо за ответ. Muxa K особое спасибо за приложенный файл с примером, так быстрее разобрался.
 
Перейти    
Случайные числа из диапазона в зависимости от числа., Случайное число генерируется, при повышении диапазона.
 
#
09.07.2025 15:30:02

Добрый день уважаемые!

Подскажите, как сгенерировать случайное число в "столбце С" в случаи, если число в "столбце В" превышает диапазон, а если число меньше или равно диапазону, то просто копировалось бы из "столбца В" в ячейку "столбца С". Пример во вложении.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
09.07.2025 13:57:47
Цитата
написал:
Одна тема - Один вопрос
Окей. Принял во внимание.
Цитата
написал:
разрослась она уже до не приличия
Я не создовал новые темы, так как это тема относится к одному проекту.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
09.07.2025 06:44:15

Добрый день! Подскажите пожалуйста.

Создал случайные числа в диапазоне, используя формулу '=СЛУЧМЕЖДУ(R$3;S$3), но числа постоянно меняются, когда редактируешь ячейки. Как можно этого избежать?

Также пробовал создать формулу подходящую под мои требования на основе “=СЛУЧМЕЖДУ(R$3;S$3)” изменяя ее опираясь на Ваши формулы. Но безрезультатно.

Что я хотел добиться. Случайное число вычисляется, если превышает диапазон мин-макс, а вот если число меньше или
в диапазоне, то просто копируется из "столбца J" в "столбец M"
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
06.07.2025 17:00:49
Цитата
написал:
Новая формула от Е60 и ниже
Огромное Спасибо! формулу перенес на свой файл. Всё работает.
Цитата
написал:
Причина в вычислении даты и времени формулой, секунды мешают
У меня была такая проблема не знал как решить, за месяц набегало 3-4 минуты. Пришлось отказаться от десятичного ввода 3.25 в пользу 3:15. Позже постараюсь подставить Вашу формулу.

Цитата
написал:
выбор из выпадающего списка на листе "ННК", будут не лишнее
Да, точно не будет лишним. За это тоже спасибо так намного удобнее.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
04.07.2025 16:12:08
Цитата
написал:
Но надо определиться
Нужно оставить как было – не учитывался.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
04.07.2025 16:05:20
Цитата
написал:
В формуле в столбцах F и H (в закрашенных ячейках) изменил
К сожалению Ваш файл скачать не получилось пишет «Указанного файла не существует»
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
04.07.2025 16:01:10
Цитата
написал:
Так почему сейчас вы хотите чтобы точка времени 1.07.2025 00:00:00 учитывалась? Как определить, когда учитывать, а когда нет?
Добрый вечер! Понимаю Ваше замешательство. Видимо неправильно объяснил, что не так. Я имею ввиду что программа считает правильно до 27 июня. А вот за 27.06 программа подставила в лист «ННК» в ячейку F38 - 32:05 часа в сутки вместо 24:00 положенных, как указаны в таблице «Ввод данных» за 27 число. Также расход (ячейка H38) 1731 вместо 1315.
За 28.06 программа посчитала и подставила в лист «ННК» в ячейку F39, 39:55 часов вместо 24:00 часов.
За 29.06 в ячейки F40 и H40 листа «ННК» программа взяла из таблицы «Ввод данных» за 30 число, вместо 29.06.
И за 30.06 взяла данные из таблицы «Ввод данных» уже за 01.07.25.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
03.07.2025 16:26:44
Цитата
написал:
ОКРУГЛВНИЗ($S$6;6)
Добрый вечер! Изменил я формулу, но у меня не считает если меняю период до 01.07.25
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
03.07.2025 05:48:54
Цитата
написал:
Пробуйте.Проверку показал на листе "ННК" в АВ6:АС8.
Добрый день! Подставил формулу с округлением, но у меня не получается. Или я неправильно Вас понял. В файле написал пояснения.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
02.07.2025 16:46:45
Цитата
написал:
2 (4).xlsx  (49.38 КБ)

Добрый день!

Благодарю Вас за помощь, я подставил ваши формулы в свою таблицу. Смог разобраться только с одной, и огромное спасибо за символ $ теперь при копировании формул, диапазон не сдвигаются.

Подскажите как исправить ошибку.

Ввожу дату во вкладке «ННК» 01.06.25. 00:00 – 27.06.25 12:30 в столбце F и H (ДГ-1) за 27 число считает всё верно.

Когда меняю дату на 01.06.25. 00:00 – 27.06.25 13:20 то в столбце F и H за 27 число, начинает считает не корректно. (ДГ-1), и ячейках под (ДГ-2) не соответствует данные.

Подсчет следующих дней идет уже с ошибкой.  Если указать дату окончания 01.07.25. 00:00, то программа посчитает и за 01.07.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
26.06.2025 14:34:53
Цитата
написал:
2 (4).xlsx  (49.38 КБ)
Спасибо Вам за разъяснения и полезную информации, буду разбираться.  
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
26.06.2025 04:43:41
Цитата
написал:
смотрите в файле 2(2), только надо было изменить под свою таблицу.

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

Формулы в желтых ячейках я смог перенести в свою таблицу, а вот из оранжевых не получается видимо делаю где-то ошибку при переносе. Также не смог разобраться почему разные формулы (в желтых и оранжевых ячейках в таблице за рейс).

Также меня озадачивает, когда в таблицу "за рейс" подставляешь дату 02.05.2025 14:20, то программа считает данные с 02.05.2025 14:20 (как и положено) но еще и плюсует нижнюю строчку 03.05.2025 0:00 оранжевого цвета. Из таблицы "Ввод формы"

А если вводишь дату в таблицу "за рейс" 02.05.2025 00:00, то программа берет данные только в желтых ячейках и НЕ плюсует нижнею строчку 03.05.2025 0:00 оранжевого цвета из таблицы "Ввод формы".

Как я понимаю формула считает относительно одних суток, но тогда она должна считать в обеих случаях одинаково?
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
23.06.2025 16:40:36
Цитата
написал:
в одной теме скачки от одного вопроса к другому.
Я пробовал найти ответы на свои вопросы на форуме, не получилось поэтому создал тему чтобы задать вопросы относительно своего отчета
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
23.06.2025 16:33:09
Цитата
написал:
Удалил пустые строки, отформатировал ячейки в один формат в столбце дата
Тогда появляется вопрос в другой вкладке как собрать данные относящие к одним суткам, чтобы из таблицы "Ввод формы" данные появились в таблице "за рейс" и соответствовали каждому механизму относительно дате.

С условием что в первый день данные появились (расход, часы) с 02.05.25 14:20 по 02.05.25 24:00, а в последний с 14.05.25 0:00 по 14.05.25 9:55
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
23.06.2025 16:26:27
Цитата
написал:
На листе "Ввод формы" данные вести подряд без всяких пустых строк.
Удалил пустые строки, отформатировал ячейки в один формат в столбце дата, а также укоротил таблицу. В таком формате если использовать ВПР во вкладке «РТО форма 2» то меня устраивает как вставляются данные в требуемые ячейки.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
23.06.2025 16:24:06
Цитата
написал:
в ячейку С17 вводим интересующую нас дату.
Ввел в ячейку С17 интересующую меня дату 30.04.25, из списка режима выбрал «ходовое время», в ячейке D17 ничего не показывает.
 
Перейти    
[ Закрыто] Топливный отчет, Программы для автоматического расчета ГСМ
 
#
23.06.2025 05:42:44
Добрый день! попробую подставить формулы СУММЕСЛИМН() позже отпишусь.
 
Перейти    
Страницы: 1 2 След.
Loading...