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

Страницы: 1
Автоматизация документа оборота добровольных пожарных - макрос или что-то еще?
 
#
14.03.2019 22:26:53
Доброго времени суток!

Помогите пожалуйста автоматизировать процесс заполнения документов для добровольной пожарной части. (Если есть желание, то могу подробнее рассказать о том что это такое, но чуть позже, т.к. это не имеет прямого отношения к экселю=). А то мы тратим очень много времени на заполнение всяких отчетов и сводных табелей, вместо того, чтобы тренироваться в тушении или оказанию помощи. В качестве вознаграждения могу организовать экскурсию к нам в часть. Кто с детства мечтал посидеть за рулем пожарного автомобиля?=))

Задача такая:
Есть график заступления в караул - файл "График караулов". В нем указывается какого числа заступаешь в караул - это цифра 16,(для справки - это количество часов отработанных в этот день).
Нужно сделать так, и наверное это только макросом, чтобы данные из этого файла переносились в файл "Табель образец", где напротив каждой даты было бы указано кто заступал в караул в эту дату. Количество заступивших(в теории) от 0 до 10. Если в конкретную дату ни кто не заступал, то эта дата не попадает в табель совсем.

Так же на основании "Графика Караулов" создается отдельный документ - "Акт выполненных работ." Из "Графика караулов" берется информация - ФИО, номер и дата догвовора, дата заступления в караул. Караулов в месяц может быть от двух до десяти.
Все это очень поможет сократить ненужную рутину и высвободить время для тренировок, а значит, возможно, спасти чью-то жизнь.

Заранее благодарен за любую помощь и поддержку. В пожарной охране пожелание удачи звучит как : "Всем сухих рукавов". Это значит: "чтобы в смену не пришлось тушить реальный пожар".=))
 
Перейти    
сбивается счетчик цикла
 
#
15.01.2015 23:51:00
Есть столбец в котором 3000 строк. Часть из них со значением 0. Задача макросу удалить все строки с 0.
Макрос проходит, удаляет половину и останавливается. Запускаешь его он снова проходит, удаляет половину пустых строк и так далее. Т.е. для того чтобы со всего листа удалить пустые строки необходимо запустить макрос несколько 12 раз. Почему так происходит? Как исправить?
Вот код.
Код
Sub () 
Dim Cell As Range 
Application.ScreenUpdating = False 
1 For Each Cell In ActiveSheet.UsedRange.Columns(6).Cells 
If Cell.Value = "0" Then Cell.EntireRow.Delete 
Next 
End sub
 
Перейти    
Закрепление строки при растягивании формулы макросом
 
#
15.01.2015 23:40:13
Доброго времени суток.
Есть формула =ПСТР($A2;СТОЛБЕЦ()-1;1). Эту формулу надо растянуть до 9-го столбца макросом.
пишу
Код
Sub Columns()
    Range("B2"  .Select
    ActiveCell.FormulaR1C1 = "=MID(R[-2]C1,COLUMN()-1,1)"
    Dim Endrow As Long
    Const StartRow = 2
    Const StartCol = 2
    Const EndCol = 9
    Endrow = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillRight
End Sub
Но вместо того, чтобы закрепить написать в формуле $A2 - пишет $A1048576.
Как это исправить?
Изменено: alexeystrelkov - 16.01.2015 16:05:49
 
Перейти    
Страницы: 1
Наверх