Note: The other languages of the website are Google-translated. Back to English

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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (11)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
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).
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
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ı?
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

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?
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ı?
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
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.
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
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?
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
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır