Вот этот подход с вашей стороны мне нравится )
1) Вашу формулу
=ПСТР(СЖПРОБЕЛЫ(A4);13;(ПОИСК(" ";СЖПРОБЕЛЫ(A4);13)-13))
предлагаю переделать по VBA так
Sub Макрос1()
Dim iMonth As String
iMonth = Evaluate("MID(TRIM(A4),13,(SEARCH("" "",TRIM(A4),13)-13))")
MsgBox iMonth
End Sub
2) 2 кнопки в раннее выложенном файле - это кнопки с панели инструментов "Формы"
т.е. меню Вид - Панели инструментов - Формы.
Тут находите инструмент "Кнопка", щёлкаете по ней левой клавишей мыши. Переводите курсор на лист Exce и рисуете прямоугольник на листе удерживая левую клавишу мыши. На месте мнимо нарисованного прямоугольника появляется ваша кнопка. Она стразу запросит указать макрос, который будет запускаться с помощью неё.
Данная кнопка с панели инструментов "Формы" мне больше нравится, чем кнопка с панели инструментов "Элементы управления" тем, что если я быстро нажму 10 раз на кнопку с "Форм", то у меня и обработается 10 нажатий, а если я быстро нажму 10 раз на кнопку с "Элементов управления", то не все мои 10 раз обработаются, а все лишь 6-7 нажатий. Т.е. вторая кнопка она как бы "подтормаживает". Хотя у неё больше различных свойств. Но они мне не нужны. Поэтому для запуска макросов кнопкой с листа Excel всегда пользуюсь кнопкой из панели инструментов "Формы"
3) А "третий" вариант реализуется просто.
- Создаёте тему на этом форуме или на любом другом, что вам требуется написать макрос,
- выкладываете своё подробное техническое задание;
- ваши контакты (телефон, аську, Email - что вам удобнее);
- называете сроки в которые надо сделать задание;
- и озвучиваете сумму, которую вы готовы заплатить на это задание;
С вами связываются, обговаривают детали, сумму, способы передачи денег и кода и всё поехало.
Если чего-то не дописал, ребята меня дополнят