Прескочи на основното съдържание

Как да промените определена стойност или цвят на клетка, когато квадратчето за отметка е отметнато в Excel?

Автор: Силувия Последна промяна: 2020-05-28

Тази статия говори за промяна на стойността или цвета на определена клетка чрез квадратче за отметка. Например, когато има отметка в определено квадратче, стойността или цветът на фона на определена клетка ще се променят автоматично. Моля, следвайте методите по-долу стъпка по стъпка, за да се справите с него.

Променете определена стойност на клетка, когато има отметка в квадратчето с формула
Променете определена стойност на клетка, когато квадратчето за отметка е отметнато с VBA код
Променете определен цвят на клетка, когато квадратчето за отметка е отметнато с VBA код


Променете определена стойност на клетка, когато има отметка в квадратчето с формула

Да предположим, че трябва клетка A1 да бъде попълнена със стойност „test“, когато квадратчето 1 е отметнато. И празна клетката, когато премахнете отметката от квадратчето. Моля, направете следното.

Първо трябва да свържете квадратчето за отметка с определена клетка и след това да приложите формула, за да го постигнете.

1. За да свържете квадратчето за отметка с определена клетка, моля, изберете я, след това въведете= препратка към клетка в лентата с формули и натиснете Въведете ключ. Тук свързвам квадратчето за отметка 1 с клетка C2 с въвеждане = C2 в лентата с формули, след като поставите отметка в квадратчето.

За квадратчето за контрол на ActiveX, моля, щракнете с десния бутон върху него и изберете Имоти от менюто с десен бутон. И в Имоти диалогов прозорец, въведете свързаната клетка в Свързана клетка поле и след това затворете диалоговия прозорец. Вижте екранна снимка:

2. Изберете клетката, която трябва да промените стойността й (тук избирам A1), след което въведете формула =АКО(C2;"Тест";"") в лентата с формули и натиснете Въведете ключ. Вижте екранна снимка:

Забележка: Във формулата C2 е свързаната клетка на квадратчето за отметка 1, „Тест“ е стойността, която трябва да покажете в клетка A1, когато квадратчето за отметка е маркирано.

Можете да видите резултатите като екранни снимки по-долу, показани след поставяне или премахване на отметка в съответното квадратче.


Променете определена стойност на клетка, когато квадратчето за отметка е отметнато с VBA код

Можете също така да промените определена стойност на клетка, когато има отметка в квадратчето с VBA код. Моля, направете следното.

1. Щракнете с десния бутон върху раздела Sheet със стойността на клетката, която трябва да промените въз основа на квадратчето за отметка, след което щракнете Преглед на кода от менюто с десен бутон.

2. В Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете кода VBA по-долу в код прозорец.

VBA код: Променете определена стойност на клетка, когато има отметка в квадратчето

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

Забележка: В кода, ChekBox1 е името на Квадратче за отметка (контроли ActiveX). Можете да го промените според нуждите си.

3. Натисни Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic за приложения прозорец.

4. Изберете празна клетка (A1), чиято стойност искате да промените въз основа на квадратчето за отметка, и поставете отметка в квадратчето1 във вашия работен лист. Сега а Kutools за Excel се появява диалогов прозорец, моля, въведете стойността, която искате да бъде попълнена в избраната празна клетка, и след това щракнете върху OK бутон. Вижте екранна снимка:

След това посочената стойност се показва незабавно в избраната клетка. И когато премахнете отметката от квадратчето, клетката ще бъде празна.

Забележка: Този код ще ви напомня да въведете текстовата стойност кръгово, когато поставяте отметка в квадратчето всеки път.


Променете определен цвят на клетка, когато квадратчето за отметка е отметнато с VBA код

Този раздел ще ви покаже как да промените определен цвят на клетка, когато квадратчето за отметка е отметнато с VBA код.

1. Щракнете с десния бутон върху Таб с цвета на клетката, който трябва да промените въз основа на квадратчето за отметка, след което щракнете Преглед на кода от менюто с десен бутон.

2. В Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете кода на VBA по-долу в прозореца на кода.

VBA код: Променете определен цвят на клетка, когато има отметка в квадратчето

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

Забележка: В кода, ChekBox1 е името на Квадратче за отметка (контроли ActiveX). Можете да го промените според нуждите си.

3. Изберете клетка, която трябва да промените цвета на фона й, след което поставете отметка в квадратчето. Можете да видите, че цветът на запълване на избраната клетка е променен на червен. И избраната клетка ще бъде запълнена без фонов цвят, след като премахнете отметката от квадратчето. Вижте екранни снимки:


Свързани статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations