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

Cum se adaugă bifă într-o celulă cu dublu clic în Excel?

În mod normal, pentru a insera o bifă într-o celulă, trebuie să intrați în caseta de dialog Simbol, să găsiți simbolul bifării și să îl inserați manual. Dar nu este atât de ușor să aflați simbolul bifării în caseta de dialog Simbol, deoarece există numeroase simboluri listate în interior. Cum se adaugă rapid o bifă într-o celulă din Excel? Acest articol vă va arăta o metodă VBA pentru a adăuga cu ușurință bifă într-o celulă numai cu dublu clic.

Faceți dublu clic pentru a adăuga bifă într-o celulă cu cod VBA


Faceți dublu clic pentru a adăuga bifă într-o celulă cu cod VBA

Următorul cod VBA vă poate ajuta să adăugați bifă într-o celulă cu dublu clic. Vă rugăm să faceți următoarele.

1. Deschideți foaia de lucru pe care trebuie să o adăugați în celulă, apoi faceți clic dreapta și selectați Afișați codul din meniul cu clic dreapta.

2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în Cod fereastră.

Cod VBA: faceți dublu clic pentru a adăuga bifă într-o celulă

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

notițe: În cod, B1: B10 este intervalul pe care îl veți adăuga bifând cu dublu clic. Vă rugăm să îl modificați în funcție de nevoile dvs.

3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră și reveniți la foaia de lucru.

Acum, faceți dublu clic pe orice celulă din intervalul B1: B10, bifa va fi introdusă automat. Și făcând dublu clic pe celulă din nou, bifa introdusă va fi eliminată.

Dacă trebuie să utilizați frecvent bifele în activitatea dvs. zilnică Excel, vă recomand aici Text automat Utilitatea Kutools pentru Excel. Cu această caracteristică, puteți salva o bifă ca intrare automată de text, apoi o puteți resua în viitor cu un singur clic în Excel, așa cum este prezentat în demonstrația de mai jos.
Descărcați și încercați acum! (30- traseu liber de o zi)


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (12)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
como eu faço pra inserir a marca de seleção na célula, porém sem deletar o number que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente ea célula voltaria ao normal (continuaria apenas o número).
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ola Luiz, tente essa alteracao. Ira funcționa nas celulas A2:A10 e D2:D5, altere conform sua necessidade.

tadao


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dacă nu se intersectează(țintă, unire(Range("A2:A10"), Range("D2:D5"))) nu este nimic, atunci
Application.EnableEvents = Fals
Dacă Left(ActiveCell.Value, 1) = ChrW(&H2713) atunci
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlDreapta
Altfel
ActiveCell.Value = ChrW(&H2713) și ActiveCell.Value
Final, dacă
Anulare = Adevărat
Final, dacă
Application.EnableEvents = Adevărat
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a bucla acest cod, astfel încât să fie pe o mulțime de foi de lucru într-un singur registru de lucru?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut leoflute,După ce ai apăsat pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastra, vă rugăm să faceți dublu clic Acest manual de lucru pentru a deschide ThisWorkbook (Cod) fereastra, apoi copiați codul de mai jos în fereastra de cod. Nu uitați să schimbați numele foilor și intervalul de celule din cod. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh ca obiect, ByVal țintă ca interval, Anulare ca boolean)
„Actualizat de Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName ca șir
Dim xEEBol, xWSNBol, xBol ca boolean
Dim xArrWs
Dim xArrRg
Dim xI, xJ Ca întreg
Dim xWs ca fișă de lucru
Dim xRg As Range

xStrWs = "Sheet5, Sheet1, Sheet2„ „Numele specifice ale foii de lucru
xStrRg = "B3: B10„ „Intervalul de celule pe care îl veți introduce bifa
xArrWs = Split(xStrWs, ",")
xArrRg = Split(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = Fals
La data de eroare CV următoare
xStrWsName = Sh.Name
xBol = Fals
xWSNBol = Fals
Pentru xI = 0 La UBound(xArrWs)
Dacă xStrWsName = xArrWs(xI) Atunci
xWSNBol = Adevărat
Ieșiți pentru
Final, dacă
Următorul xI

Dacă xWSNBol Atunci
Set xWs = Application.Worksheets.Item(xArrWs(xI))
Pentru xJ = 0 La UBound(xArrRg)
Set xRg = Sh.Range(xArrRg(xJ))
Dacă nu se intersectează (țintă, xRg) nu este nimic, atunci
xBol = Adevărat
Ieșiți pentru
Final, dacă
Următorul xJ
Final, dacă

Dacă xBol Atunci
Dacă ActiveCell.Value = ChrW(&H2713) Atunci
ActiveCell.ClearContents
Altfel
ActiveCell.Value = ChrW(&H2713)
Final, dacă
Anulare = Adevărat
Final, dacă
Application.EnableEvents = xEEBol
End Sub

Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună! Ce aș adăuga la codul de mai sus pentru ca celula să își schimbe culoarea atunci când este adăugată caseta de validare?
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut cristal
Există vreo modalitate de a avea bifa în A1:A10 împreună cu B3:B10?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum repet acest lucru pentru mai multe coloane? 
De exemplu, am nevoie de el în următoarele:
E, F, I, J, M, N ,Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Acest comentariu a fost redus la minimum de moderatorul de pe site
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de doi.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Ulisses Nonato,
Dacă doriți să adăugați o bifă la o celulă cu un singur clic de mouse, următorul cod VBA vă poate face o favoare.
Trebuie să faceți clic pe mouse-ul drept butonul pentru a activa codul.
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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum fac astfel încât să adauge un marcaj de timp pe celula adiacentă după dublu clic?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Sora,
Următorul cod VBA vă poate face o favoare. Vă rugăm să încercați. Mulțumesc.
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
Acest comentariu a fost redus la minimum de moderatorul de pe site
bonjour,

Une fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une certaine colonne, est ce possible ?

Merci à vous, bonne soirée
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL