1
Burada ascendeki asılmaya neden olan bir makroyla ilgili bir sorun yaşıyorum. Çeşitli seçenekler denedim ve durmadan aradım. 3 formum var ama ayrı. İşte o adımlarımı var:VBA kullanıcı formu kapanış nedenleri asmak için excel
- UserForm formda çift tıklandığında liste dan
- Öğe açılır.
- Bu, başka bir çalışma kitabını açar ve her sayfadaki kodu çalıştırır.
- (Bu, başka bir işlevde yapıldığını ve mükemmel çalışıyor ve yeni çalışma kitabında odaklanma ile biten yaklaşık 15 saniye sürer.)
- userform kapatır. (Bu, diğer çalışma kitaplarının boyutuna bağlı olarak 7 saniyeden 90 saniyeye kadar askıda kalmasına neden olur.)
Aşağıdaki kod (lütfen uygun olmayan biçimi affedersiniz, telefonumu kullanmak zorunda kaldım ... bilgisayar üzerinden giriş yapamıyorum .)
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
Bunun için birçok hareketli parça var. Diğer çalışma kitaplarındaki kodun kullanıcı formu olmadan kusursuzca çalıştığını doğruladınız mı? Asla bitmeden ve hiç bitmeden tamamlandı mı? Yani 'LoadAndFormat 'çalışma kitabı Adı' 'bir altta kusursuz çalışır? –
Evet Elimde ... ve her defasında kusursuz çalışıyor. bunun çizilmiş ya da kaba equivilant olacaktır: 'Alt LoadAndFormat (FP dizesi)' 'set s = workbooks.open (FP, yanlış)' 'MySheet 's.sheets her MySheet için' . sütunları ("B: B") ekleyin ' ' sonraki mysheet ' ' uç alt ' – Syrrus
Evet var ... ve kusursuz çalışıyor. – Syrrus