Thanh Bình PV
Thành viên hoạt động
- Tham gia
- 30/10/19
- Bài viết
- 151
- Được thích
- 19
Ngoài lề 1 xíu không biết anh dùng phần mềm nào để tạo ra ảnh kiểu như này vậy ạ.
Các bước để tạo một Add-Ins hoàn chỉnh.
- Thread starter giaiphap
- Ngày gửi
Thành viên hoạt động
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Nó đây bạn Snagit
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Cái này mới nghiên cứu thấy trong C# dùng Exceldna vẫn làm được Menu cho Excel 2003 kết hợp luôn Ribbon cho 2007 - 2019 luôn.Bài #17 làm kiểu office2003 đó nha ... chạy từ 2003 to 2019 đó
View attachment 239246
Tools Tạo MsgBox - MsgBox Creator
Lang thang thấy code tạo Msgbox hay Mạnh copy về chỉnh sửa viết thêm cho Phù hợp với Unicode ... Msgbox cho Tiếng Việt có dấu Vì tây nó xài ko có dấu :p :p úp cho ai mới làm quen với VBA xài tạm Viết cái gì đó vào Mũi tên màu đỏ ý xong chạy thử xem sao nha Để xài Tiếng Việt có dấu trên VBA...www.giaiphapexcel.com
Bài 1 #1 làm XML đó nha .. chạy từ Office 2010 to 2019
View attachment 239247Add-ins SQL VB6 cho Excel, Access Và SQL Server + TCPIP
Mạnh thấy Trên GPE có hướng dẫn viết nhiều Add- ins cho Excel .... Nên Mạnh cũng mày mò làm 1 cái Trên VB6 cho Vui chủ yếu sử dụng và Úp cho ai đó cần xài nếu thấy tiện ích !!! I/ SQL cho Access và Excel ( Lấy dữ liệu File Excel và Access bất kỳ từ Excel 2003 To 2019 và Access *.mdb To *.accdb...
Vẫn câu nói cũ ... Trên GPE có hết rồi he
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
Thực ra để làm được thì viết trên Tools nào cũng làm được cả
1/ VD: trên VB6 mạnh viết cho 2003 hay 2010 to 2019 chạy ok
2/ Trên Delphi cũng thế Mạnh cũng viết cho 2003 hay 2010 to 2019 chạy OK ( nếu ai hỏi mục này vào thớt Delphi có code đó xem kỹ trong đó nó có cái If 2003 thì chạy 2003 else chạy khác )
3/ ngay đến viết Ribbon hay CustomTaskPane thì trên VB6 hay Delphi dư sức viết vậy tại sao ta lại Phải nhờ tới cái Add-in Express™ để viết nó
....
....
Vấn đề cuối cùng cho 1 người nghiên cứu và viết code là tại sao phải dùng bổ trợ của bên thứ 3 để viết nó mà ko tự viết ngay trên Tools mình đang sử dụng
VD1: xài chính VB6 xong viết luôn TaskPane.OCX hay menu Ribbon cho Excel
VD2: xài chính Delphi viết như mục 1
VD3: xài VS viết như mục 1,2...
...
Trên VB6 Mạnh viết như mục 1 ok
Trên Delphi mạnh tự tay viết Ribbon menu OK mà ko phải xài cái bổ trợ của bên thứ 3 như Add-in Express™
Cấu trúc Custom menu cho dù viết trên Tools gì đi nữa thì cũng phải tuân thủ theo tiêu chí của Bill
VD trên VBA
Mã:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<!-- chi tiet noi dung lenh tao Ribbon-->
<tab id="NetworkTCPIP" label="NetworkDatabase">
<group id="GROU1" label="Get Database">
<button id="GetDatabase" onAction="onActionBUT" size="large" imageMso="ImportMoreMenu" label="Show Form Database" screentip="Tùy Chọn Lấy Dữ Liệu" supertip="Access Và Excel"/>
</group>
<group id="GROU3" label="Server MS">
<button id="SQLServer" onAction="onActionBUT" size="large" imageMso="ViewsAdpDiagramSqlView" label="Server Databases" screentip="Lấy Dữ Liệu Từ Server Ms" supertip="SQL Server"/>
</group>
<group id="GROU2" label="Network - TCPIP">
<button id="Server" onAction="onActionBUT" size="large" imageMso="RemoveDuplicates" label="Server" screentip="NetworkTCPIP - Server" supertip="Lấy Dữ Liệu Phương Thức TCPIP"/>
<separator id="SEPA1"/>
<button id="Client" onAction="onActionBUT" size="large" imageMso="MeetingsWorkspace" label="Client" screentip="NetworkTCPIP - Client" supertip="Lấy Dữ Liệu Phương Thức TCPIP"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>VD trên VB6
Mã:
NDung1 = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"& _
"<ribbon>"& _
"<tabs>"& _
"<tab id=""NetworkTCPIP"" label=""NetworkDatabase"">"& _
"<group id=""GROU1"" label=""Get Database"">"& _
"<button id=""GetDatabase"" onAction=""onActionBUT"" size=""large"" imageMso=""ImportMoreMenu"" label=""Show Form Database"" screentip=""Tùy Chọn Lấy Dữ Liệu"" supertip=""Access Và Excel""/>"& _
"</group>"& _
"<group id=""GROU3"" label=""Server MS"">"& _
"<button id=""SQLServer"" onAction=""onActionBUT"" size=""large"" imageMso=""ViewsAdpDiagramSqlView"" label=""Server Databases​"" screentip=""Lấy Dữ Liệu Từ Server Ms"" supertip=""SQL Server""/>"& _
"</group>"& _
"<group id=""GROU2"" label=""Network - TCPIP"">"& _
"<button id=""Server"" onAction=""onActionBUT"" size=""large"" imageMso=""RemoveDuplicates"" label=""Server"" screentip=""NetworkTCPIP - Server"" supertip=""Lấy Dữ Liệu Phương Thức TCPIP""/>"& _
"<separator id=""SEPA1""/>"& _
"<button id=""Client"" onAction=""onActionBUT"" size=""large"" imageMso=""MeetingsWorkspace"" label=""Client"" screentip=""NetworkTCPIP - Client"" supertip=""Lấy Dữ Liệu Phương Thức TCPIP""/>"& _
"</group>"& _
"</tab>"& _
"</tabs>"& _
"</ribbon>"& _
"</customUI>"
sRibbonXML = NDung1VD trên Delphi
Mã:
result := '<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">'#13#10 +
'<ribbon startFromScratch="false">'#13#10 +
' <tabs>'#13#10 +
' <tab id="NetworkTCPIP" label="NetworkDatabase">'#13#10 +
' <group id="GROU1" label="Get Database">'#13#10 +
' <button id="GetDatabase" onAction="onActionBUT" size="large" imageMso="ImportMoreMenu" label="Show Form Database" screentip="Tùy Chọn Lấy Dữ Liệu" supertip="Access Và Excel"/>'#13#10 +
' </group>'#13#10 +
' <group id="GROU3" label="Server MS">'#13#10 +
' <button id="SQLServer" onAction="onActionBUT" size="large" imageMso="ViewsAdpDiagramSqlView" label="Server Databases​" screentip="Lấy Dữ Liệu Từ Server Ms" supertip="SQL Server"/>'#13#10 +
' </group>'#13#10 +
' <group id="GROU2" label="Network - TCPIP">'#13#10 +
' <button id="Server" onAction="onActionBUT" size="large" imageMso="RemoveDuplicates" label="Server" screentip="NetworkTCPIP - Server" supertip="Lấy Dữ Liệu Phương Thức TCPIP"/>'#13#10 +
' <separator id="SEPA1"/>'#13#10 +
' <button id="Client" onAction="onActionBUT" size="large" imageMso="MeetingsWorkspace" label="Client" screentip="NetworkTCPIP - Client" supertip="Lấy Dữ Liệu Phương Thức TCPIP"/>'#13#10 +
' </group>'#13#10 +
' </tab>'#13#10 +
' </tabs>'#13#10 +
' </ribbon>'#13#10 +
'</customUI>';trên GPE này có nhiều code rất hay VD như dòng sau VD trên Delphi và VB6
Mã:
supertip="Lấy Dữ Liệu Phương Thức TCPIP"/>'#13#10Tại sao Mạnh làm vậy ... vì trên Delphi 7 nó không hổ trợ Unicode còn Delphi 10 thì có lại ko cần nữa hay ta tạo Custom ngoài trong File *.txt thì lại rất cần nó vì trên file txt viết tiếng Việt có dấu nó hay lỗi ( code viết ra cấu trúc như vậy đã có trên GPE cụ thể Anh @batman1 viết là 1 sub Mạnh Copy lại viết thành 1 hàm ... code đó tìm Google mờ mắt luôn vậy trên GPE gần như có hết tại sao ko gắp ra dùng thôi ??)
...
Vậy nhìn vào 3 VD trên ta sẻ thấy cái gì chung nhất và khác nhau cái gì từ đó ta có cái nhìn bao quát nhất mà viết code
Cuối cùng mạnh khuyên còn nghe hay ko thì tùy Nến cố giắng tự viết trên Tools mình xài viết code và hạn chế xài đồ của bên thứ 3 cho chính tools đó
Lần chỉnh sửa cuối:
Kiều Mạnh
I don't program, I beat code into submission!!!
- Tham gia
- 9/6/12
- Bài viết
- 5,421
- Được thích
- 4,033
- Giới tính
- Nam
Lang thang trên Google Copy được file sau của tây Nó tạo Menu Ribbon đấy ( Úp chung vào đây cho nó gọn )
Cái hay của File này là nó chèn Ảnh ngoài vào menu Ribbon chạy tốt không báo lỗi lần đầu mình mở nó lên ... ai đam mê mò đi nha
Sẻ có Bạn hỏi tải về ko có xài được vv và mây mây ... câu trả lời là tại Bạn chưa biết xài thế thôi ... đam mê thì phải mò nó thì nó mới lòi ra cái hay mà tìm kiếm và viết code
Mạnh tải về nó cũng ko có hướng dẫn chi hết đó !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!????????????????????
Cái hay của File này là nó chèn Ảnh ngoài vào menu Ribbon chạy tốt không báo lỗi lần đầu mình mở nó lên ... ai đam mê mò đi nha
Sẻ có Bạn hỏi tải về ko có xài được vv và mây mây ... câu trả lời là tại Bạn chưa biết xài thế thôi ... đam mê thì phải mò nó thì nó mới lòi ra cái hay mà tìm kiếm và viết code
Mạnh tải về nó cũng ko có hướng dẫn chi hết đó !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!????????????????????namvu230397
Thành viên hoạt động
- Tham gia
- 12/10/21
- Bài viết
- 173
- Được thích
- 77
- Nghề nghiệp
- Kỹ sư công trình giao thông
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Bạn tải ở bài viết #10
Các bước để tạo một Add-Ins hoàn chỉnh.
Chào các thành viên diễn đàn GPE. Trong thời gian vừa qua có một số thành viên GPE nhắn tin riêng hoặc mail riêng cho tôi xin chia sẻ cách tạo Add-Ins cũng như cách tạo file cài đặt Add-Ins để dùng ở một máy tính bất kỳ mà không phải cài đặt thủ công. Hôm nay...
www.giaiphapexcel.com
namvu230397
Thành viên hoạt động
- Tham gia
- 12/10/21
- Bài viết
- 173
- Được thích
- 77
- Nghề nghiệp
- Kỹ sư công trình giao thông
Chào bác, em có một file addin của Powerpont, sau khi mày mò để tạo file exe bằng inno setup thì powerpoint nó không tự nhận addin. Đọc được bài này của bác em vui gần chết mà đến đoạn hướng dẫn bác có làm thành file mất nên em không hiểu cách để tạo ra nó bằng từng bước trên phần mềm inno setup. Mong bác hướng dẫn cách làm! Cảm ơn bác rất rất nhiều
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Cái này là viết thêm code (Tui chỉ sưu tầm) vào chứ cho nó làm tự động chắc không được. File này chỉ dùng cho Excel còn File PowerPoint thì không được nhé. Vì Excel thì nó tạo Key ở đường dẫn HKEY_CURRENT_USER\Software\Microsoft\Office\<Tùy phiên bản Office>\Excel\Options với giá trị Open là đường dẫn đến file Add-Ins excel, còn Powerpoint thì không được do PowerPoint quản lý Add-Ins theo cách khác, nó phải tạo Key ở đường dẫn HKEY_CURRENT_USER\Software\Microsoft\Office\<Tùy phiên bản Office>\PowerPoint\AddIns và tạo thêm 2 giá trị AutoLoad và Path. Đó chỉ là gợij ý bạn có thể nghiên cuiwus theo cách này, còn tui thì chưa nghiên cứu nên không thể giúp được bạn.
a6tammao003
Thành viên mới
- Tham gia
- 3/7/23
- Bài viết
- 16
- Được thích
- 1
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,778
- Được thích
- 6,274
- Donate (Momo)
- Giới tính
- Nam
Bạn bị sai cái hết sức cơ bản, khi dùng Call để gọi là gọi Sub chứ sao lại gọi tên Module, bạn sửa lại như hình.
a6tammao003
Thành viên mới
- Tham gia
- 3/7/23
- Bài viết
- 16
- Được thích
- 1
