Аргумент VBA не является необязательной ошибкой userfrom listbox

Я написал следующий код для UserForm, но я продолжаю получать argument not optional являющийся argument not optional ошибкой.

 Option Explicit Private Sub CommandButton3_Click() Select Case LCase(Me.ListBox2.Text) Case "Analysis": Call macro1 Case "" MsgBox "nothing selected" Case Else MsgBox Me.ListBox2.Text End Select End Sub 

макро 1 код:

 Sub macro1() ' ' Macro1 Macro Sheets.Add ActiveSheet.Name = "Analysis" Application.DisplayAlerts = False Application.ScreenUpdating = False ' Range("A13").Select ActiveCell.FormulaR1C1 = "Year" Range("B13").Select ActiveCell.FormulaR1C1 = "0" Range("C13").Select ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-1]+1>R9C2,"""",RC[-1]+1),"""")" Range("C13").Select Selection.AutoFill Destination:=Range("C13:HS13"), Type:=xlFillDefault Range("C13:HQ13").Select End Sub 

Во-первых, ваш метод ссылки на ListBox является проблемой. См. Код ниже. Кроме того, мне пришлось добавить имя листа перед диапазоном, а затем это сработало для меня …

 Option Explicit Private Sub CommandButton3_Click() Dim i as Integer Dim sValue as String For i = 0 To Me.ListBox2.ListCount - 1 If Me.ListBox2.Selected(i) Then sValue = ListBox2.List(i) End If Next i Select Case LCase(sValue) Case "Analysis": Call macro1 Case "" MsgBox "nothing selected" Case Else MsgBox sValue.Text End Select End Sub Sub macro1() ' ' Macro1 Macro Sheets.Add ActiveSheet.Name = "Analysis" Application.DisplayAlerts = False Application.ScreenUpdating = False ' Sheets("Analysis").Range("A13").Select ActiveCell.FormulaR1C1 = "Year" Sheets("Analysis").Range("B13").Select ActiveCell.FormulaR1C1 = "0" Sheets("Analysis").Range("C13").Select ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-1]+1>R9C2,"""",RC[-1]+1),"""")" Sheets("Analysis").Range("C13").Select Selection.AutoFill Destination:=Sheets("Analysis").Range("C13:HS13"), Type:=xlFillDefault Sheets("Analysis").Range("C13:HQ13").Select End Sub 
  • Ошибка времени выполнения VBA 1004 Метод AutoFilter класса Range Failed
  • Мой макрос excel генерирует ошибки непоследовательно
  • Excel VBA Vlookup Runtime Ошибка 1004
  • Ошибка при вставке слайда: указанный тип данных недоступен
  • Ошибка несоответствия типа
  • Ошибка выполнения 1004 при запуске кода на листе, создаваемом динамически
  • Ошибка времени выполнения 1004 с добавлением гиперссылки vba
  • Ошибка 1004: ошибка, определяемая приложением или объект-ошибка. Excel
  • проблема вне кода вызывает проблемы внутри кода
  • Определенная пользователем или объектная ошибка при вставке формулы в VBA
  • Ошибка выполнения 429; Невозможно создать объект (Excel 2007)
  • Interesting Posts

    код vba для вставки строк и данных в порядке возрастания

    Заполнение нескольких таблиц данных с использованием одной формы ввода данных

    После загрузки ячеек в вариант, как я могу вернуть их адрес?

    разделитель phpexcel тыс. для xlsx

    Как переупорядочить столбец во время выполнения с помощью NPOI или любого открытого исходного кода при экспорте в excel с C # .net

    Удалить дубликаты из случайных ячеек с помощью Excel VBA

    Excel VBA – сравнение значения между двумя массивами и передачей

    Decimalseperator потерян после преобразования из csv, чтобы преуспеть с vb-скриптом

    Анализ данных из xls и добавление в виде сетки данных с использованием c #

    Объединить книги Excel, включая код VBA

    Список проверки данных – источник

    Как создать код, который позволит автоматически обновлять местоположение диапазона при обновлении модели Excel и изменении местоположения целевых ячеек?

    Экспорт и сопоставление XML в VBA для Excel

    Выберите диапазон ячеек, удалите пустые, а затем добавьте границу вокруг оставшихся ячеек

    как упорядочить номера в порядке возрастания на основе данных столбца

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