Tag: excel vba
SUMIF公式几个月
如果我想总结一个特定的范围取决于它是哪个月，我该怎么办？ 所以，如果一个范围内的月份与今天的月份相同，那么我希望它总和一个范围。 我有这个代码 =IF(TEXT(TODAY();"MMMM")=A:A; SUMIF($B:$B;"X*"; C:C); "") 'SUMIF（$ B：$ B;“X *”; C：C）; “”）`这工作正常，但如果我把“如果”之前没有任何工作。
将范围设置为所有填充的单元格
我需要设置一个范围来只select包含数据的行中的单元格。 有时在第3行的列B，C，D，E和F中会有数据，而在其他时间，在该行的前10或20列中会有数据。 我已经尝试了下面，但它不起作用。 Dim rRng As Range Set rRng = Sheets(1).Range("B3").End(xltoright) 我知道我很有标志，但我正在为此而挣扎。 此代码将运行各种不同的数据集; 有时需要select五个单元格，有时需要十个（如果填充）。
Excel获取脚本所需的当前用户名VBA帮助
我有一个Filemaker Pro运行时数据库，导出报告到Excel然后以PDF格式打开，没有任何问题在我的机器上运行，但…..当客户加载到那里机器的VBA代码（当前用户名）需要改变。 对我来说，一个很大的障碍是能够使用我的解决scheme分发Excel表单，并让Excel知道不同的用户名。 所以下面是我的VBA的一部分，我需要能够将SEAQ（用户名）更改为当前用户名…..出口到位置是文件，我不需要改变那部分。 ActiveWorkbook.UpdateLink Name:= _ "C:\Users\seaq\Desktop\LAB 17025\Forms\Particle Distribution\PD FM Exported.xlsx" _ , Type:=xlExcelLinks Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\seaq\Desktop\LAB 17025\Forms\Particle Distribution\Particle Dist Customer Report.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True
使用间接/索引匹配从多张表拉取数据
我有一个工作簿，其中包含一个主表和200多个标签，我试图从中拉出数据。 主工作表包含A列中的商店编号，以及范围B1：T1中不同产品的各种标题。 每个商店都有自己的标签，标签以每个商店编号命名。 我正在寻找匹配主表工作表A列中的商店编号到每个标签名称（商店编号），然后将主表单中的标题匹配到每个标签中的标题，并检索每个标题下面的值。 我想我需要使用间接公式来匹配商店号码到每个选项卡名称和indexmatch拉我的数据，但我正在努力把这些片断在一起。 任何帮助将不胜感激。 谢谢！ 以下是我的主表格： 示例存储我想要的数据
VBA – 如何在列表中find“x”和“y”的频率
我在excel工作簿的一个页面上有一列名称，我需要找出每个名称出现在该列中的频率，并将其显示在另一个表格中。 例如，代码需要计算“CS”，但是很多次出现在这个列中，并显示在一个单独的表单中，然后与“Grad”等等一样。 有小费吗？ 非常感谢
运行时错误424 excel vba
您好我正在试图写这个macros来做一个查找，所以我没有公式，不断计算和放慢我的工作，但是我不断得到一个运行时错误424：所需的对象。 Sub matchProgram() Dim Mrow As Long Dim Mcol As Long Table1 = Sh1.Range("A1:A20") Table2 = Sh2.Range("A1:B20") Mrow = Sh1.Range("B1").Row Mcol = Sh1.Range("B1").Column For Each cl In Table1 Sh1.Cells(Mrow, Mcol) = Application.WorksheetFunction.VLookup(cl, Table2, 2, False) Mrow = Mrow + 1 Next cl End Sub
如何使用匹配函数获取数据的值？
问题描述如下：A是可用的全部testing; B，C是对对象及其结果所做的testing; D，E是输出 可用的全部testing在列A中。列B表示在对象上进行的testing，因此如果对象改变而列C给出testing的结果则它们会变化。 D再次表示总testing的输出，E分别给出特定testing的结果。 我想使用VBA给C到E的结果，剩下的单元格是空的。 请帮我怎么样？ ABCDE qq qq 23 qq 23 ww dde 34 ww ee gg 45 ee dd dd ff ff gg gg 45 vv vv dde dde 34 ass ass bb bb nn nn xx xx
path位于特定单元格中时播放声音文件
在运行macros时，我想播放声音。 但声音将根据条件确定。 声音文件位于单元格A1中。 为什么我不能获取命令来读取单元格中的文件path？ 任何帮助，将不胜感激。 （我知道这对你们中的一些人来说很容易，所以请不要阻止我。） ' COMMUNICATION: Play sound file located in cell a1 If Application.CanPlaySounds Then Call sndPlaySound32(Cells([a1]), 0) End If
dynamic读取数据库信息以连接到数据库
如果我在Excel中使用VBA从服务器导入数据，我写了以下内容： Sub ImportData(message_string, location, table_name, env_name) If env_name = "Name" Then connstring = "OLEDB;Provider=MSDAORA.1;User ID=myID1;password= MyPass1;Data Source=server1" Else connstring = "OLEDB;Provider=MSDAORA.1;User ID=myID2;password= MYPass2;Data Source=Server2" End If With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range(location), Sql:=message_string) .RefreshStyle = xlOverwriteCells .Refresh .Name = table_name End With End Sub 如何读取Excel工作表中的myUserName ， myPass和server1或server2数据？ 例如把这个信息放在单元格A1，A2和A3中。
拒绝保存好像单元格没有值
我有一个脚本，用于保存基于两个单元格/命名范围（FailReportSN和FailReportDD）的内容的Excel模板。 我的问题是，最终用户并不总是记得在运行下面的save脚本之前将值input到这两个单元格中。 我需要做的是修改我的当前脚本，只保存两个单元格中的值。 Sub saveAsFATPMM() Dim PathMac As String, Path As String, FolderPath As String If Application.PathSeparator = ":" Then FolderPath = "Volumes:Server:Groups:METI:Quality Control:METIman:" PathMac = FolderPath & Sheets("Failure Report").Range("FailReportSN").Text & _ " – FATP – " & Sheets("Failure Report").Range("FailReportDD").Text & ".xlsm" 'Format(Date, "mm-dd-yy") ThisWorkbook.SaveAs Filename:=PathMac, FileFormat:=53, CreateBackup:=True Else FolderPath = "\\server\server\Groups\METI\Quality Control\METIman\" Path = […]
