vba 相关问题

以十进制格式转换时间输入 - Excel 公式或 VBA

我在 A 列中输入了数百行时间“min.sec”（10.15）。B 列将这些时间转换为“min.% of min”。例如; 10.15 正在转换为 10.25。 8.30

Excel Ribbon 下拉菜单：设置页面比例值从 10 到 400

此下拉菜单允许您在三个页面比例值之间进行选择。 除了为每个值构建一个“案例”之外，还有其他方法可以为代码提供从 10 到 400 的整个范围吗？...

在Excel中计算静态随机数（计算一次）

我正在寻找一种在 Excel 中计算一次随机数的方法。所以它是在第一次调用时计算的，但之后它就不会改变。 举例来说，如果我在 B1 中有这样的东西

运行时错误“7”：存在 id 的 NoSuchElementError

接收运行时错误“7”：NoSuchElementError 找不到 XPath=//*[@id='agreeDisclaimer'] 的元素 错误截图： 代码行： 设置 WD = 新 ChromeDriver 带西数 .开始“Chr...

打开一个显示“我们发现某些内容存在问题...”消息的文件

我有一个Excel工作簿的源目录。我想将这些工作簿中的数据编译为单个目标工作簿中的单独工作表。 如果我手动打开任何源工作簿...

从工作簿的单元格中提取值而不打开它

我有一个名为 Excel_File.xlsx 的 Excel 文件，该文件保存在我当前的 Excel 工作簿的同一位置，并且该文件包含一个行数为 100、列数为 1000 的矩阵。 我想要额外的...

Excel 2016 中的“对象 '_mailItem' 的方法 'To' 失败”错误

我在excel 2016中用宏编写了一个程序，通过创建一个按钮来向收件人发送邮件 B16 单元格包含我的收件人邮件 ID 当我运行此代码时，它显示了 image1 的错误 和 图 2 错误...

如何将工作表上的选项按钮捕捉到特定范围？

我在工作表上有许多单选按钮（表单选项按钮，而不是 ActiveX）。 当我通过电子邮件发送工作簿时，选项按钮会扭曲并调整为不可用的大小和不同的位置。他们...

根据表中其他列的值对列中的值进行求和

在电子表格“(ACOES) VALORES”中，我将放置一个函数 =QTDE([@ACáO]) QTDE 函数将在 EXTRATO 电子表格、EXTRATO 表、TIPO 列以及带有

Excel VBA 搜索数据并由于分组或拆分源文件而卡在某个点？

我有下面的代码，它非常简单，也许不是最优雅的，但可以很好地解决我无法处理的小错误。源 Excel 文件是我与组一起使用的文件，并分成 4 个...

如何从一张纸上的单元格中找到相应的名称/值，并从另一张纸上的相应单元格中减去它的数字

我需要找到一个零件对应的名称，并减去它在另一张纸上的数字，如果有数字要减去（数字大于0）。 我需要将其分散到每个部分中，

Excel 宏 VBA - 仅选择筛选数据的前 3 行

只是想知道是否有人可以帮忙？ 我使用 VBA 过滤 A 列中的产品“红色”，它已成功返回 5 行。 下一步是使用 VBA 仅复制前 3 个过滤器...

如果满足 3 个条件，则写入文本 VBA

我想知道如果满足此条件，我是否可以在 D 列中写入“文本”： A 列不为空 B 列包含“是” C 列不为空 这些是我目前的想法

Excel 功能区切换按钮：始终显示当前工作表的状态

这是一个在横向和纵向之间切换的切换按钮。 如何构建它以始终“显示”活动工作表的状态？ getSelectedItemIndex 回调不适用于

Excel Ribbon 下拉菜单：设置页面比例值

