붙여 값

Question

I는리스트 박스로부터 값을 붙여 시도 (선택된 필드 아래 행) 컬럼을 기본 :

:

내 코드 열 C, D, E, F.으로 선택보다 한 행 alwyas

Dim addme as Range 
Set addme = Application.Selection 

    For x = 0 To Me.lbsourceList.ListCount - 1 
     If Me.lbsourceList.Selected(x) Then   

      'addme.Offset(1,) = Me.lbsourceList.List(x, 1)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 2)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 3)' 
      'addme.Offset(1,) = Me.lbsourceList.List(x, 4)' 

      Set addme = addme.Offset(1, 0)  
     End If 
    Next x 

오프셋 (1,0)은 아래 한 행 아래로 갈 것입니다. 그러나 C, D, E, F 열을 기본으로 설정하는 방법을 모르겠습니다.

Answer 1

Selection의 Offset 작업을 얻기 위해, 아래의 코드를 시도하지만, 열에서 C.

Dim addme As Range 
Set addme = Selection 

' set the range to selection's row, but in Column C 
Set addme = Cells(Selection.Row, "C") 

' now offset 1 row below 
addme.Offset(1) = "test offset" 

편집 1 : PO의 새로운 데이터에 맞게 업데이트 된 코드 :

Range(Cells(addme.Row, "C"), Cells(addme.Row, "C")).Offset(1).Value = Me.lbsourceList.List(x, 1) 
Range(Cells(addme.Row, "D"), Cells(addme.Row, "D")).Offset(1).Value = Me.lbsourceList.List(x, 2) 
Range(Cells(addme.Row, "E"), Cells(addme.Row, "E")).Offset(1).Value = Me.lbsourceList.List(x, 3) 
Range(Cells(addme.Row, "F"), Cells(addme.Row, "F")).Offset(1).Value = Me.lbsourceList.List(x, 4)