글 수 65
아~ 감동의 물결.. ㅠ_ㅠ
도구모음을 만드는것은 알았었지만.. 도구모음에 콤보박스를 만들 수 있다니.. +_+
툴바가 작아서 너무 많은 컨맨드 버튼이 있을때는 하나로 몰아버리자.. 콤.보.박.스! ㅋㅋㅋ
출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=32127&keyword=Command 콤보&sn=on&ss=on&sc=on
Option Explicit
Const cMenu As String = "_esTempMenu"
Sub dhMakeMenu()
Dim c As CommandBar
dhDeleteMenu
Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop)
c.Visible = True
With c.Controls.Add(Type:=msoControlComboBox)
.AddItem "메뉴 1"
.AddItem "메뉴 2"
.AddItem "메뉴 3"
.AddItem "메뉴 4"
.AddItem "종료"
.ListIndex = 0
.Text = "폴더 열기"
.TooltipText = "엑셀의 모든 것 MagicSheet &엑사모"
.OnAction = "dhMagicTest"
End With
End Sub
Sub dhDeleteMenu()
On Error GoTo e1
Application.CommandBars(cMenu).Delete
e1:
End Sub
Sub dhMagicTest()
Dim c As CommandBarComboBox
Set c = Application.CommandBars.ActionControl
Select Case c.List(c.ListIndex)
Case "메뉴 1"
dhTest1
Case "메뉴 2"
dhTest2
Case "메뉴 3"
dhTest3
Case "메뉴 4"
dhTest4
Case "종료"
dhQuit
End Select
c.ListIndex = 0
End Sub
Sub dhTest1()
MsgBox "메뉴 1을 실행"
End Sub
Sub dhTest2()
MsgBox "메뉴 2를 실행"
End Sub
Sub dhTest3()
MsgBox "메뉴 3을 실행"
End Sub
Sub dhTest4()
MsgBox "메뉴 4를 실행"
End Sub
Sub dhQuit()
ThisWorkbook.Close
End Sub
도구모음을 만드는것은 알았었지만.. 도구모음에 콤보박스를 만들 수 있다니.. +_+
툴바가 작아서 너무 많은 컨맨드 버튼이 있을때는 하나로 몰아버리자.. 콤.보.박.스! ㅋㅋㅋ
출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=32127&keyword=Command 콤보&sn=on&ss=on&sc=on
Option Explicit
Const cMenu As String = "_esTempMenu"
Sub dhMakeMenu()
Dim c As CommandBar
dhDeleteMenu
Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop)
c.Visible = True
With c.Controls.Add(Type:=msoControlComboBox)
.AddItem "메뉴 1"
.AddItem "메뉴 2"
.AddItem "메뉴 3"
.AddItem "메뉴 4"
.AddItem "종료"
.ListIndex = 0
.Text = "폴더 열기"
.TooltipText = "엑셀의 모든 것 MagicSheet &엑사모"
.OnAction = "dhMagicTest"
End With
End Sub
Sub dhDeleteMenu()
On Error GoTo e1
Application.CommandBars(cMenu).Delete
e1:
End Sub
Sub dhMagicTest()
Dim c As CommandBarComboBox
Set c = Application.CommandBars.ActionControl
Select Case c.List(c.ListIndex)
Case "메뉴 1"
dhTest1
Case "메뉴 2"
dhTest2
Case "메뉴 3"
dhTest3
Case "메뉴 4"
dhTest4
Case "종료"
dhQuit
End Select
c.ListIndex = 0
End Sub
Sub dhTest1()
MsgBox "메뉴 1을 실행"
End Sub
Sub dhTest2()
MsgBox "메뉴 2를 실행"
End Sub
Sub dhTest3()
MsgBox "메뉴 3을 실행"
End Sub
Sub dhTest4()
MsgBox "메뉴 4를 실행"
End Sub
Sub dhQuit()
ThisWorkbook.Close
End Sub