Подкласс вне пределов досягаемости – Большинство компьютеров работают нормально (включая шахту)

Я новый пользователь vba.

Недавно была проблема с vba, которая оставила меня довольно невежественным и беспомощным – индексом вне диапазона – на компьютере конкретного пользователя, когда у каждого другого пользователя нет проблем с использованием макроса (включая меня), поэтому я не могу просто пробовать и ошибка для устранения неполадок.

Следовательно, действительно нужна экспертная помощь от всех вас! Действительно очень оценили !!

Я использовал серию vba, которые будут запускаться один за другим и вставлять их в хронологическом порядке следующим образом.

VBA 1

Sub VBA_1() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Outline.ShowLevels 1, 1 Next ws End Sub 

VBA 2

 Sub VBA_2() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Protect ("Password") Next ws End Sub 

VBA 3

 Sub VBA_3() Dim iRet As Integer Dim strPrompt As String 'Prompt strPrompt = "This will take about 2 minutes. Click 'OK' to proceed." 'Show msgbox iRet = MsgBox(strPrompt, vbOKCancel) 'When user clicked 'OK'.. If iRet = vbOK Then 'SaveAs Function Dim fName As String fName = Application.GetSaveAsFilename(, "Excel Binary Workbook (*.xlsb), *.xlsb") If fName = "False" Then MsgBox "File not saved.", vbOKOnly Cancel = True End If Application.EnableEvents = False ThisWorkbook.SaveAs Filename:=fName, FileFormat:=xlExcel12 Application.EnableEvents = True ' Calculate Application.Calculate Application.ScreenUpdating = True ' Outlet Worksheets("Total Outlets").Activate 'Copy and Paste this portion to each worksheet For Each cell In Range("A1") If cell.Value = "Not Applicable" Then ActiveSheet.Visible = xlSheetHidden Else Call HypMenuVRefresh End If Next 'End Outlet & Copy and Paste Worksheets("D11101").Activate For Each cell In Range("A1") If cell.Value = "Not Applicable" Then ActiveSheet.Visible = xlSheetHidden Else Call HypMenuVRefresh End If Next Worksheets("D11102").Activate For Each cell In Range("A1") If cell.Value = "Not Applicable" Then ActiveSheet.Visible = xlSheetHidden Else Call HypMenuVRefresh End If Next 'Hide sheets accordingly Worksheets("Restaurant List").Visible = xlSheetVeryHidden Worksheets("Hotel List").Visible = xlSheetVeryHidden 'Recalculate Application.Calculate Application.ScreenUpdating = True 'Renaming of tabs Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Range("A2").Value = 1 Then If ws.Visible = xlSheetVisible Then On Error Resume Next ws.Name = ws.Range("A10").Value End If End If Next ws 'Save Workbook ActiveWorkbook.Save 'Enable finishing screen to be 'Input' Sheets("Input").Select 'Show msgbox MsgBox ("Retrieval Completed!") Else MsgBox ("Retrieval of Data Cancelled") End If End Sub 

    Я могу думать о следующих возможных причинах, но не говорю, что любая из них является фактической причиной:

    «… на компьютере конкретного пользователя …»

    Затем:

    • версия Excel / VBA отличается;

    • кто-то установил глобальную Option Base (но я считаю, что это невозможно установить глобально, т.е. применимо ко всем загруженным книгам);

    • где-то разделитель «жестко закодирован», который не соответствует глобальным настройкам Windows (панель управления -> регион и язык -> форматы -> дополнительные настройки);

    • язык отличается от отражения в VBA (например, имя ключевого слова / функции на родном языке или имена идентификаторов с несимметричными 7-разрядными символами ASCII в США).

    Чтобы найти, где программа встречает ошибку (и останавливается), создайте функцию, которая записывает сообщение о состоянии в файл после каждого основного шага. Обязательно закройте файл после каждого сообщения, чтобы сообщение было написано.

    Interesting Posts

    Преобразование excel Цвет BGR в RGB

    Excel Dynamic Webquery для возврата текста из списка URL-адресов

    как удалить все формулы из листа excel с помощью java POI api?

    Как пропустить каждую n-ю строку в столбце Excel Сумма

    Как использовать DotNet EXE как объект OLE

    Найдите указанную строку в строке, затем верните значение ячейки перед этой строкой.

    Детали отсутствуют при экспорте из сгруппированной сетки кендо

    Excel – Как использовать значение ячейки как значение строки другой ячейки?

    Excel: могу ли я увидеть список любых потенциальных книг, которые используют мою книгу excel в качестве внешней ссылки?

    Извлечь содержимое ячеек в первом файле Excel на основе рабочего листа в другом файле

    Таблица фильтров VBA

    Создание листов в двух разных книгах и ихменование после списка в этой книге

    Excel: создание выпадающего меню из динамического списка без дубликатов

    Данные Excel сдвига вниз после вставки

    excel vba IE, нажатие на кнопку

    Давайте будем гением компьютера.