Excel VBA Interior.Pattern枚举全量值查询及合法值生成方法咨询

关于全量枚举值权威对照表 #

目前没有对外公开、随Excel版本实时同步更新的全量xlPattern枚举权威对照表。微软公开的技术文档存在明显的版本滞后问题，你遇到的xlPatternLinearGradient（对应值4000）、以及同属渐变类填充的xlPatternRectangularGradient（对应值4001）都是Excel 2007版本新增的填充模式，因为文档未同步迭代更新，所以没有出现在公开的枚举列表中。
最权威的全量枚举定义就存在本地安装Office时自带的Excel对象类型库里，和当前使用的Excel版本完全对应，不会有漏记、错记的问题。

生成所有合法支持取值的可行方法 #

有两种可直接落地的方法，推荐搭配使用拿到最准确的结果：

• 方法一：从本地对象库导出枚举定义
  打开VBA编辑器后按F2调出对象浏览器，在搜索栏输入xlPattern搜索，就能看到当前版本Excel中所有已定义的xlPattern常量、对应值和功能说明，右键选择导出即可拿到完整的枚举定义列表。注意不同Excel版本（2016/2019/365等）的枚举值可能存在新增，导出的列表仅匹配当前安装的版本。
• 方法二：遍历校验实际可用值
  部分枚举定义值是给其他功能场景使用的，直接赋值给Interior.Pattern可能报错，可以通过简单的VBA代码遍历取值范围，筛选出实际赋值不报错的合法值，参考代码如下：

Sub GetValidPatternValues()
    Dim testRange As Range
    Dim checkVal As Long
    Dim validList As New Collection
    
    ' 选个不会用到的空白单元格作为测试载体，避免覆盖原有内容
    Set testRange = ActiveSheet.Range("Z1000")
    testRange.Interior.Pattern = xlPatternNone
    
    ' 现有版本xlPattern取值在0-4100区间内即可完全覆盖
    For checkVal = 0 To 4100
        On Error Resume Next
        testRange.Interior.Pattern = checkVal
        If Err.Number = 0 Then
            validList.Add checkVal
        End If
        Err.Clear
        On Error GoTo 0
    Next checkVal
    
    ' 清理测试单元格格式
    testRange.Interior.Pattern = xlPatternNone
    
    ' 结果输出到立即窗口
    Debug.Print "当前版本Interior.Pattern合法取值列表："
    For Each valItem In validList
        Debug.Print valItem
    Next
End Sub

运行代码后在VBA编辑器的立即窗口就能看到所有实际可用的Pattern值，这个结果和当前Excel版本完全适配，所有值都可以直接生效。

内容的提问来源于stack exchange，提问作者ViciousCat069