Remkomplekty.ru

IT Новости из мира ПК
6 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Type mismatch vba excel ошибка

Type mismatch vba excel ошибка

Никак не могу понять почему вылазит ошибка error 13 type mismatch в макросе
ошибку выдает на строку с

200?’200px’:»+(this.scrollHeight+5)+’px’);»> For Ii# = 3 To TransWbMaxRow

Public Mwb As Workbook
Public Mwb1 As Workbook
Public Asheet As Worksheet
Public Bsheet As Worksheet

Public TransWbMaxRow As Variant
Public TransWbMaxCol As Variant
Public GetMaxRow() As Variant

Public Arr_Art_Main(500000) As Variant
Public Arr_Art_Sub(500000) As Variant
Public Arr_Stock_Main(500000) As Variant

Public Arr_Art1(500000) As Variant
Public Arr_Art2(500000) As Variant
Public Arr_Art3(500000) As Variant
Public Arr_Art4(500000) As Variant
Public Arr_Art5(500000) As Variant
Public Arr_Art6(500000) As Variant
Public Arr_Art7(500000) As Variant
Public Arr_Art8(500000) As Variant
Public Arr_Art9(500000) As Variant
Public Arr_Art10(500000) As Variant
Public Arr_Art11(500000) As Variant
Public Arr_Art12(500000) As Variant
Public Arr_Priznak(500000) As Variant

Public Arr_Prod_name(500000) As Variant

Public Arr_Client_name_plan(500000) As Variant
Public Arr_Client_Prod_code_plan(500000) As Variant
Public Arr_Client_Prod_group_plan(500000) As Variant
Public Arr_Client_Prod_Qnt_plan(500000) As Variant
Public Arr_Client_Prod_Rub_plan(500000) As Variant
Public Arr_Client_Prod_Kg_plan(500000) As Variant
Public Arr_Client_Prod_Name_plan(500000) As Variant
Public Arr_Client_Prod_Weight(500000) As Variant
Public Arr_Client_Prod_Price(500000) As Variant
Public Arr_Client_Prod_OOS(500000) As Variant
Public Arr_Client_Prod_Group(500000) As Variant

Public Arr_Client_Prod_code_actual(500000) As Variant
Public Arr_Client_Name_actual(500000) As Variant
Public Arr_Client_Prod_Qnt_Sales(500000) As Variant
Public Arr_Client_Prod_Qnt_Transit(500000) As Variant
Public Arr_Client_Prod_Qnt_Order(500000) As Variant
Public Arr_Client_Region(500000) As Variant

Public Client_Cognos(500000) As Variant
Public Client_Cognos_Addr(500000) As Variant
Public Client_CisLink(500000) As Variant
Sub Download_plan_fact_client()
Set Mwb = ActiveWorkbook
Client$ = Range(«A1»).Value
If Len(Client$) = 0 Then
MsgBox «Íå âûáðàí êëèåíò!»
Range(«A1»).Activate
End
End If
aaa% = MsgBox(«Äîáàâèòü äàííûå ïî ïëàíó è ôàêòó äëÿ » & Client$ & «?», vbYesNo + vbInformation, «Âíèìàíèå.»)
If aaa% <> vbYes Then
End
End If
Application.ScreenUpdating = False

