Tag: excel

如果工作表名称出现在单元格范围内，则select

我希望能够将多个特定的工作表保存为PDF。 我目前有这个代码工作： Sheets(Array("Print – Cover", "Print 2.2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile,Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=OpenPDFAfterCreating 这将打印 – 封面和打印2.2页保存为预期的PDF。 而不是硬编码sheetnames，我想保存任何工作表有一个单元格范围内存在的名称。 例如，在我的ActiveSheet的单元格A1:A3中，我可以有蜜蜂，猫和狗 ，而macros将会 select工作表“蜜蜂”，“猫”和“狗” ， 但不是“猪” ，作为工作表存在，但没有列出。 列出的页数可能会增加或减less。 这样做的目的是让用户可以轻松地指出他们想要保存哪些表而不必编辑macros。

行正在被复制并从一个工作簿粘贴到另一个时复制行

我有一个代码，允许我根据我想复制的国家进行过滤，并将其从一个工作簿粘贴到另一个工作簿。 然而，我面对的问题是当我运行的代码不止一次，find重复的行。 我不知道如何对代码进行改进，以允许代码防止重复行发生。 以下是我目前的代码。 它从外部工作簿复制时给了行的重复。 我想search的条件是“新加坡”，它在外部工作手册“主动主项目”中出现了不止一次。 因此，下面的代码将帮助find所有包含“新加坡”的行，并将其粘贴到另一个名为“新即将开展的项目”的工作簿中。 但是，当代码运行多次时，它将复制先前已经被复制的行。 外部工作簿将每月添加新行，因此下面的代码将允许search“新加坡”并将行粘贴到另一个工作簿中。 但是，它也复制了以前被复制的行。 因此，我有点卡在当前的代码。 Sub UpdateNewUpcomingProj() Dim wb1 As Workbook, wb2 As Workbook Dim ws1 As Worksheet, ws2 As Worksheet Dim copyFrom As Range Dim lRow As Long '<~~ Not Integer. Might give you error in higher versions of excel Dim strSearch As String Set wb1 = Application.Workbooks.Open("U:\Active […]

如果第二张纸张中存在相同的值，则更改一张纸上的行的颜色

我有一个名为Skruvdragare单元格，其中单元格B1-B500包含序列号如： 123456789等和第二个单元Låda 1 ，其中我还将放入一些序列号（不一定与Skruvdragare表中的数字相同）。 如果我把一个序列号，在任何存在于Skruvdragare Låda 1 ，我希望这个序列号的Skruvdragare表中变成红色背景和白色文本。

检查特定列的Excel工作表的标题行

我有超过150个Excel文件，其中有一些额外的列（我们称之为“ExtraColumn”），而有些没有这个列。 而不是手动打开每个文件，看看哪些有额外的列，我想使用PowerShell来弄清楚。 我迄今试过的代码似乎没有让我到任何地方。 如果您有任何build议或可以指出我正确的答案，这将是非常好的，非常感谢！ gci -Path C:\Test -Recurse | % { $ExcelFile = (Get-Content $_.FullName -TotalCount 1) if ($ExcelFile -like "ExtraColumn") { Write-Host "$_ has the extra column" } else { Write-Host "$_ does not have the extra column" } }

在MS Access中将自定义查询输出为Excel格式

我知道有DoCmd.TransferSpreadsheet acExport,但这需要一个硬查询名称。 我想循环一个logging集，并导出每个视图的文件，所以例如导出一个Excel文件的"select * from myQuery where arguments=arg1" ，另一个文件的"select * from myQuery where arguments=arg2" ，等等上。 有没有办法创build这样的基于“自定义”的飞行SQL查询这样的Excel文件？

从单元格列表中popup一个随机值

我有一个类似于这个问题的问题，但有点不同： 比方说，我有这样的数据： CAR NAME COLOR LIST OF COLORS Car1 ? Red Car2 ? Blue Car3 ? Green Car4 ? Black 我想随机分配所有的颜色到所有的汽车没有重复，即 CAR NAME COLOR LIST OF COLORS Car1 Green Red Car2 Black Blue Car3 Blue Green Car4 Red Black 有没有办法让一个单元格从一个列表中随机select，除了已经input在另一个范围内的值？

如果不是先前存在的话，从一列（newrawdata）导入/附加单元格到另一列（centrallibrary） – 匹配函数的date错误

下面的代码使用匹配函数来检查存储在列C的单元格中的新的一组值是否存在于存储在列A中的预先存在的范围内。 如果是，则在msgbox提示符下，显示与该值对应的行。 否则，使用“if iserror”语句来处理错误n / a，该语句会将有问题的值附加到列A中的下一个空行 问题： 这适用于文本和数字，但匹配函数似乎不正确返回date。 date值会附加到列A的底部，无论预先存在。 可能的错误： 在匹配函数中格式化或date值 要注意： 下面是一条设置为注释的行，但是在取消注释的date时创build一个错误 – 用于显示列A中的数据 'MsgBox（“Data pre-exists in row”＆MatchAns） 很高兴提供例子。 Option Explicit Sub AppendNewRecords() 'example used – Column A, listed with a number of values including numbers, dates and text, 'Column C contains new raw data some matching Column A and some not, 'append new […]

在Excel中只使用SUBTOTAL求和可见性单元格

我打算使用Excel工作表获取当前股票的余额。 在这个工作簿中，每天都会input余额。 但是实际上只显示最近一天的余额，其他的都是隐藏的。 数据以列input，因此只显示一列数据。 在这个例子中，我想总结从第21行到第24行的值。我从第一个logging的余额input公式，并提前一些列（所以范围不需要经常改变）。 为此我使用： =SUBTOTAL(109,C21:O24) 最后一列的值总和为20.然而，使用这个公式总和为260.它实际上将第21行到第24行的所有值相加！ 我提供的网站https://support.office.com/en-us/article/SUBTOTAL-function-7b027003-f060-4ade-9040-e478765b9939它说，值“109”应作为第一个参数在为了只求和非隐藏的值。 但显然，这是行不通的。 我也尝试使用“9”作为第一个参数以及相同的结果。 我错过了什么？ 为什么这个公式不按预期执行？ MCVE（我认为，如果这是复制到单元格A20，值应该变成260.当隐藏所有列，但A，B和O应使用SUBTOTAL 20，但对我来说，它仍然产生260）。 Stock Prod1 5 5 5 5 5 5 5 5 5 5 5 5 5 Prod2 5 5 5 5 5 5 5 5 5 5 5 5 5 Prod3 5 5 5 5 5 5 5 5 5 5 […]

如何从单元格中提取基于字体颜色的文本，并使用多种颜色的文本，并使用分隔符分隔多个单词？

如何基于多种颜色文本的单元格中的字体颜色提取文本 我有一列数据（A）。 列（A）中每个单元格中的数据是半个颜色和另一个颜色。 如果他们在不同的地方，我必须提取由分隔符分隔的每个单词。 我尝试了上述链接的解决scheme，但无法进行更改以适应我的目的，因为我是vba的初学者。 请build议方法来解决这个问题。 （A）原件……….（B）红色 abcdefgh ………. abc，gh

使用COUNTIF / SUMPRODUCT

我有一个工作表，我正在试图通过提供更新提供用户更自动化，但是我有一个公式工作的困难。 我正在使用一个半大的表（超过32列的信息，1,500行），但真的只想在这个问题上专注于2列。 在列CI中有服务订单被请求的date，并且在列DI中具有在发送请求确认时填充的信息（如果没有请求被发送，则它是空的）。 我希望能够创build一个消息框，在工作簿打开时显示警报，并显示当天2周内尚未收到确认的订单请求数。 到目前为止，看起来像我最好的select是让隐藏的单元在其他地方使用公式进行繁重的工作，然后使用Workbook_Open事件在消息框中显示值。 我已经能够得到一个公式来显示适合我的时间窗口的请求数量： =SUMPRODUCT((Table5[Date]>=TODAY())*(Table5[Date]<=TODAY()=14)) 这似乎是捕捉我需要的数字，但是我很难整合我需要的第二个组件：是否发送了回复。 到目前为止，我试图在公式中包含某种forms的AND限定符，已经返回了一个错误…我希望能够在公式内量化（逻辑上）： =IF(Table5[Reply]="" AND Table5[Date]>=TODAY()+14, SUMPRODUCT) 我知道上述不会工作，但我想知道如果任何人有任何指示如何修改，以便它可以包括这两个因素？ 非常感谢！