AŞaĞidakİ Kodlarla İlgİlİ Bİr Fİkİr Almak İstİyorum

[ferhatgurbuz]

Function gosterge(değer As Integer)

If değer = 11 Then gosterge = 1320
If değer = 12 Then gosterge = 1380
If değer = 13 Then gosterge = 1440
If değer = 14 Then gosterge = 1500
If değer = 21 Then gosterge = 1155
If değer = 22 Then gosterge = 1210
If değer = 23 Then gosterge = 1265
If değer = 24 Then gosterge = 1320
If değer = 25 Then gosterge = 1380
If değer = 26 Then gosterge = 1440
If değer = 31 Then gosterge = 1020
If değer = 32 Then gosterge = 1065
If değer = 33 Then gosterge = 1110
If değer = 34 Then gosterge = 1155
If değer = 35 Then gosterge = 1210
If değer = 36 Then gosterge = 1265
If değer = 37 Then gosterge = 1320
If değer = 38 Then gosterge = 1380
If değer = 41 Then gosterge = 915
If değer = 42 Then gosterge = 950
If değer = 43 Then gosterge = 985
If değer = 44 Then gosterge = 1020
If değer = 45 Then gosterge = 1065
If değer = 46 Then gosterge = 1110
If değer = 47 Then gosterge = 1155
If değer = 48 Then gosterge = 1210
If değer = 49 Then gosterge = 1265
If değer = 51 Then gosterge = 835
If değer = 52 Then gosterge = 865
If değer = 53 Then gosterge = 895
If değer = 54 Then gosterge = 915
If değer = 55 Then gosterge = 950
If değer = 56 Then gosterge = 985
If değer = 57 Then gosterge = 1020
If değer = 58 Then gosterge = 1065
If değer = 59 Then gosterge = 1110
If değer = 61 Then gosterge = 760
If değer = 62 Then gosterge = 785
If değer = 63 Then gosterge = 810
If değer = 64 Then gosterge = 835
If değer = 65 Then gosterge = 865
If değer = 66 Then gosterge = 895
If değer = 67 Then gosterge = 915
If değer = 68 Then gosterge = 950
If değer = 69 Then gosterge = 985
If değer = 71 Then gosterge = 705
If değer = 72 Then gosterge = 720
If değer = 73 Then gosterge = 740
If değer = 74 Then gosterge = 760
If değer = 75 Then gosterge = 785
If değer = 76 Then gosterge = 810
If değer = 77 Then gosterge = 835
If değer = 78 Then gosterge = 865
If değer = 79 Then gosterge = 895
If değer = 81 Then gosterge = 660
If değer = 82 Then gosterge = 675
If değer = 83 Then gosterge = 690
If değer = 84 Then gosterge = 705
If değer = 85 Then gosterge = 720
If değer = 86 Then gosterge = 740
If değer = 87 Then gosterge = 760
If değer = 88 Then gosterge = 785
If değer = 89 Then gosterge = 810
If değer = 91 Then gosterge = 620
If değer = 92 Then gosterge = 630
If değer = 93 Then gosterge = 645
If değer = 94 Then gosterge = 660
If değer = 95 Then gosterge = 675
If değer = 96 Then gosterge = 690
If değer = 97 Then gosterge = 705
If değer = 98 Then gosterge = 720
If değer = 99 Then gosterge = 740
If değer = 101 Then gosterge = 590
If değer = 102 Then gosterge = 600
If değer = 103 Then gosterge = 610
If değer = 104 Then gosterge = 620
If değer = 105 Then gosterge = 630
If değer = 106 Then gosterge = 645
If değer = 107 Then gosterge = 660
If değer = 108 Then gosterge = 675
If değer = 109 Then gosterge = 690
If değer = 111 Then gosterge = 560
If değer = 112 Then gosterge = 570
If değer = 113 Then gosterge = 580
If değer = 114 Then gosterge = 590
If değer = 115 Then gosterge = 600
If değer = 116 Then gosterge = 610
If değer = 117 Then gosterge = 620
If değer = 118 Then gosterge = 630
If değer = 119 Then gosterge = 645
If değer = 121 Then gosterge = 545
If değer = 122 Then gosterge = 550
If değer = 123 Then gosterge = 555
If değer = 124 Then gosterge = 560
If değer = 125 Then gosterge = 570
If değer = 126 Then gosterge = 580
If değer = 127 Then gosterge = 590
If değer = 128 Then gosterge = 600
If değer = 129 Then gosterge = 610
If değer = 131 Then gosterge = 530
If değer = 132 Then gosterge = 535
If değer = 133 Then gosterge = 540
If değer = 134 Then gosterge = 545
If değer = 135 Then gosterge = 550
If değer = 136 Then gosterge = 555
If değer = 137 Then gosterge = 560
If değer = 138 Then gosterge = 570
If değer = 139 Then gosterge = 580
If değer = 141 Then gosterge = 515
If değer = 142 Then gosterge = 520
If değer = 143 Then gosterge = 525
If değer = 144 Then gosterge = 530
If değer = 145 Then gosterge = 535
If değer = 146 Then gosterge = 540
If değer = 147 Then gosterge = 545
If değer = 148 Then gosterge = 550
If değer = 149 Then gosterge = 555
If değer = 151 Then gosterge = 500
If değer = 152 Then gosterge = 505
If değer = 153 Then gosterge = 510
If değer = 154 Then gosterge = 515
If değer = 155 Then gosterge = 520
If değer = 156 Then gosterge = 525
If değer = 157 Then gosterge = 530
If değer = 158 Then gosterge = 535
If değer = 159 Then gosterge = 540
If değer > 159 Then gosterge = "BÖYLE DERECE YOK"
End Function