»’Âûãðóçèì òåêóùèå ïðîäàæè»’
Mwb.Sheets(«Details»).Activate
TransWbMaxRow = GetMaxRow()
cnt1# = 0
For Ii# = 3 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
If Trim(Cells(Ii#, 1).Value) = Client$ Then
cnt1# = cnt1# + 1
Arr_Client_Prod_code_actual(cnt1#) = Trim(Cells(Ii#, 3).Value)
Arr_Client_Prod_Qnt_Sales(cnt1#) = Val(Cells(Ii#, 12).Value) ‘ ïðîäàæè, çàêàçû, òðàíçèòû â øò
Arr_Client_Prod_Qnt_plan(cnt1#) = Val(Cells(Ii#, 6).Value) ‘ ïëàí, øò
Arr_Client_Prod_OOS(cnt1#) = Trim(Cells(Ii#, 26).Value)
Arr_Client_Prod_Group(cnt1#) = Trim(Cells(Ii#, 27).Value)
End If
Next Ii#

Mwb.Sheets(«Checking»).Activate
TransWbMaxRow = GetMaxRow()
»»’ Óäàëåíèå ñòàðûõ äàííûõ
For Ii# = 4 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
Cells(Ii#, 4).Value = «»
Cells(Ii#, 5).Value = 0
Cells(Ii#, 6).Value = 0
Cells(Ii#, 8).Value = 0
Next Ii#

For Ii# = 4 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
For j# = 1 To cnt1#
If Trim(Cells(Ii#, 2).Value) = Arr_Client_Prod_code_actual(j#) Then
Cells(Ii#, 4).Value = Arr_Client_Prod_Group(j#)
Cells(Ii#, 5).Value = Arr_Client_Prod_Qnt_plan(j#)
Cells(Ii#, 6).Value = Arr_Client_Prod_Qnt_Sales(j#)
If Arr_Client_Prod_OOS(j#) = «-» Then
Cells(Ii#, 3).Value = «Äà»
End If

Exit For
End If
Next j#
Next Ii#
End Sub

Разбор ошибки Type Mismatch Error

Объяснение Type Mismatch Error

Type Mismatch Error VBA возникает при попытке назначить значение между двумя различными типами переменных.

Ошибка отображается как:
run-time error 13 – Type mismatch

Например, если вы пытаетесь поместить текст в целочисленную переменную Long или пытаетесь поместить число в переменную Date.

Давайте посмотрим на конкретный пример. Представьте, что у нас есть переменная с именем Total, которая является длинным целым числом Long.

Если мы попытаемся поместить текст в переменную, мы получим Type Mismatch Error VBA (т.е. VBA Error 13).

Давайте посмотрим на другой пример. На этот раз у нас есть переменная ReportDate типа Date.

Если мы попытаемся поместить в эту переменную не дату, мы получим Type Mismatch Error VBA.

В целом, VBA часто прощает, когда вы назначаете неправильный тип значения переменной, например:

Тем не менее, есть некоторые преобразования, которые VBA не может сделать:

Простой способ объяснить Type Mismatch Error VBA состоит в том, что элементы по обе стороны от равных оценивают другой тип.

При возникновении Type Mismatch Error это часто не так просто, как в этих примерах. В этих более сложных случаях мы можем использовать средства отладки, чтобы помочь нам устранить ошибку.

Использование отладчика

В VBA есть несколько очень мощных инструментов для поиска ошибок. Инструменты отладки позволяют приостановить выполнение кода и проверить значения в текущих переменных.

Вы можете использовать следующие шаги, чтобы помочь вам устранить любую Type Mismatch Error VBA.

  1. Запустите код, чтобы появилась ошибка.
  2. Нажмите Debug в диалоговом окне ошибки. Это выделит строку с ошибкой.
  3. Выберите View-> Watch из меню, если окно просмотра не видно.
  4. Выделите переменную слева от equals и перетащите ее в окно Watch.
  5. Выделите все справа от равных и перетащите его в окно Watch.
  6. Проверьте значения и типы каждого.
  7. Вы можете сузить ошибку, изучив отдельные части правой стороны.
Читать еще:  Печатать онлайн в word

Следующее видео показывает, как это сделать.

На скриншоте ниже вы можете увидеть типы в окне просмотра.

Используя окно просмотра, вы можете проверить различные части строки кода с ошибкой. Затем вы можете легко увидеть, что это за типы переменных.

В следующих разделах показаны различные способы возникновения Type Mismatch Error VBA.

Присвоение строки числу

Как мы уже видели, попытка поместить текст в числовую переменную может привести к Type Mismatch Error VBA.

Ниже приведены некоторые примеры, которые могут вызвать ошибку:

Недействительная дата

VBA очень гибок в назначении даты переменной даты. Если вы поставите месяц в неправильном порядке или пропустите день, VBA все равно сделает все возможное, чтобы удовлетворить вас.

В следующих примерах кода показаны все допустимые способы назначения даты, за которыми следуют случаи, которые могут привести к Type Mismatch Error VBA.

Ошибка ячейки

Тонкая причина Type Mismatch Error VBA — это когда вы читаете из ячейки с ошибкой, например:

Если вы попытаетесь прочитать из этой ячейки, вы получите Type Mismatch Error.

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

Однако проверка всех ячеек на наличие ошибок невозможна и сделает ваш код громоздким. Лучший способ — сначала проверить лист на наличие ошибок, а если ошибки найдены, сообщить об этом пользователю.

Вы можете использовать следующую функцию, чтобы сделать это:

Ниже приведен пример использования этого кода.

Неверные данные ячейки

Как мы видели, размещение неверного типа значения в переменной вызывает Type Mismatch Error VBA. Очень распространенная причина — это когда значение в ячейке имеет неправильный тип.

Пользователь может поместить текст, такой как «Нет», в числовое поле, не осознавая, что это приведет к Type Mismatch Error в коде.

Если мы прочитаем эти данные в числовую переменную, то получим
Type Mismatch Error VBA.

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

Вы можете использовать это так:

Имя модуля

Если вы используете имя модуля в своем коде, это может привести к
Type Mismatch Error VBA. Однако в этом случае причина может быть не очевидной.

Например, допустим, у вас есть модуль с именем «Module1». Выполнение следующего кода приведет к о
Type Mismatch Error VBA.

Различные типы объектов

До сих пор мы рассматривали в основном переменные. Мы обычно называем переменные основными типами данных.

Они используются для хранения одного значения в памяти.

В VBA у нас также есть объекты, которые являются более сложными. Примерами являются объекты Workbook, Worksheet, Range и Chart.

Если мы назначаем один из этих типов, мы должны убедиться, что назначаемый элемент является объектом того же типа. Например:

Коллекция Sheets

В VBA объект рабочей книги имеет две коллекции — Sheets и Worksheets. Есть очень тонкая разница.

  1. Worksheets — сборник рабочих листов в Workbook
  2. Sheets — сборник рабочих листов и диаграммных листов в Workbook

Лист диаграммы создается, когда вы перемещаете диаграмму на собственный лист, щелкая правой кнопкой мыши на диаграмме и выбирая «Переместить».

Если вы читаете коллекцию Sheets с помощью переменной Worksheet, она будет работать нормально, если у вас нет рабочей таблицы.

Если у вас есть лист диаграммы, вы получите
Type Mismatch Error VBA.

В следующем коде Type Mismatch Error появится в строке «Next sh», если рабочая книга содержит лист с диаграммой.

Массивы и диапазоны

Вы можете назначить диапазон массиву и наоборот. На самом деле это очень быстрый способ чтения данных.

Проблема возникает, если ваш диапазон имеет только одну ячейку. В этом случае VBA не преобразует arr в массив.

Если вы попытаетесь использовать его как массив, вы получите
Type Mismatch Error .

В этом сценарии вы можете использовать функцию IsArray, чтобы проверить, является ли arr массивом.

Читать еще:  Как создать новый документ в word

Заключение

На этом мы завершаем статью об Type Mismatch Error VBA. Если у вас есть ошибка несоответствия, которая не раскрыта, пожалуйста, дайте мне знать в комментариях.

Типы ошибок в VBA

При выполнении макросов Excel могут возникнуть ошибки, которые в VBA делят на три категории:

Далее мы поговорим о каждом из трёх типов ошибок VBA подробно.

Ошибки компиляции

Компилятор VBA рассматривает ошибки компиляции как недопустимые и выделяет их в коде ещё до того, как дело дойдёт до запуска макроса.

Если при написании кода допущена синтаксическая ошибка, то редактор VBA сигнализирует об этом немедленно: либо при помощи окна с сообщением, либо выделяя ошибку красным цветом, в зависимости от статуса режима Auto Syntax Check.

Примечание: При включённом режиме Auto Syntax Check каждый раз, при появлении в редакторе Visual Basic во введённом коде синтаксической ошибки, будет показано соответствующее сообщение. Если же этот режим выключен, то редактор VBA продолжит сообщать о синтаксических ошибках, просто выделяя их красным цветом. Опцию Auto Syntax Check можно включить/выключить в меню Tools > Options редактора Visual Basic.

В некоторых случаях ошибка компиляции может быть обнаружена при выполнении компиляции кода, непосредственно перед тем, как макрос будет выполнен. Обычно ошибку компиляции несложно обнаружить и исправить, потому что компилятор VBA даёт информацию о характере и причине ошибки.

Например, сообщение “Compile error: Variable not defined” при попытке запустить выполнение кода VBA говорит о том, что происходит попытка использовать или обратиться к переменной, которая не была объявлена для текущей области (такая ошибка может возникнуть только если используется Option Explicit).

Ошибки выполнения

Ошибки выполнения возникают в процессе выполнения кода и приводят к остановке выполнения программы. Этот тип ошибок VBA, как правило, также не сложно обнаружить и исправить, так как сообщается информация о характере ошибки и место в коде, где произошла остановка.

Примером такой ошибки может служить попытка выполнить деление на ноль. В результате будет показано сообщение “Run-time error ’11’: Division by zero“.

В зависимости от структуры проекта VBA, может быть предложено выполнить отладку кода (как показано на рисунке ниже). В этом случае при нажатии на кнопку Debug (в окне сообщения о необходимости отладки) будет выделена цветом строка кода, которая стала причиной ошибки VBA.

Получив такое сообщение и видя выделенную строку кода, как в приведённом выше примере, обнаружить причину ошибки будет совсем не сложно.

В случае если код сложнее, чем в нашем примере, то, чтобы получить больше информации о причине возникновения ошибки VBA, можно проверить значения используемых переменных. В редакторе VBA для этого достаточно навести указатель мыши на имя переменной, или можно открыть окно отслеживания локальных переменных (в меню редактора View > Locals Window).

Коды различных ошибок выполнения расшифрованы на сайте Microsoft Support (на английском). Наиболее часто встречающиеся ошибки VBA перечислены в этой таблице:

Type mismatch vba excel ошибка

Никак не могу понять почему вылазит ошибка error 13 type mismatch в макросе
ошибку выдает на строку с

200?’200px’:»+(this.scrollHeight+5)+’px’);»> For Ii# = 3 To TransWbMaxRow

Public Mwb As Workbook
Public Mwb1 As Workbook
Public Asheet As Worksheet
Public Bsheet As Worksheet

Public TransWbMaxRow As Variant
Public TransWbMaxCol As Variant
Public GetMaxRow() As Variant

Public Arr_Art_Main(500000) As Variant
Public Arr_Art_Sub(500000) As Variant
Public Arr_Stock_Main(500000) As Variant

Public Arr_Art1(500000) As Variant
Public Arr_Art2(500000) As Variant
Public Arr_Art3(500000) As Variant
Public Arr_Art4(500000) As Variant
Public Arr_Art5(500000) As Variant
Public Arr_Art6(500000) As Variant
Public Arr_Art7(500000) As Variant
Public Arr_Art8(500000) As Variant
Public Arr_Art9(500000) As Variant
Public Arr_Art10(500000) As Variant
Public Arr_Art11(500000) As Variant
Public Arr_Art12(500000) As Variant
Public Arr_Priznak(500000) As Variant

Public Arr_Prod_name(500000) As Variant

Public Arr_Client_name_plan(500000) As Variant
Public Arr_Client_Prod_code_plan(500000) As Variant
Public Arr_Client_Prod_group_plan(500000) As Variant
Public Arr_Client_Prod_Qnt_plan(500000) As Variant
Public Arr_Client_Prod_Rub_plan(500000) As Variant
Public Arr_Client_Prod_Kg_plan(500000) As Variant
Public Arr_Client_Prod_Name_plan(500000) As Variant
Public Arr_Client_Prod_Weight(500000) As Variant
Public Arr_Client_Prod_Price(500000) As Variant
Public Arr_Client_Prod_OOS(500000) As Variant
Public Arr_Client_Prod_Group(500000) As Variant

Public Arr_Client_Prod_code_actual(500000) As Variant
Public Arr_Client_Name_actual(500000) As Variant
Public Arr_Client_Prod_Qnt_Sales(500000) As Variant
Public Arr_Client_Prod_Qnt_Transit(500000) As Variant
Public Arr_Client_Prod_Qnt_Order(500000) As Variant
Public Arr_Client_Region(500000) As Variant

Читать еще:  Word reference com

Public Client_Cognos(500000) As Variant
Public Client_Cognos_Addr(500000) As Variant
Public Client_CisLink(500000) As Variant
Sub Download_plan_fact_client()
Set Mwb = ActiveWorkbook
Client$ = Range(«A1»).Value
If Len(Client$) = 0 Then
MsgBox «Íå âûáðàí êëèåíò!»
Range(«A1»).Activate
End
End If
aaa% = MsgBox(«Äîáàâèòü äàííûå ïî ïëàíó è ôàêòó äëÿ » & Client$ & «?», vbYesNo + vbInformation, «Âíèìàíèå.»)
If aaa% <> vbYes Then
End
End If
Application.ScreenUpdating = False

»’Âûãðóçèì òåêóùèå ïðîäàæè»’
Mwb.Sheets(«Details»).Activate
TransWbMaxRow = GetMaxRow()
cnt1# = 0
For Ii# = 3 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
If Trim(Cells(Ii#, 1).Value) = Client$ Then
cnt1# = cnt1# + 1
Arr_Client_Prod_code_actual(cnt1#) = Trim(Cells(Ii#, 3).Value)
Arr_Client_Prod_Qnt_Sales(cnt1#) = Val(Cells(Ii#, 12).Value) ‘ ïðîäàæè, çàêàçû, òðàíçèòû â øò
Arr_Client_Prod_Qnt_plan(cnt1#) = Val(Cells(Ii#, 6).Value) ‘ ïëàí, øò
Arr_Client_Prod_OOS(cnt1#) = Trim(Cells(Ii#, 26).Value)
Arr_Client_Prod_Group(cnt1#) = Trim(Cells(Ii#, 27).Value)
End If
Next Ii#

Mwb.Sheets(«Checking»).Activate
TransWbMaxRow = GetMaxRow()
»»’ Óäàëåíèå ñòàðûõ äàííûõ
For Ii# = 4 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
Cells(Ii#, 4).Value = «»
Cells(Ii#, 5).Value = 0
Cells(Ii#, 6).Value = 0
Cells(Ii#, 8).Value = 0
Next Ii#

For Ii# = 4 To TransWbMaxRow
If Len(Trim(Cells(Ii#, 1).Value)) = 0 Then Exit For
For j# = 1 To cnt1#
If Trim(Cells(Ii#, 2).Value) = Arr_Client_Prod_code_actual(j#) Then
Cells(Ii#, 4).Value = Arr_Client_Prod_Group(j#)
Cells(Ii#, 5).Value = Arr_Client_Prod_Qnt_plan(j#)
Cells(Ii#, 6).Value = Arr_Client_Prod_Qnt_Sales(j#)
If Arr_Client_Prod_OOS(j#) = «-» Then
Cells(Ii#, 3).Value = «Äà»
End If

Exit For
End If
Next j#
Next Ii#
End Sub

Типы ошибок в VBA

При выполнении макросов Excel могут возникнуть ошибки, которые в VBA делят на три категории:

Далее мы поговорим о каждом из трёх типов ошибок VBA подробно.

Ошибки компиляции

Компилятор VBA рассматривает ошибки компиляции как недопустимые и выделяет их в коде ещё до того, как дело дойдёт до запуска макроса.

Если при написании кода допущена синтаксическая ошибка, то редактор VBA сигнализирует об этом немедленно: либо при помощи окна с сообщением, либо выделяя ошибку красным цветом, в зависимости от статуса режима Auto Syntax Check.

Примечание: При включённом режиме Auto Syntax Check каждый раз, при появлении в редакторе Visual Basic во введённом коде синтаксической ошибки, будет показано соответствующее сообщение. Если же этот режим выключен, то редактор VBA продолжит сообщать о синтаксических ошибках, просто выделяя их красным цветом. Опцию Auto Syntax Check можно включить/выключить в меню Tools > Options редактора Visual Basic.

В некоторых случаях ошибка компиляции может быть обнаружена при выполнении компиляции кода, непосредственно перед тем, как макрос будет выполнен. Обычно ошибку компиляции несложно обнаружить и исправить, потому что компилятор VBA даёт информацию о характере и причине ошибки.

Например, сообщение “Compile error: Variable not defined” при попытке запустить выполнение кода VBA говорит о том, что происходит попытка использовать или обратиться к переменной, которая не была объявлена для текущей области (такая ошибка может возникнуть только если используется Option Explicit).

Ошибки выполнения

Ошибки выполнения возникают в процессе выполнения кода и приводят к остановке выполнения программы. Этот тип ошибок VBA, как правило, также не сложно обнаружить и исправить, так как сообщается информация о характере ошибки и место в коде, где произошла остановка.

Примером такой ошибки может служить попытка выполнить деление на ноль. В результате будет показано сообщение “Run-time error ’11’: Division by zero“.

В зависимости от структуры проекта VBA, может быть предложено выполнить отладку кода (как показано на рисунке ниже). В этом случае при нажатии на кнопку Debug (в окне сообщения о необходимости отладки) будет выделена цветом строка кода, которая стала причиной ошибки VBA.

Получив такое сообщение и видя выделенную строку кода, как в приведённом выше примере, обнаружить причину ошибки будет совсем не сложно.

В случае если код сложнее, чем в нашем примере, то, чтобы получить больше информации о причине возникновения ошибки VBA, можно проверить значения используемых переменных. В редакторе VBA для этого достаточно навести указатель мыши на имя переменной, или можно открыть окно отслеживания локальных переменных (в меню редактора View > Locals Window).

Коды различных ошибок выполнения расшифрованы на сайте Microsoft Support (на английском). Наиболее часто встречающиеся ошибки VBA перечислены в этой таблице:

Ссылка на основную публикацию
ВсеИнструменты
Adblock
detector
×
×