Power Utility Pak (Add-in cho Excel)

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi dat_vuong, 4 Tháng một 2005.

7,237 lượt xem

  1. dat_vuong

    dat_vuong Thành viên sơ cấp

    Bài viết:
    6
    Đã được thích:
    0
    Nơi ở:
    Hanoi
    Power Utility Pak (PUP) là một trong các add-in tuyệt vời giành cho excel. Hiện nay đã có bản PUP v6

    Địa chỉ tham khảo: http://j-walk.com/ss/pup/pup6/features.htm

    Hiện nay Dat_vuong chỉ có version 5 + crack. Nếu ai có version 6 thì làm ơn post lên , hoặc ai cần bản version 5 thì Dat_vuong sẽ nhờ Admin post lên
     
    #1
  2. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    http://j-walk.com/ss/pup/pup6/trial.htm
    Bản trial này có đầy đủ chức năng mà !!! Nhưng làm sao xem code !!! Mua thì $20. Bạn nào mua được thì chia sẻ để cùng nhau tìm hiểu. Quả là Add-In hay.
    Lê Văn Duyệt
     
    #2
  3. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    À, nhân tiện đây nếu bạn muốn sử dụng bản Trial này thì bạn phải sửa một vài thủ tục.
    Ví dụ đây là thủ tục khi bạn mở Add-In :
    Option Explicit
    Private Sub Workbook_Open()
    Dim ai As AddIn
    If phe() = True Then
    ThisWorkbook.Sheets(1).Range("A1") = ""
    SaveSetting PUPNAME, "Settings", "Version", "Expired"
    Else
    SaveSetting PUPNAME, "Settings", "Version", "Trial"
    End If
    If Val(Application.Version) < 9 Then
    MsgBox "Power Utility Pak v6 requires Excel 2000 or later.", vbCritical, PUPNAME
    ThisWorkbook.Close
    End If
    For Each ai In Application.AddIns
    If ai.Name = "power97.xla" Then If ai.Installed Then ai.Installed = False
    If ai.Name = "pup2000.xla" Then If ai.Installed Then ai.Installed = False
    If ai.Name = "pup5.xla" Then If ai.Installed Then ai.Installed = False
    Next ai
    On Error Resume Next
    If GetSetting(PUPNAME, "Settings", "Shortcuts", 0) = 1 Then Workbooks.Open ThisWorkbook.Path & "\" & SCMENUFILE
    If GetSetting(PUPNAME, "Settings", "Bookmarks", 0) = 1 Then Workbooks.Open ThisWorkbook.Path & "\" & BMFILE
    On Error GoTo 0
    Call MakeMenu
    On Error Resume Next
    Application.MacroOptions Macro:="CallMakeMenu", HasShortcutKey:=True, ShortcutKey:="U"
    On Error GoTo 0
    End Sub
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim r As Long, ConfigSheet As Worksheet, LASTROW As Long
    On Error Resume Next
    Set ConfigSheet = ThisWorkbook.Sheets(1)
    With Application
    .CommandBars(1).Controls(MENUNAME).Delete
    .CommandBars(2).Controls(MENUNAME).Delete
    .CommandBars("PUP InfoBox").Visible = False
    .CommandBars("PUP Date Picker").Visible = False
    .ScreenUpdating = False
    Workbooks(SCMENUFILE).Close
    Workbooks(BMFILE).Close
    For r = 2 To LASTROW
    If ConfigSheet.Cells(r, 12) = True Then Workbooks(ConfigSheet.Cells(r, 10).Text).Close
    Next r
    .ScreenUpdating = True
    End With
    End Sub

    Các bạn có thể đọc đoạn mã trên và sửa lại để sử dụng lâu dài.
    Lê Văn Duyệt
     
    #3
  4. nipvnn

    nipvnn www.mintoday.com

    Bài viết:
    362
    Đã được thích:
    1
    Last edited: 5 Tháng một 2005
    #4
  5. quocnghia

    quocnghia Thành viên hoạt động

    Bài viết:
    64
    Đã được thích:
    0
    Ai muon xem code thi tai file nay ve
    Pass : 123
    files kem theo :
     

    Các file đính kèm:

    • pup6.zip
      Kích thước:
      38.6 KB
      Đọc:
      415
    #5
  6. atp

    atp Thành viên sơ cấp

    Bài viết:
    2
    Đã được thích:
    0
    Nơi ở:
    hcm
    #6
  7. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    #7
  8. ForestC

    ForestC Thành viên hoạt động

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Bản của anh đưa lên chỉ để tham khảo một số Function thôi phải không ạ? Nếu bạn nào muốn down về để dùng thử thì dùng cái này đầy đủ hơn nè:
    http://www.j-walk.com/ss/pup/pup6/pup6trial.exe
     
    #8
  9. luckytranquan

    luckytranquan Thành viên hoạt động

    Bài viết:
    31
    Đã được thích:
    0
    Nơi ở:
    HCM
    Sao mình không xài được các chức năng của PUP6, nó cứ báo lỗi. Anh chỉ em làm như thế nào để chữ PUP6 nó hiện trên menu khi Add In nó vào.
    Thanks,
     
    #9
  10. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    To: luckytranquan,
    Báo lỗi gì bạn có thể diễn giải cụ thể các bạn khác mới có thể giúp bạn.
    Chúc bạn khỏe.
    Lê Văn Duyệt
     
    #10
  11. luckytranquan

    luckytranquan Thành viên hoạt động

    Bài viết:
    31
    Đã được thích:
    0
    Nơi ở:
    HCM
    I. Phần báo lỗi mình không nhớ, mình sẽ gởi Duyệt sau
    II. Duyệt cho mình hỏi về Add In tý nhé:
    Mỗi lần mở Add In mẫu của Duyệt mình thấy xuất hiện thêm một nhóm lện trên menu nữa. Mình phải làm sao để khi mình chọn Add In nó thì nó lại xuất hiện thanh menu đó.
    Mình thắt mắt lâu lắm rồi nhưng mình không có thời gian
    Nhờ Duyệt giúp giùm nhé.

    Cảm ơn rất nhiều.
    Duyệt cho mình xin số điện thoại nhé. Hôm nào bọn mình rủ nhau những người yêu thích Excel, kế toán đi uống cafe nhé.

    Thôi mình đi học đây,

    Chúc vui vẻ nhé,
     
    #11
  12. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    II. Xin Bạn đọc bài cách tạo Menu cũng trên trang web này.
    Số điện thọai của mình: 0918452210
    Thân,
    Lê Văn Duyệt
     
    #12

Chia sẻ trang này