Tag: types

为什么在运行elseif语句时收到types不匹配错误: 所以我试图运行下面的代码，但收到“types不匹配错误”行ElseIf Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 15).Value <= 0 Then ，我猜这是和if语句在for和next语句中没有正确的嵌套for ，但是它们看起来都很好，我花了好几个小时来尝试debugging，但没有成功。可以告诉我，我的代码出了什么问题？ Dim x As Integer For x = 4 To 100 If Cells(x, 1) <> "" And Cells(x, 2) <> "" And Cells(x, 6).Value <= 0 Then Cells(x, 16).Value = 6 Cells(x, 17).Value = -0.3179688 ElseIf Cells(x, 1) […]

Excel 2013比较不同行上的date使用macros“运行时错误13，types不匹配”: 我是vba中的新人，目前我正在工作，而我的老板需要我创build一个excelmacros。 macrosfunction是：比较数据是date，开始date和结束date。自动提醒用户员工合同过期时打开工作表。如果员工合同过时，突出员工的细节。所以现在我被卡住，直到“运行时错误13，types不匹配”。下面是我的编码部分，不匹配是>>> <<<。 Private Sub Worksheet_Activate() Dim rngA As Range Dim rngD As Range With Worksheets("Sheet1") For Each rngA In .Range(.Range("A1"), .Cells(.Rows.Count, "A").End(xlUp)) For Each rngD In .Range(.Range("D1"), .Cells(.Rows.Count, "D").End(xlUp)) >>> If rngA.Value("A1:xlUp") >= rngD.Value("D1:xlUp") Then <<< MsgBox "Sheet 1 Row " & rngA.Row & " expiring" rngC.Interior.ColorIndex = 3 […]

Vlookup跨表格types不匹配（VBA）: 我试图插入一个vlookup到特定的单元格（J2：O2），但我不断收到types不匹配。我不能为了我的生活找出原因。这是我现在的代码： Dim Basel_Sheet As Worksheet Set Basel_Sheet = Sheets("Basel 3 EAD") Dim Parent_Lookup As Range Set Parent_Lookup = Sheets("Parent Mapping").Range("B2:E20000") With Basel_Sheet .Cells(2, "J").Formula = "=VLOOKUP(A2," & Parent_Lookup & ",4, False)" … … … (formulas for remaining columns) End With 我应该使用Application.WorksheetFunction.Vlookup并定义一个变体来存储vlookup结果吗？

Python读取零单元格的Excel单元格数据: 我正在使用win32com客户端与python来操纵Excel 。我能够按预期提取数据。但是，整数单元格像11001.0那样带有十进制数，我期待没有小数。 for row in range(1, totalRows+1): for col in range(1, totalColumn+1): strData = ws.Cells(row, col).value print(strData) 结果： 2123448947.0 8676.0 原始值： 2123448947 8676

VBAtypes不匹配DO WHILE NOT: 我的macros有问题： Dim nr_kol As Integer nr_kol = ActiveCell.Column Worksheets("dane").Range("I1").Copy Worksheets("dystr hist").Range("a1").Select ActiveCell.End(xlToRight).Offset(0, 1).PasteSpecial xlPasteValues Do While Not ActiveCell.Offset(0, -nr_kol + 1) = "" Selection.Offset(1, 0).Select ActiveCell.Value = Application.VLookup(ActiveCell.Offset(0, -nr_kol + 1).Text, Worksheets("temp2").Range("B:I"), 8, False) Loop 它应该像这样工作：它需要从“丹麦”表中的星期编号，并将其粘贴到第一行的第一个空闲单元格中的“dystr hist”表。然后我们有查找项目，直到列表完成。它适用于以前的工作表，但在这个特定的地方崩溃types不匹配。谁能解释我为什么？

Single数据types如何能保持Long？: 我正在阅读有多less内存数据types，微软说 Single和Long都使用4个字节。不过，Single有一个范围 -3.402823E38到-1.401298E-45为负值; 1.401298E-45至3.402823E38为正值而龙有一个范围 -2,147,483,648至2,147,483,647 这些是令人难以置信的差异，特别是当Single看起来应该小于 Long，因为它可以有小数。这完全不是这样，事实上它可以保持30位以上的数字。我试图自己find这方面的信息，但是我很难find任何相关的信息。如果有人有链接或可以解释，那么我会很感激，谢谢！ PS如果这不是我应该发布的地方，请让我知道我应该在哪里，我会在这里删除它

我怎样才能使用MATCH（）与不同的catagorized数据？: 我有一个包含部门列表的电子表格A 一个单元格包含部门ID为76560，数据types设置为文本。（格式化单元格→数字→文本）电子表格B包含有关我想从电子表格A引用的部门76560的详细信息。但是，电子表格B将部门ID的数据types设置为“ 常规” 。我想用INDEX / MATCH来匹配部门ID，但不幸的是，MATCH似乎只能工作，部门ID被格式化为两个文档中的文本。总结：电子表格A使用文本数据types存储ID号码。电子表格B使用常规数据types存储身份证号码。 MATCH()只适用于数据types相同的情况。如果两个电子表格使用两种不同的数据types存储相同的ID，有没有办法让两张电子表格中的信息匹配？

EXCEL – 检查/识别多行和另一张纸上的重复文本: 20世纪20年代初期，我在纽约有犯罪分子的名字和姓氏。我已经缩小了我正在关注的某些犯罪部门，但是我想把这些名字与更广泛的数据库进行交叉参考，看他们是否犯了其他罪行。问题是，名字和姓氏在不同的单元格中。所以，到目前为止我所能做到的最好的一点是，如果姓氏匹配，则标记为“X”，如果名字匹配，则在旁边的列中标记“X”。这个问题是，虽然它缩小了它，但有很多人的名字是“亚当”，例如很多名字是“布朗”，所以它没有显示实际上是匹配的。因此，电子表格1'S1'在C2中具有姓氏（例如布朗），在D2中具有名字（例如约翰），而电子表格2'S2'在C2和D2中具有完全不同的名称，所以我需要search所有列的C，然后D进行比赛。有没有写这个代码的方法？有任何想法吗？！

工作表循环types不匹配错误: 在代码的第7行（ If ActiveSheet.Cells(1, 47) = 1 Then 1,47 If ActiveSheet.Cells(1, 47) = 1 Then ）迭代工作簿中的所有工作表时，出现“error13types不匹配”。有谁知道如何解决这一问题？ Dim y As Integer Dim c As Integer Dim ws_num As Integer Dim starting_ws As Worksheet Set starting_ws = ActiveSheet 'remember which worksheet is active in the beginning ws_num = ThisWorkbook.Worksheets.Count For y = 1 To ws_num ThisWorkbook.Worksheets(y).Activate If […]

对象集合在通过数组循环时将新的UDT传递给每个对象: 我的aMRecon数组是2500行x 65列。我需要在每一行中评估多达10列，因此我相信我需要创build一个代表每行的对象。我已经创build了一个UDT并在下面的基本过程中，我试图创build每个对象具有.EntityID属性（这是Column B Column 2或Column 2 Column B中的每行中的单元格值）的每个对象。 Public Type BreakInfo EntityID As String IssueName As String ValDate As Date LedgerAMT As Long NetAMTL As Long PriceDiff As Long End Type Sub Fill_Objects() Dim aMrow As Integer, aMcol As Integer Dim BI As BreakInfo For aMcol = LBound(aMRecon, 2) To UBound(aMRecon, 2) For […]