excel - 根据单元格值插入多个形状

Question

我正在尝试根据单元格输入插入矩形形状 x 次。
示例:单元格 a1 输入 3 个，制作 3 个矩形，如果单元格 a1 输入 6 个，则制作 6 个矩形。
理想情况下，它们会在一个参数内，但我还没有那么远。
我的代码根据单元格输入更改矩形的尺寸。
如何添加它以引用不同的单元格以插入 x 次？

Dim ws As Worksheet
Set ws = Worksheets("Sheet2")

ws.Shapes.AddShape msoShapeRectangle, 50, 50, Range("E11"), Range("F11")

' added a loop but it is not selecting or reading the range correctly

Dim rge As range, cell As range
Set rge = range("A1")
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")

ws.Shapes.AddShape msoShapeRectangle, 50, 50, range("E11"), range("F11")

For Each cell In rge

Next cell

End Sub

Answer 1

你需要一个普通的For循环，而不是 For Each :

Dim i As Long

For i = 1 to rge.Value
    ws.Shapes.AddShape msoShapeRectangle, 50, 50, range("E11"), range("F11")
Next

目前您的 Range调用是不合格的，即它们隐式引用 ActiveSheet .我认为他们应该引用 ws .
其他一些小改动:

Dim ws As Worksheet
Set ws = Worksheets("Sheet2")

Dim rge As Range
Set rge = ws.Range("A1")

Dim width As Single
width = ws.Range("E11").Value

Dim height As Single
height = ws.Range("F11").Value

For i = 1 to rge.Value
    ws.Shapes.AddShape msoShapeRectangle, 50, 50, width, height
Next