안녕하세요? 맑은이슬님..

도구모음을 만들어서 사용했던게 오만년 전이라 잠시 생소했습니다. ^_^;;

요즘은 전부 리본메뉴로 만들어서 사용해서 도구 모음 만들었던게 기억이 가물가물했습니다. 하하..

도구모음을 2개 만들어서 아이템을 나눠 넣으면 해결 될 것 같습니다.

VBA를 좀 더 공부해보고 싶으시면 리본메뉴를 만드는 것을 한번 공부해보시는 것도 재미있을 것 같네요..

참조 게시물 : http://www.abyul.com/zbxe/83200

첨부파일을 참고하세요..

다운받기 : abui.com_splitCommandBars_20130129.xls

'===============================================================================

1. eMenu2를 하나 더 만드시구요..

2. Commandbar를 하나 더 만드셔서 아이템을 나눠 넣습니다.

3. Sub dhDeleteMenu() 프로시저에 새로 만든 도구모음을 삭제하는 코드를 추가해줍니다.

'===============================================================================

Option Explicit

Const cMenu As String = "JaeHyeon Kim" '도구 모음의 이름
Const cMenu2 As String = "JaeHyeon Kim2" '도구 모음의 이름

Sub dhMakeMenu()
'메뉴 만들기
Dim c As CommandBar
Dim strCur As String
    strCur = "'" & ThisWorkbook.Name & "'!"
    dhDeleteMenu
   
    Set c = Application.CommandBars.Add(Name:=cMenu, Position:=msoBarTop, MenuBar:=False, temporary:=False)
        dhMakeSubMenu c, msoControlButton, False, strCur & "전체시트삭제11", "SO Sheet 내용 삭제", "SO Sheet 내용 삭제", 270
        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력국내1", "첫째Data 입력", "첫째Data 입력", 66
        dhMakeSubMenu c, msoControlButton, False, strCur & "data입력해외3", "두번째Data 입력", "두번째Data 입력", 350
        dhMakeSubMenu c, msoControlButton, False, strCur & "실행1", "일일BackOrder 확인", "일일BackOrder 확인", 284
        dhMakeSubMenu c, msoControlButton, True, strCur & "실행2", "전체Order 확인", "전체Order 확인", 433
        dhMakeSubMenu c, msoControlButton, False, strCur & "대영주문", "대영화학 주문추가", "대영화학 주문추가", 83
        dhMakeSubMenu c, msoControlButton, False, strCur & "유창주문", "유창 주문추가", "유창 주문추가", 104
        dhMakeSubMenu c, msoControlButton, False, strCur & "미래주문", "미래테크윈 주문추가", "미래테크윈 주문추가", 92
    c.Visible = True
    Set c = Nothing
   
    Set c = Application.CommandBars.Add(Name:=cMenu2, Position:=msoBarTop, MenuBar:=False, temporary:=False)
        dhMakeSubMenu c, msoControlButton, False, strCur & "신규확인", "신규Item 확인", "신규Item 확인", 93
        dhMakeSubMenu c, msoControlButton, False, strCur & "신규등록00", "신규ITEM Master 등록", "신규ITEM Master 등록", 136
        dhMakeSubMenu c, msoControlButton, False, strCur & "SO_NO중복1", "대치PO 확인(all)", "대치PO 확인(all)", 351
        dhMakeSubMenu c, msoControlButton, False, strCur & "필터", "MyData 확인", "MyData 확인", 361
        dhMakeSubMenu c, msoControlButton, True, strCur & "JSH필터", "짝지Data 확인(BackOrder)", "짝지Data 확인(BackOrder)", 165
        dhMakeSubMenu c, msoControlButton, False, strCur & "JSH필터1", "짝지Data 확인(ALL)", "짝지Data 확인(ALL)", 51
        dhMakeSubMenu c, msoControlButton, False, strCur & "ETD대상", "ETD대상 보기", "ETD대상 보기", 59
        dhMakeSubMenu c, msoControlButton, False, strCur & "모두표시", "전체PO보기", "전체PO보기", 247
    c.Visible = True
    Set c = Nothing
 
    '선택하여 붙여넣기 단축 메뉴
    'ctrl + shift + v
    Application.OnKey "^+v", "dhRunPasteSpecial"
   
End Sub

'===============================================================================

Sub dhDeleteMenu()
On Error Resume Next
    Application.CommandBars(cMenu).Delete '메뉴 삭제하기
    Application.CommandBars(cMenu2).Delete '메뉴 삭제하기
    Application.OnKey "^+v", "" '바로가기 메뉴 취소
On Error GoTo 0
End Sub

'===============================================================================