小编Eit*_*nin的帖子

不敢相信我需要问一个关于这个的问题，但我在谷歌上找不到任何东西。我发现的所有相关内容基本上都只与字体SIZE或THEME.

虽然更改主题Darklaf - Dracula很棒，但阅读代码（Groovy 脚本、XML、JSON）却很糟糕。

希望有人有办法改变FONT COLOUR，因为看下面会让我发疯。

我无法填充下拉/列表框。

原始代码来自：

https://exceloffthegrid.com/inserting-a-dynamic-drop-down-in-ribbon/

如何使用 VBA 添加自定义功能区选项卡？

下面的 VBA 代码在一个模块中，而 XML 代码在第二个模块中。功能区在工作簿打开时创建。

我的代码：

VBA：

Option Explicit

'testRibbon is a variable which contains the Ribbon
Public testRibbon As IRibbonUI

Sub testRibbon_onLoad(ByVal ribbon As Office.IRibbonUI)

    Set testRibbon = ribbon

End Sub

Public Sub DropDown_getItemCount(control As IRibbonControl, ByRef returnedVal)

    Dim Workbook As Workbook
    Dim Worksheet As Worksheet
    Dim myCell As Range
    Dim LastColumn As Long

    Set logBook = Workbooks("Journal.xlsm")
    Set dataSheet = logBook.Worksheets("Data Sheet")
    Set myCell = dataSheet.Range("B3")

    ColumnNumber = myCell.End(xlToRight).Column

    'Convert To Column …

我有两个宏，它们按日期过滤工作表列，然后删除不相关的列。

但是，它有很多错误，我需要一些帮助来纠正它。

这就是第二个宏应该做的事情：

1）应用过滤器后，只需删除除第一行（标题）之外的可见行- 目前，它会删除包括第一行在内的所有可见行，即使我Offset的代码中有该函数。

2）删除所有过滤器- 现在工作正常

Sub DeleteVisibleRows()

Dim ws1 As Worksheet
Dim WorkRng As Range

Set ws1 = ActiveWorkbook.Sheets("Consolidated")

On Error Resume Next

Set WorkRng = Application.Selection

Application.ScreenUpdating = False
With ws1

WorkRng.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).EntireRow.Delete

ws1.AutoFilterMode = False

End With

Application.ScreenUpdating = True
End Sub