Excel'de çift tıklayarak bir hücreye onay işareti nasıl eklenir?

Normalde, bir hücreye bir onay işareti eklemek için, Sembol iletişim kutusuna girmeniz, onay işareti sembolünü bulmanız ve manuel olarak eklemeniz gerekir. Ancak, sembol iletişim kutusundaki onay işareti sembolünü bulmak o kadar kolay değildir, çünkü içinde çok sayıda sembol vardır. Excel'de bir hücreye hızlı bir şekilde onay işareti nasıl eklenir? Bu makale, bir hücreye yalnızca çift tıklama ile kolayca onay işareti eklemek için bir VBA yöntemi gösterecektir.

VBA kodlu bir hücreye onay işareti eklemek için çift tıklayın

VBA kodlu bir hücreye onay işareti eklemek için çift tıklayın

Aşağıdaki VBA kodu, çift tıklayarak bir hücreye onay işareti eklemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Hücreye onay işareti eklemeniz gereken çalışma sayfasını açın, ardından sağ tıklayıp seçin Kodu Görüntüle sağ tıklama menüsünden.

2. içinde Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki VBA kodunu kopyalayıp Kod pencere.

VBA kodu: Bir hücreye onay işareti eklemek için çift tıklayın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

not: Kodda, B1: B10 çift tıklayarak onay işareti ekleyeceğiniz aralıktır. Lütfen ihtiyacınıza göre değiştirin.

3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic penceresini açın ve çalışma sayfasına dönün.

Şimdi, B1: B10 aralığındaki herhangi bir hücreye çift tıklayın, onay işareti otomatik olarak girilecektir. Ve hücreye tekrar çift tıkladığınızda, eklenen onay işareti kaldırılacaktır.

Excel günlük çalışmalarınızda sık sık onay işaretlerini kullanmanız gerekiyorsa, burada Otomatik metin Faydası Kutools for Excel. Bu özellik sayesinde, bir onay işaretini otomatik metin girişi olarak kaydedebilir ve daha sonra, aşağıda gösterildiği gibi Excel'de yalnızca tek bir tıklama ile gelecekte yeniden işaretleyebilirsiniz.
Şimdi indirin ve deneyin! (30- günlük ücretsiz iz)

İlgili Makaleler:

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma...

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...

Yorumlar (11)

Henüz derecelendirme yok. İlk değerlendiren siz olun!

Luiz Carlos Dias'ın fotoğrafı.

yaklaşık 4 yıl önce

#27122

Bu yorum sitedeki moderatör tarafından en aza indirildi

como eu faço pra inserir bir marca de seleção na célula, porém sem silme o número que estiver digitado nela ou seja, bir marca sairia ve frente do número quando eu der duplo kliği... klik novamente ea célula voltaria ao normar (continuaria apenas o número).

cevap

Tadao Kano Luiz Carlos Dias'ın fotoğrafı.

yaklaşık 4 yıl önce

#27123

Bu yorum sitedeki moderatör tarafından en aza indirildi

Ola Luiz, acil durum değişikliği. Ira funcionar nas celulas A2:A10 ve D2:D5, gerekli olan değişiklikler.

tadao

Özel Alt Çalışma Sayfası_BeforeDoubleClick(Aralık Olarak ByVal Hedef, Boole Olarak İptal Et)
Eğer Kesişmiyorsa(Hedef, Birlik(Aralık("A2:A10"), Aralık("D2:D5"))) O Zaman Hiçbir Şey Değildir
Application.EnableEvents = Yanlış
Eğer Left(ActiveCell.Value, 1) = ChrW(&H2713) ise
ActiveCell.Value = Sağ(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
başka
ActiveCell.Value = ChrW(&H2713) ve ActiveCell.Value
Eğer son
İptal = Doğru
Eğer son
Application.EnableEvents = True
End Sub

cevap

Elizabeth

yaklaşık 2 yıl önce

#34106

Bu yorum sitedeki moderatör tarafından en aza indirildi

Bu kodu, bir çalışma kitabında birçok çalışma sayfasında olacak şekilde döngüye sokmanın bir yolu var mı?

cevap

Report

kristal Elizabeth

yaklaşık 2 yıl önce

#34107

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba leoflute, tuşuna bastıktan sonra Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere, lütfen çift tıklayın Bu Çalışma Kitabı açmak için Bu Çalışma Kitabı (Kod) penceresini açın ve ardından aşağıdaki kodu kod penceresine kopyalayın. Koddaki sayfa adlarını ve hücre aralığını değiştirmeyi unutmayın. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Aralık Olarak Hedef, Boolean Olarak İptal Et)
'Tarafından güncellendi Extendoffice 20201012
xStrRg, xStrWs, xStrWsName'i String Olarak Karartın
Dim xEEBol, xWSNBol, xBol Boole Olarak
xArrW'leri karart
xArrRg'yi karart
Dim xI, xJ Tamsayı Olarak
Çalışma Sayfası Olarak Dim xWs
Aralık olarak Dim xRg

