Страницы: 1
RSS
Выделение жирным шрифтом только цифры в столбце
 
Добрый вечер всем !

В столбце D таблицы заполнены значения типа
win7_chrom80
win8_firefox74
win8.1_chrom81
win10_firefox75
win7_chrom83
win8_firefox76
win8.1_chrom84
win10_firefox77

Как макросом в столбце D сделать жирным шрифтом только все цифры, а буквы оставить нормальным шрифтом ?
 
maxvel333, допустим Ваши значение начинаются в А1 и вниз по столбцу А:
Код
Sub mrshkei()
Dim arr, i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
For i = 1 To lr
    x = Len(Cells(i, 1))
    For n = 1 To x
        For j = LBound(arr) To UBound(arr)
            If arr(j) = Mid(Cells(i, 1), n, 1) Then
                Cells(i, 1).Characters(Start:=n, Length:=1).Font.Bold = True
            End If
        Next j
M:
    Next n
Next i
End Sub
Изменено: Mershik - 06.10.2021 21:21:42
Не бойтесь совершенства. Вам его не достичь.
 
Код
Sub BoldDigit()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 Range("A1:A" & iLastRow).Font.Bold = False
For i = 1 To iLastRow
  For j = 1 To Len(Cells(i, "A"))
    If Mid(Cells(i, "A"), j, 1) Like "[0-9]" Then
      Cells(i, "A").Characters(j, 1).Font.Bold = True
    End If
  Next
Next
End Sub
 
Благодарю всех кто помог !
Страницы: 1
Наверх