File của bác @Hữu Thắng hay quá, tiếc là tác giả không viết code vào VBA.Mạnh mượn File của huuthang_bd quậy một Tẹo ...Bạn test thử xem sao nha ....
Nó sẻ tự động tạo Ribbon Theo Version Office của Bạn khỏi phải chọn nha Office Version
Nó chèn code vào File Ribbon luôn đó
Muốn vậy mình sửa file của bác Hữu thắng để thêm code vào VBA luôn.File của bác @Hữu Thắng hay quá, tiếc là tác giả không viết code vào VBA.
Nếu tác giả nghiên cứu viết code vào VBA thì dùng luôn của bác @Hữu Thắng cho tiện,
Nói thật với bác em cũng lười lắm ạ. Code em viết có khi ngày mai xem lại còn không hiểu nữa là code người khác viết.
Tôi thấy file của bác Hữu Thắng gần như hoàn thiện, chỉ cần thêm code theo ý muốn thôi, nhưng khả năng của tôi có giới hạn, nên chịu thua vậy. Thôi thì hóng cái của thaipv và Kieumanh để học hỏi thêm vậy.Nói thật với bác em cũng lười lắm ạ. Code em viết có khi ngày mai xem lại còn không hiểu nữa là code người khác viết.
giờ ta làm vậy xem ý Bạn saoFile của bác @Hữu Thắng hay quá, tiếc là tác giả không viết code vào VBA.
Nếu tác giả nghiên cứu viết code vào VBA thì dùng luôn của bác @Hữu Thắng cho tiện,
Cứ từ từ làm thôi, bỏ thế nào được... Code mình viết cũng chia sẻ mà, các bạn khác cũng có thể tiếp tục chứ. Mình cũng viết nữa. Khi nào hoàn thiện thì bỏ.
Nếu vậy thì dùng song ngữ để làm gì bác (lần trước tôi có gửi file cho bác là không sử dùng hàm chuyển Get_Chuoi để chuyển chữ mà ghi thẳng chữ unicode vào file XML luôn) tôi thấy dùng một ngôn ngữ là được rồi. Lý do thích tiếng anh thì gõ vào tiếng anh, thích tiếng Việt thì gõ vào tiếng Việt, thích tiếng Pháp thì gõ vào tiếng pháp... Có điều muốn sử dụng 2 ngôn ngữ thì chỉ sử dụng trên giao diện ribbon của file Creator Ribbon thôi, còn khi tạo ra file xlsm, xlsb... thì sẽ theo ngôn ngữ mình gõ trên sheet thôi đúng không (Do gõ thế nào ra thế đó mà).
9 cái 9 xác là vậy ...chỉ cần Anh việt trên Ribbon creator thôi ....còn mình tạo cái gì viết trên Sheet tiếng thái thì nó ra tiếng thái ....vậy là OK nhất
Thay vì khai báo rắc rối rồi file *.xlsb hay *.xlsm lằng nhằng mỳ tôn gì đó thì Mạnh xài Hàm sau ghi vào File .rels cho nó gọn và sử dụng Fso Unicode là xong phim
Private Sub AddCustomUIToRels(ByVal sRels As String)
Dim oXMLDoc As Object, oXMLElement As Object
Dim oXMLAttrib As Object, oNamedNodeMap As Object
Dim oXMLRelsList As Object
Set oXMLDoc = CreateObject("Msxml2.DOMDocument.3.0")
oXMLDoc.Load sRels
Set oXMLElement = oXMLDoc.createNode(1, "Relationship", _
"http://schemas.openxmlformats.org/package/2006/relationships")
Set oNamedNodeMap = oXMLElement.Attributes
Set oXMLAttrib = oXMLDoc.createAttribute("Id")
oXMLAttrib.NodeValue = GetRels_ID()
oNamedNodeMap.setNamedItem oXMLAttrib
Set oXMLAttrib = oXMLDoc.createAttribute("Type")
oXMLAttrib.NodeValue = GetRels_http()
oNamedNodeMap.setNamedItem oXMLAttrib
Set oXMLAttrib = oXMLDoc.createAttribute("Target")
oXMLAttrib.NodeValue = "customUI/" & customUI()
oNamedNodeMap.setNamedItem oXMLAttrib
Set oXMLRelsList = oXMLDoc.SelectNodes("/Relationships")
oXMLRelsList.Item(0).appendChild oXMLElement
oXMLDoc.Save sRels
Set oXMLDoc = Nothing
Set oXMLAttrib = Nothing
Set oXMLElement = Nothing
End SubCái này thì mình mù tịch, không biết là gì luôn. Bác KieuManh có thể giải thích chút được không?
Nó tương tự hàm sau ....Mình test 2 cái tốc độ như nhau ...Bạn nhìn code là hiểu mà
Private Sub AddrelsFile(ByVal Fso As Object, ByVal Extens As String, ByVal relsFile As String)
Dim XML As String
XML = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbNewLine:
XML = XML & "<Relationships xmlns=""http://schemas.openxmlformats.org/package/2006/relationships"">"
XML = XML & "<Relationship Id=""rId3"" Type=""http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties"" Target=""docProps/app.xml""/>"
XML = XML & "<Relationship Id=""rId2"" Type=""http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties"" Target=""docProps/core.xml""/>"
XML = XML & "<Relationship Id=""rId1"" Type=""http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument"" Target=""xl/workbook." & _
IIf(UCase(Extens) = "XLSB", "bin""/>", "xml""/>") & GeID_http
With Fso.CreateTextFile(relsFile, True)
.Write XML
.Close
End With
End SubCái này thì hiểu nè.
thì chức năng nó tương tự hàm trên đó ...nhưng cái này phải kiểm tra phần mở rộng của file là *xlsb = bin
[INDENT]Sub onAction(control As IRibbonControl)
MsgBox control.ID
End Sub[/INDENT]Em sử dụng file ở bài nào mà không biết tạo vậy? tôi thấy nó chạy ngon mà.
file Var_2 tại bài 1 ý thầy
Thử File huuthang_bd nè ....Thử nhấn nút Kiều Mạnh xong chon Một File Excel bất kỳ trên Máy nha
file cao siêu quá. vẫn chưa biết dùng a à. cho e hỏi thêm làm sao sửa được nội dung cột A? như file thì có button và menu, hiện e không cần menu mà nuốn sửa nó lại thành button hết thì làm thế nào? e thử sửa menu ở dòng 8 thành button thì code báo lỗi.
Ý bạn là muốn xài tab và button ko thôi chứ gì ....
