Скопируйте рабочий лист ячеек в качестве заголовка метки в пользовательскую форму

Я наткнулся на этот ответ, данный 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

Я выяснил способ, которым есть метки заполнения массива, но они полностью копируют только один столбец вместо заданных строк И столбцов.


excel vba label caption userform
person user2955548    schedule 05.11.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Не уверен, что понимаю вопрос, но это может решить общую проблему.

Создайте пользовательскую форму (мы назовем ее frmOne)

Создайте функцию в виде:

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

Если вам нужно больше этих функций, вы можете создать по одной для каждой метки.

Затем в заданной вами функции просто добавьте строку:

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

Дайте мне знать, если у вас есть вопросы!

person sbanders    schedule 05.11.2013
comment
Я последовал вашему совету, однако я не могу вызвать сабвуфер на frmOne. - person user2955548; 07.11.2013
comment
Верно. Это имеет смысл .. Это потому, что я объявил сабвуфер частным. Пожалуйста, смотрите редактирование - person sbanders; 08.11.2013
comment
Я искал способ добавить несколько меток в пользовательскую форму. - person user2955548; 12.11.2013
comment
Я искал способ добавить несколько меток в пользовательскую форму. Я наткнулся на опцию камеры Excel и добавил ее на панель быстрого доступа. Изображение вставляется в форму пользователя и изменяется в реальном времени вместе с рабочим листом. Осталось только найти способ условно отформатировать значение слева и заголовки столбцов найденного значения. Может быть, мне нужно начать новый вопрос для этого. - person user2955548; 12.11.2013