Question

我确实遇到了这个问题，因为我正在寻找一种在工作表上捕获单元格的方法，而不是在同一张纸上复制它们，我很想知道。

下面给出的代码是否可以通过复制单元格的方式进行更改并将它们粘贴为UserForm上的标签标题。

Sub RangeToArray()
  Dim arr As Variant
  arr = Range("B6:H14").Value
  Dim r As Long, c As Long
  Dim i, j

  r = 16
  c = 2

  For i = LBound(arr, 1) To UBound(arr, 1)
    For j = LBound(arr, 2) To UBound(arr, 2)
      Cells(r, c) = arr(i, j)
      c = c + 1
    Next j
    c = 2
    r = r + 1
  Next i
End Sub

我想出了一种方法，它有一个数组填充标签，但它们只复制一个colum而不是给定的行和列。

Answer 1

我不确定我是否理解这个问题，但这可能会解决一般问题

创建一个UserForm（我们称之为frmOne）

以以下形式创建一个函数：

Public Sub updateLabel1(value as String)
      Label1.Caption = String
End Sub

如果您需要更多这些功能，可以为每个标签创建一个

然后在你给出的函数中，只需添加一行：

Call frmOne.updateLabel1(arr(i,j))

如果您有任何疑问，请告诉我们。

将单元格工作表作为标签标题复制到UserForm上

1 个答案: