vba [vba] 엑셀(Excel) 셀 오른쪽 마우스 매뉴
페이지 정보
본문
출처 : 지식인
잘 사용하지는 않지만 특이하게 코딩되어 기록해둠!!
Function 삭제()
CommandBars("Cell").Reset
End Function
Function 생성()
Application.CommandBars("Cell").Reset
With Application.CommandBars("Cell")
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = False
.Caption = "─────────────"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = True
.Caption = "★ 시트백업"
.OnAction = "메인.시트백업"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = False
.Caption = "─────────────"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = True
.Caption = "★ 화면새로고침이 안될때"
.OnAction = "메인.기능켜기"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = False
.Caption = "─────────────"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = True
.Caption = "★ 평 균"
.OnAction = "메인.평균"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = False
.Caption = "─────────────"
.Visible = True
End With
With .Controls.Add(Type:=msoControlButton, before:=1)
.Enabled = True
.Caption = "★ 집 계"
.OnAction = "메인.집계"
.Visible = True
End With
End With
End Function
- 이전글[vba] 오름차순 정렬 예제/[B4].SpecialCells(5).Offset(1).Sort [B5], 1 20.05.02
- 다음글[vba] vba를 활용한 이미지 삽입 시 링크삽입과 영구삽입 20.02.15
댓글목록
등록된 댓글이 없습니다.