Menu Ripbon Dll viết bằng Delphi (1 người xem)

[thuyyeu99]

Vô tình lang thang mò trên mạng lụm được cái Menu Ripbon bằng Delphi. Nhờ các anh chị Test giúp nó chạy được 32 voi 64 không ah
32
https://secufiles.com/rejS/ThuyEAddin.dll

64
https://secufiles.com/rejT/ThuyEAddin.dll

 

[Kiều Mạnh]

bấm cái nó toàn báo vầy

 

[thuyyeu99]

Anh tắt cái chặn quảng cáo trên trình duyệt của anh di

 

[Kiều Mạnh]

Anh tắt cái chặn quảng cáo trên trình duyệt của anh di

Thì tắt nè ... sao ko úp trực tiếp luôn lên GPE mà rắc rối thế

 

[batman1]

Chọn đánh dấu "I'm not a robot"

Lên GPE? DLL cực khủng 13,2 MB

 

[thuyyeu99]

Chọn đánh dấu "I'm not a robot"

Lên GPE? DLL cực khủng 13,2 MB

Em chèn 10 cái hình vào mà hihi, cái do để từ từ giải quyết

 

[Excel365]

Vô tình lang thang mò trên mạng lụm được cái Menu Ripbon bằng Delphi. Nhờ các anh chị Test giúp nó chạy được 32 voi 64 không ah
32
https://secufiles.com/rejS/ThuyEAddin.dll

64
https://secufiles.com/rejT/ThuyEAddin.dll

Đã add vô rồi nhưng không thấy xuất hiện gì hết bạn

 

[batman1]

Không phải trong VBE.

Mở Excel -> chọn thẻ Developer -> chọn COM Add-ins -> Add -> duyệt tới và chọn DLL -> OK -> đóng Excel -> mở lại Excel -> nhìn lên Ribbon.

 

[Kiều Mạnh]

hay đó

 

[Excel365]

Ok rồi, Win 64 + Office 32

 

[thuyyeu99]

hay đó
View attachment 225172

Uả không chạy được hả anh

 

[Kiều Mạnh]

Uả không chạy được hả anh

Chạy tốt mà

 

[thuyyeu99]

Đâu phải của em đâu. Của em chỉ co cái menu chứ có thêm code gì dau coi chừng anh đang ký nhầm rồi

 

[Kiều Mạnh]

Đâu phải của em đâu. Của em chỉ co cái menu chứ có thêm code gì dau coi chừng anh đang ký nhầm rồi

Ô hay vậy ta cho link tải bản x32 mà
https://secufiles.com/rejS/ThuyEAddin.dll

 

[thuyyeu99]

Thì 1 cái 32, 1 cái 64. Mọi người dowload được mà

 

[Kiều Mạnh]

thì tải về add vào nó ra như vậy đó bài 12

 

[thuyyeu99]

thì tải về add vào nó ra như vậy đó bài 12

Kỳ vậy để tý em mở máy kiểm tra tra lại xem sau. Anh ccó biết trang nào úp load không. Ủa office của anh là 2019 hả

 

[Kiều Mạnh]

Kỳ vậy để tý em mở máy kiểm tra tra lại xem sau. Anh ccó biết trang nào úp load không. Ủa office của anh là 2019 hả

Chắc là chưa Ok trên office2016x32 quá mới thử lại ... hình bài 12 là của Bill
mới thử lại ko thấy nó add vào

Bài đã được tự động gộp: 19/9/19

Mới Thử Run As Office Excel nó mới cho

 

[thuyyeu99]

Lên menu chưa anh

 

[Kiều Mạnh]

Lên menu chưa anh

Add lần đầu nó bắt phải Run As Excel ... tháo ra làm lại vài lần nó ko đòi lại nữa là sao ta ???
à mới phát hiện ra là thay đổi đường dẫn 1 cái là nó keo Run As ... còn cái cũ thì bình thường làm tới lui thoải mái

 

[thuyyeu99]

Cái Dll này không giống cái Dll anh Tuân chỉ, chỉ cần Reg 32 đăng ký là ok

Bài đã được tự động gộp: 19/9/19

Office 16 + win 10 32 ok

 

[huonglien1901]

Em tải về báo lỗi, googlw chorme nó chặn không cho tải

Em tải về khi add vào nó báo lỗi.

Win10 64 bit office 2016

 

[Kiều Mạnh]

Em tải về báo lỗi, googlw chorme nó chặn không cho tải
View attachment 225208
Em tải về khi add vào nó báo lỗi.

Win10 64 bit office 2016
View attachment 225206

Run As Excel xong Add nó là vào

 

[huonglien1901]

Run As Excel xong Add nó là vào

Em add nó không add vào.
bản 32 thì báo lỗi.
bản này 64 thì nó không add vào

 

[thuyyeu99]

bạn đăng ký regsvr32 xx.dll

 

[huonglien1901]

bạn đăng ký regsvr32 xx.dll

Cách đăng ký regsvr32 xx.dll như thế nào vậy chị?

Em cảm ơn chị nhiều!

 

[Kiều Mạnh]

áp dụng viết Add-in hay đó
Nhưng ko biết xài code trong đó sao ??? khai báo API hay cái gì !!! @thuyyeu99 he

 

[thuyyeu99]

Run
REGSVR32 C:\Windows\System32\xxx.dll
hay tao file .bat trong cung thu muc với dll
REGSVR32 xxx.dll

 

[thuyyeu99]

áp dụng viết Add-in hay đó
Nhưng ko biết xài code trong đó sao ??? khai báo API hay cái gì !!! @thuyyeu99 he

