Excel'de hücre değerine göre bir düğmeyi nasıl etkinleştirir veya devre dışı bırakırsınız?
Bu makalede, Excel çalışma sayfasında hücre değerine göre bir düğmeyi etkinleştirmenin veya devre dışı bırakmanın bazı yollarını ele alacağım.
İki sütun verisine göre iki düğmeyi VBA koduyla etkinleştirin veya devre dışı bırakın
İki hücre değerine göre bir düğmeyi VBA koduyla etkinleştirin veya devre dışı bırakın
İki sütun verisine göre iki düğmeyi VBA koduyla etkinleştirin veya devre dışı bırakın
Örneğin, bir çalışma sayfasında iki komut düğmesi olsun: A sütunu veri içeriyorsa Button1 etkinleşir ve Button2 devre dışı kalır; C sütunu veri içeriyorsa ise Button2 etkinleşir ve Button1 devre dışı bırakılır. Bu görevi gerçekleştirmek için aşağıdaki VBA kodu size yardımcı olabilir.
1. Düğmeleri içeren sayfaya sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle seçeneğini belirleyin; ekran görüntüsüne bakın:
2.Microsoft Visual Basic for Applicationspenceresinde, aşağıdaki kodu boş modüle kopyalayıp yapıştırın:
VBA kodu: İki sütuna göre iki düğmeyi etkinleştirin veya devre dışı bırakın:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Not: Yukarıdaki kodda, CommandButton1 ve CommandButton2 düğme adlarıdır; A:A ve C:C ise bu iki düğmeyi etkinleştirmek veya devre dışı bırakmak için kullandığınız sütunlardır. İhtiyacınıza göre bunları değiştirebilirsiniz.
3. Ardından kod penceresini Kaydet ve Kapat; istediğiniz sonucu hemen elde edeceksiniz:
(1.) A Sütununa veri girildiğinde, 1 düğmesi etkinleşir ve 2 düğmesi devre dışı kalır; ekran görüntüsüne bakın:
(2.) C Sütununa veri girildiğinde, 2 düğmesi etkinleşir ve 1 düğmesi devre dışı kalır; ekran görüntüsüne bakın:
(3.) Hem A Sütunu hem de C Sütunu veri içerdiğinde, her iki düğme de etkinleşir; ekran görüntüsüne bakın:
(4.) A ve C Sütunlarında veri yoksa, her iki düğme de devre dışı kalır; ekran görüntüsüne bakın:
İki hücre değerine göre bir düğmeyi VBA koduyla etkinleştirin veya devre dışı bırakın
Bir komut düğmesini iki hücre değerine göre etkinleştirmek veya devre dışı bırakmak istiyorsanız — örneğin A1 hücresindeki değer B1 hücresindekinden büyükse düğme etkin, aksi takdirde devre dışı olsun — aşağıdaki VBA kodu size yardımcı olabilir.
1. Düğmeyi içeren sayfaya sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini belirleyin; ardından, Microsoft Visual Basic for Applications penceresinde aşağıdaki kodu boş bir modüle kopyalayıp yapıştırın; ekran görüntüsüne bakın:
VBA kodu: İki hücre değerine göre bir düğmeyi etkinleştirin veya devre dışı bırakın:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Not: Yukarıdaki kodda, A1 ve B1 kullandığınız hücre değerleridir; CommanButton1 ise düğme adıdır. Bunları kendi değerlerinizle değiştirin.
2. Ardından kod penceresini Kaydet ve Kapat. Artık A1 hücresindeki değer B1’den büyükse düğme etkinleşir; aksi takdirde, yani A1 hücresindeki değer B1’den küçükse düğme devre dışı kalır. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar