Макрос выдает ошибку 94

Вход

Регистрация

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

= Мир MS Excel/Макрос выдает ошибку 94 - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выдает ошибку 94 (Макросы/Sub)

Макрос выдает ошибку 94

Xpert

Дата: Воскресенье, 11.02.2024, 16:31 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 115

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!

Задался целью получить название и размер шрифта с помощью макроса.
код такой

[vba]

Код

Sub test()
Dim fntsize As Double
Dim fntname As String
With ActiveSheet
fntname = .Cells.Font.Name

fntsize = .Cells.Font.Size

End With
End Sub

[/vba]

Но макрос почему-то выдаёт ошибку 94...

Прошу помощи, как исправить?

К сообщению приложен файл: 0953438.jpg (14.7 Kb)

Ответить

MikeVol

Дата: Воскресенье, 11.02.2024, 17:03 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 61 ±

Замечаний: 0% ±

Excel LTSC 2021 EN

Xpert, Доброго времени суток. Наверное правильнее будет так, но не проверял:
[vba]

Код

    With Range("A1").Font
        fontName = .Name
        fontSize = .Size
    End With

    MsgBox "Название шрифта: " & fontName & vbCrLf & "Размер шрифта: " & fontSize

[/vba]
Проверяйте. Удачи.

Ученик.

Ответить

Xpert

Дата: Понедельник, 12.02.2024, 08:17 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 115

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

MikeVol, работает без ошибок. Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выдает ошибку 94 (Макросы/Sub)

Страница 1 из 1
1