Add-Ins: User Form VBA As TaskPane

Chia sẻ bởi:hands

★★★★★

‹ Cách tính nhập xuất tồn bằng VBA? Tạo ngăn tác vụ – TaskPane cho... ›

Quảng cáo

1/ Khai Hoang và mở đường chủ đề sau ( Chi tiết và quá trình thực hiện … )
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/ Ứng dụng đã hoàn thiện và trưng bày
www.giaiphapexcel.com/diendan/threads/addins-taskpane-explorer-cho-ms-office-excel-word-access-powerpoint-outlook.163842/

3/ Trưng bày và giới thiệu chủ đề này

*** Hổ trợ Nhúng User Form VBA vào TaskPane bao gồm Ms Office : Excel – Word – Access – PowerPoint – Outlook
*** Hổ trợ kéo thả và di chuyển User Form trong giao diện Excel

4/ Giao diện phẳng Như sau TaskPane

5/ Giao diện kéo lên trên nền Excel

7/ User Form VBA chính là nơi Bạn thể hiện Tài Năng Or Khả năng của chính Bạn ….
Còn TaskPane chỉ là Tools hổ trợ Bạn thể hiện tài năng chủa chính Mình

8/ Code đơn giản hóa như sau … chỉ cần Viết 1 Hàm phụ xong truyền các tham số vào sử dụng cho nhiều Form khác
Vì Tôi làm biếng Viết nên làm vậy còn ai không thích viết thật nhiều Sub vào cho màu mè :p

Rem ==========
Rem References VBAProject ....VBTaskPane.ocx
Dim CTP As New VBTaskPane.cTaskPane
Dim CP As Object
Dim ufmExample As UserForm3
Rem ==========
Private Sub ShowHideTaskPane(ByVal UserForm As Object, ByVal ShowHide As Boolean)
    On Error Resume Next
    Rem Xu ly loi khi chua Show ma Hide truoc Or bam linh tinh
    Rem ==========
    If Not UserForm Is Nothing Then
        If ShowHide Then
            UserForm.Show vbModeless
            Set CP = CTP.Add("My Caption User Form VBA")    ''Add Caption
            CP.DockPosition = msoBarLeft                    ''ben trai
            Rem CT.DockPosition = msoBarRight               ''ben phai
            CP.Visible = True
        Else
            CP.Visible = False
        End If
     End If
End Sub
Rem ==========
Sub ShowHideTaskPane_Show()
    Set ufmExample = New UserForm3
    Call ShowHideTaskPane(ufmExample, True)
End Sub
Rem ==========
Sub ShowHideTaskPane_Hide()
    Set ufmExample = New UserForm3
    Call ShowHideTaskPane(ufmExample, False)
End Sub
Rem ==========

Là Bản Demos cho Free và không giới hạn sử dụng

Như thường lệ là đọc kỹ hướng dẫn sử dụng trước khi dùng

1/ Bạn phải có quyền Admin trên PC đó

2/ Tùy theo ai đó sử dụng Office 32 bit thì dùng file VBTaskPane32.ocx còn 64 thì dùng File VBTaskPane64.ocx

3/ dê chuột vào file *.ocx xong kéo File *.ocx thả vào file *.VBS xong chọn Yes

4/ Nếu sau khi đăng ký mà thay đổi Folder lưu file *.ocx thì thực hiện lại

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