Permütasyon hesaplama

[chiko]

arkadaşlar ekteki dosyanın birinci sayfasında bulunan işlemi yaparken sadece 20 sayının permütasyon değeri giriliyor bunu arttırmak için nasıl bir yol izlemeliyim teşekkürler. başlat dediğimizde metin değer kutucuguna en fazla 20 adet değer giriliyorbunu değiştirmek için ne yapmam gerekiyor

 

[chiko]

yardım edecek kimse yok mu

 

[Murat OSMA]

Sitede arama yaparsanız bu konuda bir çok örneğe ulaşabilirsiniz. Oturup beklemektense arama yapalım derim.

Dosyanızı açamadım hata verdi ama dilerseniz bu bağlantıya göz atabilirsiniz.
http://www.excel.web.tr/f50/permutasyon-hesaplama-t75963.html

Ya da ek'teki örnek işinize yarayabilir..

 

[chiko]

Sitede arama yaparsanız bu konuda bir çok örneğe ulaşabilirsiniz. Oturup beklemektense arama yapalım derim.

Dosyanızı açamadım hata verdi ama dilerseniz bu bağlantıya göz atabilirsiniz.
http://www.excel.web.tr/f50/permutasyon-hesaplama-t75963.html

Ya da ek'teki örnek işinize yarayabilir..

aynen ek'teki dosyanın aynısından bahsediyorum birinci sayfada 20 farklı değer girebiliyoruz ya onu arttırmak için ne yapmak lazım hocam

 

[chiko]

elimdeki dosya sizin eklemiş oldugunuz dosya ancak girilen metin 20 karakterle sınırlı bunu daha fazla yapabilme için ne yapmak lazım

 

[Murat OSMA]

TextBox'ın MaxLength özelliğine bakın orada 20 yazar. Maksimum 20 karakter girilebileceğini ifade eder. Burayı makul bir değere kadar artırabilirsiniz.

Ayrıca VBE Penceresinde CTRL+H tuşlarına birlikte basın.
Arama kutucuğuna 20 yazın, değiştirme kutucuğuna da TextBox'ın MaxLength özelliğine girdiğiniz uzunluğu yazın.
Search kısmından Current Project'i seçin ve Replace All butonuna basın.



■ Yalnız şunu öneririm;
Gönderdiğim dosyada 65536 satır var. Bu satır sayısı ihtiyacınızı karşılamayacaktır.
Dosyadaki her şeyi yeni bir dosyaya kopyalayın ve Module1'de şu satırdaki değeri Const ExcelRowsMax As Long = 65536 1048576 yapın.

 

[chiko]

eyvallah hocam cok sağol ama visual basic te söylediğin gibi yaptım ama başarılı değişiyor ancak değerleri girdiğimde değişen bişey olmadı 20 de kalıyor tekrar tekrar denerim

 

[chiko]

2010 office kullanıyorum exel dosyasını açtığımda üstte makroları görüntüle diyorum orada ki makroyu tıklayıp düzenle diyorum module1 e giriyorum control+h ye tıklayıp 20 find text diyorum alt kutucuga 25 yazıp Current Project tıklayıp replace all diyorum the spercifed has been searched. 2 replacements were made. diyor tamam diyorum 65536 yı aynı yolla 1048576 ile değiştiriyorum ancak excelde herhangi bir değişiklik olmuyor bide uyumluluk modu felan diye bi uyarı çıkıyor2003 versiyonu feln diye acaba 2010 kullanıyorum diye mi böyle bişeyu oluyor

 

[Murat OSMA]

Sizdeki değişiklik yaptığınız dosyayı bir gönderin detaylıca bakalım.

 

[chiko]

yaptıgım şekil burda hocam kesin bi yerinde yanlış yaptım ama

 

[Murat OSMA]

TextBox'ın MaxLength özelliğini değiştirmemişsiniz...

TextBox'ın MaxLength özelliğine bakın orada 20 yazar. Maksimum 20 karakter girilebileceğini ifade eder. Burayı makul bir değere kadar artırabilirsiniz.

Ayrıca VBE Penceresinde CTRL+H tuşlarına birlikte basın.
Arama kutucuğuna 20 yazın, değiştirme kutucuğuna da TextBox'ın MaxLength özelliğine girdiğiniz uzunluğu yazın.
Search kısmından Current Project'i seçin ve Replace All butonuna basın.



■ Yalnız şunu öneririm;
Gönderdiğim dosyada 65536 satır var. Bu satır sayısı ihtiyacınızı karşılamayacaktır.
Dosyadaki her şeyi yeni bir dosyaya kopyalayın ve Module1'de şu satırdaki değeri Const ExcelRowsMax As Long = 65536 1048576 yapın.

 

[chiko]

cok sağol hocam ya allah tuttugunu altın etsin

 

[chiko]

murat abi son birşey sorabilir miyim

 

[Murat OSMA]

Özelden sordun cevabını özelden verdim.