размещение значений списка множественного выбора

Question

Мне нужны значения из списка множественного выбора, чтобы заполнить их в разных местах электронной таблицы. Каждый выбор должен заполняться в отдельной строке, то есть 1-й выбор B60, 2-й выбор B68, 3-й выбор B78.

Я пытался добавить приведенный ниже код к тому, что у меня есть, но получаю ошибку «Без if» и «Далее для»: Я попытался добавить:

If Me.ALLAC.Selected(x) Then
Ck = 2
addme = Me.ALLAC.List(x)
addme.Offset(8, 1) = Me.ALLAC.List(x, 1)
addme.Offset(8, 2) = Me.ALLAC.List(x, 2)
Set addme = addme.Offset(1, 0)

Ниже приведен текущий код как написано

Private Sub cmdAdd2_Click()
  'dimension the variable
Dim addme As Range
Dim x As Integer, Ck As Integer
  'set variables
Set addme = sheet9.Range("B59").Offset(1, 0)
Ck = 0
  'run the for loop
For x = 0 To Me.ALLAC.ListCount - 1
  'add condition statement
If Me.ALLAC.Selected(x) Then
Ck = 1
addme = Me.ALLAC.List(x)
addme.Offset(0, 1) = Me.ALLAC.List(x, 1)
addme.Offset(0, 2) = Me.ALLAC.List(x, 2)
Set addme = addme.Offset(1, 0)
  'clear the selected row
ALLAC.Selected(x) = False
End If
Next x
  'send a message if nothing is selected
If Ck = 0 Then
MsgBox "There is nothing selected"
End If
End Sub

Я бы хотел видеть каждый выбор в списке множественного выбора, чтобы перейти к определенным ячейкам в моей электронной таблице.

Но они появляются один за другим. то есть B60, B61, B62.

Answer 1

Я изменил Set addme = addme.offset (8,0), чтобы переместить второй и третий клики вниз на 8 строк от моего первого клика.Идеально, просто исправить, больше не нужно кода.Я вкладывал в это больше, чем нужно.Спасибо, Павел, за ваш вклад.