Здравствуйте, уважаемые форумчане! Суть макроса состоит в преобразовании даты, введённой в ячейку как текст в формате, напр. 02-Apr-12 в формат 02.04.2012. Думаю, есть более короткий вариант решения макросом. Спасибо, кто предложит более рациональное решение.  
 
Sub ConvertData ()  
Dim MonthN As Integer  
Dim Day As String, Month As String, Year As String  
Dim Data As Date  
' Cells(1, 1) = "02-Apr-12"  
Day = Left(Cells(1, 1), 2)  
Month = Mid(Cells(1, 1), 4, 3)  
If Month = "Jan" Then MonthN = 1  
If Month = "Feb" Then MonthN = 2  
If Month = "Mar" Then MonthN = 3  
If Month = "Apr" Then MonthN = 4  
If Month = "May" Then MonthN = 5  
If Month = "Jun" Then MonthN = 6  
If Month = "Jul" Then MonthN = 7  
If Month = "Aug" Then MonthN = 8  
If Month = "Sep" Then MonthN = 9  
If Month = "Okt" Then MonthN = 10  
If Month = "Nov" Then MonthN = 11  
If Month = "Dec" Then MonthN = 12  
Year = "20" & Right(Cells(1, 1), 2)  
Data = DateSerial(Year, MonthN, Day)  
Cells(1, 2).Value = Data  
End Sub

Здравствуйте, уважаемые форумчане! Поискал на форуме возможное решение задачи, ответа не нашёл. Суть такова. Есть список с данными в одном столбце, но между ними есть и пустые ячейки. Как можно создать сплошной список в другом столбце из данных этого списка, игнорируя пустые ячейки между данными (не удаляя строки)? Спасибо заранее!

Здравствуйте, уважаемые форумчане!  
В ячейке есть, например, такая вот формула:  
= “Здравствуйте, “ & A1 & “!”  
Если установить полужирный шрифт (Ж) для этой ячейки, то, естественно, весь текст ячейки будет соответствующего шрифта. Можно ли сделать так, чтобы лишь ссылка в этой формуле (т.е. вставляемое значение) выделялась этим шрифтом? Видимо, тут не обойтись без макроса. В поисковике есть подобные примеры, но ответа на конкретно этот вопрос не нашёл. Спасибо!

Здравствуйте, уважаемые форумчане! Посмотрел в поисковике, но ответа на вопрос так и не нашёл. Как сделать проверку ячейки, в которой должны быть только цифры и пробел между определёнными их сочетаниями на наличие в ней каких-либо букв так, чтобы при их обнаружении выдавалась ошибка или же просто требовалось повторное корректное введение числовых данных? Сделал обычную проверку на количество введённых цифр, но она не отменяет появление среди них букв. Как понимаю, это может сделать лишь макрос. Спасибо, кто откликнется!

Добрый вечер, уважаемые форумчане! Есть ли какие советы по созданию более-менее стойких паролей для защиты листов и проекта VBA от программ-взломщиков? Спасибо.

Здравствуйте. Можно ли макросом поместить линк в меню Пуск - Выполнить?

Здравствуйте! Подскажите, пожалуйста, почему при нажатии на ссылку с прикреплёнными документами RAR в ответах на темы, появляется не окошко с предложением скачать документ (как обычно), а текст с массой непонятных иероглифов? Как правильно скачать архив?

Добрый вечер, уважаемые форумчане! Поздравляю всех мусульман со священным праздником Курбан байрам! )  
  Нашёл на форуме нижеследующий макрос по отправке листа книги по email. При выполнении появляется Debug с надписью: Метод Copy из класса Worksheet завершён неверно. Что тут неверного? Спасибо всем, кто поможет разобраться с этой ошибкой!  
 
Sub Mail_ActiveSheet()  
Dim strdate As String  
Sheets("Ëèñò1").Copy  
strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")  
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _  
& " " & strdate & ".xls"  
ActiveWorkbook.SendMail "someone@microsoft.com", _  
"Subject_line"  
ActiveWorkbook.ChangeFileAccess xlReadOnly  
Kill ActiveWorkbook.FullName  
ActiveWorkbook.Close False  
End Sub