Как функцией заполнять указываемые диапазоны флажками

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Как функцией заполнять указываемые диапазоны флажками - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как функцией заполнять указываемые диапазоны флажками (Функции/Function)

Как функцией заполнять указываемые диапазоны флажками

Wit

Дата: Понедельник, 27.04.2015, 01:27 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Есть необходимость "заполнить" лист "флажками" (checkbox).
Эти места (ячейки) будут расчитываться.

Нашел решение через процедуру, а как её в функцию загнать, не знаю.
Подскажите пожалуйста!!!

К сообщению приложен файл: checkbox__-.xls (45.0 Kb)

Ответить

krosav4ig

Дата: Понедельник, 27.04.2015, 02:35 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

как-то это неправильно...
[vba]

Код

Function trest(ByVal rget As Range) As Integer
Application.Volatile False
     Dim cell As Range
     For Each cell In rget.Cells
         cell.Font.Name = "Wingdings"
         cell.Font.Size = 12
         cell.Replace cell.Value, IIf(cell.Value = "o", "ю", "o")
     Next
     trest = 1
End Function

[/vba]