分配给单元格的 VBA 子

在 VBA 中，可以编写子过程（Sub）来对单元格进行各种操作。这些子过程可以接收参数，以便更精细地控制操作。

下面给出一个例子，说明如何编写一个分配给单元格的 VBA 子。

示例代码

Sub SetCell()

    Dim row As Integer
    Dim col As Integer
    Dim value As Variant
    
    row = 1 ' 假设要修改的单元格是第一行第一列
    col = 1
    value = "Hello, world!" ' 要设置的值
    
    Cells(row, col).Value = value ' 设置单元格的值
    
End Sub

代码解释

这个子过程的目的是设置一个单元格的值。为了能够完成这个任务，我们需要指定要修改的单元格的位置，以及要设置的值。

代码中，我们定义了三个变量：row、col 和 value。前两个变量用来指定要修改的单元格的位置，后一个变量用来指定要设置的值。

在接下来的代码中，我们使用 Cells(row, col) 来引用要修改的单元格。该语句会返回一个 Range 对象，它代表指定位置的单元格。我们可以使用这个对象的 Value 属性来设置单元格的值，如下所示：

Cells(row, col).Value = value

这里，我们把变量 value 的值赋给了单元格。

最后，我们在子过程的开头声明了两个整型变量，用来存储要修改的单元格的位置。这样我们可以轻松地修改要修改的单元格的位置，而不需要在代码中直接指定行列号。

使用方法

要使用这个子过程，需要将代码复制到 VBA 编辑器中，并在工作表中运行它。如果要修改要设置的单元格的位置或值，只需要修改对应的变量即可。如果需要在多个位置修改单元格的值，可以将代码中的 row 和 col 变量替换为数组，以便分别指定多个单元格的位置。

Sub SetCells()

    Dim rows As Variant
    Dim cols As Variant
    Dim values As Variant
    
    rows = Array(1, 2, 3) ' 要修改的单元格的行号
    cols = Array(1, 2, 3) ' 要修改的单元格的列号
    values = Array("Hello", "World", "!") ' 要设置的值
    
    For i = 0 To UBound(rows)
        Cells(rows(i), cols(i)).Value = values(i)
    Next i
    
End Sub

这个例子中，我们使用了数组来同时指定多个单元格的位置和值。然后使用循环语句来依次修改每个单元格的值。