I created a macro for a file and first it was working fine, but today I’ve been opening and restarting the file and macro hundreds of times and I’m always getting the following error:
Excel VBA Run-time error ’13’ Type mismatch
I didn’t change anything in the macro and don’t know why am I getting the error. Furthermore it takes ages to update the macro every time I put it running (the macro has to run about 9000 rows).
The error is on the line in the between ** **.
VBA:
Sub k()
Dim x As Integer, i As Integer, a As Integer
Dim name As String
name = InputBox("Please insert the name of the sheet")
i = 1
Sheets(name).Cells(4, 58) = Sheets(name).Cells(4, 57)
x = Sheets(name).Cells(4, 57).Value
Do While Not IsEmpty(Sheets(name).Cells(i + 4, 57))
a = 0
If Sheets(name).Cells(4 + i, 57) <> x Then
If Sheets(name).Cells(4 + i, 57) <> 0 Then
If Sheets(name).Cells(4 + i, 57) = 3 Then
a = x
Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - x
x = Cells(4 + i, 57) - x
End If
**Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a**
x = Sheets(name).Cells(4 + i, 57) - a
Else
Cells(4 + i, 58) = ""
End If
Else
Cells(4 + i, 58) = ""
End If
i = i + 1
Loop
End Sub
I’m using excel 2010 on windows 7.
Vega
27.6k27 gold badges95 silver badges103 bronze badges
asked Jan 16, 2012 at 19:52
1
You would get a type mismatch if Sheets(name).Cells(4 + i, 57) contains a non-numeric value. You should validate the fields before you assume they are numbers and try to subtract from them.
Also, you should enable Option Strict so you are forced to explicitly convert your variables before trying to perform type-dependent operations on them such as subtraction. That will help you identify and eliminate issues in the future, too.
Unfortunately Option Strict is for VB.NET only. Still, you should look up best practices for explicit data type conversions in VBA.
Update:
If you are trying to go for the quick fix of your code, however, wrap the ** line and the one following it in the following condition:
If IsNumeric(Sheets(name).Cells(4 + i, 57))
Sheets(name).Cells(4 + i, 58) = Sheets(name).Cells(4 + i, 57) - a
x = Sheets(name).Cells(4 + i, 57) - a
End If
Note that your x value may not contain its expected value in the next iteration, however.
answered Jan 16, 2012 at 19:55
Devin BurkeDevin Burke
13.6k12 gold badges55 silver badges82 bronze badges
5
Thank you guys for all your help! Finally I was able to make it work perfectly thanks to a friend and also you!
Here is the final code so you can also see how we solve it.
Thanks again!
Option Explicit
Sub k()
Dim x As Integer, i As Integer, a As Integer
Dim name As String
'name = InputBox("Please insert the name of the sheet")
i = 1
name = "Reserva"
Sheets(name).Cells(4, 57) = Sheets(name).Cells(4, 56)
On Error GoTo fim
x = Sheets(name).Cells(4, 56).Value
Application.Calculation = xlCalculationManual
Do While Not IsEmpty(Sheets(name).Cells(i + 4, 56))
a = 0
If Sheets(name).Cells(4 + i, 56) <> x Then
If Sheets(name).Cells(4 + i, 56) <> 0 Then
If Sheets(name).Cells(4 + i, 56) = 3 Then
a = x
Sheets(name).Cells(4 + i, 57) = Sheets(name).Cells(4 + i, 56) - x
x = Cells(4 + i, 56) - x
End If
Sheets(name).Cells(4 + i, 57) = Sheets(name).Cells(4 + i, 56) - a
x = Sheets(name).Cells(4 + i, 56) - a
Else
Cells(4 + i, 57) = ""
End If
Else
Cells(4 + i, 57) = ""
End If
i = i + 1
Loop
Application.Calculation = xlCalculationAutomatic
Exit Sub
fim:
MsgBox Err.Description
Application.Calculation = xlCalculationAutomatic
End Sub
bpeterson76
12.9k4 gold badges48 silver badges82 bronze badges
answered Jan 17, 2012 at 16:50
DiogoDiogo
1511 gold badge1 silver badge5 bronze badges
1
Diogo
Justin has given you some very fine tips 
You will also get that error if the cell where you are performing the calculation has an error resulting from a formula.
For example if Cell A1 has #DIV/0! error then you will get «Excel VBA Run-time error ’13’ Type mismatch» when performing this code
Sheets("Sheet1").Range("A1").Value - 1
I have made some slight changes to your code. Could you please test it for me? Copy the code with the line numbers as I have deliberately put them there.
Option Explicit
Sub Sample()
Dim ws As Worksheet
Dim x As Integer, i As Integer, a As Integer, y As Integer
Dim name As String
Dim lastRow As Long
10 On Error GoTo Whoa
20 Application.ScreenUpdating = False
30 name = InputBox("Please insert the name of the sheet")
40 If Len(Trim(name)) = 0 Then Exit Sub
50 Set ws = Sheets(name)
60 With ws
70 If Not IsError(.Range("BE4").Value) Then
80 x = Val(.Range("BE4").Value)
90 Else
100 MsgBox "Please check the value of cell BE4. It seems to have an error"
110 GoTo LetsContinue
120 End If
130 .Range("BF4").Value = x
140 lastRow = .Range("BE" & Rows.Count).End(xlUp).Row
150 For i = 5 To lastRow
160 If IsError(.Range("BE" & i)) Then
170 MsgBox "Please check the value of cell BE" & i & ". It seems to have an error"
180 GoTo LetsContinue
190 End If
200 a = 0: y = Val(.Range("BE" & i))
210 If y <> x Then
220 If y <> 0 Then
230 If y = 3 Then
240 a = x
250 .Range("BF" & i) = Val(.Range("BE" & i)) - x
260 x = Val(.Range("BE" & i)) - x
270 End If
280 .Range("BF" & i) = Val(.Range("BE" & i)) - a
290 x = Val(.Range("BE" & i)) - a
300 Else
310 .Range("BF" & i).ClearContents
320 End If
330 Else
340 .Range("BF" & i).ClearContents
350 End If
360 Next i
370 End With
LetsContinue:
380 Application.ScreenUpdating = True
390 Exit Sub
Whoa:
400 MsgBox "Error Description :" & Err.Description & vbNewLine & _
"Error at line : " & Erl
410 Resume LetsContinue
End Sub
answered Jan 16, 2012 at 23:15
Siddharth RoutSiddharth Rout
147k17 gold badges206 silver badges250 bronze badges
3
For future readers:
This function was abending in Run-time error '13': Type mismatch
Function fnIsNumber(Value) As Boolean
fnIsNumber = Evaluate("ISNUMBER(0+""" & Value & """)")
End Function
In my case, the function was failing when it ran into a #DIV/0! or N/A value.
To solve it, I had to do this:
Function fnIsNumber(Value) As Boolean
If CStr(Value) = "Error 2007" Then '<===== This is the important line
fnIsNumber = False
Else
fnIsNumber = Evaluate("ISNUMBER(0+""" & Value & """)")
End If
End Function
answered Jun 21, 2018 at 15:45
cssyphuscssyphus
37.5k18 gold badges91 silver badges110 bronze badges
Sub HighlightSpecificValue()
'PURPOSE: Highlight all cells containing a specified values
Dim fnd As String, FirstFound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range
'What value do you want to find?
fnd = InputBox("I want to hightlight cells containing...", "Highlight")
'End Macro if Cancel Button is Clicked or no Text is Entered
If fnd = vbNullString Then Exit Sub
Set myRange = ActiveSheet.UsedRange
Set LastCell = myRange.Cells(myRange.Cells.Count)
enter code here
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)
'Test to see if anything was found
If Not FoundCell Is Nothing Then
FirstFound = FoundCell.Address
Else
GoTo NothingFound
End If
Set rng = FoundCell
'Loop until cycled through all unique finds
Do Until FoundCell Is Nothing
'Find next cell with fnd value
Set FoundCell = myRange.FindNext(after:=FoundCell)
'Add found cell to rng range variable
Set rng = Union(rng, FoundCell)
'Test to see if cycled through to first found cell
If FoundCell.Address = FirstFound Then Exit Do
Loop
'Highlight Found cells yellow
rng.Interior.Color = RGB(255, 255, 0)
Dim fnd1 As String
fnd1 = "Rah"
'Condition highlighting
Set FoundCell = myRange.FindNext(after:=FoundCell)
If FoundCell.Value("rah") Then
rng.Interior.Color = RGB(255, 0, 0)
ElseIf FoundCell.Value("Nav") Then
rng.Interior.Color = RGB(0, 0, 255)
End If
'Report Out Message
MsgBox rng.Cells.Count & " cell(s) were found containing: " & fnd
Exit Sub
'Error Handler
NothingFound:
MsgBox "No cells containing: " & fnd & " were found in this worksheet"
End Sub
Neil
54.4k8 gold badges60 silver badges72 bronze badges
answered Oct 9, 2015 at 10:10
I had the same problem as you mentioned here above and my code was doing great all day yesterday.
I kept on programming this morning and when I opened my application (my file with an Auto_Open sub), I got the Run-time error ’13’ Type mismatch, I went on the web to find answers, I tried a lot of things, modifications and at one point I remembered that I read somewhere about «Ghost» data that stays in a cell even if we don’t see it.
My code do only data transfer from one file I opened previously to another and Sum it. My code stopped at the third SheetTab (So it went right for the 2 previous SheetTab where the same code went without stopping) with the Type mismatch message. And it does that every time at the same SheetTab when I restart my code.
So I selected the cell where it stopped, manually entered 0,00 (Because the Type mismatch comes from a Summation variables declared in a DIM as Double) and copied that cell in all the subsequent cells where the same problem occurred. It solved the problem. Never had the message again. Nothing to do with my code but the «Ghost» or data from the past. It is like when you want to use the Control+End and Excel takes you where you had data once and deleted it. Had to «Save» and close the file when you wanted to use the Control+End to make sure Excel pointed you to the right cell.
TylerH
20.7k65 gold badges73 silver badges98 bronze badges
answered Oct 11, 2013 at 19:14
This error occurs when the input variable type is wrong. You probably have written a formula in Cells(4 + i, 57) that instead of =0, the formula = "" have used. So when running this error is displayed. Because empty string is not equal to zero.
answered Dec 13, 2016 at 21:12
gadolfgadolf
1,01511 silver badges19 bronze badges
Summary:
This post is written with the main prospective of providing you all with ample amount of detail regarding Excel runtime error 13. So go through this complete guide to know how to fix runtime error 13 type mismatch.
In our earlier blogs, we have described the commonly found Excel file runtime error 1004, 32809 and 57121. Today in this article we are describing another Excel file runtime error 13.
Run-time error ‘13’: Type Mismatch usually occurs meanwhile the code is executed in Excel. As a result of this, you may get terminated every time from all the ongoing activities on your Excel application.
This run time error 13 also put an adverse effect on XLS/XLSX files. So before this Excel Type Mismatch error damages your Excel files, fix it out immediately with the given fixes.
Apart from that, there are many reasons behind getting the Excel file runtime error 13 when the Excel file gets corrupted this starts showing runtime error.
To recover lost Excel data, we recommend this tool:
This software will prevent Excel workbook data such as BI data, financial reports & other analytical information from corruption and data loss. With this software you can rebuild corrupt Excel files and restore every single visual representation & dataset to its original, intact state in 3 easy steps:
- Download Excel File Repair Tool rated Excellent by Softpedia, Softonic & CNET.
- Select the corrupt Excel file (XLS, XLSX) & click Repair to initiate the repair process.
- Preview the repaired files and click Save File to save the files at desired location.
Error Detail:
Error code: Run-time error ‘13’
Declaration: Excel Type Mismatch error
Here is the screenshot of this error:
Why Am I Getting Excel Runtime Error 13 Type Mismatch?
Following are some reasons for run time error 13 type mismatch:
- When multiple methods or files require to starts a program that uses Visual Basic (VB) environment
- Runtime error 13 often occurs when mismatches occur within the software applications which you require to use.
- Due to virus and malware infection as this corrupts the Windows system files or Excel-related files.
- When you tap on the function or macro present on the menu which is created by another Macro then also you will receive the same run time error 13.
- The runtime error commonly occurs due to the conflict between the software and the operating system.
- Due to the corrupt or incomplete installation of Microsoft Excel software.
- The Run-time Error 13 appears when the users try to run VBA code that includes data types that are not matched correctly. Thus it starts displaying Runtime error 13 type mismatch.
- Due to conflict with other programs while opening the VBA Excel file.
Well, these are some of the common reasons for getting the Excel file runtime error 13.
How To Fix Excel Runtime Error 13 Type Mismatch?
Learn how to Fix Excel Runtime Error 13 Type Mismatch.
1: Using Open and Repair Utility
2. Uninstall The Program
3. Scan For Virus/Malware
4. Recover Missing Macros
5. Run The ‘Regedit’ Command In CMD
6: Create New Disk Partition And Reinstall Windows
7: Use MS Excel Repair Tool
1: Using Open and Repair Utility
There is a ‘File Recovery’ mode within Excel which gets activated automatically when any corruption issue hits your worksheet or workbook.
But in some cases, Excel won’t offer this ‘File Recovery’ mode and at that time you need to use Excel inbuilt tool ‘Open and Repair’.
Using this inbuilt utility tool you can recover corrupted/damaged Excel files. Try the following steps to fix Visual Basic runtime error 13 type mismatch in Excel.
Here follow the steps to do so:
- In the File menu> click “Open”
- And select corrupt Excel file > from the drop-down list of open tab > select “Open and Repair”
- Lastly, click on the “Repair” button.
However, it is found that the inbuilt repair utility fails to repair the severely damaged Excel file.
2. Uninstall The Program
It is found some application and software causes the runtime error.
So, to fix the Excel file error, simply uninstall the problematic apps and programs.
- First, go to the Task Manager and stop the running programs.
- Then in the start menu > select Control Panel.
- In the Control Panel > choose Add or Remove Program.
- Here, you will get the list of installed programs on your PC.
- Then from the list select Microsoft Work.
- Click on uninstall to remove it from the PC.
Hope doing this will fix the Excel file Runtime error 13, but if not then follow the third solution.
3. Scan For Virus/Malware
Virus intrusion is quite a big problem for all Windows users, as it causes several issues for PC and Excel files.
This can be the great reason behind this Runtime 13 error. As viruses damage the core program file of MS Office which is important for the execution of Excel application.
This makes the file unreadable and starts generating the following error message: Visual Basic runtime error 13 type mismatch in Excel
To avoid this error, you need to remove all virus infections from your system using the reliable anti-virus removal tool.
Well, it is found that if your Windows operating system in having viruses and malware then this might corrupt Excel file and as a result, you start facing the runtime file error 13.
So, it is recommended to scan your system with the best antivirus program and make your system malware-free. Ultimately this will also fix runtime error 13.
4. Recover Missing Macros
Well, as it is found that users are getting the runtime error 13 due to the missing macros, So try to recover the missing Macros.
Here follow the steps to do so:
- Open the new Excel file > and set the calculation mode to Manual
- Now from the Tools menu select Macro > select Security > High option.
- If you are using Excel 2007, then click the Office button > Excel Options > Trust Center in the left panel
- And click on Trust Center Settings button > Macro Settings > Disable All Macros without Notification in the Macro Settings section > click OK twice.
- Now, open the corrupted workbook. If Excel opens the workbook a message appears that the macros are disabled.
- But if in case Excel shut down, then this method is not workable.
- Next press [Alt] + [F11] for opening the Visual Basic Editor (VBE).
- Make use of the Project Explorer (press [Ctrl]+R) > right-click a module > Export File.
- Type name and folder for the module > and repeat this step as many times as required to export the entire module.
- Finally, close the VBE and exit.
Now open the new blank workbook (or the recently constructed workbook that contains recovered data from the corrupted workbook) and import the modules.
5. Run The ‘Regedit’ Command In CMD
This Excel error 13 can also be fixed by running the ‘Regedit’ command in the command prompt.
- In the search menu of your system’s start menu type run command.
- Now in the opened run dialog box type “regedit” command. After that hit the OK
- This will open the registry editor. On its right side there is a ‘LoadApplnit_DLLs value.’ option, just make double-tap to it.
- Change the value from 1 to ‘0‘and then press the OK.
- Now take exit from this opened registry editor.
- After completing all this, restart your PC.
Making the above changes will definitely resolve the Runtime Error 13 Type Mismatch.
6: Create New Disk Partition And Reinstall Windows
If even after trying all the above-given fixes Excel type mismatched error still persists. In that case, the last option left here is to create the new partition and reinstall Windows.
- In your PC insert windows DVD/CD and after that begin the installation procedure.
- For installation, choose the language preference.
- Tap to the option” I accept” and then hit the NEXT
- Select the custom advance option and then choose the Disk O partition 1
- Now hit the delete> OK button.
- The same thing you have to repeat after selecting the Disk O partition 2.
- Now hit the delete> OK button to delete this too.
- After completing the deletion procedure, tap to create a new partition.
- Assign the disk size and tap to the Apply.
- Now choose the Disk 0 partition 2 and then hit the Formatting.
- After complete formatting, hit the NEXT button to continue.
Note: before attempting this procedure don’t forget to keep a complete backup of all your data.
However, if you are still facing the Excel Runtime file error 13 then make use of the third party automatic repair tool.
7: Use MS Excel Repair Tool
It is recommended to make use of the MS Excel Repair Tool. This is the best tool to repair all sort of issues, corruption, errors in Excel workbooks. This tool allows to easily restore all corrupt excel file including the charts, worksheet properties cell comments, and other important data.
* Free version of the product only previews recoverable data.
This is a unique tool to repair multiple excel files at one repair cycle and recovers the entire data in a preferred location. It is easy to use and compatible with both Windows as well as Mac operating systems.
Steps to Utilize MS Excel Repair Tool:
Final Verdict:
After reading the complete post you must have got enough idea on Visual Basic runtime error 13 type mismatch in Excel. Following the listed given fixes you are able to fix the Excel runtime file error 13.
I tried my best to provide ample information about the runtime error and possible workarounds that will help you to fix the Excel file error.
So, just make use of the solutions given and check whether the Excel error is fixed or not.
In case you have any additional workarounds that proved successful or questions concerning the ones presented, do tell us in the comments.
Hope you find this post informative and helpful.
Thanks for reading…!
Priyanka is an entrepreneur & content marketing expert. She writes tech blogs and has expertise in MS Office, Excel, and other tech subjects. Her distinctive art of presenting tech information in the easy-to-understand language is very impressive. When not writing, she loves unplanned travels.
Home > VBA > VBA Type Mismatch Error (Error 13)
Type Mismatch (Error 13) occurs when you try to specify a value to a variable that doesn’t match with its data type. In VBA, when you declare a variable you need to define its data type, and when you specify a value that is different from that data type you get the type mismatch error 13.
In this tutorial, we will see what the possible situations are where runtime error 13 can occurs while executing a code.
Type Mismatch Error with Date
In VBA, there is a specific data type to deal with dates and sometimes it happens when you using a variable to store a date and somehow the value you specify is different.
In the following code, I have declared a variable as the date and then I have specified the value from cell A1 where I am supposed to have a date only. But as you can see the date that I have in cell one is not in the correct format VBA is not able to identify it as a date.
Sub myMacro()
Dim iVal As Date
iVal = Range("A1").Value
End SubType Mismatch Error with Number
You’re gonna have you can have the same error while dealing with numbers where you get a different value when you trying to specify a number to a variable.
In the following example, you have an error in cell A1 which is supposed to be a numeric value. So when you run the code, VBA shows you the runtime 13 error because it cannot identify the value as a number.
Sub myMacro()
Dim iNum As Long
iNum = Range("A6").Value
End SubRuntime Error 6 Overflow
In VBA, there are multiple data types to deal with numbers and each of these data types has a range of numbers that you can assign to it. But there is a problem when you specify a number that is out of the range of the data type.
In that case, we will show you runtime error 6 overflow which indicates you need to change the data type and the number you have specified is out of the range.
Other Situations When it Can Occurs
There might be some other situations in which you could face the runtime error 14: Type Mismatch.
- When you assign a range to an array but that range only consists of a single cell.
- When you define a variable as an object but by writing the code you specify a different object to that variable.
- When you specify a variable as a worksheet but use sheets collection in the code or vice versa.
How to Fix Type Mismatch (Error 13)
The best way to deal with this error is to use to go to the statement to run a specific line of code or show a message box to the user when the error occurs. But you can also check the court step by step before executing it. For this, you need to use VBA’s debug tool, or you can also use the shortcut key F8.
What is VBA
- VBA ERROR Handling
- VBA Automation Error (Error 440)
- VBA Error 400
- VBA Invalid Procedure Call Or Argument Error (Error 5)
- VBA Object Doesn’t Support this Property or Method Error (Error 438)
- VBA Object Required Error (Error 424)
- VBA Out of Memory Error (Error 7)
- VBA Overflow Error (Error 6)
- VBA Runtime Error (Error 1004)
- VBA Subscript Out of Range Runtime Error (Error 9)
Содержание
- Несоответствие типов (ошибка 13)
- Поддержка и обратная связь
- Как исправить ошибку во время выполнения 13
- Обзор «Type mismatch»
- Почему происходит ошибка времени выполнения 13?
- Типичные ошибки Type mismatch
- Создатели Type mismatch Трудности
- Разбор ошибки Type Mismatch Error
- Объяснение Type Mismatch Error
- Использование отладчика
- Присвоение строки числу
- Недействительная дата
- Ошибка ячейки
- Неверные данные ячейки
- Имя модуля
- Различные типы объектов
- Коллекция Sheets
- Массивы и диапазоны
- Заключение
Visual Basic может преобразовать и привести большое число значений для присвоений типа данных, которые не были возможны в предыдущих версиях.
Тем не менее, эта ошибка может по-прежнему повторяться и имеет следующие причины и решения:
- Причина:Переменная или свойство имеют неверный тип. Например, переменная целого типа, не может принимать строковые значения, которые не распознаются как целые числа.
Решение: Попробуйте выполнять задания только между совместимыми типами данных. Например, значение типа Integer всегда можно присвоить типу Long, значение Single — типу Double, а любой тип (за исключением пользовательского) — типу Variant.
- Причина: В процедуру, требующую отдельное свойство или значение, передан объект.
Решение: Передайте отдельное свойство или вызовите метод, соответствующий объекту.
Причина: Используется имя модуля или проекта, где требуется выражение, например:
Решение: Укажите выражение, которое будет отображаться.
Причина: Попытка использовать традиционный механизм обработки ошибок Basic со значениями Variant с подтипом Error (10, vbError), например:
Решение: Чтобы воссоздать ошибку, необходимо сопоставить ее с пользовательской или внутренней ошибкой Visual Basic, после чего снова создать ее.
Причина: Значение CVErr не может быть преобразовано в тип Date. Например:
Решение: Используйте оператор Select Case или аналогичную конструкцию, чтобы сопоставить возвращаемое значение CVErr с соответствующим значением.
- Причина: Во время выполнения эта ошибка указывает на то, что переменная Variant, используемая в выражении, имеет неверный подтип, либо переменная Variant, содержащая массив, используется в операторе Print #.
Решение: Для печати массивов используйте цикл в котором каждый элемент отображается отдельно.
Для получения дополнительной информации выберите необходимый элемент и нажмите клавишу F1 (для Windows) или HELP (для Macintosh).
Хотите создавать решения, которые расширяют возможности Office на разнообразных платформах? Ознакомьтесь с новой моделью надстроек Office. Надстройки Office занимают меньше места по сравнению с надстройками и решениями VSTO, и вы можете создавать их, используя практически любую технологию веб-программирования, например HTML5, JavaScript, CSS3 и XML.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
Как исправить ошибку во время выполнения 13
| Номер ошибки: | Ошибка во время выполнения 13 | |
| Название ошибки: | Type mismatch | |
| Описание ошибки: | Visual Basic is able to convert and coerce many values to accomplish data type assignments that weren’t possible in earlier versions. | |
| Разработчик: | Microsoft Corporation | |
| Программное обеспечение: | Windows Operating System | |
| Относится к: | Windows XP, Vista, 7, 8, 10, 11 |
Обзор «Type mismatch»
«Type mismatch» часто называется ошибкой во время выполнения (ошибка). Когда дело доходит до Windows Operating System, инженеры программного обеспечения используют арсенал инструментов, чтобы попытаться сорвать эти ошибки как можно лучше. Тем не менее, возможно, что иногда ошибки, такие как ошибка 13, не устранены, даже на этом этапе.
Ошибка 13, рассматриваемая как «Visual Basic is able to convert and coerce many values to accomplish data type assignments that weren’t possible in earlier versions.», может возникнуть пользователями Windows Operating System в результате нормального использования программы. Когда это происходит, конечные пользователи программного обеспечения могут сообщить Microsoft Corporation о существовании ошибки 13 ошибок. Команда программирования может использовать эту информацию для поиска и устранения проблемы (разработка обновления). Чтобы исправить любые документированные ошибки (например, ошибку 13) в системе, разработчик может использовать комплект обновления Windows Operating System.
Почему происходит ошибка времени выполнения 13?
Сбой устройства или Windows Operating System обычно может проявляться с «Type mismatch» в качестве проблемы во время выполнения. Проанализируем некоторые из наиболее распространенных причин ошибок ошибки 13 во время выполнения:
Ошибка 13 Crash — Номер ошибки вызовет блокировка системы компьютера, препятствуя использованию программы. Это возникает, когда Windows Operating System не реагирует на ввод должным образом или не знает, какой вывод требуется взамен.
Утечка памяти «Type mismatch» — последствия утечки памяти Windows Operating System связаны с неисправной операционной системой. Повреждение памяти и другие потенциальные ошибки в коде могут произойти, когда память обрабатывается неправильно.
Ошибка 13 Logic Error — Логические ошибки проявляются, когда пользователь вводит правильные данные, но устройство дает неверный результат. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.
Как правило, ошибки Type mismatch вызваны повреждением или отсутствием файла связанного Windows Operating System, а иногда — заражением вредоносным ПО. Большую часть проблем, связанных с данными файлами, можно решить посредством скачивания и установки последней версии файла Microsoft Corporation. Помимо прочего, в качестве общей меры по профилактике и очистке мы рекомендуем использовать очиститель реестра для очистки любых недопустимых записей файлов, расширений файлов Microsoft Corporation или разделов реестра, что позволит предотвратить появление связанных с ними сообщений об ошибках.
Типичные ошибки Type mismatch
Частичный список ошибок Type mismatch Windows Operating System:
- «Ошибка Type mismatch. «
- «Ошибка программного обеспечения Win32: Type mismatch»
- «Извините за неудобства — Type mismatch имеет проблему. «
- «К сожалению, мы не можем найти Type mismatch. «
- «Type mismatch не найден.»
- «Ошибка запуска программы: Type mismatch.»
- «Type mismatch не работает. «
- «Отказ Type mismatch.»
- «Type mismatch: путь приложения является ошибкой. «
Обычно ошибки Type mismatch с Windows Operating System возникают во время запуска или завершения работы, в то время как программы, связанные с Type mismatch, выполняются, или редко во время последовательности обновления ОС. Выделение при возникновении ошибок Type mismatch имеет первостепенное значение для поиска причины проблем Windows Operating System и сообщения о них вMicrosoft Corporation за помощью.
Создатели Type mismatch Трудности
Проблемы Type mismatch могут быть отнесены к поврежденным или отсутствующим файлам, содержащим ошибки записям реестра, связанным с Type mismatch, или к вирусам / вредоносному ПО.
В частности, проблемы с Type mismatch, вызванные:
- Поврежденная или недопустимая запись реестра Type mismatch.
- Зазаражение вредоносными программами повредил файл Type mismatch.
- Type mismatch злонамеренно удален (или ошибочно) другим изгоем или действительной программой.
- Другое программное обеспечение, конфликтующее с Windows Operating System, Type mismatch или общими ссылками.
- Поврежденная установка или загрузка Windows Operating System (Type mismatch).
Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11
Источник
Разбор ошибки 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.
- Запустите код, чтобы появилась ошибка.
- Нажмите Debug в диалоговом окне ошибки. Это выделит строку с ошибкой.
- Выберите View-> Watch из меню, если окно просмотра не видно.
- Выделите переменную слева от equals и перетащите ее в окно Watch.
- Выделите все справа от равных и перетащите его в окно Watch.
- Проверьте значения и типы каждого.
- Вы можете сузить ошибку, изучив отдельные части правой стороны.
Следующее видео показывает, как это сделать.
На скриншоте ниже вы можете увидеть типы в окне просмотра.
Используя окно просмотра, вы можете проверить различные части строки кода с ошибкой. Затем вы можете легко увидеть, что это за типы переменных.
В следующих разделах показаны различные способы возникновения 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. Есть очень тонкая разница.
- Worksheets — сборник рабочих листов в Workbook
- Sheets — сборник рабочих листов и диаграммных листов в Workbook
Лист диаграммы создается, когда вы перемещаете диаграмму на собственный лист, щелкая правой кнопкой мыши на диаграмме и выбирая «Переместить».
Если вы читаете коллекцию Sheets с помощью переменной Worksheet, она будет работать нормально, если у вас нет рабочей таблицы.
Если у вас есть лист диаграммы, вы получите
Type Mismatch Error VBA.
В следующем коде Type Mismatch Error появится в строке «Next sh», если рабочая книга содержит лист с диаграммой.
Массивы и диапазоны
Вы можете назначить диапазон массиву и наоборот. На самом деле это очень быстрый способ чтения данных.
Проблема возникает, если ваш диапазон имеет только одну ячейку. В этом случае VBA не преобразует arr в массив.
Если вы попытаетесь использовать его как массив, вы получите
Type Mismatch Error .
В этом сценарии вы можете использовать функцию IsArray, чтобы проверить, является ли arr массивом.
Заключение
На этом мы завершаем статью об Type Mismatch Error VBA. Если у вас есть ошибка несоответствия, которая не раскрыта, пожалуйста, дайте мне знать в комментариях.
Источник
Что такое ошибка несоответствия типа?
Ошибка несоответствия часто может возникать при запуске кода VBA. Ошибка приведет к тому, что ваш код не будет полностью запущен, и появится сообщение о том, что эту ошибку необходимо устранить.
Обратите внимание, что если вы не полностью протестировали свой код перед распространением среди пользователей, это сообщение об ошибке будет видно пользователям и вызовет большую потерю доверия к вашему приложению Excel. К сожалению, пользователи часто делают с приложением очень необычные вещи, о которых вы, как разработчик, никогда не задумывались.
Ошибка несоответствия типа возникает из-за того, что вы определили переменную с помощью оператора Dim как определенный тип, например. целое число, дата и ваш код пытается присвоить значение переменной, которое неприемлемо, например. текстовая строка, присвоенная целочисленной переменной, как в этом примере:
Вот пример:
Нажмите «Отладка», и вызывающая нарушение строка кода будет выделена желтым цветом. Во всплывающем окне с ошибкой нет возможности продолжить, так как это серьезная ошибка, и код не может работать дальше.
В этом конкретном случае решение состоит в том, чтобы изменить оператор Dim на тип переменной, который работает со значением, которое вы присваиваете переменной. Код будет работать, если вы измените тип переменной на «String», и вы, вероятно, захотите также изменить имя переменной.
Однако изменение типа переменной потребует сброса вашего проекта, и вам придется снова запускать свой код с самого начала, что может быть очень раздражающим, если задействована длинная процедура.
Ошибка несоответствия, вызванная расчетом рабочего листа
Приведенный выше пример — очень простой пример того, как может возникнуть ошибка несоответствия, и в этом случае ее легко исправить.
Однако причина ошибок несоответствия обычно гораздо глубже, чем эта, и не так очевидна, когда вы пытаетесь отладить свой код.
В качестве примера предположим, что вы написали код для выбора значения в определенной позиции на листе, и он содержит зависимые от вычислений другие ячейки в книге (B1 в этом примере).
Рабочий лист выглядит как этот пример, с формулой для поиска определенного символа в строке текста.
С точки зрения пользователя, ячейка A1 имеет свободный формат, и они могут вводить любое значение, которое захотят. Однако формула ищет вхождение символа «B», и в этом случае он не найден, поэтому в ячейке B1 содержится значение ошибки.
Приведенный ниже тестовый код приведет к ошибке несоответствия, поскольку в ячейку A1 было введено неправильное значение.
| 1234 | Sub TestMismatch ()Dim MyNumber как целое числоMyNumber = Sheets («Sheet1»). Range («B1»). ValueКонец подписки |
Значение в ячейке B1 вызвало ошибку, потому что пользователь ввел текст в ячейку A1, который не соответствует ожидаемому и не содержит символа «B».
Код пытается присвоить значение переменной «MyNumber», которая была определена как ожидание целого числа, и поэтому вы получаете ошибку несоответствия.
Это один из тех примеров, когда тщательная проверка кода не дает ответа. Вам также необходимо посмотреть на лист, откуда берется значение, чтобы выяснить, почему это происходит.
Проблема на самом деле находится на рабочем листе, и формулу в B1 нужно изменить, чтобы значения ошибок были обработаны. Вы можете сделать это, используя формулу «ЕСЛИОШИБКА», чтобы указать значение по умолчанию 0, если поисковый символ не найден.
Затем вы можете включить код для проверки нулевого значения и отображения предупреждающего сообщения для пользователя о том, что значение в ячейке A1 недопустимо.
| 12345678 | Sub TestMismatch ()Dim MyNumber как целое числоMyNumber = Sheets («Sheet1»). Range («B1»). TextЕсли MyNumber = 0, тоMsgBox «Недопустимое значение в ячейке A1», vbCriticalВыйти из подводной лодкиКонец, еслиКонец подписки |
Вы также можете использовать проверку данных (группа «Инструменты данных» на вкладке «Данные» на ленте) в электронной таблице, чтобы не дать пользователю делать все, что ему нравится, и в первую очередь вызвать ошибки на листе. Разрешите им вводить только значения, которые не вызовут ошибок на листе.
Вы можете написать код VBA на основе события Change на листе, чтобы проверить, что было введено.
Также заблокируйте и защитите паролем рабочий лист, чтобы нельзя было ввести недопустимые данные.
Ошибка несоответствия, вызванная введенными значениями ячеек
Ошибки несоответствия могут быть вызваны в вашем коде путем ввода нормальных значений из рабочего листа (без ошибок), но когда пользователь ввел неожиданное значение, например текстовое значение, когда вы ожидали число. Возможно, они решили вставить строку в диапазон чисел, чтобы они могли поместить заметку в ячейку, объясняющую что-то о числе. В конце концов, пользователь понятия не имеет, как работает ваш код, и что он просто выбросил все из строя, введя свою заметку.
В приведенном ниже примере кода создается простой массив с именем MyNumber, определенный с целочисленными значениями.
Затем код выполняет итерацию по диапазону ячеек от A1 до A7, присваивая значения ячеек в массив, используя переменную «Coun» для индексации каждого значения.
Когда код достигает текстового значения, это вызывает ошибку несоответствия, и все останавливается
Нажав «Отладка» во всплывающем окне с ошибкой, вы увидите строку кода, в которой проблема выделена желтым цветом. Наведя курсор на любой экземпляр переменной «Coun» в коде, вы сможете увидеть значение «Coun», в котором произошел сбой кода, которое в данном случае равно 5.
Посмотрев на лист, вы увидите, что 5th ячейка вниз имеет текстовое значение, и это привело к сбою кода
Вы можете изменить свой код, поставив условие, которое сначала проверяет числовое значение, прежде чем добавлять значение ячейки в массив.
| 12345678910111213 | Sub TestMismatch ()Dim MyNumber (10) как целое число, счетчик как целоеCoun = 1ДелатьЕсли Coun = 11, то выйти из DoЕсли IsNumeric (Sheets («sheet1»). Cells (Coun, 1) .Value), тоMyNumber (Coun) = Sheets («sheet1»). Cells (Coun, 1) .ValueЕщеMyNumber (Coun) = 0Конец, еслиCoun = Coun + 1ПетляКонец подписки |
В коде используется функция IsNumeric, чтобы проверить, действительно ли значение является числом, и если это так, он вводит его в массив. Если это не число, то вводится нулевое значение.
Это гарантирует, что индекс массива будет соответствовать номерам строк ячеек в электронной таблице.
Вы также можете добавить код, который копирует исходное значение ошибки и сведения о местоположении в рабочий лист «Ошибки», чтобы пользователь мог видеть, что он сделал неправильно, при запуске вашего кода.
Числовой тест использует полный код ячейки, а также код для присвоения значения массиву. Вы можете возразить, что это должно быть присвоено переменной, чтобы не повторять один и тот же код, но проблема в том, что вам нужно будет определить переменную как «вариант», что не лучший вариант.
Вам также потребуется проверка данных на листе и защита рабочего листа паролем. Это предотвратит вставку пользователем строк и ввод неожиданных данных.
Ошибка несоответствия, вызванная вызовом функции или подпрограммы с использованием параметров
Когда функция вызывается, вы обычно передаете ей параметры, используя типы данных, уже определенные функцией. Эта функция может быть функцией, уже определенной в VBA, или это может быть функция, определенная пользователем, которую вы создали сами. Подпрограмма также может иногда требовать параметры
Если вы не будете придерживаться соглашений о том, как параметры передаются в функцию, вы получите ошибку несоответствия.
| 12345678 | Дополнительная функция вызова ()Dim Ret As IntegerRet = MyFunction (3, «тест»)Конец подпискиФункция MyFunction (N как целое число, T как строка) как строкаMyFunction = TКонечная функция |
Здесь есть несколько возможностей получить ошибку несоответствия
Возвращаемая переменная (Ret) определяется как целое число, но функция возвращает строку. Как только вы запустите код, он завершится ошибкой, потому что функция возвращает строку, а это не может быть передано в целочисленную переменную. Интересно, что запуск Debug для этого кода не обнаруживает эту ошибку.
Если вы поместите кавычки вокруг первого передаваемого параметра (3), он интерпретируется как строка, которая не соответствует определению первого параметра в функции (целое число)
Если вы сделаете второй параметр в вызове функции числовым значением, он завершится ошибкой с несоответствием, потому что второй параметр в строке определен как строка (текст)
Ошибка несоответствия, вызванная неправильным использованием функций преобразования в VBA
Существует ряд функций преобразования, которые вы можете использовать в VBA для преобразования значений в различные типы данных. Примером является «CInt», который преобразует строку, содержащую число, в целочисленное значение.
Если преобразуемая строка содержит какие-либо буквенные символы, вы получите ошибку несоответствия, даже если первая часть строки содержит числовые символы, а остальные — буквенные символы, например. «123abc»
Общее предотвращение ошибок несоответствия
В приведенных выше примерах мы видели несколько способов борьбы с потенциальными ошибками несоответствия в вашем коде, но есть ряд других способов, хотя они могут быть не лучшими вариантами:
Определите свои переменные как тип варианта
Вариантный тип — это тип переменной по умолчанию в VBA. Если вы не используете оператор Dim для переменной и просто начинаете использовать его в своем коде, то ему автоматически присваивается тип Variant.
Переменная Variant принимает данные любого типа, будь то целое число, длинное целое число, число двойной точности, логическое или текстовое значение. Это звучит как прекрасная идея, и вы задаетесь вопросом, почему все не устанавливают все свои переменные на вариант.
Однако вариантный тип данных имеет несколько недостатков. Во-первых, он занимает гораздо больше памяти, чем другие типы данных. Если вы определите очень большой массив как вариант, он поглотит огромный объем памяти при выполнении кода VBA и может легко вызвать проблемы с производительностью.
Во-вторых, это обычно медленнее по производительности, чем при использовании определенных типов данных. Например, если вы выполняете сложные вычисления с использованием чисел с плавающей десятичной запятой, вычисления будут значительно медленнее, если вы сохраните числа как варианты, а не числа с двойной точностью.
Использование вариантного типа считается небрежным программированием, если в этом нет абсолютной необходимости.
Используйте команду OnError для обработки ошибок
Команду OnError можно включить в ваш код для работы с перехватом ошибок, чтобы в случае возникновения ошибки пользователь видел значимое сообщение вместо стандартного всплывающего окна с ошибкой VBA.
| 1234567 | Sub ErrorTrap ()Dim MyNumber как целое числоПри ошибке GoTo Err_HandlerMyNumber = «тест»Err_Handler:MsgBox «Произошла ошибка» & Описание ошибки & «Произошла»Конец подписки |
Это эффективно предотвращает остановку бесперебойной работы вашего кода из-за ошибки и позволяет пользователю полностью восстановиться из ситуации с ошибкой.
Подпрограмма Err_Handler может показать дополнительную информацию об ошибке и с кем связаться по этому поводу.
С точки зрения программирования, когда вы используете процедуру обработки ошибок, довольно сложно найти строку кода, в которой возникла ошибка. Если вы выполняете код с помощью F8, как только вызывающая нарушение строка кода запускается, она переходит к процедуре обработки ошибок, и вы не можете проверить, где что-то пошло не так.
Один из способов обойти это — установить глобальную константу, имеющую значение True или False (логическое значение), и использовать ее для включения или выключения процедуры обработки ошибок с помощью оператора «If». Если вы хотите проверить ошибку, все, что вам нужно сделать, это установить для глобальной константы значение False, и обработчик ошибок больше не будет работать.
| 1 | Global Const ErrHandling = False |
| 1234567 | Sub ErrorTrap ()Dim MyNumber как целое числоЕсли ErrHandling = True, то при ошибке Перейти к Err_HandlerMyNumber = «тест»Err_Handler:MsgBox «Произошла ошибка» & Описание ошибки & «Произошла»Конец подписки |
Единственная проблема с этим заключается в том, что он позволяет пользователю восстановиться после ошибки, но остальная часть кода в подпрограмме не запускается, что может иметь огромные последствия позже в приложении.
Используя предыдущий пример перебора диапазона ячеек, код попадет в ячейку A5 и обнаружит ошибку несовпадения. Пользователь увидит окно сообщения с информацией об ошибке, но ничего из этой ячейки и далее в диапазоне не будет обработано.
Используйте команду OnError для подавления ошибок
Для этого используется команда «Возобновить при ошибке». Это очень опасно включать в ваш код, поскольку это предотвращает отображение любых последующих ошибок. Это в основном означает, что если ваш код выполняется, если в строке кода возникает ошибка, выполнение просто переместится на следующую доступную строку, не выполняя строку ошибки, и продолжится как обычно.
Это может устранить потенциальную ошибку, но все равно повлияет на каждую будущую ошибку в коде. Тогда вы можете подумать, что ваш код не содержит ошибок, но на самом деле это не так, и части вашего кода не делают то, что вы думаете, что они должны делать.
Есть ситуации, когда необходимо использовать эту команду, например, если вы удаляете файл с помощью команды ‘Kill’ (если файл отсутствует, будет ошибка), но перехват ошибок всегда должен быть переключен обратно сразу после того, как могла произойти потенциальная ошибка, используя:
В предыдущем примере цикла по диапазону ячеек с использованием ‘On Error Resume Next’ это позволило бы продолжить цикл, но ячейка, вызвавшая ошибку, не будет перенесена в массив, а элемент массива для этого конкретного индекса будет содержать нулевое значение.
Преобразование данных в тип данных, соответствующий декларации
Вы можете использовать функции VBA для изменения типа данных входящих данных, чтобы он соответствовал типу данных принимающей переменной.
Вы можете сделать это при передаче параметров функциям. Например, если у вас есть число, которое хранится в строковой переменной, и вы хотите передать его как число в функцию, вы можете использовать CInt
Существует ряд этих функций преобразования, которые можно использовать, но вот основные из них:
CInt — преобразует строку с числовым значением (ниже + или — 32 768) в целочисленное значение. Имейте в виду, что это обрезает все десятичные точки.
CLng — преобразует строку с большим числовым значением в длинное целое число. Десятичные точки обрезаются.
CDbl — преобразует строку, содержащую число с плавающей десятичной запятой, в число с двойной точностью. Включает десятичные дроби
CDate — преобразует строку, содержащую дату, в переменную даты. Частично зависит от настроек в Панели управления Windows и вашего языкового стандарта от того, как интерпретируется дата.
CStr — преобразует числовое значение или значение даты в строку.
При преобразовании строки в число или дату строка не должна содержать ничего, кроме чисел или даты. Если присутствуют буквенные символы, это приведет к ошибке несоответствия. Вот пример, который приведет к ошибке несоответствия:
| 123 | Подтест ()MsgBox CInt («123abc»)Конец подписки |
Тестирование переменных в вашем коде
Вы можете протестировать переменную, чтобы узнать, что это за тип данных, прежде чем назначать ее переменной определенного типа.
Например, вы можете проверить строку, чтобы узнать, является ли она числовой, используя функцию «IsNumeric» в VBA.
| 1 | MsgBox IsNumeric («123test») |
Этот код вернет False, потому что, хотя строка начинается с числовых символов, она также содержит текст, поэтому тест не пройден.
| 1 | MsgBox IsNumeric («123») |
Этот код вернет True, потому что это все числовые символы.
В VBA есть ряд функций для тестирования различных типов данных, но это основные из них:
IsNumeric — проверяет, является ли выражение числом
IsDate — проверяет, является ли выражение датой.
IsNull — проверяет, является ли выражение нулевым или нет. Нулевое значение может быть помещено только в вариантный объект, в противном случае вы получите сообщение об ошибке «Недопустимое использование нуля». Окно сообщения возвращает нулевое значение, если вы используете его, чтобы задать вопрос, поэтому возвращаемая переменная должна быть вариантом. Имейте в виду, что любое вычисление с использованием нулевого значения всегда будет возвращать нулевой результат.
IsArray — проверяет, представляет ли выражение массив или нет
IsEmpty — проверяет, является ли выражение пустым или нет. Обратите внимание, что пустой — это не то же самое, что и null. При первом определении переменная пуста, но не является нулевым значением.
Как ни странно, для IsText или IsString нет функции, которая была бы действительно полезной.
Объекты и ошибки несоответствия
Если вы используете такие объекты, как диапазон или лист, вы получите ошибку несоответствия во время компиляции, а не во время выполнения, что даст вам должное предупреждение о том, что ваш код не будет работать.
| 123456 | Sub TestRange ()Dim MyRange As Range, I As LongУстановить MyRange = Range («A1: A2»)I = 10x = UseMyRange (I)Конец подписки |
| 12 | Функция UseMyRange (R как диапазон)Конечная функция |
В этом коде есть функция под названием UseMyRange и параметр, переданный как объект диапазона. Однако передаваемый параметр представляет собой длинное целое число, которое не соответствует типу данных.
Когда вы запускаете код VBA, он немедленно компилируется, и вы увидите это сообщение об ошибке:
Неверный параметр будет выделен синим фоном.
Как правило, если вы делаете ошибки в коде VBA, используя объекты, вы увидите это сообщение об ошибке, а не сообщение о несоответствии типа:
