textboxları sıralama

[osmanfenerli1907]

merhaba
ben userform1 de 10 tane textbox var.(textbox1 ..... textbox10)
bu textboxlarda yazan sayılara göre örneğin textbox5 3. büyükse label3 te "3." yazsın
textbox8 1. büyükse label8 de "1." yazsın
örneğin textbox6 ve textbox4 ün sayıları eşit ve 2. ise label6 ve label4 te "2." yazsın

umarım anlatabilmişimdir.

 

[osmanfenerli1907]

yardımlarınızı bekliyorum arkadaşlar lütfen

 

[janveljan]

Aşağıdaki kodları kullandım, umarım işinize yarar.

Private Sub CommandButton1_Click()
Dim b(1 To 10) As Integer
    'Değerleri b dizisine alıyoruz
    For i = 1 To 10
        b(i) = Val(UserForm1.Controls("Textbox" & i))
    Next
    'Değerleri sıralıyoruz
    For i = 1 To 9
        For j = i + 1 To 10
            If b(i) < b(j) Then
            z = b(i)
            b(i) = b(j)
            b(j) = z
            End If
        Next
    Next
    'Birbirine eşit olan değer varsa 1 tanesi haricinde diğerlerine
    'dizideki en büyük değerden daha büyük bir değer atıyoruz
    For i = 1 To 9
        For j = i + 1 To 10
            If b(i) = b(j) Then
            b(j) = b(10) - 1
            End If
        Next
    Next
    'Diziyi tekrar sıralıyoruz
    For i = 1 To 9
        For j = i + 1 To 10
            If b(i) < b(j) Then
            z = b(i)
            b(i) = b(j)
            b(j) = z
            End If
        Next
    Next
    'Labellara ilgili değeri atıyoruz.
    For i = 1 To 10
        For j = 1 To 10
            If Val(UserForm1.Controls("Textbox" & i)) = b(j) Then
            UserForm1.Controls("Label" & i) = j & ".Büyük"
            UserForm1.Controls("Label" & i).Font.Size = 19 - j
            End If
        Next
    Next

End Sub

 

[osmanfenerli1907]

çok teşekkürler hocam
ama bunu powerpointe uyarlamak istersem yani userform yok sa nasıl olur
yardımlarınızı için çok teşekkür ediyorum

 

[janveljan]

Bir örnek dosya lazım. O zaman ne istediğinizi daha rahat anlarız ve çözüm yollarını daha kolaybuluruz.

 

[osmanfenerli1907]

yapmak istediğim ekte
ancak pps olarak alıyor ppt olarak upload edemedim

 

[osmanfenerli1907]

hocam userform1.controls......
yukardaki kodu nasıl değiştiririz.powerpointte userform yok slide üstüne göre uyarlamalıyız.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Yazdığım kod arka planda bir excel dosyası açıp textboxlardaki sayıları excel hücrelerine aktarmakta ve sıralama işlemlerini orada yaptıktan sonra sonuçlarını labellara yazmaktadır.

 

[osmanfenerli1907]

HOCAM kodlarını nasıl alacaz ppt halini gönderseniz

 

[Levent Menteşoğlu]

pps uzantısını ppt olarak değiştirerek açın.

 

[osmanfenerli1907]

merhaba
hocam bu başka bilgisayarlarda sorun çıkarmaz değil mi
yani bir bilgisayarda hardisk olarak d yoksa
birde .xls adlı dosyayı d ye kaydetmiyor herhalde

 

[Levent Menteşoğlu]

merhaba
hocam bu başka bilgisayarlarda sorun çıkarmaz değil mi
yani bir bilgisayarda hardisk olarak d yoksa
birde .xls adlı dosyayı d ye kaydetmiyor herhalde

Dosyayı hiç bir yere kaydetmiyor. Dolayısıyla sorun çıkarcağını sanmıyorum.

 

[osmanfenerli1907]

teşekkürler

 

[janveljan]

Kendi kodlarımı powerpointe uyarladım.

 

[osmanfenerli1907]

textboxun herhangi bir örneğin 50006 gibi büyük bir değer olunca sistem hata veriyor.bu neden olabilir?

 

[janveljan]

Dim b(1 To 10) As Integer

bu satırı aşağıdaki şekilde değiştirin

Dim b(1 To 10)