- Katılım
- 12 Ağustos 2007
- Mesajlar
- 301
- Excel Vers. ve Dili
-
2003 türkçe
2016 türkçe
Merhabalar. Öğretmenlerin sene sonunda ihtiyaç duydukları ders içi performans ölçeklerini e okuldan excele aktardıktan sonra otomatik hesaplayan bir çalışma yaptım. Ancak e okuldan aktarılan notlar sayıya çevrilmeden işlem yapılamıyor. Aşağıdaki makro ile notları sayıya çeviriyorum. Ancak öğrencilerin çokluğuna göre 3 ile 6 dakika kadar bekletiyor. Yani yavaş çeviriyor. Bu makroyu hızlandırmak mümkün mü acaba??
Eğer aşağıdaki aralıkta bu hızlandırma yapılamıyorsa bu aralıktaki bütün rakamlar yerine işleme tabi olan 1. dönem için KLM, 2. dönem için XYZ sütunlarını çevirmesi yeterli. Yani sadece bu sütunların 12-500 aralığında (Kalabalık okullar için 500 artırılabillir) seçilip sayıya çevrilmesi için makro nasıl düzenlenmelidir? Teşekkürler.
Sub Düğme2_Tıklat()
For Each Alan In Range("E12:AD500")
Alan.NumberFormat = "General"
If Alan.Value <> "" Then Alan.Value = CDbl(Alan)
Next
End Sub
Eğer aşağıdaki aralıkta bu hızlandırma yapılamıyorsa bu aralıktaki bütün rakamlar yerine işleme tabi olan 1. dönem için KLM, 2. dönem için XYZ sütunlarını çevirmesi yeterli. Yani sadece bu sütunların 12-500 aralığında (Kalabalık okullar için 500 artırılabillir) seçilip sayıya çevrilmesi için makro nasıl düzenlenmelidir? Teşekkürler.
Sub Düğme2_Tıklat()
For Each Alan In Range("E12:AD500")
Alan.NumberFormat = "General"
If Alan.Value <> "" Then Alan.Value = CDbl(Alan)
Next
End Sub
Son düzenleme: