Tag: excel vba

Excel VBA按名称引用QueryTable对象: 我正在开发一个MS Excel 2013工具与VBA涉及使用QueryTables。我遇到的一个不便之处是访问Excel工作表中现有的 QueryTables。目前，我可以通过整数索引find访问查询表的唯一方法。我想出了下面的代码来快速validation概念 Sub RefreshDataQuery() Dim querySheet As Worksheet Dim interface As Worksheet Set querySheet = Worksheets("QTable") Set interface = Worksheets("Interface") Dim sh As Worksheet Dim QT As QueryTable Dim startTime As Double Dim endTime As Double Set QT = querySheet.ListObjects.item(1).QueryTable startTime = Timer QT.Refresh endTime = Timer – startTime interface.Cells(1, […]

dynamic添加标签到用户窗体=空白用户窗体: 我试图dynamic地添加button到用户窗体，但用户窗体只是空白。我已经简化了代码的本质，尽可能地进行错误检查（不是它帮助了我） Sub addLabel() UserForm2.Show Dim theLabel As Label Dim labelCounter As Integer For labelCounter = 1 To 3 Set Label = UserForm2.Controls.Add("Forms.Label.1", "Test" & labelCounter, True) With theLabel .Caption = "Test" & labelCounter .Left = 10 .Width = 50 .Top = 10 End With End Sub 有没有办法检查button是否已经添加，但是看不见？或者为什么他们没有被添加。任何帮助不胜感激。

加固细胞的特定部分: 我有一个单元格引用为="Dealer: " & CustomerName 。 CustomerName是一个字典引用的名字。我怎么能只用“加工商”而不是客户的名字。例：经销商：乔希我努力了 Cells(5, 1).Characters(1, 7).Font.Bold = True 但它似乎只能在未引用的单元格上工作。我怎么能得到这个工作在一个参考单元格？

如何从Excel 2003 VBA中调用WCF客户端？: 如问题所述，我如何从Excel 2003 VBA中调用WCF客户端？我看到有一个地方可以调用Web服务，但是我已经通过Google进行search，所有得到的结果都无法从VBA调用WCF客户端。我想知道在使用我的代码之前要使用什么方法，不想浪费时间，以后发现不可能这样做。

是否有可能重新计算VBA中的单元格或范围: 是否有可能重新计算VBA中的单元格或范围？我喜欢用于表格的是以下内容，但是如何在单元格上执行此操作？还是范围？ ' ActiveSheet.EnableCalculation = False ' ActiveSheet.EnableCalculation = True

从.xls文件中获取“工作簿的绝对path”: 当我在一个特定的.xls文件上使用Excel“Document Inspector”来检查“隐藏的属性或个人信息”时，它说：以下文件信息被发现： *工作簿的绝对path 如何从文件中获取工作簿的绝对path？如果需要以编程方式完成，我可以使用Java（如Apache POI）或VBA。我知道文件当前保存的位置，但是我想提取的是保存在文件中的工作簿的绝对path。这是我可以知道作者保存的地方。这是文件发生了什么事情：有人创作它，把它保存在我不知道的绝对文件path中他们上传到一个网站我从网站上下载了它 Excel表示文档包含步骤1的绝对path。我在这条path之后，而不是我在步骤3保存它的地方，因为我知道这一点。

如何在VBA for Excel中使用r1c1格式进行绝对引用？: 我正在使用VBA（r1c1格式）为Excel写一个macros，我想引用一个始终在E3位置的单元格。有没有我可以使用的语法，将在r1c1格式绝对参考？或者是有办法切换到A1和回到r1c1？我到处找，我找不到答案…提前感谢。

如何在“打印”选项卡中设置“在一页上放置所有列”: 我唯一想要的是当用户在Excel中打开“打印”选项卡时，始终设置“适合所有列在一个页面上”的设置。不，他们不想自己做。真是一个惊喜:) 以下是Excel 2013中的屏幕截图：试图寻找像下面的一些VBA代码，但没有成功。 With Sheets("Print Letter").PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With

使用DeepL API来翻译文本: 有没有可能找出DeepL翻译器是否为翻译提供了一个API？不幸的是，我还没有find任何关于此的信息。想将这个实现到一个用于自动翻译的Excel脚本。我已经用Google试过了（比如https://translate.google.com/#en/es/Hello%20World ），但是DeepL似乎更加准确。

对隐藏的单元格执行查找: 我有一个隐藏的列中，我用下拉框中的值的计算范围。为了找出用户select了哪个值，我尝试在该范围上运行查找，但由于某些原因，只要该列被隐藏，Excel将不会返回与其select相对应的单元格。我怎样才能find在隐藏范围内的单元格工作。请记住 – 我正在search单元格计算值，而不是公式。以下不起作用： Set inserted = Range("RDS_Event_IDs").Find(Range("SelectedEvent"), , xlValues, xlWhole) 只要Range("RDS_Event_IDs")单元格被隐藏。由于解决scheme必须在一般情况下工作，其中可能隐藏了部分或全部正在search的范围，并且可能会search整个工作表，因此以编程方式取消隐藏所有受影响的行和列，然后重新 – 隐藏以前隐藏的那些。