Tag: excel

使用Excel更改三维坐标系: 在我的电子表格中，在一定的坐标系统中有一个云点，云的格式如下： 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公式实现它。谢谢。

如果在Excel中使用RIGHT: 这看起来很简单，但显然不正确。有什么想法？数据： 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

将Excel图表复制/粘贴到PowerPoint并断开链接: 我想复制粘贴几个图表使用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函数？: 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

将.xlx导入Oracle PL / SQL数据库: 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: 我有一个.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 […]

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

公式在条件格式中不起作用: 我有一个三页的工作簿。第2页和第3页持有类似的数据，但从不同的时间段（案件当前案件历史）。将“案例当前”中的信息汇总在一起，并使用COUNTIF整理某些信息。我试图获得一个条件格式来改变文本的颜色，如果从案例当前的COUNTIF高于或低于历史页面上相同数据的COUNTIF。例如：单元格C3具有以下公式： '=COUNTIFS('Cases '!$D:$D,C$2,'Cases '!$C:$C,$A3)并显示图7 。我在一个普通的单元格中使用了一个IF公式，下面的工作就是这样。（在这个例子中，COUNTIF返回10 。 IF(C3<COUNTIFS(Compare!$D:$D,C2,Compare!$C:$C,$A3),"Lower","Higher") 我在条件格式中使用了相同的公式，但是它不会触发字体颜色的变化。我在IF语句结束时删除了两个结束条件，因为条件格式在TRUE返回时被触发。 =IF(C3<COUNTIFS(Compare!$D:$D,C2,Compare!$C:$C,$A3)

将START和STOPbutton添加到现有的代码: 在列A中input一个值。要开始，请双击列A中的值。要停止，请双击任何空白单元格。停止监视在B2单元中运行。 Public stopMe As Boolean Public resetMe As Boolean Public myVal As Variant Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then If Target.Value = myVal And Target.Value <> "" Then 'Changed Dim startTime, finishTime, totalTime, timeRow startTime = Timer stopMe = False resetMe = False myTime = Target.Offset(, […]