__Devil__
Thành viên mới
- Tham gia
- 4/12/12
- Bài viết
- 22
- Được thích
- 22
- Donate (Momo)
- Giới tính
- Nam
Em chào các bác!
Như tiêu đề em đang tạo một add-ins nhưng các control chỉ sắp xếp theo hàng.
Em muốn sắp xếp lại theo từng cột thì phải làm như thế nào ạ?
Mong các bác chỉ bảo.
Nếu có phương pháp khác các bác cho em học hỏi với ạ.
Cảm ơn tất cả các bác!
Như tiêu đề em đang tạo một add-ins nhưng các control chỉ sắp xếp theo hàng.
Em muốn sắp xếp lại theo từng cột thì phải làm như thế nào ạ?
Mong các bác chỉ bảo.
Nếu có phương pháp khác các bác cho em học hỏi với ạ.
Cảm ơn tất cả các bác!
Mã:
Public Sub AddMenu()
Dim cbMainMenuBar As CommandBar
Dim cbcCutomMenu As CommandBarControl
'Delete any existing one. We must use On Error Resume next in case it does not exist.
DeleteMenu
On Error Resume Next
For Each cbMainMenuBar In Application.CommandBars
cbMainMenuBar.Delete
Next
'Set a CommandBar variable to Worksheet menu bar
Set cbMainMenuBar = Application.CommandBars.Add("Tool", , False, True)
cbMainMenuBar.Visible = True
cbMainMenuBar.Position = msoBarFloating
'Set a CommandBarControl variable to it
'-------------------------------------------------------------------------
'Button About
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlButton)
With cbcCutomMenu
.Style = msoButtonIconAndCaptionBelow
.Caption = "&About ExcelUti"
.FaceId = 1954
.OnAction = "MenuAbout"
End With
'-------------------------------------------------------------------------
'Set a CommandBarControl variable to it
'-------------------------------------------------------------------------
'Button About
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlButton)
With cbcCutomMenu
.Style = msoButtonIconAndCaptionBelow
.Caption = "&About ExcelUti"
.FaceId = 1954
.Execute
.OnAction = "MenuAbout"
End With
'-------------------------------------------------------------------------
'Set a CommandBarControl variable to it
'-------------------------------------------------------------------------
'Button About
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlButton)
With cbcCutomMenu
.Style = msoButtonIconAndCaptionBelow
.Caption = "&About ExcelUti"
.FaceId = 1954
.State = 5
.OnAction = "MenuAbout"
End With
'-------------------------------------------------------------------------
'Popup Upper & Lower
Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)
With cbcCutomMenu
.Caption = "&Upper && Lower"
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Upper All"
.FaceId = 80
.OnAction = "UpperAll"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "&Lower All"
.FaceId = 947 '3512 '947
.OnAction = "LowerAll"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Upper &First Letter"
.FaceId = 309
.OnAction = "UpperFirstLetter"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Upper &All First Letters"
.FaceId = 309
.OnAction = "UpperAllFirstLetters"
End With
End With
'-------------------------------------------------------------------------
End Sub
Sub DeleteMenu()
Dim cbcCutomMenu As CommandBarControl
On Error Resume Next
For Each cbcCutomMenu In Application.CommandBars("Worksheet Menu Bar").Controls
cbcCutomMenu.Delete
Next
'Application.CommandBars("Worksheet Menu Bar").Controls("&ExcelUti").Delete
On Error GoTo 0
End Sub
