Доброго времени суток. Столкнулся с проблемой запуска макроса при открытие книги. При открытие книги происходит обновление данных из подключений в книги, дальше должен срабатывать макрос запуска формы, а после него макрос который меняет некоторые буквы на символы юникода. Обновление установил *галочкой* Данные → Подключения → Свойства → Обновлять при открытие файла. - работает Дальше в модуль книги написал макрос
[vba]
Код
Private Sub Workbook_Open() Call форма222 Call Kodirovka End Sub
[/vba] Форма открывается, а вот второй макрос не запускается. На всякий случай прикрепляю файл, но что-то мне подсказывает, что у меня с логикой запуска макросов не все в порядке ((
Доброго времени суток. Столкнулся с проблемой запуска макроса при открытие книги. При открытие книги происходит обновление данных из подключений в книги, дальше должен срабатывать макрос запуска формы, а после него макрос который меняет некоторые буквы на символы юникода. Обновление установил *галочкой* Данные → Подключения → Свойства → Обновлять при открытие файла. - работает Дальше в модуль книги написал макрос
[vba]
Код
Private Sub Workbook_Open() Call форма222 Call Kodirovka End Sub
[/vba] Форма открывается, а вот второй макрос не запускается. На всякий случай прикрепляю файл, но что-то мне подсказывает, что у меня с логикой запуска макросов не все в порядке ((Stormy
KuklP, Тело макроса Kodirovka поместил на кнопку в форме, результат 0
[vba]
Код
Private Sub CommandButton4_Click() Application.ScreenUpdating = False Worksheets("Base_of_DS").Select *код замены букв Worksheets("Proqram2").Select Application.ScreenUpdating = False End Sub
[/vba] Не пойму где копать и какой лопатой Еще одна странность. Если Excel закрыт полностью, то ошибка не выскакивает, если оболочка открыта , то при попытке открыть книгу - выдает ошибку и перезапускает Excel. Так не хочется все на кнопки вешать, но кажется придется
KuklP, Тело макроса Kodirovka поместил на кнопку в форме, результат 0
[vba]
Код
Private Sub CommandButton4_Click() Application.ScreenUpdating = False Worksheets("Base_of_DS").Select *код замены букв Worksheets("Proqram2").Select Application.ScreenUpdating = False End Sub
[/vba] Не пойму где копать и какой лопатой Еще одна странность. Если Excel закрыт полностью, то ошибка не выскакивает, если оболочка открыта , то при попытке открыть книгу - выдает ошибку и перезапускает Excel. Так не хочется все на кнопки вешать, но кажется придется Stormy
Место для рекламы.
Сообщение отредактировал Stormy - Среда, 19.02.2014, 17:12
Копал, копал и накопал вот такую штуку. Макрос не может запуститься, так как стоит переход по листам, а при запущенной форме переход невозможен. Как иначе можно сделать замену букв на символы на определенном листе? На Proqram2 запускается форма, на Base_of_DS текст в котором нужно заменить буквы.
Копал, копал и накопал вот такую штуку. Макрос не может запуститься, так как стоит переход по листам, а при запущенной форме переход невозможен. Как иначе можно сделать замену букв на символы на определенном листе? На Proqram2 запускается форма, на Base_of_DS текст в котором нужно заменить буквы.
with Worksheets("Base_of_DS") .Cells.Replace What:="ч", Replacement:=ChrW(231), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True .. .. .. end with
[/vba]
Или т.к. замен много - так: [vba]
Код
with Worksheets("Base_of_DS") .Cells.Replace What:="ч", Replacement:=ChrW(231), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True .. .. .. end with