Tag: excel 2010

Excel 2010 VBA创builddate: 如何在Excel 2010中使用VBA获取当前工作簿文件的创builddate？我浏览了ThisWorkBook的所有属性，我似乎没有find那里的东西。

Excel VBA – 如何确定数据透视表中的行标签字段的数量？: 我有一个Excel 2010数据透视表，最初包含3个行标签字段。我需要创build一个macros来添加一个特定的字段作为数据透视表中的最低行标签字段。（由于我不会进入的原因，用户不能以正常的方式自己添加这个字段。）但是，当用户运行这个macros时，他们可能已经添加或删除了一些行标签。 macroslogging器给我这个时，我添加一个数据透视表的最低位置（有3个行标签已被选中）字段： With ActiveSheet.PivotTables("MyPivotTable").PivotFields("MyNewField") .Orientation = xlRowField .Position = 4 End With 如果用户添加或删除了一些项目，这个位置编号4是不正确的。我将如何传入我的代码正确的位置号码？试图使用Position = 99高目标给我以下错误：无法设置PivotField类的位置属性有什么想法吗？

使用VBA excel多个类名从网站拉取数据: 我知道这已被问了很多次，但没有看到一个明确的答案循环通过一个div和findind标签具有相同的类名。我的第一个问题：如果我有这样的事情： <div id="carousel"> <div id="images"> <div class="imageElement"> <img src="img/image1.jpg"> </div> <div class="imageElement"> <img src="img/image2.jpg"> </div> <div class="imageElement"> <img src="img/image3.jpg"> </div> </div> </div> 所以我想把所有的img Src与div中的“images”一起放入imageElement类名中，并将它们复制到excel中的某些单元格中。第二个问题：我已经看到了用VBA拉网站内容的两种方法，一种是使用IE，另一种是使用浏览器的代码。 Private Sub pullData_Click() Dim x As Long, y As Long Dim htm As Object Set htm = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "GET", "http://website.html", False .send htm.body.innerHTML = .responsetext […]

自动从另一张表单中填充一个表格中的列: 我想从sheet1中填充sheet2中的列。如果我在Sheet1有列A ，我希望Sheet2 A具有相同的信息。我试过使用=sheet1!A1但它只返回=sheet1!A1的值。我试过使用=sheet1!A但它只返回#NAME? 。如果来自Sheet1列A有一个dynamic范围（它可以是空的或有500或1000行（我从我的数据库填充sheet1））。如何在另一个表格中显示所有500或1000行的列？

活动单元格作为公式的input: 我想知道是否可以使用活动单元格，我的意思是，在鼠标单击后，在给定时间用方形边框“突出显示”的单元格作为函数中的参数。例如，我创build了一个带有3个权重的加权平均值的表：w1在列标题（请参见下面的文件）中给出，w2在行标题中，w3将w1和w2补全为1。我想要做的是让表格外的单元格显示选中表格中的单元格时的平均重量。例如：屏幕截图： http : //imgur.com/emmBH5S/ 文件可以在这里find： https : //drive.google.com/file/d/0B_7-00fdslR7Tm11ODRVS296ckk/ 在这里，我们看到单元格K12是有效的，对于K12 w1 = 0.2，w2 = 0.15，所以上面的权重表（行3-4）中的单元格根据活动单元格中的权重获得适当的值。（当然我为了说明的目的而手动创build了这个）有没有办法做到这一点？最好没有VBA，如果可能的话找不到任何非常有用的东西… 提前致谢！一个

交换x和y轴而不用手动交换值: 所以我有一组具有条件格式的数据。基本上，这是一组光度测量的星星，我想把不同颜色的星星放在不同颜色的图表上（基本上是通过它们的光谱类别对它们进行着色）。所以我的数据看起来像这样： Stars Data 第一列是恒星的绝对量级（M） – 我想要在X轴上其余的列是仅在特定范围内具有来自另一列的值的不同光谱类别。 – 我想要这些在Y轴上。目前图表看起来像这样，我想要做的就是交换轴，但我似乎无法做到这一点。

自动化应用程序退出时，如何避免Excel显示“保存”对话框: 我有一个用Delphi编写的excel自动化应用程序，它访问一个给定的excel工作簿，并提取应用一些内部逻辑表单的不同数据。它在Excel 2003和2007上已经运行了很多年。最近有些用户使用Excel 2010.在这些用户上，当我的应用程序退出时，Excel显示一个对话框，要求用户保存未修改的工作表。该消息说了一些有关公式的版本将被保存在一个新的2010年格式。对不起，我没有确切的词汇，因为它不是英文办公软件包。我的应用程序如何防止Excel 2010显示这个恼人的和无用的框？大多数用户使用Excel 2007，所以我的应用程序需要处理的大部分文件（无论运行我的应用程序的用户的实际Excel版本）是否都是这种格式，并且将来会这样，因此将所有文件不是一个选项。

MsgBox在Excel中的焦点: 我在Excel中使用VBA计算大量数据，并在完成时显示MsgBox。 MsgBox实际上显示了计算所需的时间。问题是用户在计算发生时决定做其他事情。 Excel继续计算，当它完成后，MsgBox会显示，但由于某种原因，Excel不会将焦点放到MsgBox。 Excel图标将在任务栏中闪烁，如果我们单击它，Excel会最大化，但MsgBox位于Excel窗口后面，我们永远不能单击它。所以唯一的办法就是去taskkill excel.exe …不是很好。 Alt + Pause不起作用，因为代码将仅在当前代码行之后停止，这将在MsgBoxclosures时结束。我之前试过AppActivate("Microsoft Excel")函数，没有任何成功（我如何将焦点集中到一个msgbox？）。由于Excel 2010将文档名称添加到窗口标题中，所以应用程序名称实际上比此长。任何想法如何能解决这个恼人的问题？

VBA“编译错误：语句无效外部types块”: 我在Excel 2010中运行了大量的计算，因此数据types是非常重要的，以保持macros执行时间尽可能低。我的优化思路是让用户select所有数据将被声明的数据types（同时指出每种数据types的优缺点，精度/灵活性和CPU密集度/macros执行时间之间的平衡）。但是，当我运行macros，我收到以下错误信息：编译错误：声明无效外部types块这里是代码的违规部分： Ind2 As Double, BgrValP As Double, BgrRow As Double, M40eff As Double 这是macros的相关部分： ' Develop fake data to at glance recognize whether program works. ' Source http://www.cpearson.com/excel/optimize.htm Option Explicit Private Sub Function1() On Error GoTo ErrorHandler Dim userChoice As Variant Dim strPath As String, strFileN As String, strDirN […]

删除重复的值，但保留行值的其余部分: 我有一个像这样的Excel表（csv）：我想输出（制表符分隔）是这样的：基本上：用空格replace重复但是如果col6值与前一行的col1值不同，则应包含所有数据字段。我正在努力创造一个可以做到这一点的公式。如果我尝试“删除重复项”，则删除该值并将值向上移动一行。我希望它删除重复项，但不会将值更改。