Tag: excel 2007

更改数据透视表上的页面filter: 如果我不能做到这一点，我可能会诉诸使用多个数据透视表，但无论如何我想试一试。基本上，我有一个相当数量的行（45k +）的表，我想要使用数据透视表来将项目组合在一起，以便我可以获得唯一的匹配，然后在Access数据库中匹配它们，并只添加新的项目。我必须这样做几个列，所以我认为使用VBA过滤表可能是一个很好的解决scheme，虽然我没有能够实现它。从MSDN我明白，可以使用PivotFields.Add添加filter，虽然我得到一个错误“参数或不正确的过程调用”（或类似的东西）。以下是我所尝试的： Me.PivotTables("tcd_transits").PivotFields("NOTE").ClearAllFilters Me.PivotTables("tcd_transits").PivotFields("NOTE").PivotFilters.Add _ xlValueEquals, "NOTE", "RUBRIQUES" 第一行有效清除filter，但第二行不会在“NOTE”上为“RUBRIQUES”添加filter，并引发上面提到的错误。我完全偏离了这个道路还是有一个我错过的细节？

我怎样才能访问“ThisWorkbook”的Excel中的C＃: 下面是创buildModule1.bas和存储在其上的代码。我想添加下面的代码来触发macros从“Thisworkbook”。我该如何在Workbook中添加Workbook_Open（）？ sCode =“Private Sub Workbook_Open（）\ r \ n”+“UserForm1.Show \ r \ n”+“end sub” using Excel = Microsoft.Office.Interop.Excel; using VBIDE = Microsoft.Vbe.Interop; VBIDE.VBComponent oModule; String sCode; oModule = wb.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule); sCode ="Private Sub Workbook_Open()\r\n" + "UserForm1.Show\r\n" + "end sub" oModule.CodeModule.AddFromString(sCode);

当Excel 2010中的公式无效时，将数据保存在单元格中: 我在Excel文件Excel_Sample.xls中有以下自定义公式： GetData = Workbooks("data.xls").Worksheets("sht").Range("E1") 当data.xls打开时，打开Excel_Sample.xls，使用该公式（例如A1）的单元格可以在data.xls中获取单元格E1的值。但是，closuresdata.xls然后：打开Excel_Sample.xls在Excel 2003中，即使GetData的公式无效（导致data.xls已closures），A1中的数据仍然存在。打开Excel_Sample.xls在Excel 2010中，A1中的数据变成#VALUE！导致公式再次运行，并可以获取data.xls中的数据。我可以做什么来保持在Excel 2010中的数据，即使公式是无效的，就像2003？

获取文件修改时间和名称: 我有一个包含多个文件的目录，并希望从那里获取修改时间和文件名，以便在设置date之间修改时间。我已经在Excel 2007中尝试了=FILEDATETIME ，但是它返回#NAME ?,所以我假设该函数不存在。这怎么可能？

在Excel中，如果相邻列具有特定值，那么如何计算列中的空白单元格？: 我正在制作一个人头像预测电子表格。左栏有组，然后是已被征用的职位。此列右侧的列是每个月的。由于职位被批准，他们被给了一个id号，然后当它被填充id被replace为一个名字。我希望能够在工作表的底部为每个位置和每个组创build总计。我正在尝试一个SumProduct，但它不工作。例： Groups (ColumnA) September(ColumnC) Admin – Admin 228-1 Admin – Admin Sam Jones Admin – Admin Admin – Met Data Analyst John Smith Sales – Business Dev Sales – Coordinator MinPro – Technician 229-1 MinPro – Technician MinPro – Technician 我尝试使用的公式是：= SUMPRODUCT（ – （A5：A6 = A120）， – （C5：C6 <>“”）） […]

VBA Listobject自动筛选唯一的项目: 我是一个优秀的新手，对于一个项目，我正在尝试创build一个用户表单，用户将通过这个表单进行一系列的select以获得结果。例如，我有一个像下面这样的表格。 types| 颜色| 项目 ——————— 水果| 黄色| 芒果水果| 红色| 苹果素食| 绿色| 西兰花我希望用户从combobox中select，首先是types，然后是颜色来确定项目。我正在使用列表对象filter来填充combobox。我可以做出select，例如从combobox1中的水果和从combobox2中的黄色以得到芒果。但是，我遇到的问题是，我的combobox有重复的情况。我的问题是：1.是否有办法通过表，我将能够得到独特的项目来填充combobox。或者，2.是否有一个整洁的小技巧来摆脱combobox中的重复？

如何使SQL查询在Excel中运行更快？: 为了优化一个报告，我把所有的数据透视表改为sql查询，因为使用透视不是一种有效的代码方式。但令我惊讶的是，SQL查询所花的时间比数据透视更多。有没有标准的方法来优化SQL查询或连接，使我的工具运行速度更快？

尝试创build一个将在特定表格上开始和结束的循环: 我是VBA新手。我想创build一组代码，这将允许我启动和停止一组工作表之间的循环。背景：我有一个文件，用于更新财务分析的几个重要因素，并将某些选项卡分组在一起。由于这个文件总是添加和减less制表符，我不能为设定数量的工作表设置一个循环。我有一组在每个分组之间永远不会移动的选项卡。所以我想创build一个循环，将开始在选项卡“X + 1”，并循环，直到它到达标签“Y-1”，因为我不想循环交stream。中间的代码我已经写完了，但是我还没有很好的循环。

批量删除重复的列: 我知道如何使用“数据”选项卡上的“删除重复项”从单个列中删除重复项。不过，我有830列的手动过程（依次select每个列，然后单击删除重复）将是非常繁琐的。请问，有没有更好的方法来做到这一点？

从用户定义的函数获取返回值时出错: 我的用户定义的函数总是返回“公式中使用的值是错误的数据types”（我正在将单元格范围传递给函数）。我search了很multithreading，我很确定我的代码应该工作： Function SortAndEvaluate(ByRef Probs() As Variant, ByRef ResidualProbs() As Variant, ByRef Costs() As Variant) Dim Temp As Double Dim i As Integer Dim NoExcanges As Integer 'Exchange values in probs in descending order Do NoExchanges = True ' Loop through each element For i = 0 To UBound(Probs) – 1 'If element is greater […]