从 SpinButton 获取值以确定循环次数

Question

有什么方法可以获取连接到 SpinButton 的单元格的值并确定数据将被复制的次数。

例如，每次您按下向左或向右按钮时，它都会减去或加上一个最小值为 1，最大值为 1000 的值。

这是我目前复制数据的代码。

Range("D3:D10").Copy
Worksheets("Sheet2").Range("A2").PasteSpecial , Transpose:=True

在 SpinButton 中关联的单元格范围是 "G7"

我想获取单元格 G7 的值以确定它将数据从范围 D3 复制到 D10 的次数。

值在 "Sheet1"。我想把它贴在 "Sheet2" 上。

Answer 1

假设活动 sheet 具有要复制的 G7 和范围

Range("D3:D10").Copy
Worksheets("Sheet2").Range("A2:A" & 2 + [G7].Value).PasteSpecial , Transpose:=True
Application.CutCopyMode = False

编辑：粘贴到 sheet2

中的第一个可用单元格

-

Sub Copy_Trspose()
    Dim LstRw As Long, pRng As Range, cRng As Range, x
    Dim sh As Worksheet, ws As Worksheet

    Set ws = Sheets("Sheet2")
    Set sh = Sheets("Sheet1")

Application.ScreenUpdating = False

    With sh
        Set cRng = .Range("D3:D10")
        x = .Range("G7").Value
    End With

    With ws
        LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        Set pRng = .Range(.Cells(LstRw, "A"), .Cells(LstRw + x, "A"))
    End With

    cRng.Copy
    pRng.PasteSpecial , Transpose:=True

    Application.CutCopyMode = False
End Sub

从 SpinButton 获取值以确定循环次数

Get value from SpinButton to determine the number of loops

excel

vba

loops

activex