Tag: vba

将范围设置为所有填充的单元格: 我需要设置一个范围来只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

在Excel VBA中自动selectcheckbox: 我保留了一个Excel表格，其中列A中列出了特定产品的所有参数，而在列D中，还有几个参数，我需要从列A中所有参数的集合中进行select。是否有可能在VBA触发一个点击事件，它应该比较列A和列D，并selectcheckbox，如果它自动find参数。任何帮助表示赞赏！

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中。

将网页保存为PDF到某个目录: 我有它在哪里将打开Internet Explorer给用户另存为框，然后退出。但是，我宁愿如果不是用户必须导航到正确的文件夹，该目录来自工作表中的单元格，并将网页保存为PDF。我安装了完整的Adobe。代码： Sub WebSMacro() Dim IE As Object Dim Webloc As String Dim FullWeb As String Webloc = ActiveSheet.Range("B39").Value FullWeb = "http://www.example.com=" & Webloc Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate FullWeb Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER Application.Wait DateAdd("s", 10, Now) IE.Quit Set IE = […]

如何使用查找function设置范围: 我有格式化单元格的程式化的电子表格供用户input数据。我正在尝试创build一个macros用于一个button清除所有的input单元一次。但是，我正在努力寻找和查找格式函数。为了简单起见，在这个代码中，我只是在寻找一些说“零售”的单元。当我运行代码时，myRange的值始终为Nothing，即使电子表格中有一个值为“Retail”的单元格。任何想法，为什么范围是什么？ Public Sub reset() 'reset all input fields to no value msg = MsgBox("Are you sure you want to delete all data and reset all files to original state?", vbYesNoCancel, "***Warning***") If msg = vbYes Then Dim inputCell As Long Dim noteCell As Long inputCell = RGB(255, 204, 153) noteCell […]