Tag: types

VBA运行时错误13：types不匹配: 我的macros是一个非常简单的replace程序，它识别总体语句中缩短的部分，并用完整的语句replace它们。出于某种原因，我不断得到VBA错误13：types不匹配。 debugging器在我的replace语句的第一个上识别出这个错误，然后在程序运行这些行时甚至产生预期的结果（我通过注释掉特定的行来testing），在接下来的两行中没有识别错误。 debugging器然后在这两行之后的其余语句中find一个错误。我不知道发生了什么，将不胜感激任何帮助。提前致谢。 // // Sub Replacement() **'Define variables** Dim firstViolation As String Dim secondViolation As String Dim thirdViolation As String Dim fourthViolation As String Dim fifthViolation As String Dim sixthViolation As String Dim seventhViolation As String Dim eighthViolation As String Dim ninthViolation As String Dim tenthViolation As String Dim eleventhViolation As […]

如何将单元格中的结果（如显示）转换为Excel中的文本: 我已经在Excel格式化了一个单元格作为科学与1小数位，然后我插入一个数字就像（0.41）。按下键后，显示的结果是（4.1E-01）。我的目标是把这个结果放在一个文本格式的单元格中，当我双击单元格时，我可以根据需要复制/修改文本（4.1E-01）。我试图格式化该单元格作为文本，但结果回到0.41。我也尝试复制单元格，并将值仅使用“特殊粘贴”粘贴到文本格式的单元格，但结果保持返回到0.41。你有关于如何解决这个问题的build议？提前致谢

Postgres小数精度VS Excel: 我正在寻找在Postgres和Excel中的小数精度的任何文档。我有一个通过excel导入的数据库。我发现在Excel中的SUM()结果与Postgres中的SUM()方法稍有不同（通常在小数点后3位或4位，取决于我包含或排除的数据）。由于浮点精度问题，或者导入可能导致一些小的差异。

如何使用内容types使用for循环生成多个xls文件: 道歉之前，这是我的第一个问题，英文很less。我需要用PHP生成多个excel文件，运行for循环。每个文件必须重命名，问题是我只在这种情况下生成一个“ELEMENT THREE.xls”。在我的文件中，我有三行： CONTENT FILE ELEMENT ONE.xls ——————————- CONTENT FILE ELEMENT TWO.xls ——————————- CONTENT FILE ELEMENT THREE.xls ——————————- 这是我的代码： $elements = array('ELEMENT ONE','ELEMENT TWO','ELEMENT THREE'); foreach ($elements as $element) { $table = "<table border='1'><tr><td>CONTENT FILE $element.xls</td></tr></table>"; header("Content-Disposition: attachment; filename=$element.xls"); header("Content-Type: application/vnd.ms-excel"); header('Expires: 0'); header('Pragma: no-cache'); echo utf8_decode($table); } 提前致谢

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) […]

如何从C＃中的Excel文件中读取数据的types: 我正在尝试从Excel文件中读取数据。有没有办法检查每个单元格中的数据types？我试过.GetType（）; 但结果是一个非常复杂的课，没有帮助。这里是我的代码的一部分： Excel.Application xlApp; Excel.Workbook xlWorkBook; Excel.Worksheet xlWorkSheet; Excel.Range range; xlApp = new Excel.Application(); xlWorkBook = xlApp.Workbooks.Open(FilePath, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); range = xlWorkSheet.UsedRange; var a = range.Cells[1/*row*/, 1/*column*/] as Excel.Range; var type = a.GetType(); 更新：例如，通过runnig这一行： string MobileNumber = […]

Excel VBA：键入不匹配错误13: 我有2张。当在ws2中的特定列中的条目包含单词“UPDATE”时，它将使用在ws2中find的更新的数据来更新ws1 Private Sub CommandButton1_Click() Dim LastRow As Long, CurRow As Long, DestRow As Long, DestLast As Long Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("Dashboard") Set ws2 = Sheets("TempHRI") LastRow = ws2.Range("B" & Rows.Count).End(xlUp).Row DestLast = ws1.Range("E" & Rows.Count).End(xlUp).Row For CurRow = 2 To LastRow 'Assumes first row has headers If […]

Excel组合发生器: 我有一个代码，根据8列的input生成一个排列，并连接在一起的列。它迄今为止工作很好，但我想出了一个问题。它在超过2行被填充时工作。所以如果只有一行AH中的任何一列的第10行崩溃。如果第8列只有A，则所有行都填满了A，B，C，那么它就会崩溃我也试过了 Set col1 = Range(Range("A10"), Range("A" & Rows.Count).End(xlUp)) 代替 Set col1 = Range("A10", Range("A10").End(xlDown)) 但是那里有一个types不匹配的错误。任何帮助将是伟大的。这是整个代码： Sub combinations() Dim out() As Variant Dim f, g, h, i, j, k, l, m As Long Dim col1 As Range Dim col2 As Range Dim col3 As Range Dim col4 As Range […]

types不匹配错误: 如果ws1.cells（i，13）=“是”，那么“该列（列M）包含空白单元格或”是“ 。我试过重新定义“我”作为string，并没有改变任何东西。目标是对于列M中的“是”的每一行，将整行复制到名为“输出”的第二张表。任何有关这个错误的帮助将非常感激，也可能适合我的目标的其他想法。谢谢！ Sub Sadface() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Trades") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Output") For i = 2 To ws1.Range("M65536").End(xlUp).Row If ws1.Cells(i, 13) = "Yes" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1) End If Next i End Sub

types不匹配传递单元格（3,4）作为范围参数: 我正在Excel中使用一个以Range作为参数的子类来编写一个小类。但是，当我尝试使用单元格调用它，我得到types不匹配错误。（使用范围调用工作正常）代码摘录： Dim Com, Gua As Worksheet Set Com = Worksheets(cCom) Set Gua = Worksheets(cGua) Dim myFirm As clsFirm Set myFirm = New clsFirm Call myFirm.Init(Gua.Cells(3, 4)) '<–ERROR HERE Call myFirm.Init(Gua.Range("E3")) ' this line works 这里是子： Public Sub Init(nameCell As Range) pAddress = nameCell.Address pName = nameCell.Value2 pContract = nameCell.Offset(0, -3).Value2 pAmount = […]