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

Вход

Регистрация

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

 

= Мир MS Excel/если ячейка содержит цифры, то выделим фоном всю строку - Мир MS Excel

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

Office16
Добрый день.
Если в столбце А присутствуют цифры (можно начиная с 8 строки, можно с 0 - не важно),
то нужно выделить фоном всю строку (можно определенный массив, как в примере, а можно до крайней правой ячейки листа - не важно).
через IsNumeric пытался
К сообщению приложен файл: 1251.xlsx (31.3 Kb)
 
Ответить
СообщениеДобрый день.
Если в столбце А присутствуют цифры (можно начиная с 8 строки, можно с 0 - не важно),
то нужно выделить фоном всю строку (можно определенный массив, как в примере, а можно до крайней правой ячейки листа - не важно).
через IsNumeric пытался

Автор - timo64uk
Дата добавления - 25.06.2021 в 12:25
китин Дата: Пятница, 25.06.2021, 12:28 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Доброго и вам. формула в УФ
Код
=ЕЧИСЛО(A8)

и, кстати да. в вашем файле в столбце А чисел нет от слова совсем. один сплошной текст. выделите столбец А, данные текст по столбам готово. и будет вам щястя
К сообщению приложен файл: 2638678.xlsx (32.1 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеДоброго и вам. формула в УФ
Код
=ЕЧИСЛО(A8)

и, кстати да. в вашем файле в столбце А чисел нет от слова совсем. один сплошной текст. выделите столбец А, данные текст по столбам готово. и будет вам щястя

Автор - китин
Дата добавления - 25.06.2021 в 12:28
Kuzmich Дата: Пятница, 25.06.2021, 12:42 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
Цитата
через IsNumeric пытался

[vba]
Код
Sub iNumberColor()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A8:F" & iLastRow).Interior.ColorIndex = xlNone
  For i = 8 To iLastRow
    If IsNumeric(Cells(i, 1)) Then
      Range("A" & i & ":F" & i).Interior.ColorIndex = 19
    End If
  Next
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
через IsNumeric пытался

[vba]
Код
Sub iNumberColor()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A8:F" & iLastRow).Interior.ColorIndex = xlNone
  For i = 8 To iLastRow
    If IsNumeric(Cells(i, 1)) Then
      Range("A" & i & ":F" & i).Interior.ColorIndex = 19
    End If
  Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 25.06.2021 в 12:42
  • Страница 1 из 1
  • 1
Поиск:

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