Cum se face ca culoarea de fundal a casetei de selectare să fie transparentă în Excel?
În mod normal, atunci când introduceți casete de selectare (Control ActiveX) în celule în Excel, culoarea de fundal a casetei de selectare va acoperi culoarea de umplere a foii de lucru, după cum se arată mai jos. Pentru a afișa întreaga culoare de fundal a foii de lucru, trebuie să schimbați culoarea de fundal a casetei de selectare pentru a fi transparentă. Și acest articol va oferi o metodă VBA pentru a rezolva această problemă.
Faceți culoarea de fundal a casetei de selectare transparentă cu codul VBA
Faceți culoarea de fundal a casetei de selectare transparentă cu codul VBA
Vă rugăm să faceți următoarele pentru a face culoarea de fundal a casetelor de selectare transparente cu codul VBA.
1. În foaia de lucru conține casetele de selectare de care aveți nevoie pentru a le face transparente, apăsați pe Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA în fereastra Cod.
Cod VBA: faceți culoarea de fundal a casetelor de selectare transparente
Sub CheckBoxTransparent()
Dim xOleChk As OLEObject
Application.ScreenUpdating = False
For Each xOleChk In ActiveSheet.OLEObjects
If TypeName(xOleChk.Object) = "CheckBox" Then
xOleChk.Object.BackStyle = fmBackStyleTransparent
End If
Next
Application.ScreenUpdating = True
End Sub3. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula codul. Apoi, toate casetele de selectare din foaia de lucru curentă devin transparente. Vedeți captura de ecran:
Legate de articole:
- Cum se filtrează datele pe baza casetei de selectare din Excel?
- Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?
- Cum se modifică o valoare sau o culoare specificată a celulei când este bifată caseta de selectare în Excel?
- Cum să evidențiați celula sau rândul cu caseta de selectare în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!
