Excel에서 메뉴 만들기 (Tips1)

앱, 브라우저, Excel 파일, PDF 파일 등을 링크 설정할 수 있는 메뉴 앱을 작성하고 있습니다.

개발 목적

개인의 Windows 데스크톱이 어색하기 때문에 사내에서 필요한 업무만을 정리한 메뉴를 작성한다.

업무에 따라 사용하는 앱이 다르기 때문에 어떤 앱을 시작할지 알 수 있도록 메뉴에 등록할 수 있도록 한다.

사내에 다양한 메뉴 앱을 설치하지 않아도 되도록 Excel 매크로로 작성한다.

주요 기능

클라우드 앱, 브라우저 북마크 등을 시작하는 URL 등록

PDF 파일, Excel 파일 등을 시작하는 파일 이름 등록

비즈니스 관리를위한 폴더 열기 폴더 이름 등록

비즈니스 앱 시작 프로그램 등록

Excel 매크로 시작 매크로 등록

처음 시작할 Exce 팔 등록

메뉴 타이틀을 사용자가 편집 가능하게 한다.

메뉴 설정 화면

메뉴의 등록은, 아래의 화면에서 실시합니다.

제목 편집

메뉴의 제목과 색 구성표는 사용자가 설정할 수 있습니다.
※ 현재 기능을 정지하고 있습니다. 나중에 추가합니다.

타이틀 예) ○○ (주) 업무 메뉴

등록 데이터 저장 방법

원래 데이터 저장은 텍스트 파일에 저장하려고 생각했지만, 사용자가 친구에게 소개 할 때 쉽게 복사 할 수 있도록 데이터는 Excel 시트에 저장하도록 한 파일에 넣을 수 있도록 했습니다.



화면은, 메뉴수가 10개 화면과 20개의 화면을 [>>>] 버튼으로 전환하도록 작성했습니다.


세로와 가로 막대(라벨)를 작성해, 오픈시의 폼 사이즈를 막대의 사이즈로 한다.
막대의 개체 이름을 세로:HRHeight, 가로:HRWidth로 크기를 조정합니다.

Sub_UserForm_Initialize.vba

Private Sub UserForm_Initialize()

  'FormSize
  Me.Height = Me.HRheight.Height + 30
  Me.Width = Me.HRwidth.Width + 15
End Sub

메뉴의 폭을 가변으로 한다.

시작 시에는 10개의 메뉴를 표시하고 [>>>] 버튼으로 20개의 메뉴를 표시하도록 했습니다.




Sub_s_FormWidth.vba

Private Sub s_FormWidth()

  If sFL拡張 = 0 Then
    sFL拡張 = 1
    Me.btn拡張.Caption = "<<<"
    Me.Width = Me.HRwidth.Width * 2 + 15
  Else
    sFL拡張 = 0
    Me.btn拡張.Caption = ">>>"
    Me.Width = Me.HRwidth.Width + 15
  End If

End Sub

운영 환경

OS : Windows 10 (Mac은 작동하지 않습니다)
Application:Excel 2010 ~ 2019

다운로드

이 페이지에서 다운로드 할 수 있습니다.