excel 相关问题

仅针对Excel对象或文件编程或复杂公式开发的问题。您可以将Excel标记与VBA，VSTO，C＃，VB.NET，PowerShell，OLE自动化以及其他与编程相关的标记和问题（如果适用）组合在一起。超级用户可以获得有关单个工作表功能的MS Excel的常规帮助。

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...