Hogyan lehet megváltoztatni a szövegdoboz színét az Excel értéke alapján?
Az Excelben alkalmazhatjuk a Feltételes formázás funkciót a háttér színének megváltoztatására a cella értéke alapján, de ebben a cikkben arról fogok beszélni, hogyan lehet a szövegdoboz színét megváltoztatni a cella értéke vagy a szövegdoboz értéke alapján.
Változtassa meg a szövegdoboz színét a cella értéke alapján, VBA kóddal
Változtassa meg a szövegdoboz színét a VBA kóddal ellátott szövegdoboz értéke alapján
Változtassa meg a szövegdoboz színét a cella értéke alapján, VBA kóddal
Tegyük fel, hogy ha az A1 cellájának értéke nagyobb, mint a B1 cellájának értéke, akkor azt akarom, hogy a szövegdoboz piros színű legyen, éppen ellenkezőleg, a szövegmezőt sárga színnel kell kitölteni. Kérjük, a következő lépésekkel hajtsa végre ezt a munkát:
1. Helyezzen be egy szövegdobozt a kattintással Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő), majd rajzoljon egy szövegdobozt, lásd a képernyőképet:
2. Ezután kattintson a jobb gombbal a szövegmezőre, és válassza a lehetőséget Kód megtekintése a helyi menüből a Microsoft Visual Basic for Applications ablakban, majd cserélje ki az eredeti kódot a következő VBA kóddal az üres modulba:
VBA-kód: A szövegdoboz színének módosítása a cellaértékek alapján:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Megjegyzések: A fenti kódban 1. szövegdoboz a beillesztett szövegmező neve, A1 és a B1 az a két cella, amelyek alapján a szövegdoboz színét meg akarja változtatni, kérjük, változtassa meg az igényeinek megfelelően.
3. Ezután mentse el és zárja be a kódablakot, és lépjen ki a Tervezési mód, most, ha az A1 cella nagyobb, mint B1, amikor szöveget ír be a szövegmezőbe, piros színű lesz, és ha A1 kisebb, mint B1, ha értéket ír be a szövegmezőbe, sárga színű lesz, lásd a képernyőképet:
Változtassa meg a szövegdoboz színét a VBA kóddal ellátott szövegdoboz értéke alapján
Ha a szövegdoboz színét a szövegdoboz értéke alapján szeretné megváltoztatni, például amikor a szövegdoboz értéke 1 és 10 között van, akkor a szövegdoboz kitöltött színe piros, a szövegmező színe zöld, ha az értéke 11 és 20 között van, ha egyéb értékek esetén a szövegmező színe sárga. A feladat megoldásához kérjük, alkalmazza az alábbi VBA kódot.
1. A szövegmező beszúrása után kattintson rá a jobb gombbal, és válassza a lehetőséget Kód megtekintése a helyi menüből a Microsoft Visual Basic for Applications ablakban, majd cserélje ki az eredeti kódot a következő VBA kóddal az üres modulba:
VBA-kód: A szövegdoboz színének módosítása a szövegdoboz értéke alapján:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Megjegyzések: A fenti kódban 1. szövegdoboz a beillesztett szövegmező neve, és a kódon belüli értékeket és háttérszínt sajátra módosíthatja.
2. Ezután mentse el és zárja be a kódablakot, és lépjen ki a Tervezési mód, most, ha 1 és 10 közötti értéket ír be a szövegmezőbe, a háttér színe pirosra vált, az értéke 11 és 20 között, a szövegdoboz háttérszíne zöldre változik, más értékek pedig sárgára váltanak, ahogy az alábbi képen látható:
Kapcsolódó cikkek:
Hogyan lehet képet beilleszteni a szövegmezőbe?
Hogyan állítsunk be alapértelmezett értéket a szövegmezőben?
Hogyan lehet csak számokat bevinni a szövegmezőbe?
Hogyan kell alkalmazni a helyesírás-ellenőrzést a szövegmezőben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
