Excel에서 메뉴 만들기 (Tips1)

개발 목적
주요 기능
메뉴 설정 화면
메뉴의 등록은, 아래의 화면에서 실시합니다.

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

타이틀 예) ○○ (주) 업무 메뉴
등록 데이터 저장 방법
원래 데이터 저장은 텍스트 파일에 저장하려고 생각했지만, 사용자가 친구에게 소개 할 때 쉽게 복사 할 수 있도록 데이터는 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
다운로드
이 페이지에서 다운로드 할 수 있습니다.
Reference
이 문제에 관하여(Excel에서 메뉴 만들기 (Tips1)), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/muramoto_jp/items/6d9173a254e46e04569f텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)