Сохранение рабочей книги с именем, представляющим собой текущую дату

Быстрое размножение рабочей книги

Рабочая книга

Перечень необходимого снаряжения

№	Снаряжение	Количество на команду
	Катамаран 4-х-местный в сборе
	Спасжилет
	Ремнабор для катамарана (плоскогубцы, шило, нитки, шкурка, клей резиновый, заплатка резиновая 15*30 см.)
	Веревка основная 40 м 9-10 мм диаметром
	Веревка вспомогательная 40 м
	Индивидуальная страховочная система, беседка
	Самостраховка (2 уса у каждого участника)
	Фрикционное спусковое устройство
	Репшнур для схватывающего узла 6-8 мм диаметр (одинарный)
	Карабин с муфтой разрывной нагрузкой не менее 22 KN
	Варежки, перчатки рабочие	4 пары
	Подъемное устройство
	Каска
	Бутылка питьевой воды 1 литр
	Перманентный маркер, скотч
	Спички в герметичной упаковке
	Кружка, ложка, тарелка, нож
	Компас
	Медицинская аптечка (Перекись водорода, бинт стерильный – 3 шт., йод, обезболивающее в таблетках, лейкопластырь бактерицидный – 4 шт., лейкопластырь в рулоне)
	Телефон в рабочем состоянии
	Рюкзак

* Судейская коллегия оставляет за собой право вносить изменения в порядок и условия прохождения этапов.

Кодекс поведения клуба туристов «Азимут»

- это перечень правил, направленных на достижение гармоничного и культурного взаимодействия всех сторон и участников туристического процесса: работников клуба, участников мероприятий, природы.

Раздел СОРЕВНОВАНИЯ

1. Спортивное поведение на дистанции. Честь спортсмена не должна страдать от намеренного вредительства другим участникам соревнований или командам, равно как и честь судьи не должна страдать от предвзятого отношения к тем или иным участникам.

2. Трезвость – норма спорта. Алкоголь не допустим на соревнованиях.

3. Уважение к здоровью других людей. Если вы курите, об этом не должны узнать ни судьи на этапах, ни участники соревнований.

3. Взаимное уважение участников и организаторов друг к другу. Будьте тактичны и вежливы, контролируйте речь! Всё, что хочется сказать, опишите литературным языком.

4. Бережное отношение к природе. Все, что вы несете с собой из города, либо должно быть съедено, либо должно вернуться обратно в город – упаковки от продуктов, бутылки, и т.д., в том числе мусор, уложенный в пакет.

Листинг 2.1. Размножение рабочей книги

Sub DuplicateBook()

Dim avarFileNames As Variant

' Формирование массива из путей для копий книги

avarFileNames = Array("C:\" & _

ActiveWorkbook.Name, "D:\" & ActiveWorkbook.Name)

' Сохранение книги

ActiveWorkbook.SaveAs avarFileNames

End Sub

Листинг 2.2. Сохранение книги с именем, представляющим собой текущую дату

Sub SaveAsDate()

Dim strDate As String

' Получение текущей даты и представление ее в формате "ддммгг"

strDate = Format(Now(), "ddmmyy")

' Сохранение книги в текущую папку под новым именем

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate

End Sub

Дата добавления: 2015-06-25