Преглед садржаја
- Направите нову радну свеску са избором.
- Сачувајте радну свеску пре него што је пошаљете.
- Избришите датотеку са чврстог диска након што је послата.
Откриће скривене редове и колоне у избору
Све празне ћелије изван селекције су скривене (погледајте снимак екрана)
На овај начин избор је увек на врху вашег листа
Суб Маил_Селецтион () Дим стрДате Ас Стринг Дим Аддр Ас Стринг Дим рнг Ас Ранге Ако је АцтивеВиндов.СелецтедСхеетс.Цоунт> 1 Или Селецтион.Ареас.Цоунт> 1 Затим изађите из Суб Апплицатион.СцреенУпдатинг = Фалсе Аддр = Селецтион.Аддресс АцтивеСхеет.Цопи АцтивеСхеет. Слике.Избриши са ћелијама. СпециалЦеллс (клВисибле) .ЕнтиреЦолумн.Цлеар рнг (1) .ЕнтиреРов.СпециалЦеллс (клВисибле) .ЕнтиреЦолумн.Хидден = Труе .Хидден = Фалсе Енд Витх Витх рнг.ЕнтиреРов .Хидден = Труе рнг (1) .ЕнтиреЦлумн.Спек .ЕнтиреРов.Цлеар рнг (1) .ЕнтиреЦолумн.СпециалЦеллс (клВисибле) .ЕнтиреРов.Хидден = Труе .Хидден = Фалсе Енд Витх Апплицатион.ГоТо рнг, Труе рнг.Целлс (1). Одаберите стрДате = Формат (Датум, "дд- мм-ии ") &" "& Формат (Време," х-мм-сс ") АцтивеВоркбоок.СавеАс" Део "& ТхисВоркбоок.Наме _ &" "& стрДате &" .клс "АцтивеВоркбоок.СендМ аил "рон@дебруин.нл", _ "Ово је наслов" АцтивеВоркбоок.ЦхангеФилеАццесс клРеадОнли Килл АцтивеВоркбоок.ФуллНаме АцтивеВоркбоок.Цлосе Фалсе Апплицатион.СцреенУпдатинг = Труе Енд Суб
