1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개
글 수 65

엑셀 도구모음에 콤보박스로 매크로 실행하기.. +_+

조회 수 5497 추천 수 4 2005.11.03 21:58:01
[레벨:30]a☆ *.106.104.6
아~ 감동의 물결.. ㅠ_ㅠ
도구모음을 만드는것은 알았었지만.. 도구모음에 콤보박스를 만들 수 있다니.. +_+
툴바가 작아서 너무 많은 컨맨드 버튼이 있을때는 하나로 몰아버리자.. 콤.보.박.스! ㅋㅋㅋ

출처 : 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

이 게시물을...
profile
엮인글 :
http://abyul.com/zbxe/5598/cd0/trackback
목록
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34258
목록
쓰기