Casete de selectare Excel: Adăugați, selectați, ștergeți și utilizați casete de selectare în Excel
O casetă de selectare este un instrument interactiv care este folosit pentru a selecta sau deselecta o opțiune, le veți vedea adesea pe formularele web sau când completați sondaje. În Excel, puteți adăuga multiple posibilități bifând sau debifând o casetă de selectare care face foaia mai dinamică și mai interactivă, cum ar fi crearea de liste de verificare prin casete de selectare, inserarea unei diagrame dinamice după casete de selectare etc.
În acest tutorial, voi prezenta cum să inserați, selectați, ștergeți casetele de selectare și voi da câteva exemple de utilizare a acestora în Excel.
Cuprins:
1. Două tipuri de casete de selectare (controlul Check Box Form vs. controlul Check Box ActiveX)
2. Adăugați una sau mai multe casete de selectare în Excel
3. Schimbați numele casetei de selectare și textul subtitrării
4. Conectați una sau mai multe casete de selectare la celule
5. Selectați una sau mai multe casete de selectare
6. Ștergeți una sau mai multe casete de selectare
7. Grupați casetele de selectare în Excel
8. Exemple: Cum să utilizați casetele de selectare în Excel
- Exemplul 1: Creați o listă de activități cu casete de selectare
- Exemplul 2: creați diagramă dinamică cu casete de selectare
- Exemplul 3: Creați o listă derulantă cu casete de selectare
- Exemplul 4: bifați caseta de selectare pentru a schimba culoarea rândului
- Exemplul 5: Numărați sau însumați valorile celulelor dacă caseta de selectare este bifată
- Exemplul 6: Dacă caseta de selectare este bifată, returnați o anumită valoare
Două tipuri de casete de selectare (controlul Check Box Form vs. Check Box ActiveX control)
Pentru a insera o casetă de selectare, trebuie să vă asigurați că fila Dezvoltator apare pe panglică. Fila Dezvoltator nu este activă în mod implicit, așa că trebuie să o activați mai întâi.
1. În registrul de lucru Excel, faceți clic Fișier > Opţiuni. În Opțiuni Excel casetă de dialog, faceți clic pe Particularizarea Panglică, apoi verificați Dezvoltator și faceți clic pe OK pentru a închide acest dialog.
2. Acum Dezvoltator fila apare în panglica Excel, așa cum se arată mai jos. Puteți accesa o varietate de comenzi interactive din fila Dezvoltator după cum aveți nevoie.
Microsoft Excel oferă două tipuri de casete de selectare -Check Box Form control si Check Box ActiveX control:
Check Box Form Control este mult mai simplu decât Caseta de selectare ActiveX Control, Şi Caseta de selectare ActiveX Control este mai flexibil în design și poate fi folosit ca obiecte în coduri. Pentru munca noastră zilnică, controalele formularului sunt suficiente, așa că le vom folosi în majoritatea cazurilor.
Controlul formularului Caseta de selectare vs. Controlul ActiveX Caseta de selectare:
- Controalele ActiveX oferă mai multe opțiuni de formatare, le puteți folosi pentru un design sofisticat și flexibil;
- Controalele de formular sunt încorporate în Excel, în timp ce controalele ActiveX sunt încărcate separat, astfel încât acestea se pot bloca ocazional;
- Unele computere nu au încredere în controalele ActiveX în mod implicit, așa că trebuie să le activați manual din Centrul de încredere;
- Check Box ActiveX control poate fi accesat programatic prin intermediul editorului VBA;
- ActiveX este oferit doar de opțiunea Windows, iar Mac OS nu îl acceptă.
notițe: Toate casetele de selectare despre care vorbesc în următoarele tutoriale sunt Casete de selectare Form Control.
Adăugați una sau mai multe casete de selectare în Excel
Pentru a introduce una sau mai multe casete de selectare, această secțiune vă poate face o favoare.
2.1 Introduceți o casetă de selectare
Pentru a introduce o casetă de selectare, procedați astfel:
1. Clic Dezvoltator fila, apoi faceți clic pe Insera de la Controale grup, apoi selectați Caseta de bifat în Controale de formă. Apoi, faceți clic pe o celulă în care doriți să introduceți caseta de selectare, iar caseta de selectare va apărea lângă acea celulă, vedeți capturile de ecran:
2. Apoi, plasați cursorul peste marginea casetei de selectare pentru caseta de selectare. Când se schimbă în indicatorul de mutare, puteți face clic și trage caseta de selectare în celula de care aveți nevoie, vedeți capturile de ecran:
2.2 Introduceți mai multe casete de selectare
Dacă aveți nevoie de mai multe casete de selectare în foaia de lucru, aici vom vorbi despre câteva modalități rapide pentru dvs.
Introduceți mai multe casete de selectare cu opțiunea Fill Handle
Pentru a insera mai multe casete de selectare rapid, adăugați o casetă de selectare așa cum este descris mai sus, apoi utilizați opțiunea Fill Handle pentru a completa casetele de selectare în alte celule.
1. Faceți clic pentru a selecta celula în care se află caseta de selectare.
2. Trageți mânerul de umplere în jos pentru a completa casetele de selectare, așa cum se arată mai jos:
Introduceți mai multe casete de selectare cu cod VBA
Următorul cod VBA vă poate ajuta, de asemenea, să inserați o listă de casete de selectare rapid și ușor. Vă rugăm să faceți așa:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module fereastră.
Cod VBA: introduceți mai multe casete de selectare într-o listă de celule
Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
.Characters.Text = Rng.Value
End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub
3. Și apoi, apăsați F5 tasta pentru a rula acest cod. Va apărea o casetă de solicitare pentru a vă reaminti să selectați o serie de celule pentru a introduce casetele de selectare. Vedeți captura de ecran:
4. Apoi apasa OK butonul, casetele de selectare sunt inserate în celule imediat, vezi captura de ecran:
Introduceți mai multe casete de selectare cu o funcție la îndemână
Dacă aveţi Kutools pentru Excel, Cu său Căsuțe de selectare pentru inserții în lot caracteristică, puteți introduce casetele de selectare în celule goale sau celule cu date imediat.
După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:
1. Selectați o serie de celule în care doriți să introduceți casete de selectare.
2. Apoi apasa Kutools > Insera > Căsuțe de selectare pentru inserții în lot, vezi captura de ecran:
3. Și apoi, celulele selectate sunt umplute cu casete de selectare, după cum sunt prezentate următoarele capturi de ecran:
Introduceți casete de selectare în celule goale | Introduceți casete de selectare în celulele de date |
Schimbați numele casetei de selectare și textul legendei
Când utilizați caseta de validare în Excel, ar trebui să distingeți numele casetei de selectare și numele subtitrării. Numele subtitrării este textul pe care îl vedeți lângă caseta de selectare, iar numele casetei de selectare este numele pe care îl vedeți în caseta Nume atunci când caseta de selectare este selectată, așa cum se arată mai jos:
Numele casetei de selectare | Nume subtitrare |
Pentru a schimba numele subtitrării, faceți clic dreapta pe caseta de selectare și apoi selectați Editează textul din meniul contextual și introduceți noul nume dorit, vedeți capturile de ecran:
Pentru a schimba numele casetei de selectare, ar trebui să bifați caseta și apoi să introduceți numele de care aveți nevoie în Caseta de nume după cum se arată în imaginea de mai jos:
Conectați una sau mai multe casete de selectare la celule
Când utilizați caseta de selectare, adesea trebuie să legați casetele de selectare la celule. Dacă caseta este bifată, celula arată TRUE, iar dacă nu este bifată, celula arată FALSE sau goală. Această secțiune va prezenta cum să conectați una sau mai multe casete de selectare la celule în Excel.
4.1 Conectați o casetă de selectare la o celulă cu funcția Control format
Pentru a asocia caseta de selectare cu o anumită celulă, procedați astfel:
1. Faceți clic dreapta pe caseta de selectare, apoi selectați Controlul formatului din meniul contextual, vezi captura de ecran:
2. În Obiect format caseta de dialog, sub Mod de control fila, faceți clic pentru a selecta o celulă la care doriți să faceți legătura cu caseta de selectare din Legătură celulară casetă sau tastați manual referința celulei, vedeți captura de ecran:
3. Clic OK pentru a închide caseta de dialog, iar acum, caseta de selectare este legată de o anumită celulă. Dacă îl bifați, se afișează un TRUE, debifați-l, apare un FALSE așa cum se arată mai jos:
4.2 Conectați mai multe casete de selectare la celule cu cod VBA
Pentru a lega mai multe casete de selectare la celule utilizând funcția Control format, trebuie să repetați pașii de mai sus din nou și din nou. Acest lucru va consuma mult timp dacă sunt sute sau mii de casete de selectare care trebuie conectate. Aici, voi introduce un cod VBA pentru a lega mai multe casete de selectare la celule simultan.
1. Accesați foaia de lucru care conține casetele de selectare.
2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
3. Apoi apasa Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: leagă mai multe casete de selectare la celule simultan
Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
Cells(i, xCChar).Value = True
Else
Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub
notițe: În acest cod, i = 2, numarul 2 este rândul de început al casetei de selectare și xCChar = „C”, scrisoarea C este coloana la care doriți să conectați casetele de selectare. Le puteți schimba în funcție de nevoile dvs.
4. Și apoi, apăsați F5 pentru a rula acest cod, toate casetele de selectare din foaia de lucru activă sunt conectate simultan la celulele specificate. Când bifați o casetă de selectare, celula ei relativă va afișa TRUE, debifând caseta de selectare, celula legată va afișa FALSE, vezi captura de ecran:
Selectați una sau mai multe casete de selectare
Pentru a copia sau șterge casetele de selectare dintr-o foaie de lucru, trebuie să le bifați mai întâi. Pentru a selecta una sau mai multe casete de selectare, procedați astfel:
Selectați o singură casetă de selectare: (două moduri)
- Faceți clic dreapta pe caseta de selectare, apoi faceți clic oriunde în ea.
- OR
- Apăsaţi Ctrl tasta, apoi faceți clic pe caseta de selectare.
Selectați mai multe casete de selectare:
Apăsați și mențineți apăsată tasta Ctrl tasta, apoi faceți clic pe casetele pe care doriți să le selectați una câte una.
Ștergeți una sau mai multe casete de selectare
Ștergerea unei casete de selectare este ușoară pentru noi, trebuie doar să o selectați și apoi să apăsați tasta Ștergere de pe tastatură. Când vine vorba de mai multe casete de selectare, cum ați putea face acest lucru în Excel?
6.1 Ștergeți mai multe casete de selectare cu cod VBA
Pentru a șterge toate casetele de selectare dintr-o foaie, puteți aplica următorul cod VBA.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Apoi apasa Insereazăt> Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: ștergeți toate casetele de selectare din foaia de lucru curentă
Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub
3. Apoi, apăsați F5 tasta pentru a executa codul. Toate casetele de selectare din foaia de lucru specifică vor fi șterse imediat.
6.2 Ștergeți mai multe casete de selectare cu o funcție simplă
cu Kutools pentru Excel" Casete de selectare Ștergere lot funcția, puteți șterge casetele de selectare dintr-o gamă de selecție sau toate foile după cum aveți nevoie, cu doar câteva clicuri.
După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:
1. Selectați intervalul de celule sau întreaga foaie care conține casetele de selectare pe care doriți să le eliminați.
2. Apoi apasa Kutools > Șterge > Casete de selectare Ștergere lot, vezi captura de ecran:
3. Și apoi, toate casetele de selectare sunt eliminate simultan din selecție.
Grupați casetele de selectare în Excel
Când doriți să mutați sau să redimensionați mai multe casete de selectare împreună, gruparea casetelor de selectare poate ajuta să controlați toate casetele de selectare simultan. Această secțiune va vorbi despre cum să grupați mai multe casete de selectare într-o foaie de lucru Excel.
7.1 Grupați casetele de selectare utilizând caracteristica Grupare
În Excel, fișierul grup caracteristica poate ajuta la gruparea mai multor casete de selectare, procedați astfel:
1. Tine Ctrl tasta, apoi faceți clic pentru a selecta casetele de selectare una câte una pe care doriți să le grupați, vedeți captura de ecran:
2. Apoi, faceți clic dreapta și alegeți grup > grup din meniul contextual, vezi captura de ecran:
3. Și toate casetele de selectare selectate sunt grupate, le puteți muta, copia împreună simultan.
7.2 Grupați casetele de selectare folosind Comanda Caseta de grup
În plus, puteți utiliza și Cutie de grup pentru a grupa mai multe casete de selectare. Vă rugăm să urmați următorii pași:
1. Mergeți la Dezvoltator , apoi faceți clic pe Insera > Casetă de grup (control formular), vezi captura de ecran:
2. Apoi, trageți mouse-ul pentru a desena o casetă de grup și schimbați numele legendei casetei de grup după cum doriți:
3. Acum, puteți introduce casete de selectare în caseta de grup, faceți clic Dezvoltator > Insera > Caseta de selectare (Control formular), vezi captura de ecran:
4. Apoi trageți mouse-ul pentru a desena o casetă de selectare și modificați numele subtitrării după cum aveți nevoie, vedeți capturile de ecran
5. În mod similar, inserați alte casete de selectare în caseta de grup și veți obține rezultatul ca imaginea de mai jos:
Exemple: Cum să utilizați casetele de selectare în Excel
Din informațiile de mai sus, cunoaștem câteva cunoștințe de bază despre casetele de selectare. În această secțiune, voi prezenta cum să utilizați casetele de selectare pentru unele operații interactive și dinamice în Excel.
Exemplul 1: Creați o listă de activități cu casete de selectare
Lista de sarcini ne este utilă pentru a marca sarcinile care au fost finalizate în munca noastră zilnică. Într-o listă tipică de sarcini de făcut, sarcinile finalizate verificate au formatul barat, ca în captura de ecran de mai jos. Cu ajutorul casetelor de selectare, puteți crea rapid o listă interactivă de activități.
Pentru a crea o listă de activități cu casete de selectare, parcurgeți următorii pași:
1. Introduceți casetele de selectare în lista de celule în care doriți să le utilizați, vedeți captura de ecran: (Faceți clic pentru a afla cum să inserați mai multe casete de selectare)
2. După introducerea casetelor de selectare, ar trebui să legați fiecare casetă de selectare la o celulă separată.
3. După conectarea casetelor de selectare la celule, dacă caseta de selectare este bifată, este afișat un TRUE, dacă nu este bifat, este afișat un FALSE, vezi captura de ecran:
4. Apoi, ar trebui să aplicați Formatarea condițională caracteristică pentru a realiza următoarele operații. Selectați intervalul de celule A2:C8 pe care doriți să creați o listă de activități, apoi faceți clic Acasă > Formatarea condițională > Noua regulă a merge la Noua regulă de formatare căsuță de dialog.
5. În Noua regulă de formatare dialog, faceți clic pe Utilizați o formulă pentru a determina ce celule să formatați în Selectați un tip de regulă , apoi introduceți această formulă = C2 = ADEVĂRAT în Formatează valorile în care această formulă este adevărată casetă text, vezi captura de ecran:
notițe: C2 este o celulă legată de caseta de selectare..
6. Apoi, continuați să faceți clic pe Format buton pentru a merge la Celule de format căsuță de dialog. Sub Font fila, verificați Tăiat de la Efecte secțiunea și specificați o culoare pentru elementul din lista de activități finalizate după cum doriți, vedeți captura de ecran:
7. Apoi apasa OK > OK pentru a închide casetele de dialog, acum, când bifați caseta de selectare, elementul corespunzător va fi formatat ca barat, așa cum se arată mai jos:
Exemplul 2: creați diagramă dinamică cu casete de selectare
Uneori, poate fi necesar să afișați o mulțime de date și informații într-o singură diagramă, iar graficul va fi în mizerie. În acest caz, puteți utiliza casetele de selectare pentru a crea o diagramă dinamică în foaia dvs. Când bifați o casetă de selectare, linia de date corespunzătoare va fi afișată, dacă debifați, linia de date va fi ascunsă după cum se arată mai jos:
Această secțiune va vorbi despre două trucuri rapide pentru crearea acestui tip de diagramă în Excel.
Creați diagramă interactivă cu casete de selectare în Excel
În mod normal, în Excel, puteți crea o diagramă dinamică utilizând casete de selectare cu următorii pași:
1. Introduceți câteva casete de selectare și redenumiți-le. În acest caz, voi introduce trei casete de selectare și le voi redenumi ca Apple, Orange și Peach, vezi captura de ecran:
2. Apoi, ar trebui să legați aceste casete de selectare la celule, faceți clic pentru a selecta prima casetă de selectare, apoi faceți clic dreapta, apoi alegeți Controlul formatului, În Obiect format caseta de dialog, sub Mod de control filă, din Legătură celulară casetă, selectați o celulă la care să faceți legătura cu caseta de selectare, vedeți captura de ecran:
3. Repetați pasul de mai sus pentru a lega celelalte două casete de selectare la alte celule. Acum, dacă bifați caseta de selectare, va fi afișat un TRUE, în caz contrar, un FALSE va fi afișat așa cum se arată mai jos:
4. După ce ați introdus și conectat casetele de selectare, acum ar trebui să pregătiți datele. Copiați titlurile de rând și de coloană de date originale într-un alt loc, vedeți captura de ecran:
5. Apoi aplicați formulele de mai jos:
- În celulă B13: = IF ($ B $ 6, B2, NA ()), și trageți mânerul de umplere pentru a umple rândul de la B13 la G13;
- În celulă B14: = IF ($ B $ 7, B3, NA ()),și trageți mânerul de umplere pentru a umple rândul de la B14 la G14;
- În celulă B15: = IF ($ B $ 8, B4, NA ())și trageți mânerul de umplere pentru a umple rândul de la B15 la G15.
- Aceste formule returnează valorile din datele originale dacă caseta de selectare pentru acel produs este bifată și #N/A dacă este debifată. Vedeți captura de ecran:
6. Apoi, selectați noul interval de date de la A12 la G15 și apoi faceți clic Insera > Introduceți diagrama liniei sau a zonei > Linie pentru a insera o diagramă cu linii.
7. Acum, când bifați caseta de selectare a produsului, va apărea linia de date a acesteia, iar când debifați, va dispărea așa cum se arată mai jos:
8. După ce ați creat diagrama, puteți plasa casetele de selectare pe diagramă pentru a le face să arate bine. Faceți clic pentru a selecta zona de parcelare, apoi trageți pentru a o micșora, vedeți captura de ecran:
9. Și apoi, apăsați Ctrl pentru a selecta cele trei casete de selectare, trageți-le pe diagramă, apoi faceți clic dreapta pentru a alege Aduceți în față > Aduceți în față, vezi captura de ecran:
10. Și casetele de selectare sunt afișate pe diagramă, apăsați în continuare Ctrl tasta pentru a selecta casetele de selectare și a grafic unul câte unul, faceți clic dreapta pentru a selecta grup > grup, vezi captura de ecran:
11. Acum, casetele de selectare sunt legate de diagrama cu linii. Când mutați diagrama, casetele de selectare se vor muta și ele în consecință.
Creați diagramă interactivă cu casete de selectare cu o funcție simplă
Metoda de mai sus poate fi oarecum dificilă pentru dvs., aici voi introduce o modalitate ușoară de rezolvare a acestei sarcini. Cu Kutools pentru Excel'S Bifați graficul liniei casetei caracteristică, puteți crea cu ușurință o diagramă dinamică cu casete de selectare.
După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:
1. Selectați intervalul de date pe care doriți să creați diagrama, apoi faceți clic Kutools > Grafice > Compararea categoriilor > Bifați graficul liniei casetei, vezi captura de ecran:
2. Și apoi, a Bifați graficul liniei casetei caseta de dialog este afișată, datele pe care le-ați selectat sunt completate automat în casetele lor de text separate, vedeți captura de ecran:
3. Apoi apasa OK și apare o casetă de prompt pentru a vă aminti că va fi creată o foaie ascunsă cu câteva date intermediare, vă rugăm să faceți clic Da buton, vezi captura de ecran:
4. Și o diagramă cu linii cu casete de selectare va fi creată cu succes, vezi captura de ecran:
Exemplul 3: Creați o listă derulantă cu casete de selectare
Selectarea mai multor elemente dintr-o listă derulantă poate fi o sarcină comună pentru majoritatea dintre noi. Unii utilizatori încearcă să creeze o listă derulantă cu casete de selectare pentru a alege selecția multiplă, așa cum se arată mai jos. Din păcate, nu este posibil să se creeze astfel de liste derulante cu casete de selectare în Excel. Dar, aici, voi introduce două tipuri de selecție de casete de selectare multiple în Excel. Una este o casetă de listă cu casete de selectare, iar alta este o listă derulantă cu casete de selectare.
Creați o listă derulantă cu casete de selectare folosind caseta de listă
În loc de o listă derulantă, puteți utiliza o casetă listă pentru a adăuga casete de selectare pentru selecție multiplă. Procesul este puțin complicat, vă rugăm să urmați pașii de mai jos pas cu pas:
1. Mai întâi, introduceți o casetă Listă, faceți clic Dezvoltator > Insera > Casetă listă (control ActiveX). Vedeți captura de ecran:
2. Trageți mouse-ul pentru a desena o casetă de listă, apoi faceți clic dreapta pe ea, alegeți Proprietăţi din meniul contextual, vezi captura de ecran:
3. În Proprietăţi panoul, vă rugăm să setați operațiunile după cum urmează:
- În ListFillRange caseta, introduceți intervalul de date pe care doriți să îl afișați în caseta de listă;
- În ListStyle selectați 1 - fmList StyleOption din meniul derulant;
- În Selectare multipla selectați 1 - fmMultiSelectMulti din meniul derulant;
- În cele din urmă, faceți clic pe butonul de închidere pentru a-l închide.
4. Apoi, faceți clic pe o celulă în care doriți să scoateți mai multe elemente selectate și dați-i un nume de interval. Vă rugăm să introduceți un nume de interval „Element de ieșire" în Caseta de nume și apăsați Intrați tasta, vezi captura de ecran:
5. Apoi, faceți clic Insera > Forme > Dreptunghi, trageți mouse-ul pentru a desena un dreptunghi deasupra casetei de listă, vedeți captura de ecran:
6. Apoi faceți clic dreapta pe dreptunghi și selectați Atribuiți macro din meniul contextual. Vedeți captura de ecran:
7. În Atribuiți macro dialog, faceți clic pe Nou buton, vezi captura de ecran:
8. În deschidere Microsoft Visual Basic pentru aplicații fereastră, înlocuiți codul original din fereastra Modul cu codul VBA de mai jos:
Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
xStr = ""
xStr = Range("Outputitem").Value
If xStr <> "" Then
xArr = Split(xStr, ";")
For I = xLstBox.ListCount - 1 To 0 Step -1
xV = xLstBox.List(I)
For J = 0 To UBound(xArr)
If xArr(J) = xV Then
xLstBox.Selected(I) = True
Exit For
End If
Next
Next I
End If
Else
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
For I = xLstBox.ListCount - 1 To 0 Step -1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Next I
If xSelLst <> "" Then
Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Else
Range("Outputitem") = ""
End If
End If
End Sub
notițe: În codul de mai sus, Dreptunghi1 este numele formei, ListBox1 este numele casetei de listă și Element de ieșire este numele intervalului celulei de ieșire. Le puteți schimba în funcție de nevoile dvs.
9. Apoi, închideți fereastra de cod. Acum, făcând clic pe butonul dreptunghi, veți ascunde sau afișa caseta cu listă. Când este afișată caseta de listă, selectați elementele din caseta de listă și faceți clic din nou pe butonul dreptunghi pentru a scoate elementele selectate în celula specificată, vedeți demonstrația de mai jos:
Creați o listă derulantă cu casete de selectare cu o caracteristică uimitoare
Pentru a adăuga casetele de selectare în lista derulantă reală, puteți folosi un instrument puternic - Kutools pentru Excel, Cu său Listă derulantă cu casete de selectare funcția, puteți crea rapid și ușor liste derulante cu mai multe casete de selectare.
După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:
1. Mai întâi, introduceți lista derulantă normală în celulele selectate, vedeți captura de ecran:
2. Apoi apasa Kutools > Lista verticală > Listă derulantă cu casete de selectare > Setări cont. Vedeți captura de ecran:
3. În Listă derulantă cu setări de casete de selectare casetă de dialog, vă rugăm să configurați după cum urmează.
- În Aplica pentru secțiunea, specificați domeniul de aplicare în care veți crea casete de selectare pentru celulele listei derulante. Puteți specifica un anumit interval, o foaie de lucru curentă, un registru de lucru curent sau toate registrele de lucru deschise în funcție de nevoile dvs.;
- În mod secțiune, pentru a alege Modifica opțiune;
- În Separator caseta, tastați un delimitator pentru a separa elementele selectate;
- În Text Direcția secțiunea, selectați direcția textului în funcție de nevoile dvs.;
- În cele din urmă, faceți clic pe OK butonul.
4. După terminarea setărilor, faceți clic pe Kutools > Lista verticală > Listă derulantă cu casete de selectare > Activați lista drop-down a casetelor de selectare pentru a activa această caracteristică. Vedeți captura de ecran:
5. De acum înainte, când faceți clic pe o celulă cu o listă derulantă, va apărea o listă cu casete de selectare, apoi selectați elementele bifând casetele de selectare pentru a le scoate în celulă, așa cum se arată în demonstrația de mai jos:
Faceți clic pentru a afla informații mai detaliate despre această caracteristică...
Exemplul 4: bifați caseta de selectare pentru a schimba culoarea rândului
Ați încercat vreodată să schimbați culoarea rândului pe baza casetei de selectare bifate? Ceea ce înseamnă că culoarea rândului aferent va fi schimbată dacă bifați o casetă de selectare așa cum se arată mai jos, această secțiune va vorbi despre câteva trucuri pentru rezolvarea acestei sarcini în Excel.
Bifați caseta pentru a schimba culoarea celulei utilizând Formatarea condiționată
Pentru a schimba culoarea rândului bifând sau debifând caseta de selectare, Formatarea condițională funcția din Excel vă poate face o favoare. Vă rugăm să faceți așa:
1. Mai întâi, introduceți casetele de selectare în lista de celule după cum aveți nevoie, vedeți captura de ecran:
2. Apoi, ar trebui să legați aceste casete de selectare la celulele de lângă fiecare casetă de selectare separat, vedeți captura de ecran:
3. Apoi, selectați intervalul de date pe care doriți să îl schimbați culoarea rândului, apoi faceți clic Acasă > Formatarea condițională > Noua regulă, vezi captura de ecran:
4. În Noua regulă de formatare caseta de dialog, efectuați operațiunile de mai jos:
- selectaţi Utilizați o formulă pentru a determina ce celule să formatați opțiune în Selectați un tip de regulă cutie;
- Introduceți această formulă =DACĂ($F2=ADEVĂRAT, ADEVĂRAT, FALS) în Formatează valorile în care această formulă este adevărată cutie;
- Apasă pe Format butonul pentru a specifica o culoare care vă place pentru rânduri.
notițe: În formulă, 2 USD este prima celulă conectată a casetei de selectare..
5. După ce ați ales culoarea, faceți clic OK > OK pentru a închide casetele de dialog, iar acum, când bifați o casetă de selectare, rândul corespunzător va fi evidențiat automat, după cum se arată mai jos:
Bifați caseta de selectare pentru a schimba culoarea rândului utilizând codul VBA
Următorul cod VBA vă poate ajuta, de asemenea, să schimbați culoarea rândului pe baza casetei de selectare bifate, vă rugăm să utilizați codul de mai jos:
1. În foaia de lucru pe care doriți să evidențiați rândurile prin casete de selectare, faceți clic dreapta pe fila foii și selectați Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:
2. Copiați și inserați codul de mai jos în spațiul deschis Microsoft Visual Basic pentru aplicații fereastră:
Cod VBA: evidențiați rândurile bifând caseta de selectare
Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
GoTo InputC
Else
If xRng.Columns.Count = 1 Then
For Each xCell In xRng
With ActiveSheet.CheckBoxes.Add(xCell.Left, _
xCell.Top, xCell.Width = 15, xCell.Height = 12)
.LinkedCell = xCell.Offset(, 1).Address(External:=False)
.Interior.ColorIndex = xlNone
.Caption = ""
.Name = "Check Box " & xCell.Row
End With
xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
Next
End If
With xRng
.Rows.RowHeight = 16
End With
xRng.ColumnWidth = 5#
xRng.Cells(1, 1).Offset(0, 1).Select
For Each xChk In ActiveSheet.CheckBoxes
xChk.OnAction = "Sheet2.InsertBgColor"
Next
End If
End Sub
Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
xName = Right(xChk.Name, Len(xChk.Name) - 10)
If (xName = Range(xChk.LinkedCell).Row) Then
If (Range(xChk.LinkedCell) = "True") Then
Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
Else
Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
End If
End If
Next
End Sub
Notă: În codul de mai sus, în acest script xChk.OnAction = "Sheet2.InsertBgColor", ar trebui să schimbi numele foii -Sheet2 pentru a ta (Sheet2 este numele real al foii de lucru, o puteți obține din panoul din stânga ferestrei de cod). Vedeți captura de ecran:
3. Apoi, plasați cursorul în prima parte a codului și apăsați F5 tasta pentru a rula codul. În pop-up Kutools pentru Excel caseta de dialog, vă rugăm să selectați intervalul în care doriți să introduceți casetele de selectare, vedeți captura de ecran:
4. Apoi apasa OK butonul, casetele de selectare sunt inserate în celulele selectate, așa cum se arată mai jos:
5. De acum înainte, dacă bifați o casetă de selectare, rândul relativ va fi colorat automat, așa cum se arată mai jos:
Exemplul 5: Numărați sau însumați valorile celulelor dacă caseta de selectare este bifată
Dacă aveți o serie de date cu o listă de casete de selectare, acum, doriți să numărați numărul de casete de selectare bifate sau să însumați valorile corespunzătoare pe baza casetelor de selectare, așa cum se arată mai jos. Cum ai putea rezolva această sarcină în Excel?
Pentru a rezolva această sarcină, pasul important este să legați casetele de selectare la celulele relative de lângă date. Caseta de selectare bifată va afișa TRUE în celula legată, în caz contrar, va fi afișat un FALSE și apoi puteți utiliza funcția de numărare sau sumă pentru a obține rezultatul pe baza valorii TRUE sau FALSE.
1. În primul rând, ar trebui să legați casetele de selectare la celule separat, dacă caseta de selectare este bifată, este afișat un TRUE, dacă nu este bifat, este afișat un FALSE, vezi captura de ecran:
2. Apoi, aplicați următoarele formule pentru a număra sau însumați valorile pe baza casetelor de selectare bifate:
Numărați valorile prin casetele de selectare bifate:
= COUNTIF (D2: D10, ADEVĂRAT)
notițe: În această formulă, D2: D10 este intervalul celulelor link pe care le-ați setat pentru casetele de selectare.
Însumați valorile prin casetele de selectare bifate:
= SUMPRODUCT (($ D $ 2: $ D $ 10 = ADEVĂRAT) * $ C $ 2: $ C $ 10)
notițe: În această formulă, D2: D10 este intervalul de celule de legătură pe care le-ați setat pentru casetele de selectare și C2: C10 este lista de celule pe care doriți să le însumați.
Exemplul 6: Dacă caseta de selectare este bifată, returnați o anumită valoare
Dacă aveți o casetă de selectare, atunci când o bifați, o anumită valoare ar trebui să apară într-o celulă, iar când o debifați, se afișează o celulă goală, așa cum se arată mai jos:
Pentru a finaliza această lucrare, procedați astfel:
1. În primul rând, ar trebui să legați această casetă de selectare la o celulă. Faceți clic dreapta pe caseta de selectare și alegeți Controlul formatului, în pop-out Obiect format caseta de dialog, sub Mod de control fila, faceți clic pentru a selecta o celulă la care doriți să conectați cu caseta de selectare din Legătură celulară casetă, vezi captura de ecran:
2. Apoi apasa OK butonul pentru a închide caseta de dialog. Acum, tastați această formulă: =IF(A5=TRUE,"Extendedoffice","") într-o celulă în care doriți să scoateți rezultatul, apoi apăsați Intrați cheie.
notițe: În această formulă, A5 este celula care s-a conectat la caseta de selectare, „Extendedoffice” este textul specific, le puteți modifica după nevoia dvs.
3. Acum, când bifați caseta de selectare, se va afișa textul specific, când debifați-l, va apărea o celulă goală, vedeți demonstrația de mai jos:
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- 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 și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... 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 ...
- Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- 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...
- Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
- 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!