excel - 将单元格工作表作为标签标题复制到用户窗体上

Question

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

是否可以更改下面给出的代码，例如我可以复制单元格并将它们作为标签标题粘贴到用户窗体上。

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

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

Answer 1

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

创建一个用户窗体（我们称之为 frmOne）

以以下形式创建函数：

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

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

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

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

如果您有任何问题，请告诉我！