/ / Excel VBA'da Döviz Kurları

Excel VBA'da Döviz Kurları

Aşağıda bir programa bakacağız Excel VBA hangi bir Userform oluşturur ki dönüştürür birinden herhangi bir miktar para birimi diğerine.

Oluşturulacak olan Userform aşağıdaki gibi görünür:

Excel VBA'da Döviz Kurları

Bu Kullanıcı Formunu oluşturmak için aşağıdaki adımları uygulayın.

1. Visual Basic Düzenleyicisi'ni açın. Proje Gezgini görünmüyorsa, Görüntüle, Proje Gezgini'ni tıklatın.

2. Ekle, Kullanıcı formu'nu tıklayın. Araç Kutusu otomatik olarak görünmezse, Görünüm, Araç Kutusu'nu tıklatın. Ekranınız aşağıdaki gibi ayarlanmalıdır.

Excel VBA'da Kullanıcı Formu Ekranı Kurulumu

3. Etiketleri, liste kutularını (ilk önce solda, ikincisi sağda), metin kutularını (ilk önce solda, ikincisi sağda) ve komut düğmesini ekleyin. Bu tamamlandıktan sonra sonuç, daha önce gösterilen Kullanıcı Formunun resmi ile tutarlı olmalıdır. Örneğin, araç kutusundan ListBox'ı tıklatarak liste kutusu denetimi oluşturun. Ardından, Kullanıcı Formu'ndaki bir liste kutusunu sürükleyebilirsiniz.

4. Kontrollerin isimlerini ve başlıklarını değiştirebilirsiniz. Adlar Excel VBA kodunda kullanılır. Altyazılar, ekranınızda görünenlerdir. Kontrollerin isimlerini değiştirmek iyi bir uygulamadır, ancak burada gerekli değildir çünkü bu örnekte sadece birkaç kontrolümüz vardır. Kullanıcı formunun, komut düğmesinin ve etiketlerinin altyazısını değiştirmek için Görünüm, Özellikler Penceresi'ni tıklayın ve her bir denetimi tıklayın.

5. Kullanıcı formunu göstermek için çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırını ekleyin:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Şimdi Sub UserForm_Initialize oluşturacağız. Userform için Show yöntemini kullandığınızda, bu sub otomatik olarak yürütülür.

6. Visual Basic Düzenleyicisi'ni açın.

7. Proje Gezgini'nde, UserForm1'e sağ tıklayın ve ardından Kodu Görüntüle'ye tıklayın.

8. Soldaki açılır listeden Userform'u seçin. Sağdaki açılır listeden Sıfırla'yı seçin.

9. Aşağıdaki kod satırlarını ekleyin:

Private Sub UserForm_Initialize()

With ListBox1
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

With ListBox2
    .AddItem "Euro"
    .AddItem "Us Dollar"
    .AddItem "British Pound"
End With

ListBox1.ListIndex = 1
ListBox2.ListIndex = 0

TextBox1.Value = 1
TextBox2.Value = 0.722152

End Sub

Açıklama: İlk olarak, iki liste kutusu doldurulur. Ardından, birinci liste kutusunda ABD Doları para birimi varsayılan olarak ayarlanır ve ikinci liste kutusunda EURO para birimi varsayılan olarak ayarlanır. Son olarak, ilk metin kutusuna 1 değeri girilir ve ikinci metin kutusuna 0.722152 değeri girilir.

Şimdi, Userform'un ilk bölümünü oluşturduk. Zaten düzgün görünüyor olsa da, Go düğmesine tıkladığımızda henüz bir şey olmayacak.

10. Proje Gezgini'nde, UserForm1'e çift tıklayın.

11. Go düğmesine çift tıklayın.

12. Aşağıdaki kod satırlarını ekleyin:

Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer

rates(0, 0) = 1
rates(0, 1) = 1.38475
rates(0, 2) = 0.87452

rates(1, 0) = 0.722152
rates(1, 1) = 1
rates(1, 2) = 0.63161

rates(2, 0) = 1.143484
rates(2, 1) = 1.583255
rates(2, 2) = 1

For i = 0 To 2
    For j = 0 To 2
        If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)
    Next j
Next i

End Sub

Açıklama: İlk olarak bir dizi ilan ediyoruz. Dizinin iki boyutu vardır. 3 sıra ve 3 sütundan oluşur. Ardından, dizinin her bir öğesini başlatıyoruz. Örneğin, oranlar (1,0) ABD Doları'ndan EURO'ya olan döviz kurudur. Ardından bir çift döngü başlatıyoruz. Liste kutularındaki seçili para birimlerine bağlı olarak, Excel VBA, ilk metin kutusuna girilen miktarı dönüştürür ve sonucu ikinci metin kutusuna görüntüler.

Örnek: i = 2 ve j = 1 ise ve ilk metin kutusuna 2 değerini girersek, Excel VBA ikinci metin kutusuna 2 * oranlarını (2,1) = 2 * 1.583255 = 3.16651 yerleştirir.

13. Kullanıcı formunu test edin.

Sonuç:

Döviz Kurları Sonucu

Ayrıca oku: