Tag: 不匹配

为什么当我使用“Format（string_variable，”###。＃“）”并且string_variable的值被设置为0.0时，VBA会引发“types不匹配”错误

我的股票交易代码格式的价格变化（单个variables）传输到我的手机，并限制无意义数字的数量。 当价格变化为零时，模块引发“types不匹配”错误。 所有非零值工作正常。 我写了一个简单的模块，展现了这种行为。 Sub test_format() Dim test_single As Single, output As String test_single = 0# output = Str(Format(test_single, "###.#")) Debug.Print test_single; output End Sub

使用包含值和string的数组的Excel VBAtypes13不匹配

我遇到运行时错误13“types不匹配错误”的问题。 我正在尝试采取多行代码，并将它们压缩成一行，每行放在一起。 问题是我的input是string和数字，这是我认为是造成这个问题。 我怎样才能解决这个问题？ Sub multRowsTo1Row() Dim inputRange As Variant Dim outputRange As Variant inputRange = Selection y = UBound(inputRange, 1) x = UBound(inputRange, 2) ReDim outputRange(1 To x * y) For j = 1 To y For i = 1 To x outputRange(i + y(j – 1)) = inputRange(j, i) Next i Next j […]

运行时间错误'13：types不匹配比较date – EXCEL VBA

比较两个date时，我总是收到“运行时错误”13“types不匹配”错误。 代码从第二个工作簿抓取一个date，在这种情况下，我试图将它粘贴到一个单元格中，以确保它是一个date…这是什么。 然后尝试将其与当前工作簿上的date进行比较。 粘贴date和其他date是相同的格式。 我不知道为什么它不能比较两个date！ 我也试过把CDate（）放在每个组件周围都无济于事。 请帮忙。 Sub NewMacro() Dim CurrentWB As Workbook Dim ForecastWB As Workbook Dim strDate As Date Set CurrentWB = ActiveWorkbook Application.DisplayAlerts = False Set ForecastWB = Workbooks.Open("My Other Workbook File Name") Application.DisplayAlerts = True strDate = ActiveWorkbook.Worksheets("My Sheet Name").Cells(20, "N").Value ThisWorkbook.Activate If Cells(5, 5) = Range("A:A") Then 'TYPE MISMATCH HERE […]

Excel – 运行时错误13：types不匹配？

我有一个Excel窗体的问题，我不明白。 该表格有2个date字段的开始和结束date和1个名为固定期限的CHeckbox。 目标是当checkbox被选中的时期是1年，因此结束date重新计算Begindate作为基地。 下面的VBA代码在If语句中导致错误13types不匹配。 我认为date应该用CDate进行转换，或者是否是这个问题？ 任何指针赞赏 Private Sub BeginDatum_Change() Static OldValue As String With Me.BeginDatum Debug.Print "Value: "; .Value; " Old Value: "; OldValue If CDate(.Value) > CDate(EindDatum.Value) Or CDate(.Value) > Date Then Debug.Print "EindDatum " & EindDatum.Value & " is NOT Good" .Value = OldValue Else Sheets("Traject").Range("Begin") = .Value OldValue = .Value If (FixedPeriod) […]

如何使用VBA将多个工作表复制到新工作簿中

我正在尝试为报表创build另存为function。 目前主表有25个标签。 我正在寻找25的23中复制到一个每日保存链接到一个特定的文件夹。 此外，我正在寻找第二个保存链接到不同的文件夹位置。 不过，我目前已经内置了一个错误消息警告框，阻止用户能够保存文件，使他们无法混淆它。 Sub SaveMain() Application.EnableEvents = False 'Stop ThisWorkbook VBA currently blocking the user being able to Save Dim FlName As String Dim FilePath As String Dim NewWkBk As Workbook Dim FileDate As String FlName = " September Reporting" & InputBox("Enter Yesterday's Date DD/MM/YYYY:", "Creating New File…") & ".xlsb" FilePath = "Z:\Call […]

