글 수 65
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
a☆폼 시작시 자동 실행될 명령 등록하기.
Private Sub UserForm_Activate() '폼이 로드되면 오늘날짜에 표시됩니다.
Calendar1 = Date
End Sub
---------------------------------------------------------------------
폼을 띄우고서도 다른 창을 선택하거나 다른 시트를 선택할 수 있게 하기..
UserForm 속성에서 ShowModal 속성을 False로 해 놓으면
다른 창을 선택하거나 다른 아이템을 선택할 수 있게 된다.
기본값인 ShowModal을 True로 해 놓으면 다른 응용프로그램으로 전환은 할 수 있어도,
같은 엑셀의 다른 창이나 시트 등 엑셀 프로그램 내의 다른 아이템을 선택할 수 없게 된다.
---------------------------------------------------------------------
유저폼 도구 상자에 달력이 안 보일때..
도구상자의 빈 여백에 오른 마우스 클릭 -> 추가 컨트롤 선택
Calendar Control 10.0 을 체크하고 확인 누르면 사용할 수 있다.
---------------------------------------------------------------------
닫기 버튼.. 또는 취소 버튼..
Private Sub CommandButton3_Click()
Unload Me
End Sub
---------------------------------------------------------------------
유저폼 보이게 하기
Sub auto_open() '엑셀 문서 로딩시 자동으로 시작됨
With 유저폼이름
.Caption = "Resin Tower 입력창"
.Show
End With
End Sub
Sub wa_open()
With 유저폼이름
.Caption = "WA 입력창"
.Show
End With
End Sub
---------------------------------------------------------------------
콤보박스(ComboBox)에서 셀 연결 사용하기
--> 시트에 있는 콤보박스만 해당함. 유저폼은.. comboBox1.index라고 하면 될려나?
연결된 셀에 인덱스 넘버를 입력하면 해당 콤보박스에 해당하는 아이템이 자동 선택되어 짐.
---------------------------------------------------------------------
'저장 범위를 설정하고 저장 범위를 새로운 이름으로 정의해서 콤보박스의 RowSource로 사용한다.
Dim 저장범위 As Range
Set 저장범위 = Range([단가표!K2], [단가표!K65536].End(xlUp).Offset(0, 0))
저장범위.Name = "자료"
With Me.mcCombo2
.RowSource = "자료"
.ListIndex = 0
End With
---------------------------------------------------------------------
입력상자에 포커스 집어넣기
If TextBox1.Text = "" Then
MsgBox "반드시 상호를 입력하세요"
TextBox1.SetFocus
End If
---------------------------------------------------------------------
유저폼에서 서식 적용하기
Sheet1.매출수량레이블.Caption = Format(Round(매출표.Range("A4").Value), "#,###")
------------------------------
Format 함수를 이용해보세요.
ex)
textbox1.text = format(myvalue,"#,###")
값을 계산할 경우에도 마찬가지로 format 함수를 이용하여 계산하셔야 합니다.
왜냐하면 textbox 에 있는 숫자는 무늬만 숫자이고 실제로는 문자이기 때문입니다.
myvalue - format(textbox1.text,"0")
---------------------------------------------------------------------
'콤보 박스에 항목(아이템) 추가하기..
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "SP-IV(415V)"
.AddItem "SP-IV(220V)"
.AddItem "SP-IV(480V)"
.AddItem "EAGLE 상"
.AddItem "EAGLE 하(415V)"
.AddItem "EAGLE 하(220V)"
.AddItem "EAGLE 하(480V)"
.AddItem "STEC-340(W)"
.AddItem "STEC-340(WS)"
.AddItem "S1用-415V"
.AddItem "S1用-220V"
.AddItem "S1用-210V"
.AddItem "INTERLOCK"
.AddItem "SMUS FH-TYPE"
End With
End Sub
---------------------------------------------------------------------
---------------------------------------------------------------------
Private Sub UserForm_Activate() '폼이 로드되면 오늘날짜에 표시됩니다.
Calendar1 = Date
End Sub
---------------------------------------------------------------------
폼을 띄우고서도 다른 창을 선택하거나 다른 시트를 선택할 수 있게 하기..
UserForm 속성에서 ShowModal 속성을 False로 해 놓으면
다른 창을 선택하거나 다른 아이템을 선택할 수 있게 된다.
기본값인 ShowModal을 True로 해 놓으면 다른 응용프로그램으로 전환은 할 수 있어도,
같은 엑셀의 다른 창이나 시트 등 엑셀 프로그램 내의 다른 아이템을 선택할 수 없게 된다.
---------------------------------------------------------------------
유저폼 도구 상자에 달력이 안 보일때..
도구상자의 빈 여백에 오른 마우스 클릭 -> 추가 컨트롤 선택
Calendar Control 10.0 을 체크하고 확인 누르면 사용할 수 있다.
---------------------------------------------------------------------
닫기 버튼.. 또는 취소 버튼..
Private Sub CommandButton3_Click()
Unload Me
End Sub
---------------------------------------------------------------------
유저폼 보이게 하기
Sub auto_open() '엑셀 문서 로딩시 자동으로 시작됨
With 유저폼이름
.Caption = "Resin Tower 입력창"
.Show
End With
End Sub
Sub wa_open()
With 유저폼이름
.Caption = "WA 입력창"
.Show
End With
End Sub
---------------------------------------------------------------------
콤보박스(ComboBox)에서 셀 연결 사용하기
--> 시트에 있는 콤보박스만 해당함. 유저폼은.. comboBox1.index라고 하면 될려나?
연결된 셀에 인덱스 넘버를 입력하면 해당 콤보박스에 해당하는 아이템이 자동 선택되어 짐.
---------------------------------------------------------------------
'저장 범위를 설정하고 저장 범위를 새로운 이름으로 정의해서 콤보박스의 RowSource로 사용한다.
Dim 저장범위 As Range
Set 저장범위 = Range([단가표!K2], [단가표!K65536].End(xlUp).Offset(0, 0))
저장범위.Name = "자료"
With Me.mcCombo2
.RowSource = "자료"
.ListIndex = 0
End With
---------------------------------------------------------------------
입력상자에 포커스 집어넣기
If TextBox1.Text = "" Then
MsgBox "반드시 상호를 입력하세요"
TextBox1.SetFocus
End If
---------------------------------------------------------------------
유저폼에서 서식 적용하기
Sheet1.매출수량레이블.Caption = Format(Round(매출표.Range("A4").Value), "#,###")
------------------------------
Format 함수를 이용해보세요.
ex)
textbox1.text = format(myvalue,"#,###")
값을 계산할 경우에도 마찬가지로 format 함수를 이용하여 계산하셔야 합니다.
왜냐하면 textbox 에 있는 숫자는 무늬만 숫자이고 실제로는 문자이기 때문입니다.
myvalue - format(textbox1.text,"0")
---------------------------------------------------------------------
'콤보 박스에 항목(아이템) 추가하기..
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "SP-IV(415V)"
.AddItem "SP-IV(220V)"
.AddItem "SP-IV(480V)"
.AddItem "EAGLE 상"
.AddItem "EAGLE 하(415V)"
.AddItem "EAGLE 하(220V)"
.AddItem "EAGLE 하(480V)"
.AddItem "STEC-340(W)"
.AddItem "STEC-340(WS)"
.AddItem "S1用-415V"
.AddItem "S1用-220V"
.AddItem "S1用-210V"
.AddItem "INTERLOCK"
.AddItem "SMUS FH-TYPE"
End With
End Sub
---------------------------------------------------------------------
---------------------------------------------------------------------
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:2032point (73%), 레벨:4/30"){kind=icon}
현대자동차