Tạo ngăn tác vụ - TaskPane cho Excel và kết nối Control OCX

[Kiều Mạnh]

Mô tả sơ lược hình thành và tham khảo

1/ bỏ đi sau nhiều năm không đụng tới từ chủ đề sau

#HookLab - Tạo cửa sổ TaskPane / ActionPane bằng UserForm

Gửi tặng các bạn mã nguồn để tạo cửa sổ TaskPane / ActionPane (cửa sổ phụ) trong excel bằng UserForm. Ghi chú : Cửa sổ con di chuyển trong phạm vi bên trong và di chuyển theo cửa sổ cha của nó. + Màu cam : Cửa sổ ông nội XLMAIN + Màu đỏ : Cửa sổ cha XLDESK + Màu tím : Cửa sổ con EXCEL7 Giải...

www.giaiphapexcel.com

2/ do nhu cầu cần dùng tới mới lục ra xem lại và tham khảo nguồn sau của tây

Create excel CustomTaskPane in delphi (add-in)

How to create a simple customtaskpane using Delphi without add-in express and add customtaskpane to excel. Taskpane will have 1 button(close ) procedure TMyAddin.OnConnection(const Application:

stackoverflow.com

3/ Tài liệu + nguồn viết TasKpane trên C#, VBNet,c++, VB6 .......... và chỉ dẫn của Ms tràn ngập không gian mạng

4/ sử dụng AddIns của bên thứ 3 như

Delphi - Excel Automation add-ins and user-defined functions (UDF)

6 easy steps to develop Excel Automation add-ins or UDF in Delphi. Your user-defined functions will work in all versions of Excel 2002 through 2021/365.

www.add-in-express.com

Hoặc của thành viên GPE này BSAC.ocx - Nguyễn Duy Tuân
.....
5/ Tài liệu cho Delphi gần như không có chỉ duy nhất link trên chỉ dẫn 1 cách à ơi vài dòng đó

Giới thiệu MyTaskPane.ocx

Hôm nay tôi giới thiệu tới ai đó 1 TaskPane do chính Tôi viết và không lệ thuộc bất cứ thư viện của bên thứ 3 nào cả
bên cạnh đó sẽ từng bước xuất các hàm người dùng nó tạo TaskPane cho VBA ..........

1/ xuất Hàm CreateCTP là hàm tạo kết nối COM tới control OCX do người dùng tự viết
VD trên VB6 hay bất cứ ngôn ngữ nào có hổ trợ COM theo tiêu chuẩn của Ms

dưới đây là VD cho VB6 ... từ VB6 bạn tạo 1 Control OCX theo hình sau



Lưu ý:

1/ khoanh màu xanh là tên dự án *.OCX của bạn
2/ khoanh màu đỏ là tên Control của bạn
3/ Còn khoanh màu nâu là nơi Bạn thể hiện tài năng Or Khả năng của chính Bạn .... nó sẽ show ra cửa sổ TaskPane

Code sử dụng cho VB6 như sau

Sub ShowTaskPane_VB6()
    Set CTP = CreateObject("MyTaskPane.cTaskPane")          ''Tao ket noi qua COM AddIns Delphi
    With CTP.CreateCTP("VB6.UserControl1", "My Caption")    ''Su dung Control VB6
        .DockPosition = msoCTPDockPositionRight
        .Visible = True
   End With
   Set CTP = Nothing
End Sub

Để test thử Taskpane do Tôi đang mày mò viết nó sẽ Show ra thì code như sau

Sub ShowTaskPane2()
    Set CTP = CreateObject("MyTaskPane.cTaskPane")
    With CTP.CreateCTP("MyTaskPane.TaskPane", "My Caption") ''Su dung Control Delphi
        .DockPosition = msoCTPDockPositionRight
        .Visible = True
   End With
   Set CTP = Nothing
End Sub

hình ảnh sẽ như sau và tùy chỉnh với các tham số kéo thả + khóa + Show Hide từ VBA




Hướng dẫn sử dụng

1/ Tùy theo bạn đang sử dụng cho Office32 bit hay 64 bit thì đăng ký OCX theo 32 hay 64 ( MyTaskPane.OCX )
Kéo thả File MyTaskPane.OCX vào File *.VBS xong Chọn Yes
2/ Tạo 1 dự án OCX của bạn như mô tả cho VB6 ở trên hay bất cứ ngôn ngữ nào có hổ trợ COM tạo OCX
3/ đăng ký OCX của chính bạn và sử dụng
4/ khi đăng ký thành công mà thay đổi đường dẫn lưu nó thì thao tác lại từ đầu

sau đây là bản demos thử nghiệm và từng bước tôi sẽ viết thêm hàm người dùng + điều chỉnh + Fix lỗi lại cho phù hợp

đính kèm là code mẫu VB6 ... Chúc mừng năm mới theo tết Tây

 

[tanldmonkey]

Có soft .exe bấm phát tự đăng ký OCX không bạn.

 

[Kiều Mạnh]

Có soft .exe bấm phát tự đăng ký OCX không bạn.

Tùy vào nhu cầu sử dụng và khả năng của bạn như code File VBS bài số 1 ấy Copy viết lại chút cho vào Exe + cái Path của DLL nữa là xong

Ví dụ như code bài số 1 tôi mới thử cho thêm 1 dòng code nữa thôi là sử dụng TaskPane cho Excel + Word .... nếu thích nữa thêm Access + số còn lại trong bộ Office



Tôi lại thêm 1 dòng code nữa nó bay vào Access thôi ... bài số 1 mục số 1 thớt bên kia ấy VB6 làm hết rồi ... qua Delphi nó y vậy à

 

[Kiều Mạnh]

Rảnh Tôi mới thử thêm 1 từ nữa vào code thế là nhảy vào PowerPoint

chỉ 1 từ màu đen này thôi PowerPoint



Sẽ cho thêm từ Outlook nữa cho nó chọn bộ

 

[Kiều Mạnh]

Tôi đã hoàn thành thiết kế 1 cổng COM kết nối cho TaskPane và Úp lên github.com

Cách sử dụng như bài số 1......... code mẫu như sau

Sub ShowTaskPane_DriverTaskPane()
    Dim CTP As Object
    Set CTP = CreateObject("DriverTaskPane.cTaskPane")
    With CTP.CreateCTP("MyTaskPane.TaskPane", "My Caption") ''MyTaskPane.TaskPane = Su dung Control Delphi Or Cua Ban
        .DockPosition = msoCTPDockPositionRight
        .Visible = True
   End With
   Set CTP = Nothing
End Sub

Hổ trợ Sử dụng cho Ms Office : Excel - Word - Access - PowerPoint - Outlook

Sử dụng tốt cho tất cả các ngôn ngữ lập trình khác có hổ trợ COM theo tiêu chuẩn của Ms và Tạo UserControl.OCX

Xong giai đoạn 1

chuyển giai đoạn 2

Sẽ khó khăn rất nhiều xuất hàm người dùng sử dụng cho VBA .... nếu thành công tôi sẽ đặt cho nó cái tên AddIns TaskPane Cho Excel

Link tải DriverTaskPane.dll

Downloads

 

[Kiều Mạnh]

File bài số 5 sử dụng cho Ms Office : Excel - Word - Access - PowerPoint - Outlook

 

[Kiều Mạnh]

Lưu vào đây để nhớ Họ lấy xx của Folder xong gán vào TaskPane tạo ra Explorer Taskpane

Với phương pháp đó Add UserFrom VBA vào TaskPane .... kiểu gần như mục số 1 của bài số 1 .... đại ý thế

Với phương pháp trên Mục 1 bài số 1 Áp dụng Add cái Folder vào xem tình hình có ra hay không
dài dài đây

Why does the class name for Explorer change depending on whether you open it with /e? - The Old New Thing

Compatibility, of course.

devblogs.microsoft.com

 

[Kiều Mạnh]

không phá tan xác nó ra thì sẽ ko bao giờ ra cả ... mới thử nhúng 1 cái vào TaskPane

 

[Kiều Mạnh]

đang nháp thử chiếu cái Video chút thôi ... không nghĩ rằng tôi bày ra nhiều trò chơi thật

Nói thật là Delphi rất dễ thương

Liên kết: https://youtu.be/EtYGMQaYogo

 

[Kiều Mạnh]

không có đồ chơi thì vẽ ra mà chơi chứ ...sao mà rảnh cứ vặn vẹo suông âu cũng là thói quen không tốt

 

[Kiều Mạnh]

rảnh tôi đang phá các kiểu xem nó ra cái gì ... thì nó ra cái này

 

[Kiều Mạnh]

Cơ bản đã khai phá mở đường tạm xong ... mấy trăm năm trước Nguyễn Hữu Cảnh khai phá ra Miền Nam - Việt Nam

Tôi sẽ viết Tặng ai đó yêu thích 1 AddIns TaskPane Explorer Window - Truy xuất Folder và File từ TaskPane

Tạm keo như hình sau .... Free Tuyệt đối luôn

 

[Kiều Mạnh]

quyết định thiết kế TaskPane Explorer theo phong cách sau

Thân thiện và dễ sử dụng nhất cho người dùng Excel và sẽ cho Free sâu và rộng cho dân dùng Excel ai thích thì dùng

sau khi Fix lỗi mọi vấn đề xong sẽ úp cho Free không cá nhân hóa bất cứ cái gì lên Web quốc tế luôn

Liên kết: https://youtu.be/aX8BvWUyljA

 

[cantl]

Cái này khi mở 2 book thì nó sẽ độc lập hay chỉ có 1 cái thôi bạn nhỉ?
Mục đích là khi mở book khác nhìn taskpane sẽ biết luôn vị trí của file ấy.

quyết định thiết kế TaskPane Explorer theo phong cách sau

Thân thiện và dễ sử dụng nhất cho người dùng Excel và sẽ cho Free sâu và rộng cho dân dùng Excel ai thích thì dùng

sau khi Fix lỗi mọi vấn đề xong sẽ úp cho Free không cá nhân hóa bất cứ cái gì lên Web quốc tế luôn

Liên kết: https://youtu.be/aX8BvWUyljA

 

[Kiều Mạnh]

Cái này khi mở 2 book thì nó sẽ độc lập hay chỉ có 1 cái thôi bạn nhỉ?
Mục đích là khi mở book khác nhìn taskpane sẽ biết luôn vị trí của file ấy.

Bản Demos cho For Free không cá nhân hóa và giới hạn sử dụng

1/ Tùy theo ai đó sử dụng Office 32 bit thì dùng file 32 còn 64 thì dùng File 64
2/ Kéo DLL thả vào file *.VBS xong chọn Yes
3/ nếu sau khi đăng ký mà thay đổi Folder thì thực hiện lại
4/ Sau khi Fix lỗi và hoàn thiện sẽ xóa File bài này Úp lên kho Lưu trữ github.com
5/ Hổ trợ Sử dụng cho Ms Office : Excel - Word - Access - PowerPoint - Outlook

Code chung như sau

Rem ********************************************
Dim CTP As Object           ''Tao ket Noi
Dim CT As Object            ''Cho TaskPane
Dim MyControl As Object     ''[ As MyTaskPane = Check ocx ]
Rem ********************************************
Rem ********************************************
Sub ShowTaskPane_MyTaskPane_Example()
    Set CTP = CreateObject("MyTaskPane.cTaskPane")
    Set CT = CTP.CreateCTP("MyTaskPane.TaskPane", "My Caption")
    Rem ****************
    Rem CT.DockPosition = msoCTPDockPositionRight
    CT.DockPosition = msoBarRight               ''ben phai
    Rem CT.DockPosition = msoBarLeft            ''ben trai
    Rem ****************
    CT.Visible = True
    Set CT = Nothing
End Sub

 

[Kiều Mạnh]

Tôi mới thử làm cái Ribbon không ngờ nó nhảy vào Access và Word + ....

 

[Kiều Mạnh]

Chủ đề này Tôi Tạm keo là: Khai hoang và mở đường

ai đó có thể tham khảo chủ đề sau ... Tôi tạm keo là: Trưng bày và giới thiệu

AddIns -TaskPane Explorer Cho: Ms Office : Excel - Word - Access - PowerPoint - Outlook

1/ Khai hoang và mở đường mô tả link sau https://www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-ng%C4%83n-t%C3%A1c-v%E1%BB%A5-taskpane-cho-excel-v%C3%A0-k%E1%BA%BFt-n%E1%BB%91i-control-ocx.163737/ 2/ Trưng bày và giới thiệu chủ đề này 3/ Chủ đề này viết cho các Bạn không biết lập trình...

www.giaiphapexcel.com

 

[UltraExcel]

Mình nhìn thấy cũng hay hay mà không biết ứng dụng vào việc gì trên excel. Đã có Windows Explorer rồi mà nhỉ?

 

[Kiều Mạnh]

Mình nhìn thấy cũng hay hay mà không biết ứng dụng vào việc gì trên excel. Đã có Windows Explorer rồi mà nhỉ?

Tùy theo cách của mỗi người ... Tôi thì thích nó Hổ trợ truy xuất Folder và File ngay trong giao diện Ms Office trực quan và sinh động

quan trọng với tôi là dọn đường viết các ứng dụng khác vào TaskPane và xuất các hàm người dùng tiếp theo

Còn ai đó muốn gì thì tùy vào khả năng của chính mình tiếp theo .... Bài số 1 và số 5

 

[Kiều Mạnh]

khi ai đó sử dụng để ý sẽ thấy cái mục tôi khoanh màu vàng đó có chức năng lọc và tìm kiếm đấy vv...

Cái đó cũng khá thú vị đấy ... ko có chi mà mất cả cứ bấm bấm, nhấp nhấp vào đó xem nó ra cái gì ... ra cái này