VBA'da bir Döndür düğmesi bu, kullanıcının hücrede tanımlanmış bir aralıktaki bir sayıyı artırmasına izin verir. Bir kullanıcı bir düğmeye her tıkladığında, sayı artacak veya azalacaktır. Bu öğreticide, bir Döndür düğmesinin nasıl oluşturulacağını ve Excel ve VBA'da nasıl kullanılacağını öğreneceksiniz.
Bir Seçenek düğmesinin nasıl kullanılacağını öğrenmek istiyorsanız, bu bağlantıya tıklayın: Seçenek düğmesi Excel VBA
Bir Döndürme Düğmesi Oluşturun
Çalışma Sayfasına bir Döndür düğmesi eklemek için şuraya gitmeniz gerekir: Geliştirici sekmesi, Tıklayın Sokmak ve ActiveX Denetimleri altında seçin Döndür düğmesi:
Resim 1. Çalışma Sayfasına Döndür düğmesi ekleyin
Eklediğiniz Döndür düğmesini seçtiğinizde, üzerine tıklayabilirsiniz. Özellikler altında Geliştirici sekmesi:
Resim 2. Döndürme düğmesi Özelliklerini Değiştir
Burada Döndür düğmesinin farklı özelliklerini ayarlayabilirsiniz. Başlangıç için, niteliği değiştirdik İsim ile spbSpinDüğmesi. Artık VBA kodunda bu isimle Spin butonunu kullanabiliriz. Diğer önemli nitelikler Minimum ve Maks.bir sayı aralığı tanımlayan ve Küçük değişim hangi bir artış adımını tanımlar.
VBA Kullanarak Bir Döndürme Düğmesi Ayarlayın
Önce VBA'da bir Döndür düğmesinin özelliklerinin nasıl ayarlanacağını ve Çalışma Sayfasında bir değerin nasıl alınacağını göreceğiz. Kodun olayda olması gerekiyor Değiştirmek nesnenin spbSpinDüğmesi. Bu etkinliğe Spin butonuna sağ tıklayıp seçerek girebilirsiniz. Kodu Görüntüle seçenek. İşte kod:
| 1234567891011 | Özel Alt spbSpinButton_Change()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range("B2") = Sheet1.spbSpinButton.ValueAlt Bitiş |
İlk olarak, sayı aralığı için alt sınırı belirledik:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Bundan sonra, sayı aralığı için üst sınırı belirledik:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Ayrıca sayı artırma adımını da ayarlamamız gerekiyor:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Son olarak, Döndür düğmesinin mevcut değerini B2 hücresine atıyoruz. Bu değer, Değer nesnenin niteliği Sheet1.spbSpinDüğmesi:
| 1 | Sheet1.Range("B2") = Sheet1.spbSpinButton.Value |
Şimdi, Döndür düğmesine her tıkladığımızda, değer 100-200 aralığında 10 artacak veya azalacak:
Resim 3. VBA'da Döndür düğmesini kullanarak bir sayıyı artırın
Excel'de Döndürme Düğmesi Ayarlayın
Bir Döndür düğmesi ayarlamanın başka bir yolu da Özellikler'i kullanmaktır. Tıklamak Özellikler altında Geliştirici sekmesi:
Resim 4. Excel'de Döndür düğmesini ayarlayın
Burada istediğimiz tüm nitelikleri ayarlayabiliriz: Minimum 10, Maks. 100 ve Küçük değişim 2'dir. Döndür düğmesinin sonucunu B2 hücresine koymak istiyorsanız, bu hücreyi özniteliğe koymanız gerekir. BağlantılıHücre.