xStrW'ler = "Sayfa5,Sayfa1,Sayfa2" 'Belirli çalışma sayfası adları
xStrRg = "B3: B10" 'Onay işaretleri ekleyeceğiniz hücre aralığı
xArrWs = Böl(xStrWs, ",")
xArrRg = Böl(xStrRg, ",")

xEEBol = Uygulama.EnableEvents
Application.EnableEvents = Yanlış
On Error Resume Next
xStrWsName = Sh.Name
xBol = Yanlış
xWSNBol = Yanlış
xI = 0 için UBound(xArrWs) için
xStrWsName = xArrWs(xI) ise
xWSNBol = Doğru
Çıkış
Eğer son
Sonraki xI

Eğer xWSNBol ise
xWs = Application.Worksheets.Item(xArrWs(xI)) olarak ayarlayın
xJ = 0 için UBound(xArrRg) için
xRg = Sh.Range(xArrRg(xJ)) olarak ayarlayın
Kesişmiyorsa (Hedef, xRg) O Zaman Hiçbir Şey Değildir
xBol = Doğru
Çıkış
Eğer son
Sonraki xJ
Eğer son

Eğer xBol O zaman
ActiveCell.Value = ChrW(&H2713) ise
ActiveCell.Clearİçerikler
başka
ActiveCell.Value = ChrW(&H2713)
Eğer son
İptal = Doğru
Eğer son
Application.EnableEvents = xEEBol
End Sub

cevap

Report

sherrod

yaklaşık 1 yıl önce

#35215

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba! Onay kutusu eklendiğinde hücrenin rengini değiştirmesini sağlamak için yukarıdaki koda ne eklerdim?

cevap

dan

yaklaşık 1 yıl önce

#36632

Bu yorum sitedeki moderatör tarafından en aza indirildi

merhaba kristal
A1:A10'da B3:B10 ile birlikte onay işaretlerine sahip olmanın bir yolu var mı?

cevap

Michael

yaklaşık 1 yıl önce

#36920

Bu yorum sitedeki moderatör tarafından en aza indirildi

Bunu birden çok sütun için nasıl tekrarlarım?
Örneğin, aşağıdakilere ihtiyacım var:
E, F, I, J, M, N ,Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

cevap

Ulisses Nonato

yaklaşık 6 ay önce

#38841

Bu yorum sitedeki moderatör tarafından en aza indirildi

En büyük olasılıklar, en büyük olasılıktır.

cevap

kristal Ulisses Nonato

yaklaşık 6 ay önce

#38900

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba Ulisses Nonato,
Tek bir fare tıklamasıyla bir hücreye onay işareti eklemek istiyorsanız, aşağıdaki VBA kodu size bir iyilik yapabilir.
tıklamanız gerekiyor sağ fare Kodu etkinleştirmek için düğmesine basın.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

cevap

Report

Sora

yaklaşık 2 ay önce

#41276

Bu yorum sitedeki moderatör tarafından en aza indirildi

Çift tıklamadan sonra bitişik hücreye bir zaman damgası ekleyecek şekilde nasıl yapabilirim?

cevap

kristal Sora

yaklaşık 2 ay önce

#41491

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba Sora,
Aşağıdaki VBA kodu size bir iyilik yapabilir. Lütfen bir deneyin. Teşekkürler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

cevap

Report

Buraya henüz hiç yorum yapılmamış

Lütfen yorum yazın

Misafir olarak yayınlama

Giriş

İsim (Gerekli)

E-posta (Gerekli)

Bu gönderiyi değerlendirin:

Reset

0 Karakterler

Ben kabul ediyorum şartlar ve durum