Tag: excel

在Excel VBA中添加两个二维数组: 我只是想知道如何在Excel中使用VBA添加两个二维数组。我试图在互联网上search，在我看来，唯一的方法是循环每个元素。我是对的还是有更好/更快的方法？作为一个必然的问题：最好是循环或复制到Range，并使用PasteSpecial选项，如问题答案的精神，如何添加数组？

build立一个Excel API: 我试着解压缩.xlsx文件，并可以find它的一些文件。但我不确定这些文件包含什么以及它们是如何相关的。我在哪里可以find用于创build电子表格XML的DOCS？

在公式中引用其他工作表中的单元格时出错: 在Excel中的公式是 =100/(INDIRECT("'History Data'!B" & M2)-100) 这里M2给出列B中的行号，这就是我使用INDIRECT函数的原因。现在当我尝试在VBA中写这个，它会抛出一个错误，我不能find解决scheme，但我认为这是因为我引用的工作表有一个名称空间，因此我需要操纵单引号“在公式的开始和结束。我写了这个 .Formula = "=100/(INDIRECT(" & Chr(34) & Chr(34) & "History Data" & Chr(34) & "!B" & M2 & ")-100)"

使用XSLT从Excel中检索数据: 我有一个excel如下，其中第5行的标题数据。编辑： inputexcel也可能出现如下。数据可能出现在任何列中。数据必须使用行标题广告名称，UID和Status.It不会更改。然后将其保存为工作簿xml，如下所示 <?xml version="1.0"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40"> <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office"> <Author>Jefferson D</Author> <LastAuthor>Jefferson D</LastAuthor> <Created>2015-10-29T17:10:31Z</Created> <LastSaved>2015-10-29T17:15:02Z</LastSaved> <Company>*CL</Company> <Version>12.0</Version> </DocumentProperties> <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office"> <AllowPNG/> </OfficeDocumentSettings> <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel"> <WindowHeight>22060</WindowHeight> <WindowWidth>34400</WindowWidth> <WindowTopX>-20</WindowTopX> <WindowTopY>-20</WindowTopY> <Date1904/> <ProtectStructure>False</ProtectStructure> <ProtectWindows>False</ProtectWindows> </ExcelWorkbook> <Styles> <Style ss:ID="Default" ss:Name="Normal"> <Alignment ss:Vertical="Bottom"/> <Borders/> <Font ss:FontName="Verdana"/> <Interior/> <NumberFormat/> <Protection/> </Style> <Style ss:ID="s16"> <Font […]

定义dynamic单元格范围: 我正在使用APACHE POI进行条件格式化。我得到的txt文件作为input，我把它转换成工作表，然后执行条件格式。现在，第一列和标题是我不会做任何格式的文本。我必须对其他单元格执行条件格式化，比如B2：I10（但是它会不断变化）。我怎样才能dynamic地定义单元格范围。目前，我有 CellRangeAddress[] my_data_range = {CellRangeAddress.valueOf("B2:I10")}; my_cond_format_layer.addConditionalFormatting(my_data_range,my_rule1) 我将如何dynamic定义my_data_range，并保留第一列和第一行。

IF，Else，ElseIF在一定的date内循环: 我想设置下面的条件，但我只能得到2条件完成三个条件是不足七天的一个数值乘以一个数值，两个数据之间的范围乘以一个数值，超过30天乘以另一个数值。无法让所有人都能工作不知道出了什么问题 ' To create the following condition 'If less than 7 days interest = 0% ' if 8 to 30 days interest = 7% 'if more than 31 days interest = 9% Sub Workbook_Open() For i = 1 To 3 'Rows.Count xdate = Cells(i, 1) nulldate = DateAdd("d", -7, Date) irate7late = […]

打开只读工作簿进行编辑: 我试图自动更新服务器上的文件，只读为每个人都可以访问。编辑只为less数人使用。因此，它是密码保护，但只用于编辑，而不是开放。我试图写一个macros来打开一个密码保护的文件，但只适用于打开文件的保护。我尝试了下面的代码，因为别人认为它可能有助于展示广告和/或忽略，但这并没有帮助。我不断得到一个popup窗口，说：“input密码写访问，或打开只读”。我甚至试过SendKeysinput密码，但比popup式显示太。任何我可能没有的build议？ Application.DisplayAlerts = False Workbooks.Open Filename:="test.xlsx", IgnoreReadOnlyRecommended:=True, Password:="password", ReadOnly:=False Application.DisplayAlerts = True

select透视列的第一项: 我正在开发一个代码，以将绝对值的数据透视表转换为索引。 Private Sub Index_Change() Dim p As PivotTable Dim f As PivotField Set p = Sheets("1").PivotTables("2") With p.PivotFields("Sum of 1") .Calculation = xlPercentOf .BaseItem = "" .NumberFormat = "0,00%" End With End Sub 我正在寻找一种方法来select枢轴列的第一个单元格作为.BaseItem 。

删除没有特定文字的表单: 在Excel中，我需要删除所有不以（2）结尾的表单，下面的代码正确地删除了那些以（2）结束的代码，我只是不确定如何反转这个，'不喜欢'似乎不工作 Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets If ws.Name Like "*" & "(2)" Then '~~> This check is required to ensure that you don't get an error '~~> if there is only one sheet left and it matches the delete criteria If ThisWorkbook.Sheets.Count = 1 Then MsgBox "There is only one […]

有没有更好的方法给用户一个string的select？: 我正在使用VBA处理一堆数据。由于数据不干净，偶尔我需要让用户手动select哪个是正确的。如果可以，请尽量避免使用用户表单。（尽pipe如果这是最好的方式将做到这一点）。这是我到目前为止： Sub string_choice() Dim msgValue msgValue = MsgBox("Hello, which is correct? Choose:" _ & vbCr & "Yes: if you want option A" _ & vbCr & "No: if you want option B" _ , vbYesNoCancel + vbQuestion) If msgValue = vbYes Then MsgBox "You chose option A" ElseIf msgValue = vbNo […]