AAB40 Ответов: 1

Почему у меня есть ошибка времени выполнения в моем коде?

Когда я запускаю свой код, у меня появляется Ошибка времени выполнения
Sheets2.UsedRange.Columns.AutoFit

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

Что я уже пробовал:

Private Sub CommandButton3_Click()

    Worksheets(2).Activate
    Worksheets(2).Range("A1:AZ1000").Select
    Sheets2.UsedRange.Columns.AutoFit
    'Sheet2.Range("A1").Select
    Range("Table1[[#Headers],[ns1:Identification]]").Select
    Selection.AutoFilter
    Range("E:E,G:G,I:I,K:K").Select
    Range("Table1[[#Headers],[ns1:Identification7]]").Activate
    ActiveWindow.SmallScroll ToRight:=29
    Range("E:E,G:G,I:I,K:K,AG:AG,AI:AI").Select
    Range("Table1[[#Headers],[ns1:Identification20]]").Activate
    ActiveWindow.SmallScroll ToRight:=6
    Range("E:E,G:G,I:I,K:K,AG:AG,AI:AI,AM:AM").Select
    Range("Table1[[#Headers],[ns1:MeterIdentification]]").Activate
    Selection.NumberFormat = "0.00"
End Sub

1 Ответов

Рейтинг:
1

Maciej Los

Вы уверены, что Sheets2 существует?

Я почти уверен, что вы должны заменить: Листс2 с: Лист2 Как вы можете видеть "s- это излишне.

Я бы посоветовал прочитать этот совет/трюк: Копирование данных между листами Excel с помощью VBA[^] прежде чем начать, продолжите свое путешествие по VBA. Я привел там несколько ошибок (обычно называемых "плохими практиками") и способ их устранения.

AAB40

спасибо, Мацей. Я посмотрю завтра ;-)

AAB40

Maciej, я немного изменил свой код, но теперь у меня есть "runtime error 1004: Select method of Range class failed". Ваше предложение не использовать букву " С " не сработало для меня. Я отредактировал код выше. Не могли бы вы взглянуть? Знайте, что я сначала записал свои действия с помощью записи макросов и скопировал-вставил этот код в свою кнопку ActiveX.

Patrice T

Воспользуйся Улучшить вопрос чтобы обновить ваш вопрос.
Чтобы каждый мог обратить внимание на эту информацию.

AAB40

Я удалил улучшение, так как оно дает мне еще одну ошибку во время выполнения. решение, которое дал Мачей, не работает для меня. Я открою новую нить.

Patrice T

вы забыли поместить этот комментарий в свою "правку".