Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Замена шрифта в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена шрифта в ячейке (Макросы/Sub)
Замена шрифта в ячейке
Espada Дата: Вторник, 27.07.2021, 13:58 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 20% ±

Доброго дня. может сможете помочь с макросом: проверяем ячейки в столбце А, на количество знаков. если в ячейке 14 символов, то меняем в ней шрифт, на "Calibri", если не 14, то ничего не делаем. не могу понять, какой именно функцией шрифт меняется... Спасибо.
 
Ответить
СообщениеДоброго дня. может сможете помочь с макросом: проверяем ячейки в столбце А, на количество знаков. если в ячейке 14 символов, то меняем в ней шрифт, на "Calibri", если не 14, то ничего не делаем. не могу понять, какой именно функцией шрифт меняется... Спасибо.

Автор - Espada
Дата добавления - 27.07.2021 в 13:58
Nic70y Дата: Вторник, 27.07.2021, 14:02 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
какой именно функцией шрифт меняется...
остальное надеюсь получилось[vba]
Код
Cells(1, 1).Font.Name = "Calibri"
[/vba]


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение
какой именно функцией шрифт меняется...
остальное надеюсь получилось[vba]
Код
Cells(1, 1).Font.Name = "Calibri"
[/vba]

Автор - Nic70y
Дата добавления - 27.07.2021 в 14:02
Espada Дата: Вторник, 27.07.2021, 14:40 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 20% ±

Cells(1, 1).Font.Name = "Calibri"

Да ,всё получилось, спасибо
[vba]
Код

Sub www()
for i=1 to Cells(Rows.Count,1).End(xlUp).Row
if len(cells(i, 1))=14 then cells(i, 1).Font.Name = "Calibri"
next
end sub
[/vba]
 
Ответить
Сообщение
Cells(1, 1).Font.Name = "Calibri"

Да ,всё получилось, спасибо
[vba]
Код

Sub www()
for i=1 to Cells(Rows.Count,1).End(xlUp).Row
if len(cells(i, 1))=14 then cells(i, 1).Font.Name = "Calibri"
next
end sub
[/vba]

Автор - Espada
Дата добавления - 27.07.2021 в 14:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена шрифта в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!