• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

işlemci sorunu

Katılım
19 Ocak 2010
Mesajlar
6
Excel Vers. ve Dili
Microsoft Office Excel 2010 TR
Turkish
Türkisch
Selam Arkadaşlar Ekteki Dosyayı tamamen kendim Hazırladım (sadece on numara sonuçlarının excel dökümünü bu sitede buldum. milli piyangodan tek tek bakıp yazmak çok zahmetli olacaktı o yüzden paylaşan arkadaşa teşekkkür ederim.)

Sorun şu ki çok fazla "For/next" kullandığım için proğram olduğu gibi işlemciye hucum ediyor bende merak ettim acaba bu proğramın yaptığı işlemin aynısını yapabileceğim başka bir yol bilen varmı?

Ve ayrıca şimdi sırada ikili gruplar halinde sayıların birlikte kaçar kez çıktıklarını hesaplayacağım ve hatta üçlü gruplarıda ama bildiğim kadarıyla bu benim yöntemle hazırlayacağım proğramı çalıştıracak bir işlemci henüz üretilmedi sanırım. o yüzden ya başka bir yol bulmam gerekecek yada burada bırakacağım ve başka işlerin peşine düşeceğim.

Şimdiden ilgilenen herkese teşekkür ederim

Not1 : ben aslında visual basic bilipte onununla excelde bişeyler yapmaya çalışanlardanım yani formüllerde pek bi iddaam yok
Not2 : neden on numara diye sormayın sadece uğraşacak bir konu lazımdı ondan En kalabalık sayı topluluğunun on numarada olması da başka bi sebep
 

Ekli dosyalar

Son düzenleme:
Dosyanızdaki kodu aşağıdaki ile değiştirirseniz çok daha hızlı çalışacaktır. Ben hızı iyi olduğu için son döngüyü değiştirmedim. Ancak oda kısaltılabilir. Ayrıca sorunuz tamamen fonksiyonlar ilede çözülebilir.

Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim sıra As Integer
Cells(7, 31).Value = ""
[ab8:ab390].ClearContents
[aa2:db2].ClearContents
[ag8:ao390].ClearContents
 
For i = 27 To 106
Cells(2, i) = WorksheetFunction.CountIf([c2:x390], Cells(1, i))
Next
[ae7] = WorksheetFunction.Sum([aa2:db2])
For c = 0 To Cells(5, 61).Value
sıra = 33
Cells(c + 8, 28).Value = Cells(5, 34).Value - c
For cc = 27 To 107
If Cells(2, cc).Value = Cells(c + 8, 28).Value Then
Cells(c + 8, sıra).Value = Cells(1, cc).Value
sıra = sıra + 1
End If
Next cc
Next c
End Sub
 
Teşekkür Ederim gerçekten arada dağlar kadar hız farkı oluştu vay be ellerine sağlık.
 
Son düzenleme:
Sayfa iki hızlandırma

hocam acaba ekteki kitapta sayfa2 yi hızlandırmak için yapılabilecek birşey varmıdır. yukardaki mesajdaki kodları aynen ikinci sayfadada kullandım ama bu kez yapılan işlem çok daha karışık ve bu yüzden çok yavaş düşündüm düşündüm bi yol bulamadım şimdiden teşekkür ederim.

bide excel de "hesaplanıyor..." şeklinde bir pop up pencere oluşturmak mümkünmü acaba?
 

Ekli dosyalar

Son düzenleme:
Arkadaşlar yukarıdaki soruma "hocam" diye başlamış olabilirm ancak Levent bey müsait olmayabilir o yüzden sorum ilgilenen herkes içindir. Zaten benim sorum ile ilgilenip çözebilecek derecede excel bilen herkes benim hocam olur. E o zaman hocalarım en azından olumsuz da olsa bir cevap bekliyorum şimdiden ilgilenen herkese teşekkür ederim.
 
Geri
Üst