[Necdet Yeşertener]

Merhaba Sayın ferhatgurbuz (http://www.excel.web.tr/member.php?u=50449),

Derece ve Kademeyi birleştirip göstergeyi buluyorsunuz sanırım. Sizde uygulama böyle midir bilmiyorum.

Ben olsam Derece ve Kademeyi ayrı ayrı fonksiyona verirdim. Kontrol etmesi daha kolay olur.

Bildiğiniz gibi 1. derecenin 4 kademesi var en fazla. Bu kontrol edilmiyor örnek fonksiyonda.

Önerim :


Option Base 1
Function Gosterge(Derece, Kademe As Integer)
Dim Dizi(15, 9) As Integer
Dizi(1, 1) = 1320
Dizi(1, 2) = 1380
Dizi(1, 3) = 1440
Dizi(1, 4) = 1500
Dizi(2, 1) = 1155
Dizi(2, 2) = 1210
Dizi(2, 3) = 1265
Dizi(2, 4) = 1320
Dizi(2, 5) = 1380
Dizi(2, 6) = 1440
Dizi(3, 1) = 1020
Dizi(3, 2) = 1065
Dizi(3, 3) = 1110
Dizi(3, 4) = 1155
Dizi(3, 5) = 1210
Dizi(3, 6) = 1265
Dizi(3, 7) = 1320
Dizi(3, 8) = 1380
Dizi(4, 1) = 915
Dizi(4, 2) = 950
Dizi(4, 3) = 985
Dizi(4, 4) = 1020
Dizi(4, 5) = 1065
Dizi(4, 6) = 1110
Dizi(4, 7) = 1155
Dizi(4, 8) = 1210
Dizi(4, 9) = 1265
Dizi(5, 1) = 835
Dizi(5, 2) = 865
Dizi(5, 3) = 895
Dizi(5, 4) = 915
Dizi(5, 5) = 950
Dizi(5, 6) = 985
Dizi(5, 7) = 1020
Dizi(5, 8) = 1065
Dizi(5, 9) = 1110
Dizi(6, 1) = 760
Dizi(6, 2) = 785
Dizi(6, 3) = 810
Dizi(6, 4) = 835
Dizi(6, 5) = 865
Dizi(6, 6) = 895
Dizi(6, 7) = 915
Dizi(6, 8) = 950
Dizi(6, 9) = 985
Dizi(7, 1) = 705
Dizi(7, 2) = 720
Dizi(7, 3) = 740
Dizi(7, 4) = 760
Dizi(7, 5) = 785
Dizi(7, 6) = 810
Dizi(7, 7) = 835
Dizi(7, 8) = 865
Dizi(7, 9) = 895
Dizi(8, 1) = 660
Dizi(8, 2) = 675
Dizi(8, 3) = 690
Dizi(8, 4) = 705
Dizi(8, 5) = 720
Dizi(8, 6) = 740
Dizi(8, 7) = 760
Dizi(8, 8) = 785
Dizi(8, 9) = 810
Dizi(9, 1) = 620
Dizi(9, 2) = 630
Dizi(9, 3) = 645
Dizi(9, 4) = 660
Dizi(9, 5) = 675
Dizi(9, 6) = 690
Dizi(9, 7) = 705
Dizi(9, 8) = 720
Dizi(9, 9) = 740
Dizi(10, 1) = 590
Dizi(10, 2) = 600
Dizi(10, 3) = 610
Dizi(10, 4) = 620
Dizi(10, 5) = 630
Dizi(10, 6) = 645
Dizi(10, 7) = 660
Dizi(10, 8) = 675
Dizi(10, 9) = 690
Dizi(11, 1) = 560
Dizi(11, 2) = 570
Dizi(11, 3) = 580
Dizi(11, 4) = 590
Dizi(11, 5) = 600
Dizi(11, 6) = 610
Dizi(11, 7) = 620
Dizi(11, 8) = 630
Dizi(11, 9) = 645
Dizi(12, 1) = 545
Dizi(12, 2) = 550
Dizi(12, 3) = 555
Dizi(12, 4) = 560
Dizi(12, 5) = 570
Dizi(12, 6) = 580
Dizi(12, 7) = 590
Dizi(12, 8) = 600
Dizi(12, 9) = 610
Dizi(13, 1) = 530
Dizi(13, 2) = 535
Dizi(13, 3) = 540
Dizi(13, 4) = 545
Dizi(13, 5) = 550
Dizi(13, 6) = 555
Dizi(13, 7) = 560
Dizi(13, 8) = 570
Dizi(13, 9) = 580
Dizi(14, 1) = 515
Dizi(14, 2) = 520
Dizi(14, 3) = 525
Dizi(14, 4) = 530
Dizi(14, 5) = 535
Dizi(14, 6) = 540
Dizi(14, 7) = 545
Dizi(14, 8) = 550
Dizi(14, 9) = 555
Dizi(15, 1) = 500
Dizi(15, 2) = 505
Dizi(15, 3) = 510
Dizi(15, 4) = 515
Dizi(15, 5) = 520
Dizi(15, 6) = 525
Dizi(15, 7) = 530
Dizi(15, 8) = 535
Dizi(15, 9) = 540
If Derece < 1 Or Derece > 15 Or Kademe < 1 Or Kademe > 9 Or Derece = 1 And Kademe > 4 Then
Gosterge = 0
Else
Gosterge = Dizi(Derece, Kademe)
End If
End Function



Dizi elemanlarına değer atamaların daha kısa yolu varsa öğrenmek isterim.

[ferhatgurbuz]

teşekkürler.Benim anlayamadığım ve sonradan çözdüğüm If değer = 109 Then gosterge = 690
ben 109 un onuncu derecenin dokuzuncu kademesi olduğunu sonradan çözdüm. Ama sizin dizi daha mantıklı ve kolay geldi. Size başka bir şey sorsam. A sütununda Türkiyenin İlleri var. Aynı Şekilde B1 satırından itibaren sağa doğru Türkiyenin illeri var. Belki görmüşünüzdür. Kilometre cetveli. Benim yapmak istediğim Userform üzerindeki Combobox üzerinde Adanayı seçmek diğer Comboboxtada Tekirdağı seçince bana iki şehir arasındaki kilometreyi verecek bir kod, program veya formül varsa çok sevinirim.

[Necdet Yeşertener]

Sayın ferhatgurbuz (http://www.excel.web.tr/member.php?u=50449),

Farklı soruları farklı başlık altında sorarsınız ve örnek bir dosya eklerseniz yardımcı olacak çok arkadaş çıkacaktır.

Yine de bir çalışma yaptım, sanırım değerleri girerseniz çalışacaktır.

Not : Sayın Leventm'nin verdiği linkteki dosyadan yararlanarak uzaklıkları güncelledim

http://www.excel.web.tr/search.php?searchid=277864

Sayın ferhatgurbuz lütfen aynı konuda mesajlarınızı devam ettiriniz.

[ferhatgurbuz]

teşekkür ederim. Hayırlı çalışmalar