For x = 10 To 10 q = Int(Len(Cells(x, 1).Value) / 85) + 1 Rows(x).RowHeight = 15 * q Next x
s = Range("I10").Value: j = Len(s) With Range("A10") .Font.Bold = False For Each r In .Cells i = InStr(r, s) If i Then r.Characters(i, j).Font.Bold = True Next End With
[/vba] При попытке его запустить выскакивает 438 ошибка. Добавление строчки With ActiveWorkbook.Sheet("пример") ни к чему не приводит. Как это можно исправить?
Добрый день. Из текущей книги переместил в персональную книгу следующий макрос: [vba]
For x = 10 To 10 q = Int(Len(Cells(x, 1).Value) / 85) + 1 Rows(x).RowHeight = 15 * q Next x
s = Range("I10").Value: j = Len(s) With Range("A10") .Font.Bold = False For Each r In .Cells i = InStr(r, s) If i Then r.Characters(i, j).Font.Bold = True Next End With
[/vba] При попытке его запустить выскакивает 438 ошибка. Добавление строчки With ActiveWorkbook.Sheet("пример") ни к чему не приводит. Как это можно исправить?Garik007
Это точно весь макрос? Ничего больше нет? Ошибка 438 - Объект не поддерживает это свойство или метод. У меня Ваш макрос нормально отрабатывае и из книги, и из Персонала (конечно, при наличии в активной книге нужных имен)
Это точно весь макрос? Ничего больше нет? Ошибка 438 - Объект не поддерживает это свойство или метод. У меня Ваш макрос нормально отрабатывае и из книги, и из Персонала (конечно, при наличии в активной книге нужных имен)_Boroda_
Sub abc() On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False ' пробовал еще добавлять With ActiveSheets.Sheets("пример") ActiveSheets.Range("A10") = ActiveSheets.Range("H10") ' с ActiveSheets. и без них ActiveSheets.[данные1] = ActiveSheets.[данные1а].Value ' с ActiveSheets. и без них End Sub
[/vba] Сейчас попробовал вставить код из моего первого сообщения: ошибки пропали, но и ничего не происходит при вызове из текущей книги макроса, находящегося в Персональной книге (текст не переносится, жирным не выделяется, высота строки не меняется). Опять повторюсь при вызове макроса из текущей книги все работает. В каком месте у меня могут быть кривые руки.
Sub abc() On Error Resume Next Application.EnableEvents = False Application.ScreenUpdating = False ' пробовал еще добавлять With ActiveSheets.Sheets("пример") ActiveSheets.Range("A10") = ActiveSheets.Range("H10") ' с ActiveSheets. и без них ActiveSheets.[данные1] = ActiveSheets.[данные1а].Value ' с ActiveSheets. и без них End Sub
[/vba] Сейчас попробовал вставить код из моего первого сообщения: ошибки пропали, но и ничего не происходит при вызове из текущей книги макроса, находящегося в Персональной книге (текст не переносится, жирным не выделяется, высота строки не меняется). Опять повторюсь при вызове макроса из текущей книги все работает. В каком месте у меня могут быть кривые руки. Garik007
For x = 10 To 10 q = Int(Len(Cells(x, 1).Value) / 85) + 1 Rows(x).RowHeight = 15 * q Next x
s = Range("F10").Value: j = Len(s) With Range("A10") .Font.Bold = False For Each r In .Cells i = InStr(r, s) If i Then r.Characters(i, j).Font.Bold = True Next End With
For x = 10 To 10 q = Int(Len(Cells(x, 1).Value) / 85) + 1 Rows(x).RowHeight = 15 * q Next x
s = Range("F10").Value: j = Len(s) With Range("A10") .Font.Bold = False For Each r In .Cells i = InStr(r, s) If i Then r.Characters(i, j).Font.Bold = True Next End With
Макрос в персональной книге куда кинули? Вижу что вроде не туда куда положено... Если моя лупа не врёт - никакие активации листов других книг тут не помогут...
Макрос в персональной книге куда кинули? Вижу что вроде не туда куда положено... Если моя лупа не врёт - никакие активации листов других книг тут не помогут...Hugo
Что это? Где это? У меня такого нет... Ааа.. это обычный лист, у меня для листов иконка другая, не узнал... ещё и название В стандартный модуль нужно класть такие макросы, это азы.
Что это? Где это? У меня такого нет... Ааа.. это обычный лист, у меня для листов иконка другая, не узнал... ещё и название В стандартный модуль нужно класть такие макросы, это азы.Hugo