Giám đốc Tặng Sim đẹp đi, em Share luôn hihihihi

 

[Kiều Mạnh]

Giám đốc Tặng Sim đẹp đi, em Share luôn hihihihi

Share đi he
đoán 1 chút cấu trúc customUI trên Delphi nó khác trên VBA 1 tẹo nhỉ
tại trên VBA biết chút đỉnh giờ qua Delphi thì nó cũng nhanh thôi

Code sau là mẫu trên Delphi đó he

function TDelphiAddin4.GetCustomUI(const RibbonID: WideString): WideString;
begin
  result:=
    '<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="GetImage">'#13#10 +
    '  <ribbon>'#13#10 +
    '    <tabs>'#13#10 +
    '      <tab id="myglaTab" label="Mygla">'#13#10 +
    '        <group id="myglaGroup1" label="Mygla''s">'#13#10 +
    { ... }
    '          <button id="MyglaButton12" size="large" image="Mygla.png" onAction="RibbonClick"/>'#13#10 +
    { ... }
    '        </group>'#13#10 +
    '     </tab>'#13#10 +
    '   </tabs>'#13#10 +
    '  </ribbon>'#13#10 +
    '</customUI>';
end;

 

[thuyyeu99]

hihihiihihi

Bài đã được tự động gộp: 20/9/19

Share đi he
đoán 1 chút cấu trúc customUI trên Delphi nó khác trên VBA 1 tẹo nhỉ
tại trên VBA biết chút đỉnh giờ qua Delphi thì nó cũng nhanh thôi

Code sau là mẫu trên Delphi đó he

function TDelphiAddin4.GetCustomUI(const RibbonID: WideString): WideString;
begin
  result:=
    '<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="GetImage">'#13#10 +
    '  <ribbon>'#13#10 +
    '    <tabs>'#13#10 +
    '      <tab id="myglaTab" label="Mygla">'#13#10 +
    '        <group id="myglaGroup1" label="Mygla''s">'#13#10 +
    { ... }
    '          <button id="MyglaButton12" size="large" image="Mygla.png" onAction="RibbonClick"/>'#13#10 +
    { ... }
    '        </group>'#13#10 +
    '     </tab>'#13#10 +
    '   </tabs>'#13#10 +
    '  </ribbon>'#13#10 +
    '</customUI>';
end;

Vậy thì mò đi hehehehe

 

[Kiều Mạnh]

Eo ôi thế ko share à

 

[thuyyeu99]

Eo ôi thế ko share à

anh có rồi Share gì nữa trời

 

[Kiều Mạnh]

anh có rồi Share gì nữa trời

đâu có bất chợt tới trang sau nó có nói sơ bộ qua nên đoán thế

Excel COM Add-Ins with Delphi Part III | My Glade

Mới làm xong nhờ các Bạn test dùm ... Ai đam mê Delphi vào link trên tìm là thấy Code Mẫu he
Nó như cái DLL @Nguyễn Duy Tuân chỉ đó thôi chỉ khác thêm mấy cái Hàm kết nối qua COM .... hehehehe

 

[thuyyeu99]

đâu có bất chợt tới trang sau nó có nói sơ bộ qua nên đoán thế

Excel COM Add-Ins with Delphi Part III | My Glade

Mới làm xong nhờ các Bạn test dùm ... Ai đam mê Delphi vào link trên tìm là thấy Code Mẫu he
Nó như cái DLL @Nguyễn Duy Tuân chỉ đó thôi chỉ khác thêm mấy cái Hàm kết nối qua COM .... hehehehe

Giỏi hỉ Hihihi

 

[Kiều Mạnh]

Giỏi hỉ Hihihi

Vọc vài ngày coi sao xong viết cái customUI trên VBA tạo sẳn hết xong ghép nó vào Delphi chứ làm tay chắc chết quá

 

[thuyyeu99]

Vọc vài ngày coi sao xong viết cái customUI trên VBA tạo sẳn hết xong ghép nó vào Delphi chứ làm tay chắc chết quá

Tạo được menu là ổn lắm rồi, bay giờ còn tạo event workbook nữa là đẹp hihi

 

[Kiều Mạnh]

Tạo được menu là ổn lắm rồi, bay giờ còn tạo event workbook nữa là đẹp hihi

Mò đi xong chỉ mạnh với
Còn cái menu thực ra mạnh có code mẫu lâu rồi có điều chưa thật sử để ý tới nó .... bất chợt có thớt này nhớ lại mới làm sáng nay thôi
Cơ bản vậy là xong he

 

[thuyyeu99]

Mò đi xong chỉ mạnh với
Còn cái menu thực ra mạnh có code mẫu lâu rồi có điều chưa thật sử để ý tới nó .... bất chợt có thớt này nhớ lại mới làm sáng nay thôi
Cơ bản vậy là xong he

Anh còn trang nào hay nữa không

 

[Kiều Mạnh]

Mạnh đang suy nghĩ lúc nào rảnh viết chuẩn lại thành 2 Unit khi nào viết Cái DLL nào cần thiết thì Uses nó vào là xong hay cứ Uses sẳn vào đó thì Cũng ko tốm kém mấy dung lượng vậy là ta được 2 cái trong 1

1/ Thư viện hàm API
2/ Menu xài khi cần thiết ( Viết các hàm chuẩn nhất vào đó )
....
quá trình học tập cải tiến và viết thêm code vào 2 Unit đó là ok
cứ thế mài dùi đục mài diết có ngày thành cái kim he

thong thả có nhiều trang hay ....