Tag: vba

VBA Excel VerticalAlignment = xlCenter不工作: 下面的代码select工作表，但未能将单元格居中。 wb.Sheets(1).Columns("A:L").Select With Selection .VerticalAlignment = xlCenter End With 谢谢！ wb.Sheets(1).Activate wb.Sheets(1).Columns("A:L").Select With Selection .VerticalAlignment = xlCenter End With select整个工作表，但不会将垂直alignment更改为居中。 wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter 什么也没做。我不想HorizontalAlignment 🙂 我发现该列已将VerticalAlignment设置为xlCenter，但该列下面的单元格没有将VerticalAlignment设置为xlCenter。

Excel VBA代码强制一定的缩放级别: 我在Excel中有一个validation的下拉列表，如果缩放比例小于100，那么这个列表是不可读的。我在网上查了一下，发现我不能改变validation列表文本大小的大小，所以我想强制执行一个100的缩放。我有这样做的代码如下 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWindow.Zoom = 100 End Sub 这对于使用缩放小于100的人来说是可行的，但是如果用户使用大于100的缩放，则会将缩放限制为100.是否有办法克服这个问题，这是沿着If-Else语句的方式。如果变焦小于100，则变焦= 100，否则如果变焦大于100则不起作用谢谢。

vba'编译器错误预期：='在saveAs操作: 在我的VBA代码中的以下行正在生成编译错误“编译器错误预期：=”意味着它期望分配。我在做什么错了，我该如何解决这个问题？我只想保存文件。另外，我想覆盖之前是.xls或.xlsx文件的文件。这条线会这样做吗？ Workbooks(theFile).SaveAs("Z:\test\vhb\" & newName, xlCSV)

VBA函数 – 参数不可选: Public Function RETURN_Equipment(Optional category As String) As Collection Dim config As classConfiguration Set config = New classConfiguration Dim item As classItem Set item = New classItem Dim myCollection As Collection Set myCollection = New Collection For Each config In Configurations For Each item In config.colItems If IsMissing(category) Then myCollection.add item ElseIf InStr(category, "mainframe") <> 0 […]

Excel / VBA：粘贴数据后自动调整列宽: 我有一个空白的Excel表保存为一个模板，我从剪贴板复制数据（源自网站）。有没有办法使用VBA来自动调整每个列的宽度，其内容后的数据（文本）已被粘贴？编辑：我粘贴的数据将始终从A1开始插入，并将始终填充相同数量的列。提前非常感谢，蒂姆。

更短的方式来testing某个string的范围: 尝试创build将我的Excel发票工作表导出到PDF的代码到指定的文件path。该path基于发票是否列出某个产品ProductX。这是我想出来的，但是在一个范围内的每个单元格中循环看看ProductX是否在那里似乎很麻烦。有没有更简单的方法来做到这一点？感谢任何帮助！ Sub ExportToPDF() ' Dim file_path As String Dim search_range As Range Dim each_cell As Range ' Set search_range as desired search range Set search_range = ActiveSheet.Range("A53:R56") For Each each_cell In search_range.Cells If InStr(1, each_cell.Value, "ProductX", vbTextCompare) Then file_path = Some_path_A Else: file_path = Some_path_B End If Next each_cell 'Export the […]

如何在VBA中testingExcel工作簿中是否存在VBA？: 我正在编写一个报告工具来logging各种“合规标准”的Excel文件，包括wkb.VBProject.Protection来报告VBA是否被locking。但是我怎样才能find工作簿是否有任何项目？如果我计算 wkb.VBProject.VBComponents.Count – wkb.Worksheets.Count – 1 '(for the workbook) 这会给我模块+类模块+表单的数量，但是我仍然可以在表单后面添加一些代码。有没有在Excel中的方式 – 像访问frm.HasModule – 找出工作簿中是否有任何VBA代码？

中断/中止一个VBA循环: 在Excel的VBA中，我有几千个单元格的循环，这需要几分钟的时间。是否有可能中止一个长期的循环（如果是这样，如何）/我可以build立一个button或类似的东西手动中断此循环？ build立一个button，并用macros覆盖它不是一个问题，只有代码本身。

如何使用Excel VBA将值推入非特定数组大小: 我正在寻求帮助，推动从基于某些filter/单词匹配的XML的值parsing到一个数组列表。但是，此数组不应具有预定义的数组大小，因为XMLinput是从文件到文件的dynamic。含义是，XML文件1可能有10个这样的input，XML文件2可能有15个input。有人可以告诉我如何能做下面2things：如何通过预定义数组大小来定义数组列表？当用户逐个读取节点时，大小取决于XMLinput列表当findXML字匹配时，会将xmlinput/值parsing到Excel VBA中并保留在该数组中。

基于VBA中的模板创build新的Excel文件: 我正在Excel中构build一个应用程序，使用户可以从已经构build的现有基于Excel的工具列表中进行select。他们将select特定的工具，并点击“创build新的”button。点击这个button后，用户将被要求命名该文件。 input名称后，需要创build一个新的工作簿并将其放置在特定工具的项目文件夹中。我在代码中遇到了麻烦。我已经能够find从活动工作簿中实现复制模板的代码示例，但是完全没有办法在另一个excel文件中创build一些东西。我相信我需要制作用户需要重新创build的工作簿的副本，然后更改名称并将文件放在所需的位置。我会张贴一些代码来展示我迄今为止所做的，但是我并没有真正取得进展。谢谢，