visual basicte formül sorunu

Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
:yardim: Sevgili Hocalarım, sizden çok şey öğrendim.Ve bu öğrendiklerimle bir program yapıyorum ama bir sorunu halledemedim.Dosya çok ağırlaştı formüllerden dolayı 30 mb 'ı geçti.Formlarla kayıt yaparken yada kayıt üzerinde değişiklik yaparken çok uzun süre bekliyor.Excel sayfalarındaki formülleri formlardaki kaydet kodlarının içine koyarak dosyanın hafifleyeceğini düşünüyorum.Ör: Range("R2") = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14") ama 5000 satıra olacak bunu tek tek girmek çok ama çok zor.Bunun farklı bir yöntemi varmı LÜTFEN YARDIM
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Kodu bir deneyiniz.
Sub test()
For i = 2 To 5000
Range("R" & i) = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14")
Next
End Sub
 
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
Çok TeŞekkÜr Ederİm

HOCAM çalışmalarınızda başarılar.Verdiğiniz bilgi için teşekkürler.Emeğinize sağlık.Kodu bir deneyiniz.
Sub test()
For i = 2 To 5000
Range("R" & i) = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14")
Next
End Sub
Ama tüm satırlara aynı sonucu veriyor.Benim istediğim Range("R2") = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14") ve Range("R3") = Range("E3") * Range("AB2") + Range("F3") * Range("AB3") + Range("G3") * Range("AB4") + Range("H3") * Range("AB5") + Range("I3") * Range("AB6") + Range("J3") * Range("AB7") + Range("K3") * Range("AB8") + Range("L3") * Range("AB9") + Range("M3") * Range("AB10") + Range("N3") * Range("AB11") + Range("O3") * Range("AB12") + Range("P3") * Range("AB13") + Range("Q3") * Range("AB14") .........olarak 5000.satıra kadar gitmesi .Yani AB SÜTUNUNDAKİ AB2 İLE AB13 ARASI SABİT VE SATIRDA E HÜCRESİNDEN Q HÜCRESİNE kadar olan bölüm girilen kayıtlara göre farklı.Lütfen bu konuya yardım.
 
Son düzenleme:
Katılım
29 Aralık 2006
Mesajlar
80
Excel Vers. ve Dili
visualbasic
sorunu çözdüm

Range("R" & i) = Range("E" & i) * Range("AB2") + Range("F" & i) * Range("AB3") + Range("G" & i) * Range("AB4") + Range("H" & i) * Range("AB5") + Range("I" & i) * Range("AB6") + Range("J" & i) * Range("AB7") + Range("K" & i) * Range("AB8") + Range("L" & i) * Range("AB9") + Range("M" & i) * Range("AB10") + Range("N" & i) * Range("AB11") + Range("O" & i) * Range("AB12") + Range("P" & i) * Range("AB13") + Range("Q" & i) * Range("AB14") bu şekilde satırlara veri girdikçe ayrı ayrı hesaplıyor.V.Basic For Applications çok teşekkür ederim.
 
Üst