VBA 如何遍历列

Question

此代码在每一行中添加一个微调按钮。 我怎么能写它在每列中添加一个微调按钮......假设我想在 A1、B1、C1...G1 中添加一个微调按钮。

Dim i As Integer
For i = 1 To 7
    ActiveSheet.Spinners.Add(Range("A" & i).Left, Range("A" & i).Top, 69.5, 20).Select
Next

Answer 1

如果遍历范围的元素，则遍历列或行无关紧要。 这是一个Button示例：

Sub BoxAdder()
    Dim rng As Range, r As Range, bt As Button, s As Shape
    Set rng = Range("A1:G1")

    For Each r In rng
        ActiveSheet.Buttons.Add(94.5, 75.75, 51, 27.75).Select
        Set bt = Selection
        bt.Characters.Text = r.Address(0, 0)
        Set s = ActiveSheet.Shapes(Selection.Name)
        With s
            .Top = r.Top
            .Left = r.Left
            .Width = r.Width
            .Height = r.Height
        End With
    Next r
End Sub

该代码将按钮放置在单元格 A1、B1、C1、D1、E1 上。 F1 和 G1 依次进行。 要将按钮放在一列下，只需更改：

Set rng = Range("A1:G1")

到：

Set rng = Range("A1:A4")

请注意，为了移动和调整大小，我将每个Button视为一个Shape 。