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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение шрифта строки при наличии пустых ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение шрифта строки при наличии пустых ячеек (Макросы/Sub)
Изменение шрифта строки при наличии пустых ячеек
buskopan Дата: Вторник, 12.08.2014, 14:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день

Нужен макрос который будет проверять столбец (скажем диапазон А5:А100) на наличие пустых ячеек и при наличии пустой ячейки менять шрифт данной строки на жирный.

Спасибо
[moder]Гнетут меня смутные сомнения, что у Вас к этому вопросу и файл есть, в котором в четвертой строке шапка, а в других столбцах значения. А может, это просто сводная таблица с итогами. А может, ...
Короче - показывайте.
 
Ответить
СообщениеДобрый день

Нужен макрос который будет проверять столбец (скажем диапазон А5:А100) на наличие пустых ячеек и при наличии пустой ячейки менять шрифт данной строки на жирный.

Спасибо
[moder]Гнетут меня смутные сомнения, что у Вас к этому вопросу и файл есть, в котором в четвертой строке шапка, а в других столбцах значения. А может, это просто сводная таблица с итогами. А может, ...
Короче - показывайте.

Автор - buskopan
Дата добавления - 12.08.2014 в 14:43
buskopan Дата: Среда, 13.08.2014, 21:27 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
забавно у вас тут пользователи предлагают решить проблему взамен на адрес скайпа почты и тп

Нагуглил сам

[vba]
Код

Sub boldrange()
         
     For i = 4 To 100
         If Range("A" & i).Value = "" Then
             Rows(i).EntireRow.Font.Bold = True
         End If
     Next i
          
End Sub
[/vba]
 
Ответить
Сообщениезабавно у вас тут пользователи предлагают решить проблему взамен на адрес скайпа почты и тп

Нагуглил сам

[vba]
Код

Sub boldrange()
         
     For i = 4 To 100
         If Range("A" & i).Value = "" Then
             Rows(i).EntireRow.Font.Bold = True
         End If
     Next i
          
End Sub
[/vba]

Автор - buskopan
Дата добавления - 13.08.2014 в 21:27
Pelena Дата: Среда, 13.08.2014, 21:32 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
забавно у вас тут пользователи предлагают решить проблему взамен на адрес скайпа почты и тп

А поподробнее?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
забавно у вас тут пользователи предлагают решить проблему взамен на адрес скайпа почты и тп

А поподробнее?

Автор - Pelena
Дата добавления - 13.08.2014 в 21:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение шрифта строки при наличии пустых ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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