VBA 입력 사용자 정의 폼 데이터가 올바르게

Question

1. 는 버튼을 제출 정의 폼
2. 추가 텍스트 상자와 콤보
3. 추가를 만든
4. 클릭은 스프레드 시트에 데이터를 추가한다 제출하면

이 잘못 제가 말씀 드리 지요과 내가 읽고에서

ActiveCell.Value = TextBox3.Text 
ActiveCell.Offset(0, 1).Select 
ActiveCell.Value = ComboBox1.Text 
ActiveCell.Offset(1, -1).Select 

이 작동하지만 I've been told I shouldn't use the .select keyword when possible. 코드를 재사용 할 수 있도록 변수를 만들어야한다는 것을 읽었습니다. 전문 개발자가이 코드를 작성하는 방법은 적은 코드로 작성할 수 있습니까? select를 사용하지 않고 activecell 오프셋을 어떻게 참조 할 수 있습니까?

Answer 1

난 당신이 다른 컬럼 그냥 문자 참조를 변경하려는 경우 당신이 열 B에서 열 A TextBox3 및 ComboBox1을 원하는 가정입니다.

Sub OnClick() 'whatever your current sub is called. 

    Dim LastRow As Long, ws As Worksheet 

    Set ws = Sheets("Name of Sheet where data is going") 

    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row 

    ws.Range("A" & LastRow).Value = TextBox3.Text 'Adds the TextBox3 into Col A & Last Blank Row 
    ws.Range("B" & LastRow).Value = ComboBox1.Text 'Adds the ComboBox1 into Col B & Last Blank Row 

End Sub 

당신은 Offset() 사용하는 방법하려면 다음의

Sub OnClickwithOffset() 'whatever your current sub is called. 

    Dim LastRow As Long, ws As Worksheet 

    Set ws = Sheets("Name of Sheet where data is going") 

    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row 

    ws.Range("A" & LastRow).Value = TextBox3.Text 'Adds the TextBox3 into Col A & Last Blank Row 
    ws.Range("A" & LastRow).Offset(0, 1).Value = ComboBox1.Text 'Adds the ComboBox1 into next cell to the right of TextBox3 data. 

End Sub 

Answer 2

ActiveCell을 사용하지 않으려는 주요 이유는 코드가 실행되는 동안 사용자가 다른 셀을 선택하면 예기치 않은 결과가 발생할 수 있기 때문입니다.

컨트롤의 내용을 항상 같은 셀에 쓰는 것이 목적이라면 Range 유형의 변수를 정의하고 해당 변수를 기준으로 오프셋을 설정하면됩니다.

예컨대 :

Dim myCell as Range 

Set myCell = ThisWorkbook.Sheets(1).Range("C4") 
myCell.Value = TextBox3.Text 
myCell.Offset(0, 1).Value = ComboBox1.Text 

'[...]