从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

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

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

编辑：粘贴到纸张2 中的第一个可用单元格

-

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