Çözüldü Permütasyon Kombinasyon Makro Kodu

[aliandic]

Merhabalar.
Ekte bulunan dosyada permütasyon kısmına 80 tane karakter yazıyorum ve bu 80 karakterin 4 lü kombinasyonunu almak istiyorum fakat excelde bir sütun için 1048576 satır limiti var ve yetkiyor malesef A sütunundaki satır bittikten sonra B sütununa daha sonra B sütunu bittikten sonra C sonra D sonra E sütununa geçmesini istiyorum ekte bulunan dosyaya bu makroyu ekleyebilecek olan varmı ?

 

[Alicimri]

"Cells(x, y).Value = 1" satırında siz 1 yerine hesaplamanızı yazın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[aliandic]

cevabınız için teşekür ederim fakat benim istediğim şey bu değil ekte verdiğim makro girilen karakter sayısına göre olası bütün permütasyon listesini oluşturan bir makro ben örneğin 40 karakter yazıcam 1234567890qwertyuıopğüasdfghjklşizxcvbnm bu 40 karakterin 4 lü permütasyon listesini istiyorum hesaplamasını değil bu makro bunu yapıyor fakat bütün listeyi A sütununda oluşturuyor A sütununda yeterli yer kalmadığından B sütununa devam etsin B sütununda yer kalmadığında C sütununa devam etsin böyle birşey ekleyebilirmisiniz ekteki makroya

 

[halily]

OutProc yordamının kodunu aşağıdaki gibi düzenleyip dener misiniz?HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Stn = cnt \ 1048576 + 1 <== bu satır cnt değerini 1048576'a kalansız bölerek yazılacak sütunu bulur
Str = (cnt Mod 1048576) + 1 <== bu satır cnt değerinin 1048576'ya göre modülünü alarak yazılacak sütunu bulur

yada aşağıdaki gibi bir yöntem işe yarayabilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

bu permütasyon işlemi ne kadar sürede tamamlanıyor?
sonuç diziye aktarılarak daha kısa sürede veri alınması sağlanabilir

 

[aliandic]

OutProc yordamının kodunu aşağıdaki gibi düzenleyip dener misiniz?HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Stn = cnt \ 1048576 + 1 <== bu satır cnt değerini 1048576'a kalansız bölerek yazılacak sütunu bulur
Str = (cnt Mod 1048576) + 1 <== bu satır cnt değerinin 1048576'ya göre modülünü alarak yazılacak sütunu bulur

yada aşağıdaki gibi bir yöntem işe yarayabilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 13137

Çok teşekkür ediyorum cevabınız için çok geç gördüm cevabınızı eve gidip deniycem hemen

 

[aliandic]

OutProc yordamının kodunu aşağıdaki gibi düzenleyip dener misiniz?HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Stn = cnt \ 1048576 + 1 <== bu satır cnt değerini 1048576'a kalansız bölerek yazılacak sütunu bulur
Str = (cnt Mod 1048576) + 1 <== bu satır cnt değerinin 1048576'ya göre modülünü alarak yazılacak sütunu bulur

yada aşağıdaki gibi bir yöntem işe yarayabilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 13137

Merhabalar 2 formulüde kopyala yapıştır yaparak denedim fakat olmadı malesef sizden rica etsem verdiğim dosyayı indirip içerisine siz müdahale edip daha sonra buraya yükleme şansınız varmıdır acaba ?

 

[halily]

Hata mı veriyor, işlem mi yapmıyor?
Modülün en başında option explicted ifadesi yer aldığı icin kodda yer alan Stn ve Str değişkenlerini en başta long olarak tanımladınız mı?

 

[aliandic]

Hata mı veriyor, işlem mi yapmıyor?
Modülün en başında option explicted ifadesi yer aldığı icin kodda yer alan Stn ve Str değişkenlerini en başta long olarak tanımladınız mı?

Complicate error: varriable not definied diye hata veriyor. Ben kodlardan hiç anlamıyorum valla en başta option explicted kısmına Stn as Long ve Str As Longmu yazıcam

 

[aliandic]

Hata mı veriyor, işlem mi yapmıyor?
Modülün en başında option explicted ifadesi yer aldığı icin kodda yer alan Stn ve Str değişkenlerini en başta long olarak tanımladınız mı?

Hocam çok çok çok teşekkür ediyorum size allah razı olsun vallahi kaç gündür bunu istiyordum siz yetiştiniz Str As Long ve Stn As Long yazdım oldu.

 

[halily]

Rica ederim
İyi çalışmalar
Not: 42 ye 4 sizde kaç saniye sürüyor? Diziye aktararak yaptigimda bende 18-20 saniye sürmüştü, şu anki sisteminiz daha uzun sürüyorsa dizi kullanılarak daha hızlı aktarilabilir