Tag: types

在VBA中修复types不匹配错误13: 我是新来的编码，并试图开发一个用户表单，允许我填充数据库。我正在尝试设置一些可以通过用户窗体input到数据库的数据validation。我正在使用的代码如下所示Reg是我的用户窗体上的控件的名称。当我运行这部分代码时，它停在第一行，并显示types不匹配错误13消息框。任何帮助，你可以给予非常感激。 Sub ValidCombo1() If Reg18.Value = "" And ((Reg17.Value <> "1" Or (Reg15.Value <> "0" Or "") Or Reg16.Value <> "A" Or Reg19.Value <> "") Or (Reg17.Value <> "" And Reg15.Value <> "" And Reg16.Value <> "" And Reg19.Value <> "")) Then MsgBox "Invalid Foundations combination" Reg13.Value = "" ElseIf Reg25.Value […]

Exel VBA：运行时错误13types不匹配: Sheet1上有以下列表： COLUMN A COLUMNB COLUMN C 1 ADDRESS Services(s) USED VEHICLE(S) USED 2 Address1 Service1, Service3 Vehicle1, Vehicle3, Vehicle4 3 Address2 Service1, Service4 Vehicle1, Vehicle3, Vehicle4 4 Address3 Service2, Service5 Vehicle1, Vehicle2, Vehicle5 5 Address4 Service2, Service3 Vehicle1, Vehicle6 6 Address1 Service5, Service6 Vehicle2, Vehicle5, Vehicle6 7 Address2 Service2, Service3 Vehicle2, Vehicle3 8 Address4 Service4, […]

Excel如何将12小时（文本值）转换为十进制数字？: 我试图findExcel如何将am / pm时间（文本）值转换为数字小数（使用格式菜单>数字，同时select我的12小时时间列）手动函数。例如，12：30：00如何变成0.52083？谢谢。

VBA查找数据不匹配: 我是VBA新手，面临以下问题：我需要返回IF公式返回的某个值，基于数字数据，保存在另一个工作表中。我已经写了类似这样的东西，但是一直到运行IF部分的时候，它给了我错误types不匹配，并且问题似乎在由vlookupfind的值中。我试图宣布它很长，变体等，但没有帮助。但是，MsgBox正确地从另一个工作表中返回结果。另一张纸被格式化为数字。任何想法如何使其工作？这里是我现在的代码： Option Explicit Sub find() Dim lookup As String Dim pkgWidth, pkgLength, pkgHeight, displaySize, AllHeaders, headerweight, itemweight, classify As Range Dim lastrow As Variant Dim cl As Range Dim i As Integer Dim widthh, lengthh, Heightt, display, Weight As Variant 'this part dynamically searches for the columns […]

Excel中的HOUR函数: 即时通讯试图获得只有一小时的时间栏。例如，如果时间是19:16:00我只想得到19，为此我尝试了公式HOUR，但是我得到的结果是0:00，不pipe时间是什么。我试过已经从文本转换列中的数据，但它并没有改变这个问题。这可能是什么原因？谢谢

在VBA中键入不匹配错误13: 所以我正在为VBA中的macros编写代码，并且每当我尝试运行它时，我总是在同一行上得到相同的错误。奇怪的是这行在程序的早期工作，但它停止工作，我第二次使用它（我没有改变任何代码，我从字面上复制和粘贴它）。这是代码： positioninDailyVisitors = Application.Match(originaldata.Worksheets("Top Visitors Chart").Range(columns(index) & counter + 11), originaldata.Worksheets("Daily Visitors").Range("A5:A627"), 0) 有点背景： positioninDailyVisitors是一个整型variables， columns(index)是一个Stringtypes的数组，它列出了像“A”，“B”等值。另外，我已经试过使用Application.WorksheetFunction.Match ，它仍然不起作用。

我如何将ListObject作为variables传递？: 我不擅长Excel / VBA，需要一些帮助。下面的代码（最简单的forms）抛出一个运行时错误（13），说明我有一个types不匹配。我不明白它是如何不匹配的，因为我已经声明它们是相同的types。有任何想法吗？ Sub Setup_ListObject() Dim the_list As ListObject Do_stuff_with_ListObject (the_list) ' ** runtime error highlights "type mismatch" End Sub Private Sub Do_stuff_with_ListObject(ByRef a_list As ListObject) ' here we do stuff End Sub

types不匹配，将excel单元格值与数组值进行比较* FIXED *: 目前的问题：目标是将源.csv文件中的数据复制到目标Excel工作表，基于将.csv的每一行中的值与Excel工作表列中的值相匹配，然后根据该值将正确的单元格复制到Excel表格。我从一个循环中的.csv文件中将数据收集到一个数组中，将数组中的一个值与目标Excel表A列中的值进行比较，如果匹配发生，数组中的所有值都将被复制到Excel表格中的相应行。当我试图比较Excel工作表的单元格值与数组值时，我现在得到“types不匹配”错误。这里是代码的相关位： sfile="\\DFSpath\file1.csv" smaster="\\DFSpath\file2.xlsx" set xlapp = createobject("excel.application") set wbtarget = xlapp.workbooks.open(smaster) set tgtworksheet = wbtarget.worksheets("sheet1") set usedRowsXP = tgtworksheet.UsedRange.Rows dim fs,objTextFile set fs=CreateObject("Scripting.FileSystemObject") dim arrStr set objTextFile = fs.OpenTextFile(sfile) Do while NOT objTextFile.AtEndOfStream arrStr = split(objTextFile.ReadLine,",") for each oRow in usedRowsXP Introw = oRow If tgtworksheet.cells(Introw,1).value = arrStr(2) Then tgtworksheet.cells(Introw,4).value = […]

如何返回用户定义types的数组，然后在VBA中作为parameter passing: 我有一个用户定义的types，决定： Public Type Decision choice As String cost As Double End Type 我正在尝试使用我的UDT的数组来存储dynamic程序的结果（舞台/状态的select和成本）。 Public Function DPSolve(arg1, arg2, …) as Decision Dim Table() As Decision ReDim Table(arg1, arg2+ 1) 'do stuff that fills each Table().choice and Table().cost 'return Table() DPSolve = Table() End Function 如果我想把这个函数的结果传递给一个新的函数（比如，在Excel中打印Table（），或者使用Table（）的结果做更多的工作，我该怎么做？我在尝试 Sub Main Dim x as variant x = DPSolve(arg1, arg2, […]

运行时间错误'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 […]