Обновление данных и последовательное выполнение макроса.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление данных и последовательное выполнение макроса. (Макросы Sub)

Stormy

Дата: Среда, 19.02.2014, 15:43 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.
Столкнулся с проблемой запуска макроса при открытие книги.
При открытие книги происходит обновление данных из подключений в книги, дальше должен срабатывать макрос запуска формы, а после него макрос который меняет некоторые буквы на символы юникода.
Обновление установил *галочкой* Данные → Подключения → Свойства → Обновлять при открытие файла. - работает
Дальше в модуль книги написал макрос

[vba]

Код

Private Sub Workbook_Open()
Call форма222
Call Kodirovka
End Sub

[/vba]
Форма открывается, а вот второй макрос не запускается.
На всякий случай прикрепляю файл, но что-то мне подсказывает, что у меня с логикой запуска макросов не все в порядке ((

К сообщению приложен файл: 7563046.rar (91.4 Kb)

Место для рекламы.

Ответить

KuklP

Дата: Среда, 19.02.2014, 16:04 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Не знаю, у меня ваш файл в любом случае вылетает с ошибкой. Но прежде чем начнет выполняться
Call Kodirovka
нужно выгрузить форма222, наверное.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Stormy

Дата: Среда, 19.02.2014, 16:58 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

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 - Среда, 19.02.2014, 17:12

Ответить

Stormy

Дата: Среда, 19.02.2014, 17:49 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Копал, копал и накопал вот такую штуку. Макрос не может запуститься, так как стоит переход по листам, а при запущенной форме переход невозможен.
Как иначе можно сделать замену букв на символы на определенном листе?
На Proqram2 запускается форма, на Base_of_DS текст в котором нужно заменить буквы.

[vba]

Код

Private Sub Kodirovka()
Application.ScreenUpdating = False
Worksheets("Base_of_DS").Select
     Cells.Replace What:="ч", Replacement:=ChrW(231), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="Ч", Replacement:=ChrW(199), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="Я", Replacement:=ChrW(399), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="я", Replacement:=ChrW(601), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="Ь", Replacement:=ChrW(286), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="ь", Replacement:=ChrW(287), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="ы", Replacement:=ChrW(305), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="И", Replacement:=ChrW(304), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
         Cells.Replace What:="Ю", Replacement:=ChrW(214), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="ю", Replacement:=ChrW(246), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
Cells.Replace What:="Ш", Replacement:=ChrW(350), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="ш", Replacement:=ChrW(351), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="Ц", Replacement:=ChrW(220), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
     Cells.Replace What:="ц", Replacement:=ChrW(252), LookAt:=xlPart, SearchOrder _
         :=xlByRows, MatchCase:=True
Worksheets("Proqram2").Select
Application.ScreenUpdating = False
End Sub

[/vba]

[vba]

Код

[/vba]

Stormy

Место для рекламы.

Ответить

СообщениеКопал, копал и накопал вот такую штуку. Макрос не может запуститься, так как стоит переход по листам, а при запущенной форме переход невозможен.
Как иначе можно сделать замену букв на символы на определенном листе?
На Proqram2 запускается форма, на Base_of_DS текст в котором нужно заменить буквы.

[vba]

Код

[/vba]

Автор - Stormy
Дата добавления - 19.02.2014 в 17:49

KuklP

Дата: Среда, 19.02.2014, 18:17 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Все возможно. И все работает. Удалось таки открыть файл, отключив макросы.
Рекомендую:
[vba]

Код

Sub форма222()
UserForm1.Show 0
End Sub

[/vba]
и в
Private Sub Kodirovka
в последней строке:
Application.ScreenUpdating = ~~False~~ true

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 19.02.2014, 18:18

Ответить

Hugo

Дата: Среда, 19.02.2014, 20:06 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Да, сбой за сбоем - но если поубирать все селекты, то думаю пойдёт ровнее...

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Stormy

Дата: Среда, 19.02.2014, 20:34 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Compile error
Sub Function not defined

вот такую ошибку выдает и выделяет строку Call Kodirovka

Место для рекламы.

Ответить

Stormy

Дата: Среда, 19.02.2014, 20:38 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Hugo,
А как в таком случае указать нужную страницу для замены букв на символы?

Место для рекламы.

Ответить

KuklP

Дата: Среда, 19.02.2014, 22:39 | Сообщение № 9

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Так:
[vba]

Код

Worksheets("Base_of_DS").Cells.Replace What:="ч", Replacement:=ChrW(231), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True

[/vba] И так же все остальное.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Hugo

Дата: Среда, 19.02.2014, 23:54 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Или т.к. замен много - так:
[vba]

Код

with Worksheets("Base_of_DS")
.Cells.Replace What:="ч", Replacement:=ChrW(231), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True
..
..
..
end with

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Stormy

Дата: Четверг, 20.02.2014, 09:34 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 357

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

KuklP, Hugo, beer

Сейчас попробую Вашими методами. Вчера получился один вариант, вроде без ошибок запускается и меняет символы.

Место для рекламы.

Ответить

Страница 1 из 1
1