VBA - 来自数组的自定义数字格式 - 特定数组编号后的错误

Question

我无法弄清楚为什么我的代码不起作用。我先贴一下吧：

Dim n As Integer
Dim List_number As String

Dim arr_number(1 To 26) As Integer
    arr_number(1) = "1"
    arr_number(2) = "2"
    arr_number(3) = "3"
    arr_number(4) = "4"
    arr_number(5) = "5"
    arr_number(6) = "6"
    arr_number(7) = "7"
    arr_number(8) = "8"
    arr_number(9) = "9"
    arr_number(10) = "10"
    arr_number(11) = "11"
    arr_number(12) = "12"
    arr_number(13) = "13"
    arr_number(14) = "14"
    arr_number(15) = "15"
    arr_number(16) = "16"
    arr_number(17) = "17"
    arr_number(18) = "18"
    arr_number(19) = "19"
    arr_number(20) = "20"
    arr_number(21) = "21"
    arr_number(22) = "22"
    arr_number(23) = "23"
    arr_number(24) = "24"
    arr_number(25) = "25"
    arr_number(26) = "26"
    n = 1

List_number = "\" & arr_number(n) & "\._1@"

Dim myformat As String
Dim cell As Range

    For Each cell In Selection
        List_number = "\" & arr_number(n) & "\._1@"
        myformat = List_number
        cell.NumberFormat = myformat

        n = n + 1

    Next cell

我想用这段代码实现的是在 excel 中创建某种简单的列表，将自定义格式从“cell.value”更改为“myformat.cell.value”。请看下面的屏幕：

我的代码是在每个单元格值之前添加数字、点和空格。它适用于前 9 个单元格，但我不知道为什么它在第 10 个单元格处出现错误：“运行时错误 '1004' 无法设置 Range 类的 NumberFormat 属性”。

奇怪的行为是，当我在数组中输入字母时效果很好，但是对于数字，它就不行了:(

我尝试了多种方法（例如，尝试将数组中的“10”值拆分为两个单独的部分，例如“1”和“0”），但在几个小时没有成功后，我放弃了。

我有两个问题： 1）有谁知道为什么会弹出这个错误，我怎样才能绕过它继续我的宏？ 2）有没有什么方法可以给数组赋值而不需要单独输入每一行？数字和自定义字符，如字母或符号？

提前感谢您的帮助！

Answer 1

试试这个。它使用不同的数字格式："1." @

Sub Kowalski()
    Dim f
    f = [char(34)&row(1:999)&"."&char(34)&" @"]
    Selection.NumberFormat = f
End Sub

这是如何工作的：

Dim f 创建一个变体变量。

下一行使用方括号表示的 Excel 的 Evaluate 方法创建一个包含 999 个字符串的二维数组，该数组将用作数字格式。这一行还将该数组分配给f。

最后一行将一组单独的数字格式一次性分配给您在工作表上的当前范围选择。

f 数组如下所示：

f(1,1) = "1." @
f(2,1) = "2." @
f(3,1) = "3." @
f(4,1) = "4." @
f(5,1) = "5." @
.
.
.
f(999,1) = "999." @