如果我为我的文本框使用下面的代码，当我input数字1,000,000并提交它与我的命令button它显示范围（“F1IMPG1”）为1 。 Range("F1IMPG1").Value = Val(txtF1IMP1.Value) 如果我不使用逗号，它会正确显示为1,000,000 。 有人知道为什么这可能是？

所以，我有一个数据sorting问题。 本质上，我必须排第2行的单元格在第1行的近似值之下。 数据通常会显示为： 但是我要求Row2的数据在它的Row1对象的近似值（在1.2之内）被sorting，如下所示： 我相信最好的办法是创build一个For Each循环的嵌套集合，如下所示： Dim F As Range Dim Q As Range For Each F In Range("A1:C1") For Each Q In Range("A2:C2") If Q.Cell.Value <= (F.Cell.Value + 1.2) Then F.Offset(1, 0).Value = Q.Cell.Value Exit For End If Next Q Next F 虽然这已被certificate是具有挑战性的 我的意图是反复检查Row1的值，并且，如果在Row2中find了具有必要条件的值，请将其置于Row1中的对应项下。 代码已经暂停，但是，由于“运行时错误'438'：对象不支持此属性或方法”。 如何正确编写代码以避免这样或类似的错误？ 非常感谢！ 如果您有任何改进build议，请随时提出build议。 最好，

在我的电子表格中，在一定的坐标系统中有一个云点，云的格式如下： Name XYZ PT1 X1 Y1 Z1 PT2 X2 Y2 Z2 PT3 X3 Y3 Z3 PT4 X4 Y4 Z4 … PTi Xi Yi Zi … I想在我的列表中使用四个第一点来构build一个新的坐标系，并把我所有的点转移到新的坐标系中。 新的坐标系必须被定义为一个平面线点（或者3-2-1°的变换： 平面是（PT1，PT2，PT3，PT4）的最佳拟合平面。 我知道如何使用Excel LINEST公式构build平面方程 线/vector中点（PT1-PT2）到中点（PT3-PT4）线/vector在Excel中易于构build 点是中点（PT1-PT2）。 总结起点（0,0,0）将在中点（PT1-PT2）。 新的X轴将是vector中点（PT1-PT2）到中点（PT3-PT4）。 Y轴将被包含在平面中并垂直于X.Z将垂直于X和Y. 目前我可以find平面，X，Y，Z轴的方程。 我的问题是如何构build基于这些参数的变换matrix，并使用Excel公式实现它。 谢谢。

这看起来很简单，但显然不正确。 有什么想法？ 数据： Cell J5的值就是这个URL： www.url.com/at/ 逻辑：检查单元格J5是以“/ at /”结尾，还是以“de /”结尾，如果其中任何一个值为1，则为真，如果为真，则为零。 这是我试用的function： =IF(OR(RIGHT(J5,4)=“/at/"),(RIGHT(J5,3)=“de/"),"1","0") 我的结果是#NAME？

我写了代码来复制和粘贴到我的工作簿从其他工作簿使用的范围。 在我的电脑中，它可以工作，但是当我发送给任何人时，粘贴过程导致错误信息： “此图片目前无法显示。” 目前的版本，我用xlPasteAll： Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy Workbooks(fl.Name).Close Worksheets(sheetindex).Activate ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll

我想复制粘贴几个图表使用VBA（Excel和PowerPoint 2013）的PowerPoint。 只要我不试图破坏Excel和PowerPoint之间的graphics连接 – 我绝对需要这样做，我的macros下面工作正常。 我查了一下Google，发现有人build议使用.Breaklink方法：只要在我的工作表上没有多于一个图表，我们就可以使用.Breaklink方法。 如果至less有两个graphics，它将正确复制第一个graphics，然后在第二个graphics上工作时抛出“MS PowerPoint已停止工作”消息。 我应该如何继续？ 我试图在.Chart.ChartData和.Shape对象上应用.BreakLink方法无济于事。 Sub WhyIsThisWrong() Application.ScreenUpdating = False Dim aPPT As PowerPoint.Application Dim oSld As PowerPoint.Slide Dim oShp As PowerPoint.Shape Dim oCh As ChartObject Set aPPT = New PowerPoint.Application aPPT.Presentations.Add aPPT.Visible = True For Each oCh In ActiveSheet.ChartObjects oCh.Activate ActiveChart.ChartArea.Copy aPPT.ActivePresentation.Slides.Add aPPT.ActivePresentation.Slides.Count + 1, ppLayoutText Set oSld = […]

Excel VBA中使用“工作表（）。范围（）。公式”有问题。 如果我使用macros，它工作正常（请参阅下面的子方法）。 但是，如果我在一个函数中使用它，它不起作用，我有一个“#VALEUR！” （在法语中，我认为这将是#VALUE！英文）在CELL中的错误消息。 如何解决这个问题？ 我正在使用EXCEL 2010 Sub StoreFormula() Worksheets("Sheet1").Range("D20").Formula = "='Sheet2'!D13" End Sub Function Test() As String Call StoreFormula Test = Application.Caller.Address End Function

VBA将数据导入Oracle PL / SQL数据库时遇到问题。 我有这个脚本： sql = "insert into my_table (Name, Surname,Phone,Email,Date, time_1,Time_2,Note, Source, Change,State,Result) values ( '" & Cells(cellNumber, 1) & "' , '" & Cells(cellNumber, 2) & "' , '" & Cells(cellNumber, 3) & "' , '" & Cells(cellNumber, 4) & "', to_date('" & Cells(cellNumber, 5) & "'," & "'DD.MM.YYYY')," & " to_date('" […]

我有一个.csv有两列：colA命名范围和colB有值。 现在，我需要从.csv中导入值，并将它们分配到多个工作表中的工作簿中的命名范围。 另外我需要以相同的方式导出相同的。 即一个工作簿已经命名了范围，显然有一些相关的值。 有没有办法导出相同的格式，以便我可以用它来导入它们以后？ 对于导入，我修改了下面提供的代码，但仍然不成功： Option Explicit Sub impdata() 'This is to import data from csv to xlsm Dim MyCSV As Workbook Dim filename As String Dim curfilename As String Dim MyRange As Range Dim MyCell As Range Dim x As Long Dim y As Workbook curfilename = ThisWorkbook.Name filename = Application.GetOpenFilename Set y […]

现在，我们成功/准确地报告testingID，说明，预期结果和通过/失败值。 我想添加运行testng.xml（执行和完成testing所需的时间）结束时可以看到的值，并将其附加到我的文件中。 有没有办法loggingTestNGtesting所花费的时间并将其输出到Excel / CSV中？