#1 VBA 폼 기능 알아보기

이벤트가 무엇인가?

 

 

 

 

폼 코딩 기초 입니다

 

[엑셀 매크로/VBA] 사용자 정의 폼 완벽하게 이해/사용하기

 

폼을 이용 하여 고객사 , 매출을 입력 하는 프로그램 

 

 

---

Private Sub CommandButton1_Click()

    Dim 입력위치 As Range
    If Len(TextBox1.Value) > 0 Then
        If Len(TextBox2.Value) > 0 Then
            Set 입력위치 = Cells(Rows.Count, "B").End(xlUp).Offset(1)
            With 입력위치
                .Value = TextBox1.Value
                .Offset(, 1).Value = TextBox2.Value
            End With
        End If
    End If
    
End Sub

---

IF Len (TextBox1.Value) 에서 Len은 vba 함수 입니다.

문자열의 문자 수 또는 변수 를 저장하는 데 필요한 바이트 수를 포함 하는 Long 을 반환 합니다 .

고객사 (TextBox1)에 입력을 하면 바이트 수를 반환 합니다. 만일 입력을 안하면 엑셀에 표시 하지 않습니다.

TextBox1.Value, TextBox2.Value에 모두 입력이 되어 있어야 다음 코드로 이동 할수 있습니다.

 

 

Set 입력위치 = Cells(Rows.Count, "B").End(xlUp).Offset(1)

TextBox1.Value, TextBox2.Value에 입력된것을 어떻게 엑셀에 넣을수 있을까요?

Cells (1, 1) =TextBox1.Value , cells (1,2) = extBox2.Value...이렇게 코드를 만들어야 합니다. 

여기서 cell (1,1)을 "입력 위치.value"로 대체 했습니다. 

B열의 마지막 TEXT를 찾고 아래의 Cell을 선택 하는 명령입니다. 

 

Rows.Count() 메서드

Range.End 메서드는 Ctrl 화살표 키 키보드 바로 가기를 누르는 것과 매우 유사합니다. VBA에서는이 방법을 사용하여
단일 행과 열의 비어 있지 않은 마지막 셀을 찾을 수 있습니다. "B"행의 " "고객사" 위치를 찾았습니다.

 

 

VBA Tutorial: Find the Last Row, Column, or Cell in Excel