VLookup的“types不匹配错误”

If first_unit = "N/A" Then我得到一个types不匹配的错误。 我试图根据另一个下拉菜单（B10）中的select更改下拉菜单（B26：C26）的文本。 对于下面的代码： Dim check_change As Boolean Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 0 If check_change = False Then If Target.Address = Range("B10").Address Then Dim first_unit As Variant Dim second_unit As Variant Dim third_unit As Variant check_change = True first_unit = Application.WorksheetFunction.VLookup(Range("B10:E10"), Sheet3.Range("Jurisdictions_table"), 5, False) second_unit = Application.WorksheetFunction.VLookup(Range("B10:E10"), […]

Excel VBA运行时错误“13”types不匹配错误

我想我的variables的定义有问题，但我不知道在哪里或为什么。 这是一个相当简单的代码来计算教师分配的教训的数量。 这些信息在工作表“Subects and Teachers 2018”中，必须打印在工作表“教师”中。 数量总是出现在名称的左侧。 这是代码。 如果有人能给我一个提示，说明我的定义不正确，我将非常感激！ debugging表明，问题是在最后（不是代码的一部分）*****。 Sub Counter2018() Dim Var1 As String Dim CVar1 As Integer Dim i As Integer Dim j As Integer Dim k As Integer For k = 2 To 50 Var1 = Worksheets("Teachers").Cells(k, 3) CVar1 = 0 For i = 2 To 45 For j = 2 […]

Ms Excel VBAtypes不匹配错误

当我使用下面提到的代码时，我收到types不匹配错误。如果可能的话，请帮助解决下面提到的代码错误。AP＃和AR3都具有字符值。 我的基本要求是使用函数，就像连接函数一样使用vba代码在一个excel单元格中的两个单元格中添加两个字符值 Range("AI3:AI" & lrv + 2).Value = Range("AP3:AP" & lrv + 2).Value & " " & Range("AR3:AR" & lrv + 2).Value

types不匹配错误超越VBA

我的代码的目标是获取一个单元格的旧值，并检查它是否与一个新的值，如果它进入。 如果旧值更改为新值，则更新指定单元格中的date。 我的代码的问题是，我似乎无法find一种方法来解决这个错误，而不是我的代码中断，因此我无法修复这一行代码。 我有两个工作表中的代码，这两个工作表的值都是针对不同的单元格而改变的。 问题是，这个代码只适用于一个工作表，但是当我使用两个相同的代码时，它会抛出一个types不匹配的错误。 这是我的代码： Dim oldValue As Variant Public Sub Worksheet_SelectionChange(ByVal Target As Range) 'My other worksheet is referencing cells E2:E100 oldValue = Me.Range("D4:D21").Value End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("D4:D21")) Is Nothing Then Dim c As Range For Each c In Intersect(Target, Me.Range("D4:D21")) 'Check value against what […]

用户表单 – types不匹配错误

我是新来的编码（2个月），我主要是从networking上的代码。 对于上下文，我从这里的一些说明如何使用用户userform更新我的工作表中的值。 第一位是好的，我能够从我的工作表拉回数据到我能够编辑的用户表单，但试图然后更新工作表中的数据是给我一个'types不匹配'的错误。 代码如下，当我点击“更新”button Private Sub cmdupdate_Click() If Me.cmbslno.Value = "" Then MsgBox "SL No Can Not be Blank!!!", vbExclamation, "SL No" Exit Sub End If Sheets("Sheet 1").Select Dim rowselect As String rowselect = Me.cmbslno.Value Cells(rowselect, 2) = Me.TextBoxdate.Value Cells(rowselect, 3) = Me.TextBoxraisedby.Value Cells(rowselect, 5) = Me.ComboBoxsite.Value Cells(rowselect, 6) = Me.ComboBoxfacility.Value Cells(rowselect, 7) = Me.ComboBoxpdriver.Value […]