vba 相关问题

Visual Basic for Applications(VBA)是一种用于编写宏的事件驱动的面向对象编程语言,用于整个Office套件以及其他应用程序。 VBA不等同于VB.NET或VBS;如果您在Visual Studio中工作,请使用[vb.net]。如果您的问题专门针对编程任何MS Office应用程序,请使用相应的标记:[excel],[ms-access],[ms-word],[outlook]或[microsoft-project]。

突出显示单元格内的所有多个关键字,而不仅仅是第一个实例

我正在开发一个宏,可以运行该宏来检查行项目描述是否符合客户计费要求。 例如,某些单词和符号根本不应该包含在...

回答 1 投票 0

Excel中显示UserForm或MsgBox时如何允许用户与电子表格交互

我有一个消息框,要求用户输入“是”或“否”,但需要给用户一个机会交叉检查另一个选项卡,如果他们的猜测是正确的,例如 answer = MsgBox("确认删除?",

回答 3 投票 0

是否可以(在 Microsoft Access 中)将 VBA 事件处理程序附加到 Web 浏览器控件的 HTML 事件

我有一个带有 WebBrowser 控件的访问表单 (b)。我通过以下方式即时“写入”b 的内容: Dim h 作为字符串 h =“” h = h & " 我有一个带有 WebBrowser 控件的访问表单 (b)。我通过以下方式“写”b 的内容: Dim h as String h = "<html><body>" h = h & "<form id='bf' ...>" h = h & "<input type='text' id='test' name='test'>" h = h & "<input type='submit' value='Submit'>" h = h & "</form>" h = h & "</body></html>" Call Me.b.Object.Document.Write(h) 我想通过 VBA 函数处理用户的响应(“提交”)。 在我的 VBA 代码中,可以通过 bf 访问 HTML 表单 Me.b.Object.Document.getElementById("bf"),即一个 MSHTML.HtmlFormElement 并公开带有两个参数的 attachEvent 方法: Function attachEvent(event As String, pdisp As object) As Boolean 我应该如何创建一个pdisp对象来完成以下操作? Call Me.b.Object.Document.getElementById("f").attachEvent("onsubmit", *???*) 提前感谢您对此问题的任何见解或对我的问题的任何替代解决方案。 用 Address Of 提供“函数指针”是行不通的。我认为所需的对象应该是某个实现某些接口的WithEvents类的实例...但是找不到有关该主题的任何文档。 尽管有 .Net,VBA MSHTML 库不提供对 ObjectForScripting 的访问... 使用带有 WithEvents 的类的示例: 类模块clsHtmlInput: Option Explicit Private WithEvents m_btn As MSHTML.HTMLInputElement Private m_txt As MSHTML.HTMLInputElement Public Sub SetInputs(theButton, theTextBox) Set m_btn = theButton Set m_txt = theTextBox End Sub Private Function m_btn_onclick() As Boolean MsgBox "Clicked: " & m_txt.Value End Function 您的用户表单: Dim o As clsHtmlInput '<< instance of your "withEvents" class Private Sub UserForm_Activate() Dim el As MSHTML.HTMLInputElement, h As String With Me.wb1 .navigate "about:blank" WaitFor wb1 .document.Open "text/html" h = "<html><body>" h = h & "<input type='text' id='test' name='test'>" h = h & "<input type='submit' value='Submit' id='btnSubmit'>" h = h & "</body></html>" .document.Write h .document.Close WaitFor wb1 .document.getElementById ("btnSubmit") Set o = New clsHtmlInput o.SetInputs .document.getElementById("btnSubmit"), _ .document.getElementById("test") End With End Sub 'utility sub to ensure page is loaded and ready Sub WaitFor(IE) Do While IE.readyState < 4 Or IE.Busy DoEvents Loop End Sub

回答 1 投票 0

将电子表格公式转换为 VBA 并分配给标签

[me.label31.caption] =COUNTA(CHOOSECOLS(FILTER(Work_Orders,(Work_Orders[主工作中心]="TPM包装技术员(P4TPMPAC)")*(Work_Orders[订单状态]="技术上已完成&qu...

回答 1 投票 0

excel vba:将字符串的一部分加粗

我有 Excel 单元格,其中包含如下条目: 姓名/A/日期 姓名/姓名/日期 姓名/C/日期 单元格内容显示在同一单元格的多行中。我只想将“名字”设为粗体

回答 4 投票 0

根据行中的值复制行并更改两列。在 Excel 中

我正在尝试获取股票列表并为每个 SKU 生成重复的行 - 我们的邮政软件需要每个单独的 SKU 位于其自己的行上。 我对VBA完全是菜鸟,有人可以帮我吗?

回答 1 投票 0

将 byval 目标修改为范围以仅复制值和格式

我有以下有效的宏。 但是我想修改它,以便它只复制值格式。不是公式。 非常感谢任何帮助。 私人子工作表_更改(ByVal Targ...

回答 1 投票 0

如何控制多台显示器上的显示位置

如何在运行 Excel 的同一显示器上显示消息框或启动用户窗体? 使用多个显示器时,Excel 会在第二个显示器上显示消息框,即使我...

回答 2 投票 0

添加 Vlookup + Vlookup 与活动单元格

我有表 1 和表 2。它们代表两张表,为了解释目的,我在同一张表中制作了这两张表。 我需要当我按下红色按钮时,VBA 代码从单元格 C11 中取出 100,a...

回答 1 投票 0

VBA:将多个值传递给 Instr

现在我有一长串用户通过表单提交的“行业”值。我编写了一个宏,它将搜索这些值中的特定术语并粘贴符合的值...

回答 4 投票 0

Excel - 如何执行以下操作?

我有一个关于EXCEL的问题: 由于我有以下不同时期的价格,我如何以自动方式计算,例如6月10日至7月15日之间的价格? 编辑--> 经验...

回答 2 投票 0

函数不输出值

美好的一天 我在 VBA 中创建了一个函数,它检查工资输入是否在两个范围之间,如果是,则必须进行计算。我已将代码从函数中取出,它的工作原理如下...

回答 1 投票 0

如何在主模块中使用 Microsoft PowerPoint 对象模块中声明的变量值

主要目标是从 Excel 文件在 PowerPoint 幻灯片中刷新包含不同国家/地区数据的图表。我已从 Excel 复制图表并粘贴为链接图表。我能写几行...

回答 1 投票 0

Python 脚本未从 VBA 运行(无错误)

如果我运行 Python 脚本(使用 Anaconda,版本 3.9),则会生成 CSV 文件。 如果我从 VBA 运行它,则不会生成文件。我没有收到任何错误。 我将脚本从共享驱动器移至本地

回答 1 投票 0

CATIA V5 检查装配中零件或空产品的选择

所以基本上我想知道我是否在组件中选择了 CATPart 或 CATProduct,但我找不到合适的检查来区分像“Product4__”这样的空产品和...

回答 1 投票 0

将 32 位宏更新为 64 位

这个 Excel 宏在 Windows 10 上运行良好,但在 Windows 11 上给我错误。如果有人可以提供帮助,我将非常感激。 选项显式 私有声明函数 URLDownloadToFile Lib "

回答 1 投票 0

CATIA V5 VBA Marco 检查装配中零件或空产品的选择

所以基本上我想知道我是否在组件中选择了 CATPart 或 CATProduct,但我找不到合适的检查来区分像“Product4__”这样的空产品和...

回答 1 投票 0

VBA |找到所有“文本”并将其字体颜色更改为红色

我想找到所有带有“Not Found”文本的单元格,并将其字体设为红色。 关于如何做到这一点有什么建议吗? 字符串未找到=“未找到” 我的程序将调用子过程

回答 1 投票 0

如何从 OneDrive 在 Excel 工作表上启用宏

我已经创建了一个 Excel 工作表。有很多宏正在运行。 我想与我的同事共享 OneDrive 上的文件。这样我们所有人都可以处理同一个文件。 现在,一旦他们从他们的

回答 1 投票 0

上周一的日期 Excel

今天是 2013 年 2 月 27 日,星期三。 我需要一个公式,该公式将返回上周一的日期。即 (02/17/2013) 我需要这样才能在我的 vba 代码中使用文件名或电子邮件主题...

回答 5 投票 0

© www.soinside.com 2019 - 2024. All rights reserved.