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

Вход

Регистрация

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

 

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

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

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

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

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Espada, 27.07.2021 в 13:58, в сообщении № 1 ()
какой именно функцией шрифт меняется...
остальное надеюсь получилось[vba]
Код
Cells(1, 1).Font.Name = "Calibri"
[/vba]
Автор - Nic70y
Дата добавления - 27.07.2021 в 14:02
Espada Дата: Вторник, 27.07.2021, 14:40 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Цитата Nic70y, 27.07.2021 в 14:02, в сообщении № 2 ()
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]
 
Ответить
Сообщение
Цитата Nic70y, 27.07.2021 в 14:02, в сообщении № 2 ()
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
Поиск:

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