Cò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
đúng vậy ....nhưng viết thành code bấm nút 1 cái chọn 1 File Excel bất kỳ ...chờ 5 giây là nó tạo ra như vậy chứ ....còn làm thủ công thì Mạnh làm Ok rồi đó ...
Không khóa nhưng code viết bằng tiếng Lào có được không
Không khóa nhưng code viết bằng tiếng Lào có được không
http://www.giaiphapexcel.com/forum/...tạo-Ribbon-cho-file-Excel&p=741585#post741585
Public Const q = 271, w = 203, ii = 72, oo = "E", pp = 0, aa = "6", ss = 7897, hh = 7921, jj = 10, kk = 227, ooo = "H", ppp = 7, uuu = "1", yyy = "7", rrr = True, ii_I_l_I_l_I_l = 7909, l_I_l_I_l_I_l_l_l_I_l_l_l = 7917, l_I_I_I_l_l_I_I_l_I_I_l_I = 7875, l_l_I_I_I_l_l_l_I_l_l_I_I = 253, l_l_l_I_l_l_l_I_l_l_I_I_l_l = 259, l_I_I_ii_I_l_l_l = 242, l_I_I_I_I_I_I_l_I_I_I = "V", xxx = "", ttt = "A", l_l_I_l_I_I_l_I = 7853, l_I_I_I_I_I_I_I_l_I_I_l_I_I = 7845, l_l_I_l_l_I_l_l_l_I_I_I_l = 236, vvv = "K", qqq = "x", ee = """", _
Kim_l = "/", k = 1, xx = "R", sss = 6, ggg = False, hhh = "?", Kim_I = "k", jjj = 7901, kkk = 226, lll = 7889, zzz = 243, l_I_I_l_l_l = "'", l_l_I_I_l_l_I_l_l_I_I_I_l_l = 7879, v = "v", l_I_I_I_l_l_l_I_I_I_l_I_l_l = "f", l_l_l_I_l_l_I_l_l_I_I_l_I = 7863, l_I_l_I_l_I = 273, l_I_I_l_I_l_l_I_l_l_l_I_l = 224, c = 432, l_l_I_l_I_l_l_l_I_I_l = 7841, l_I_l_I_I_l_I_I_I_I_I_I_l_I = "B", ccc = 225, yy = " ", iii = 244, eee = "h", mm = "2", nn = "3", z = "w", bb = "W", rr = "\", vv = ":", _
dd = "j", sh3 = "b", ff = "O", gg = "m", ww = "y", m = "F", n = "g", b = "n", l = "t", d = "p", sh2 = "i", s = "r", a = "c", p = "S", ll = "e", www = "u", zz = "d", qq = "o", cc = "M", x = "s", uu = "a", j = "C", xy = ".", g = "D", f = "T", sh1 = "L", h = "_", tt = "l", l_l_l_I_I_l_l_I_I_I_I_I = "I"
Public Sub RunAsMaHoa()
Dim sPath As String
sPath = ThisWorkbook.Path & "\REGDLL.BAT"
CreateObject(p & eee & ll & tt & tt & xy & ttt & d & d & tt & sh2 & a & uu & l & sh2 & qq & b).ShellExecute sPath, xxx, xxx, s & www & b & uu & x, k
End SubVới Mạnh tiếng Ngoài Hành Tinh vẫn chơi Tốt.....Bạn thử hình dung code sau ý tưởng giống ai nha
Mã:Public Const q = 271, w = 203, ii = 72, oo = "E", pp = 0, aa = "6", ss = 7897, hh = 7921, jj = 10, kk = 227, ooo = "H", ppp = 7, uuu = "1", yyy = "7", rrr = True, ii_I_l_I_l_I_l = 7909, l_I_l_I_l_I_l_l_l_I_l_l_l = 7917, l_I_I_I_l_l_I_I_l_I_I_l_I = 7875, l_l_I_I_I_l_l_l_I_l_l_I_I = 253, l_l_l_I_l_l_l_I_l_l_I_I_l_l = 259, l_I_I_ii_I_l_l_l = 242, l_I_I_I_I_I_I_l_I_I_I = "V", xxx = "", ttt = "A", l_l_I_l_I_I_l_I = 7853, l_I_I_I_I_I_I_I_l_I_I_l_I_I = 7845, l_l_I_l_l_I_l_l_l_I_I_I_l = 236, vvv = "K", qqq = "x", ee = """", _ Kim_l = "/", k = 1, xx = "R", sss = 6, ggg = False, hhh = "?", Kim_I = "k", jjj = 7901, kkk = 226, lll = 7889, zzz = 243, l_I_I_l_l_l = "'", l_l_I_I_l_l_I_l_l_I_I_I_l_l = 7879, v = "v", l_I_I_I_l_l_l_I_I_I_l_I_l_l = "f", l_l_l_I_l_l_I_l_l_I_I_l_I = 7863, l_I_l_I_l_I = 273, l_I_I_l_I_l_l_I_l_l_l_I_l = 224, c = 432, l_l_I_l_I_l_l_l_I_I_l = 7841, l_I_l_I_I_l_I_I_I_I_I_I_l_I = "B", ccc = 225, yy = " ", iii = 244, eee = "h", mm = "2", nn = "3", z = "w", bb = "W", rr = "\", vv = ":", _ dd = "j", sh3 = "b", ff = "O", gg = "m", ww = "y", m = "F", n = "g", b = "n", l = "t", d = "p", sh2 = "i", s = "r", a = "c", p = "S", ll = "e", www = "u", zz = "d", qq = "o", cc = "M", x = "s", uu = "a", j = "C", xy = ".", g = "D", f = "T", sh1 = "L", h = "_", tt = "l", l_l_l_I_I_l_l_I_I_I_I_I = "I" Public Sub RunAsMaHoa() Dim sPath As String sPath = ThisWorkbook.Path & "\REGDLL.BAT" CreateObject(p & eee & ll & tt & tt & xy & ttt & d & d & tt & sh2 & a & uu & l & sh2 & qq & b).ShellExecute sPath, xxx, xxx, s & www & b & uu & x, k End Sub
Cảm ơn Bạn rất nhiều Mạnh khai phá thêm một mớ ...
Và bài #40 Link sau Mình học code này từ File đó ....xx
với cách viết đó GPE chưa từng thấy Ai viết Ngoài Bạn ...Mạnh học viết lại thêm 1 tí
http://www.giaiphapexcel.com/forum/...ist-Hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn/page4
Cảm Ơn....
Thôi có thì sử dụng, tác giả không muốn chia sẻ thì thôi vậy! Dĩ nhiên đâu có ai phóng khoáng đâu mà cho với biếu.
Bạn sang thử cái của huuthang_bd chưa vây..
... còn dùng File mẫu giờ thấy lao sao ý 
Tôi đâu có nói là không đọc không hiểu được đâu. Chỉ hơi khó xem thôi. Mà cái này cũng không phải mục đích của tôi. Tôi chỉ muốn những ứng dụng hoàn chỉnh do tôi tự làm người khác không bê về tự nhận của mình mà thôi. Còn ai nghiên cứu được cái gì thì cứ nghiên cứu.Với Mạnh tiếng Ngoài Hành Tinh vẫn chơi Tốt.....Bạn thử hình dung code sau ý tưởng giống ai nha
Mã:Public Const q = 271, w = 203, ii = 72, oo = "E", pp = 0, aa = "6", ss = 7897, hh = 7921, jj = 10, kk = 227, ooo = "H", ppp = 7, uuu = "1", yyy = "7", rrr = True, ii_I_l_I_l_I_l = 7909, l_I_l_I_l_I_l_l_l_I_l_l_l = 7917, l_I_I_I_l_l_I_I_l_I_I_l_I = 7875, l_l_I_I_I_l_l_l_I_l_l_I_I = 253, l_l_l_I_l_l_l_I_l_l_I_I_l_l = 259, l_I_I_ii_I_l_l_l = 242, l_I_I_I_I_I_I_l_I_I_I = "V", xxx = "", ttt = "A", l_l_I_l_I_I_l_I = 7853, l_I_I_I_I_I_I_I_l_I_I_l_I_I = 7845, l_l_I_l_l_I_l_l_l_I_I_I_l = 236, vvv = "K", qqq = "x", ee = """", _ Kim_l = "/", k = 1, xx = "R", sss = 6, ggg = False, hhh = "?", Kim_I = "k", jjj = 7901, kkk = 226, lll = 7889, zzz = 243, l_I_I_l_l_l = "'", l_l_I_I_l_l_I_l_l_I_I_I_l_l = 7879, v = "v", l_I_I_I_l_l_l_I_I_I_l_I_l_l = "f", l_l_l_I_l_l_I_l_l_I_I_l_I = 7863, l_I_l_I_l_I = 273, l_I_I_l_I_l_l_I_l_l_l_I_l = 224, c = 432, l_l_I_l_I_l_l_l_I_I_l = 7841, l_I_l_I_I_l_I_I_I_I_I_I_l_I = "B", ccc = 225, yy = " ", iii = 244, eee = "h", mm = "2", nn = "3", z = "w", bb = "W", rr = "\", vv = ":", _ dd = "j", sh3 = "b", ff = "O", gg = "m", ww = "y", m = "F", n = "g", b = "n", l = "t", d = "p", sh2 = "i", s = "r", a = "c", p = "S", ll = "e", www = "u", zz = "d", qq = "o", cc = "M", x = "s", uu = "a", j = "C", xy = ".", g = "D", f = "T", sh1 = "L", h = "_", tt = "l", l_l_l_I_I_l_l_I_I_I_I_I = "I" Public Sub RunAsMaHoa() Dim sPath As String sPath = ThisWorkbook.Path & "\REGDLL.BAT" CreateObject(p & eee & ll & tt & tt & xy & ttt & d & d & tt & sh2 & a & uu & l & sh2 & qq & b).ShellExecute sPath, xxx, xxx, s & www & b & uu & x, k End Sub
Cảm ơn Bạn rất nhiều Mạnh khai phá thêm một mớ ...
Và bài #40 Link sau Mình học code này từ File đó ....xx
với cách viết đó GPE chưa từng thấy Ai viết Ngoài Bạn ...Mạnh học viết lại thêm 1 tí
http://www.giaiphapexcel.com/forum/...ist-Hỗ-trợ-nhập-liệu-từ-danh-mục-có-sẵn/page4
Cảm Ơn....
] ...còn chưa thì cứ vậy xài ...nghĩ mằn chi nhức đầu
2/ Bạn là người làm sau, không sợ người khác nói bắt chước mà lại sợ người ta bắt chước. Kể cũng ngộNhư Mạnh đã nói tối qua ...Nay Úp File tao menu cho Office từ 2007 tới 2016 cho Bạn nào thích thì xài
1/ Chương trình được phát triển từ code của thaipv - GPE
2/ Khi muốn thay đổi biểu tượng (Icon - ImageMso) thì đặt chuột tại Cells của cột H xong chọn biểu tượng mình yêu thích lập tức nó copy Paste vào đó [khúc này sẻ có ai đó bắt trước (Làm Theo) à nha ...
3/ Khi tạo menu bắt đầu từ sheet MAIN cells [B2] gõ là 1 xong làm theo hướng dẫn ...
4/ Còn đang thiếu nhiều nút lệnh chưa hoàn thiện...từ từ Mạnh sẻ hoàn thiện sau....
5/ Tao Menu cho một file Excel bất kỳ có trên máy Bạn ...dạng file *.xlsm, *.xlsb
6/ Tải về chạy File RibbonTVSetup.exe ... chon Yes là sử dụng OK
[ File RibbonTV.dll được giải nén vào System32] ...
Còn File RibbonTV.dll Mình để chung Folder nếu Bạn nào không thích Setup thì làm File *.bat mà xử ....
7/ Quá trình sử dụng nếu có phát sinh lỗi xin báo dùm lỗi .... Mạnh cảm ơn
8/ Là tiện ích đầu tiên của GPE tạo menu cho 1 file Excel bất kỳ trên máy Bạn ....Vì vậy tiện đây Mạnh thách đố
Bạn nào làm cái thứ 2 tạo cho 1 File bất kỳ ....
Nếu có xuất hiện Mạnh sẻ chia sẻ mã Nguồn ....
9/ Xin Cảm Ơn Bạn thaipv rất nhiều ....
Nếu được Bạn giúp mình thêm một chút nữa thì nó sẻ thành Một Tiện ích Hoàn Chỉnh
Mạnh Úp File này Tại đây và Bài #1
Mình có thấy cái nào tạo cho 1 file bất kỳ trên máy đâu ta ...2/ Bạn là người làm sau, không sợ người khác nói bắt chước mà lại sợ người ta bắt chước. Kể cũng ngộ
8/ Cái này cũng không phải cái đầu tiên
Có thể là do bạn sử dụng không đúng cách thôi. Bên kia tôi có nói lý doMình có thấy cái nào tạo cho 1 file bất kỳ trên máy đâu ta ...
Thì Mạnh mới thử File Bạn mới Úp lên đó trả lời Bài #12 đó .....Có thể là do bạn sử dụng không đúng cách thôi. Bên kia tôi có nói lý do
Như Mạnh đã nói tối qua ...Nay Úp File tao menu cho Office từ 2007 tới 2016 cho Bạn nào thích thì xài
1/ Chương trình được phát triển từ code của thaipv - GPE
2/ Khi muốn thay đổi biểu tượng (Icon - ImageMso) thì đặt chuột tại Cells của cột H xong chọn biểu tượng mình yêu thích lập tức nó copy Paste vào đó [khúc này sẻ có ai đó bắt trước (Làm Theo) à nha ...
3/ Khi tạo menu bắt đầu từ sheet MAIN cells [B2] gõ là 1 xong làm theo hướng dẫn ...
4/ Còn đang thiếu nhiều nút lệnh chưa hoàn thiện...từ từ Mạnh sẻ hoàn thiện sau....
5/ Tao Menu cho một file Excel bất kỳ có trên máy Bạn ...dạng file *.xlsm, *.xlsb
6/ Tải về chạy File RibbonTVSetup.exe ... chon Yes là sử dụng OK
[ File RibbonTV.dll được giải nén vào System32] ...
Còn File RibbonTV.dll Mình để chung Folder nếu Bạn nào không thích Setup thì làm File *.bat mà xử ....
7/ Quá trình sử dụng nếu có phát sinh lỗi xin báo dùm lỗi .... Mạnh cảm ơn
8/ Là tiện ích đầu tiên của GPE tạo menu cho 1 file Excel bất kỳ trên máy Bạn ....Vì vậy tiện đây Mạnh thách đố
Bạn nào làm cái thứ 2 tạo cho 1 File bất kỳ ....
Nếu có xuất hiện Mạnh sẻ chia sẻ mã Nguồn ....
9/ Xin Cảm Ơn Bạn thaipv rất nhiều ....
Nếu được Bạn giúp mình thêm một chút nữa thì nó sẻ thành Một Tiện ích Hoàn Chỉnh
Mạnh Úp File này Tại đây và Bài #1
Những kẻ thế là những kẻ như thế nào vậy bạn? Bạn tham gia diễn đàn cũng mấy năm rồi, hay tự hỏi bạn đã đóng góp gì cho diễn đàn.
Cảm ơn Bạn ... Nếu được Bạn hổ trợ thêm nữa Mình sẻ cố giắng viết lại mọi cái cho phù hợp ...
Tôi thấy bác Hữu Thắng đã tạo được cái thứ 2 rồi đó bác, chia sẻ code được rồi. Tôi thấy code bác Hữu Thắng viết rất ngắn, còn không biết code của bác KieuManh thế nào chia sẻ cho anh em học hỏi thêm với.8/ Là tiện ích đầu tiên của GPE tạo menu cho 1 file Excel bất kỳ trên máy Bạn ....Vì vậy tiện đây Mạnh thách đố
Bạn nào làm cái thứ 2 tạo cho 1 File bất kỳ ....
Nếu có xuất hiện Mạnh sẻ chia sẻ mã Nguồn ....
