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

Вход

Регистрация

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

 

= Мир MS Excel/Выделить вторую строку после последней заполненной ячейки G - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Выделить вторую строку после последней заполненной ячейки G
timo64uk Дата: Понедельник, 11.11.2024, 12:34 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
Добрый день :)
Совсем запутался... Прошу помощи
Нужно выделить жирным шрифтом и применить формат .NumberFormat = "#,##0.00" к строке идущей второй после последней заполненной ячейкой столбца G.
Пытался из этого слепить, но [vba]
Код
Cells(Cells.Rows.Count, 7).End(xlUp).Offset(2, -6) = "=IFERROR(SUMIFS(C[12],C[1],""*""),"""")"
[/vba] и хотел в две строчки с присвоением свойств в конце, но не получается.
Так получается, но задействован не только столбец G (за полями могут быть данные): [vba]
Код
With ActiveSheet.UsedRange
Rows(.Rows(.Rows.Count).Row).Font.Bold = True
Rows(.Rows(.Rows.Count).Row).NumberFormat = "#,##0.00"
End With
[/vba]

Помогите, пожалуйста
К сообщению приложен файл: 5457.xlsx (13.7 Kb)


Сообщение отредактировал timo64uk - Понедельник, 11.11.2024, 12:39
 
Ответить
СообщениеДобрый день :)
Совсем запутался... Прошу помощи
Нужно выделить жирным шрифтом и применить формат .NumberFormat = "#,##0.00" к строке идущей второй после последней заполненной ячейкой столбца G.
Пытался из этого слепить, но [vba]
Код
Cells(Cells.Rows.Count, 7).End(xlUp).Offset(2, -6) = "=IFERROR(SUMIFS(C[12],C[1],""*""),"""")"
[/vba] и хотел в две строчки с присвоением свойств в конце, но не получается.
Так получается, но задействован не только столбец G (за полями могут быть данные): [vba]
Код
With ActiveSheet.UsedRange
Rows(.Rows(.Rows.Count).Row).Font.Bold = True
Rows(.Rows(.Rows.Count).Row).NumberFormat = "#,##0.00"
End With
[/vba]

Помогите, пожалуйста

Автор - timo64uk
Дата добавления - 11.11.2024 в 12:34
Nic70y Дата: Понедельник, 11.11.2024, 12:59 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
a = Cells(Rows.Count, 7).End(xlUp).Row + 2
Rows(a).Font.Bold = True
Rows(a).NumberFormat = "#,##0.00"
[/vba]или
[vba]
Код
With Rows(Cells(Rows.Count, 7).End(xlUp).Row + 2)
    .Font.Bold = True
    .NumberFormat = "#,##0.00"
End With
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 11.11.2024, 13:05
 
Ответить
Сообщение[vba]
Код
a = Cells(Rows.Count, 7).End(xlUp).Row + 2
Rows(a).Font.Bold = True
Rows(a).NumberFormat = "#,##0.00"
[/vba]или
[vba]
Код
With Rows(Cells(Rows.Count, 7).End(xlUp).Row + 2)
    .Font.Bold = True
    .NumberFormat = "#,##0.00"
End With
[/vba]

Автор - Nic70y
Дата добавления - 11.11.2024 в 12:59
_Boroda_ Дата: Понедельник, 11.11.2024, 17:55 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16728
Репутация: 6524 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
    With Cells(Rows.Count, 7).End(xlUp).Offset(2, -6).Resize(, 16)
        .Font.Bold = True
        .NumberFormat = "#,##0.00"
    End With
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
    With Cells(Rows.Count, 7).End(xlUp).Offset(2, -6).Resize(, 16)
        .Font.Bold = True
        .NumberFormat = "#,##0.00"
    End With
[/vba]

Автор - _Boroda_
Дата добавления - 11.11.2024 в 17:55
  • Страница 1 из 1
  • 1
Поиск:

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