Nano Hash - криптовалюты, майнинг, программирование

Ошибка выполнения 9 в VBA [excel] — нижний индекс вне допустимого диапазона

В настоящее время я работаю над кодом, который берет дату от пользователя, открывает календарь, видит, присутствует ли месяц, и если нет, создает рабочий лист с этим названием месяца.

Код выглядит следующим образом, где m_y является строкой и имеет такие значения, как «Январь 2014» [знаки включены]:

Sub addmonth(m_y)
  On Error Resume Next
  CalendarWorkbook.Worksheets(m_y).Select

  If Err.Number<>0 Then
     'code to add sheet and format it

Я попытался поместить его в команду With/End With, у меня нет Option Explicit в коде. Другие методы, упомянутые в ответах, такие как использование .Range() вместо .Select; однако мне не повезло.

Любая оказанная помощь будет оценена по достоинству.

runtime-error excel vba
30.01.2014

  • И в имени вашего рабочего листа есть знак "? 30.01.2014
  • нет. когда я меняю имя на февраль 2014 года, оно работает, потому что лист присутствует. Однако, когда я поставил в феврале 2015 года, это не работает. 30.01.2014
  • у меня нет явной опции, потому что я обычно, как правило, использую On Error GoTo errdesc где errdesc: MsgBox Err.Number & " " & Err.Description 30.01.2014
  • Я согласен с @pnuts. Это не причина/оправдание для того, чтобы не использовать Option Explicit :) 30.01.2014
  • @SiddharthRout, Option Explicit и On Error GoTo errdesc часто противоречат друг другу, а последний в большинстве случаев предоставляет чуть больше деталей. Вот почему я предпочитаю использовать это, а не Options Explicit. 11.02.2014

Ответы:


1

.Select в большинстве случаев является основной причиной ошибок выполнения. Я полагаю, у вас открыта еще одна рабочая тетрадь. ИНТЕРЕСНО ЧИТАТЬ

Попробуйте это другим способом, который не использует .Select

Option Explicit

Sub test()
    addmonth ("""Feb2015""")
End Sub

Sub addmonth(m_y)
    Dim calendarworkbook As Workbook
    Dim ws As Worksheet

    Set calendarworkbook = ThisWorkbook

    On Error Resume Next
    Set ws = calendarworkbook.Worksheets(m_y)
    On Error GoTo 0

    If ws Is Nothing Then calendarworkbook.Worksheets.Add.Name = m_y
End Sub

Примечание. OERN (возобновить после ошибки) следует использовать с осторожностью. Убедитесь, что он просто ограничивает сообщение только для той части, которая вам нужна, а не для остальных. В противном случае это не очень хорошая обработка ошибок :)

30.01.2014

2

Это сработало для меня

Sub test()
    addmonth ("""Feb2015""")
End Sub

Sub addmonth(m_y)
    Dim calendarworkbook As Workbook
    Set calendarworkbook = ThisWorkbook
    On Error Resume Next
    calendarworkbook.Worksheets(m_y).Select

    If Err.Number <> 0 Then
        With calendarworkbook.Worksheets.Add
            .Name = m_y
        End With
    End If
End Sub
30.01.2014
  • я получаю ту же проблему со строкой calendarworkbook.Worksheets(m_y).Select, ошибка времени выполнения 9- нижний индекс вне диапазона 30.01.2014
  • хорошо, тогда есть вероятность, что у вас есть другая ошибка перед той, которая не возобновляется. Посмотрите, поможет ли эта тема. stackoverflow.com/questions/15459332 / 30.01.2014
  • я только что попробовал тот же код на другом ноутбуке, и он отлично работает; однако на моем он, кажется, падает. Может ли это быть программным сбоем? 30.01.2014
  • сложно сказать. лучше всего, если бы вы могли загрузить исходную таблицу, чтобы мы могли взглянуть 30.01.2014
  • Я не могу. Он содержит конфиденциальные данные, с которыми я работаю... более того, это противоречит политике компании. 30.01.2014
  • Вы пробовали дублировать данные в другом файле? Происходит ли то же самое? 30.01.2014
    • Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..