Подсчитать длину жирного слова в строке

Может кто-нибудь помочь мне?

У меня есть строка: CLR. CLR является наиболее...

Я хочу получить длину жирного слова

Пожалуйста, добавьте приложение, которое вы запрашиваете (Word, Excel, PowerPoint, Visio, ...).

— 22.06.2019 10:48

@Ququruzik, вы могли видеть отредактированный ответ на свой вчерашний вопрос

— 22.06.2019 11:05

excel vba

22.06.2019 10:22

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вы можете изменить следующее:

Option Explicit

Sub test()

    Dim j As Long, Count As Long

    With ThisWorkbook.Worksheets("Sheet1") 'Change sheet name if needed

        'Lets say string appears in cell A1
        For j = 1 To Len(.Range("A1").Value)

            If .Range("A1").Characters(j, 1).Font.FontStyle = "Bold" Then
                Count = Count + 1
            End If

        Next j

        Debug.Print Count

    End With

End Sub

count укажите длину выделенных ЖИРНЫМ шрифтом символов

— 22.06.2019 11:03

@ Error1004 - Подсказка к интернационализации: я бы предложил использовать If .Range("A4").Characters(j, 1).Font.Bold Then, поскольку .Font.FontStyle возвращает слово "жирный" в текущих региональных настройках (в немецком, например, «Fett» вместо «Bold» :-)

— 22.06.2019 12:54

22.06.2019 10:37