Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Run time erorr 1004 Нельзя установить свойство Name класса Font / 7 сообщений из 7, страница 1 из 1
07.03.2006, 13:43:06
    #33586805
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
В этом файле есть ряд макросов- все они это один и тот же макрос просто с разными диапазонами ячеек- делались из одного и того же шаблона, но вот в чем проблема начиная с должности "Заместитель главного инженера по экологическому контролю и природопользованию" выдает ошибку из заголовка! Из за чего? все макросы Абсолютно одинаковые!!!
Логин Admin
Пароль 123
webfile.ru/847472
...
Рейтинг: 0 / 0
07.03.2006, 14:39:55
    #33586993
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
чего-то я не понял где ошбка и при каких действиях?
...
Рейтинг: 0 / 0
07.03.2006, 15:00:45
    #33587041
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
Непонятно какие действия нужно совершить, чтобы вызвать ошибку.
Всё работает.
...
Рейтинг: 0 / 0
07.03.2006, 15:22:02
    #33587118
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
много раз говорилось на этом форуме: нельзя использовать объект Selection
пишут макросы а потом их дорабатывают так сказать напильником
вот пример небольшой дороботки проанализируй.
вставь в модуль11 вместо своего и посмотри как работает.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Sub Гениральный_директор()
    Range("A7").Clear
    Range("A7").FormulaR1C1 = "Гениральный директор"
    With Range("A7").Characters(Start:= 1 , Length:= 32 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex =  5 
    End With
    Range("A7").Font.ColorIndex =  5 
    Range("A7").Interior.ColorIndex =  15 
    Range("A10:F24").ClearContents
    
    Sheets("Основная Таблица").Range("B35:B40").Copy _
     Destination:=Sheets("Запрос пользователя").Range("A10")
    
    Sheets("Основная Таблица").Range("D35:H40").Copy
    Sheets("Запрос пользователя").Range("B10:F15").PasteSpecial _
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7").Select
End Sub
...
Рейтинг: 0 / 0
08.03.2006, 16:44:28
    #33588252
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
Спасибо - сделал как ты сказал- все заработало! А можешь поп одробнее обьяснить- вчем загвоздка была?
...
Рейтинг: 0 / 0
08.03.2006, 16:46:50
    #33588253
snchk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
А хотя, пардон- нифига, если перейти в режим просмотра- ничего не меняеться! все равно вылезает таже ошибка.. (
...
Рейтинг: 0 / 0
08.03.2006, 18:57:54
    #33588331
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Run time erorr 1004 Нельзя установить свойство Name класса Font
1. Выдает ошибку, потому что у тебя ячейка защищена. Перед каждым изменением в ячейке надо ее снимать.
2. Не выдает ошибки в других макросах, потому что там в начале каждого стоит инструкция при возникновении ошибки выполнять следущую команду.
Код: plaintext
On Error Resume Next

Выводы: напиши эту же инструкцию вначале каждого макроса и не будешь видеть сообщения об ошибке, но и выполняться инструкции не будут))) или делай все по уму - снимай защиту, меняй содержимое (формат), ставь опять защиту.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Run time erorr 1004 Нельзя установить свойство Name класса Font / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]