В этой статье вы узнаете, как найти выделенную ячейку с помощью VBA. Мы будем использовать код VBA для создания функции UDF, чтобы найти выделенные жирным шрифтом ячейки.

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

Нажмите «Вставить», а затем «Модуль»

img2

Это создаст новый модуль.

Введите следующий код в модуль

Функция FindBold (BoldRange As Range)

FindBold = BoldRange.Font.Bold

Конечная функция

img3

Новая формула UDF создается с именем FindBold. Единственный параметр — указать ссылку на ячейку, и функция вернет TRUE (если шрифт полужирный) или FALSE (если шрифт не полужирный). См. Ниже снимок экрана Cell B2 = FindBold (A1)

img4

Таким образом, мы можем использовать этот фрагмент кода в больших проектах при автоматизации.