/ / Excel VBA Kullanıcı Biçimi ve Aralıkları

Excel VBA Kullanıcı Biçimi ve Aralıkları

Kullanabilirsiniz Yeniden düzenleme kontrolü içinde Excel VBA Bir kullanıcıdan menzil almak için userform Renklerin minimum değerini oluşturacağız. menzil RefEdit kontrolünde saklanır.

Excel VBA'da Kullanıcı Biçimi ve Aralıkları

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. Etiketi, RefEdit kontrol ve komut butonlarını ekleyin. Bu tamamlandıktan sonra sonuç, daha önce gösterilen Kullanıcı Formunun resmi ile tutarlı olmalıdır. Örneğin, araç kutusundan RefEdit'e tıklayarak bir RefEdit denetimi oluşturun. Ardından, bir RefEdit denetimini Userform üzerinde sürükleyebilirsiniz.

Not: Araç kutunuzda bir RefEdit kontrolü yoksa, RefEdit kontrolüne bir referans yapın. Araçlar, Referanslar'ı tıklayın ve Ref Düzenleme Kontrolü'nü kontrol edin.

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ı formu, etiket ve komut düğmelerinin 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()

Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address

End Sub

Açıklama: İlk kod satırı, sayfa 1'deki tüm hücrelerin yazı tipi rengini siyah olarak değiştirir. İkinci kod satırı, geçerli seçimin adresini alır ve bunu RefEdit denetiminde görüntüler.

Şimdi, Userform'un ilk bölümünü oluşturduk. Zaten düzgün görünüyor olsa da, Kullanıcı Formu'ndaki komut düğmelerini tıkladığını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 addr As String, rng, cell As Range, minimum As Double

addr = RefEdit1.Value
Set rng = Range(addr)
minimum = WorksheetFunction.Min(rng)

For Each cell In rng
    If cell.Value = minimum Then cell.Font.Color = vbRed
Next cell

End Sub

Açıklama: İlk olarak, adresi RefEdit denetiminden alıp String değişken addr içine depolarız. Ardından, RefIdit denetiminde belirtilen aralığa rng ayarladık. Ardından, aralıktaki minimum değeri bulmak için çalışma sayfası fonksiyonunu Min kullanırız. Son olarak, bir döngü kullanarak minimum değerleri renklendiriyoruz.

13. İptal düğmesine çift tıklayın.

14. Aşağıdaki kod satırını ekleyin:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Açıklama: Bu kod satırı, İptal düğmesine tıkladığınızda Kullanıcı formunu kapatır.

15. Kullanıcı formunu test edin.

Sonuç:

Kullanıcı Formu ve Aralık Sonuçları

Ayrıca oku: