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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос выдает ошибку 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)
 
Ответить
СообщениеЗдравствуйте!

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

[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...

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

Автор - Xpert
Дата добавления - 11.02.2024 в 16:31
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, Доброго времени суток. Наверное правильнее будет так, но не проверял:
[vba]
Код

    With Range("A1").Font
        fontName = .Name
        fontSize = .Size
    End With
    
    MsgBox "Название шрифта: " & fontName & vbCrLf & "Размер шрифта: " & fontSize
[/vba]
Проверяйте. Удачи.

Автор - MikeVol
Дата добавления - 11.02.2024 в 17:03
Xpert Дата: Понедельник, 12.02.2024, 08:17 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 115
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
MikeVol, работает без ошибок. Спасибо!
 
Ответить
СообщениеMikeVol, работает без ошибок. Спасибо!

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

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