第一个代码允许您在三种页面尺寸之间进行选择。 尝试调整它来设置页面比例值。 问题：DropDown2_onAction 不执行。 页面大小： '——XML 第一个代码允许您在三种页面尺寸之间进行选择。 尝试调整它以设置页面比例值。 问题：DropDown2_onAction不执行。 页面尺寸： ' -- XML <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LoadRibbon"> <ribbon> <tabs> <tab id="Tabv3.1" label="TOOLS" insertAfterMso="TabHome"> <group id="GroupDemo2" label="SelectPapersize" imageMso="AddInManager"> <dropDown id="DropDown1" sizeString="xxxx" onAction="DropDown1_onAction" getSelectedItemIndex="DropDown1_GetSelectedItemIndex" > <item id="Item_A3" label="A3"/> <item id="Item_A4" label="A4"/> <item id="Item_A5" label="A5"/> </dropDown> </group> </tab> </tabs> </ribbon> </customUI> ' -- Standard Module Option Explicit Public RibUI As IRibbonUI Sub LoadRibbon(Ribbon As IRibbonUI) Set RibUI = Ribbon RibUI.InvalidateControl "DropDown1" End Sub 'Callback for DropDown1 onAction Sub DropDown1_onAction(control As IRibbonControl, id As String, index As Integer) Dim iSize As Long Select Case Right(id, 2) Case "A3" iSize = xlPaperA3 Case "A4" iSize = xlPaperA4 Case "A5" iSize = xlPaperA5 End Select If iSize > 0 Then _ ActiveSheet.PageSetup.PaperSize = iSize End Sub 'Callback for DropDown1 getSelectedItemIndex Sub DropDown1_GetSelectedItemIndex(control As IRibbonControl, ByRef returnedVal) returnedVal = GetPageSize End Sub Function GetPageSize() As String Select Case ActiveSheet.PageSetup.PaperSize Case xlPaperA3 GetPageSize = 0 ' "A3" Case xlPaperA4 GetPageSize = 1 ' "A4" Case xlPaperA5 GetPageSize = 2 ' "A5" End Select End Function ' -- ThisWorkbook Private Sub Workbook_SheetActivate(ByVal Sh As Object) RibUI.InvalidateControl "DropDown1" End Sub 页面比例： ' -- XML <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LoadRibbon"> <ribbon> <tabs> <tab id="Tabv3.1" label="TOOLS" insertAfterMso="TabHome"> <group id="GroupDemo3" label="Page Scale" imageMso="AddInManager"> <dropDown id="DropDown2" sizeString="xxxx" onAction="DropDown2_onAction" getSelectedItemIndex="DropDown2_GetSelectedItemIndex" > <item id="Scale_100" label="100%"/> <item id="Scale_77" label="77%"/> <item id="Scale_68" label="68%"/> </dropDown> </group> </tab> </tabs> </ribbon> </customUI> ' -- Standard Module Option Explicit Public RibUI As IRibbonUI Sub LoadRibbon(Ribbon As IRibbonUI) Set RibUI = Ribbon RibUI.InvalidateControl "DropDown2" End Sub 'Callback for DropDown2 onAction Sub DropDown2_onAction(control As IRibbonControl, id As String, index As Integer) Dim iSize As Long Select Case Right(id, 2) ' id Case "100%" iSize = 100 Case "77%" iSize = 77 Case "68%" iSize = 68 End Select If iSize > 0 Then _ ActiveSheet.PageSetup.Zoom = iSize End Sub 'Callback for DropDown2 getSelectedItemIndex Sub DropDown2_GetSelectedItemIndex(control As IRibbonControl, ByRef returnedVal) returnedVal = GetPageScale End Sub Function GetPageScale() As String Select Case ActiveSheet.PageSetup.Zoom Case 100 GetPageScale = 0 ' "100%" Case 77 GetPageScale = 1 ' "77%" Case 68 GetPageScale = 2 ' "68%" End Select End Function ' -- ThisWorkbook Private Sub Workbook_SheetActivate(ByVal Sh As Object) RibUI.InvalidateControl "DropDown2" End Sub Sub DropDown2_onAction(control As IRibbonControl, id As String, index As Integer) Dim iLoc As Long, sZoom As String iLoc = InStr(id, "_") If iLoc > 0 Then sZoom = Mid(id, iLoc + 1) If IsNumeric(sZoom) Then ActiveSheet.PageSetup.Zoom = CInt(sZoom) End Sub

将 Excel 范围作为图像嵌入到 Outlook 邮件中

我之前使用 Ron De Bruin RangetoHTML 函数将 Excel 范围作为图像嵌入到 Outlook 邮件中。新的信任中心设置禁止这样做，我无法更改它们。 我切换到 MailEnve...

应用程序定义或对象定义的宏错误

我有一个宏代码： 子每日_ACH_Tables() ' Daily_ACH_Tables 宏 列（“A：H”）。选择 应用程序.CutCopyMode = False ActiveSheet.ListObjects.Add(xlSrcRange, 范围(&q...

如何使用 Vba 将打开的浏览器中选定的文本导入 Excel 工作表？

我有一个手动使用的任务。我必须从 Excel 切换到浏览器（例如 chrome、Firefox 或 Microsoft Edge）并复制文本（已选择）并将其作为 HTML 粘贴到 Excel 中...

按名称打开用户表单

我想使用它的名称打开用户表单，而不必为每个用户表单硬编码 Select Case 语句。 我试过 VBA.UserForms(Integer).显示和 VBA.UserForms（字符串）.Show 首先扔...

浏览并从另一个工作簿导入数据

我需要从另一个有数千行的工作簿导入数据。 这是我当前正在使用的代码。我希望通过使用 Dim Lastrow 作为 Long 来使其动态化。但是，代码不起作用...