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

使用 VBA 替换整本书中 Excel 公式中某些内容的所有实例？

在整本书的每张纸的每个单元格的每个公式中，我想替换部分公式字符串，将所有“+”更改为“-”，如果..在VBA中是否有一种简单的方法可以做到这一点.

excel vba excel-formula

回答 1 投票 0

为什么我在 Excel VBA 中得到的是数字而不是日期？

这是代码：函数 CurrentDate() 作为日期当前日期 = 日期结束功能但在 Excel 工作表中我得到 45418。

excel vba

回答 1 投票 0

2 个 Excel 表：1）工作文件，2）数据文件。如果数据匹配，需要更新工作文件中的“城市”列。请使用Excel VBA

当我运行这个宏时没有任何反应，它不会附加地址表的城市列。但宏执行时没有错误。我期待它会更新相应的“城市”栏...

excel vba

回答 1 投票 0

使用Word VBA宏根据第一个字符设置多个单词的样式

我对 VBA 编程比较陌生，但对一般编程不太熟悉。我在 Word（365、版本 2403、Build 16.0）中的单列表行中存储了一系列引号，需要调整

vba ms-word

回答 1 投票 0

如何使用Python以编程方式设置Excel敏感度标签？

最近我们的IT部门应用了一项政策，我们必须在Excel中指定敏感度标签。这导致我的自动 py 代码生成个性化 Excel 文件的中断。除了使用

python excel vba win32com pandas.excelwriter

回答 2 投票 0

将多个范围添加到一个参数中

我有这个工作代码：如果不相交（ActiveCell，范围（“D6：D15”））则什么都没有 MsgBox“公共汽车” 别的 MsgBox“仅选择具有资产 ID 的单元格”，vbCritic...

excel vba

回答 1 投票 0

使用 VBA 和 Selenium 在 Chrome 中获取当前网址

有没有办法在Excel中使用VBA来获取Chrome最后一个活动实例/选项卡的url？

vba selenium-chromedriver

回答 2 投票 0

Excel Ribbon dropDown：设置页面比例值（适用于 mac）

第一个代码允许您在三种页面尺寸之间进行选择。尝试调整它来设置页面比例值。问题：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 控件的id属性与之前不同。使用 Mid 和 InStr 提取缩放比例 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 Exit Sub sZoom = Mid(id, iLoc + 1) If IsNumeric(sZoom) Then ActiveSheet.PageSetup.Zoom = CInt(sZoom) End Sub

excel vba dropdown ribbonx page-setup

回答 1 投票 0

Excel 功能区下拉菜单：将页面比例值设置为 10 到 400（适用于 mac）

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

excel vba dropdown ribbonx page-setup

回答 1 投票 0

找到第一个长度更大的值时添加行

我希望当D列中的数字从7位数字变成11位数字时添加两行，要么在较低的数字下方，要么在较高的数字上方。例子： 1656340 1656352 1656389 31566...

excel vba

回答 1 投票 0

Excel 功能区切换按钮：缩小以适合

这是一个切换按钮，用于打开/关闭“缩小以适合”。问题：无法正确刷新。注意：将“ActiveWorkbook”添加到“Selection.ShrinkToFit”会导致“Run...