Vậy thì từ từ Bạn nghiên cứu sắp xếp lại các cột cho ngăn nắp theo trình tự xong úp file mẫu lên ....
Public Sub ChangeVBOM(ByVal Val As Long)
Dim AppVer, Regkey As String
AppVer = Application.Version
Regkey = "HKEY_CURRENT_USER\Software\Microsoft\Office" & AppVer & "\Excel\Security\AccessVBOM"
CreateObject("WScript.Shell").RegWrite Regkey, Val, "REG_DWORD"
End Sub
Public Sub CheckVBOM()
ChangeVBOM (1)
End Sub
Public Sub UnCheckVBOM()
ChangeVBOM (2)
End SubTuy nhiên có máy bị máy không. Cũng không biết nguyên nhân là tại sao
Bài này nếu ta sử dụng thư viện của win thì có được ko Bạn ....Kiếm tài liệu coi nó Hông có...
trang đó mình biết lâu rồi ...có cách xử hết đó ...có điều chưa cần thiết đó thôi ...Mã:Public Sub ChangeVBOM(ByVal Val As Long) Dim AppVer, Regkey As String AppVer = Application.Version Regkey = "HKEY_CURRENT_USER\Software\Microsoft\Office" & AppVer & "\Excel\Security\AccessVBOM" CreateObject("WScript.Shell").RegWrite Regkey, Val, "REG_DWORD" End Sub Public Sub CheckVBOM() ChangeVBOM (1) End Sub Public Sub UnCheckVBOM() ChangeVBOM (2) End Sub
Code này nhiều khi nó không hoạt động. Nhìn vào mục 'Trust Access VBA' thì thấy nó đã check hoạt không check nhưng khi thao tác thì code nó vẫn không hiểu ( phải tắt khởi động lại excel ) thì nó mới hiểu. Các bạn có thể coi chủ đề này
Tuy nhiên có máy bị máy không. Cũng không biết nguyên nhân là tại sao
Bài này nếu ta sử dụng thư viện của win thì có được ko Bạn ....Kiếm tài liệu coi nó Hông có...
1/ C:\Windows\System32\msxml3.dll
2/ C:\Windows\System32\msxml6.dll
Tối qua mới cài mấy cái coi rồi ....Chủ yếu cài để dòm code của nó xem nó làm chi đó thôi mà ...
Tối qua mới cài mấy cái coi rồi ....Chủ yếu cài để dòm code của nó xem nó làm chi đó thôi mà ...
vài hôm coi hết xóa liền
thêm cái này nữa nè nó nhiều cái hay đó
http://www.spreadsheet1.com/dynamic-icon-browser.html
Mình coi hết Rồi nói chung loằng ngoằng mỳ tôn đó mà....
Private Sub Workbook_Activate()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='My Actions' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + " <mso:button id='runReport' label='Trim' " & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='TrimSelection'/>" & vbNewLine
ribbonXML = ribbonXML + " </mso:group>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"
ribbonXML = Replace(ribbonXML, """", "")
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End Sub
Private Sub Workbook_Deactivate()
Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String
hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"
ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"
Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile
End SubThì cũng tùy trường hợp thôi ....
Cái này hay quá, thấy nó rồi thì nghiên cứu chi cho mệt, có sử dụng cho khỏe (Mình là dạng cực lười).
Thực ra bài này có nhiều cách làm khác nhau ...
Bác KieuManh có hứng thú thì cứ tiếp tục, còn cao kiến của mình thì chỉ có vậy, chứ muốn nghiên cứu thêm nửa thì lười quá. Tôi thấy phần mềm IDBE RibbonCreator 2016 này rồi ý tưởng của mình chóng mặt quá (Do có quá nhiều tính năng cho một đối tượng), lúc đầu thì chỉ nghĩ các lệnh thường dùng thôi, nhưng trên thực tế cái mình nghĩ chưa chắc người khác nghĩ, cái mình dùng thường chưa chắc người khác dùng thường. Chính vì vậy tôi thấy khả năng mình có giới hạn không đủ trình độ để thực hiện tiếp ý tưởng này, nhưng KieuManh có khả năng thì hoan hô ủng hộ.Thực ra bài này có nhiều cách làm khác nhau ...
Mạnh mới khai thác cách làm khác còn xúc tích ngắn gọn hơn nữa ...
Bỏ luôn mấy hàm Unzip, CreateNewZip và ZipFilesInSub ... vẫn làm được ...
Tuy nhiên cấu trúc XML Mạnh mới vọc tới 10 ngày này nên chưa thật sự hiểu về nó lắm ....
Chứ hiểu rồi thì cũng không phải là vấn đề khó lắm
Chờ Bạn có cao kiến gì chăng ...hay ta chốt tại đây vậy ....
To thaipv
Còn đang kẹt sự đa dạng đó checkBox, labelControl, editBox, button, separator ....
XML không có gì khó đâu, do đại ca nhìn nó rối mắt nên thấy nó rối như mì tôm thôi, anh thử nghiên cứu làm menu giống dạng này xem saoCòn đang kẹt sự đa dạng đó checkBox, labelControl, editBox, button, separator ....
Còn lại Mạnh sẻ xử hết ....Nó sẻ thành 1 Add-ins Hoàn chỉnh Tạo Menu Tiếng việt 1 File Excel bất kỳ (Office 2007,2010 và 2016)....Xong
