1
У меня возникла проблема с макросом, вызывающим зависть. Я пробовал несколько вариантов и искал бесконечно. У меня 3 формы, но раздельные. Вот мои шаги в этом:Закрытие формы пользовательской формы VBA превосходит
- UserForm выскакивает
- пункт из выпадающего списка в два раза щелкнул в форме.
- Это открывает другую книгу и запускает код на каждом листе.
- (Это делается в другой функции и отлично работает и занимает около 15 секунд, заканчивая упором на новую книгу.)
- Закрывает UserForm. (Это заставляет его висеть от 7 секунд до 90 секунд в зависимости от размера других книг.)
Код ниже (пожалуйста, извините неправильный формат, я должен был использовать свой телефон ... не могу войти через компьютер .)
Private sub lb_blah_DblClick (Byval Cancel as MSForms.ReturnBoolean)
Me.lbl_blah2.caption = "opening aND running"
'Open and edit xls - Works fine.
LoadAndFormat me.lb_blah.value
Me.lbl_blah2.caption = "Ran through format."
Me.repaint
'90 seconds with 29 sheets
'Me.hide
'Application.enableevents = false '70 seconds
Unload me '90 seconds - 29 sheets
End Sub
В этом есть много движущихся частей. Вы подтвердили, что код в других книгах работает безупречно без пользовательской формы впереди? Проводится ли она когда-либо и завершается без вешания? т.е. работает ли «LoadAndFormat» рабочая тетрадь? »« Работайте в суб-безупречно? –
Да, у меня есть ... и он работает безупречно каждый раз. набросал или шероховатой equivilant его будет: 'Sub LoadAndFormat (Ф.П. как строка)' 's установить = workbooks.open (∥f∥p, ложь)' 'для каждого mysheet в s.sheets' 'mysheet. столбцы («B: B»). insert ' ' next mysheet ' ' end sub ' – Syrrus
Да, у меня есть ... и он работает безупречно. – Syrrus