Kết quả 1 đến 5 của 5

Chủ đề: Xin giúp đỡ code làm addin hiện workbook

  1. #1
    thuthuy1991 Guest

    Xin giúp đỡ code làm addin hiện workbook

    Xin các bạn giúp đỡ code như tiêu đề.
    Mình có đoạn code sau dùng để hide workbook rồi.
    GIờ mình muốn làm ngược lại, tức là unhide workbook đóng (dùng phím tắt Ctrl+shift+Y) (mở ra hộp để chọn những workbook bị ẩn).

    Mã:
    Sub Macro1()'
    ' Macro1 Macro
    '
    ' Keyboard Shortcut: Ctrl+y
    '
        ActiveWindow.Visible = False
    End Sub
    Các bạn cho mình xin đoạn code để lồng vào macro1 của mình ở trên.
    Xin cảm ơn các bạn!

  2. #2
    tuan.it89 Guest
    Code để hiện Wb thì như dưới đây, bạn tùy biến ghép vào nhé

    Mã:
    Sub Test()
        Dim Wb As Workbook
        For Each Wb In Application.Workbooks
            Windows(Wb.Name).Visible = True
        Next
    End Sub

  3. #3
    phimlen1 Guest
    Trích dẫn Gửi bởi dhn46
    Code để hiện Wb thì như dưới đây, bạn tùy biến ghép vào nhé

    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Mình cảm ơn bạn!
    Code của bạn mình mở 1 cái nó ra tất các sheet ẩn bạn ạ.
    Mình muốn nó hiện lên 1 cái hộp như hình mình đính kèm được không bạn.
    Hoặc 1 list danh sách cũng được.
    Xin cảm ơn bạn!

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi kbw1
    Mình cảm ơn bạn!
    Code của bạn mình mở 1 cái nó ra tất các sheet ẩn bạn ạ.
    Mình muốn nó hiện lên 1 cái hộp như hình mình đính kèm được không bạn.
    Hoặc 1 list danh sách cũng được.
    Xin cảm ơn bạn!
    Cái đỏ đỏ là bạn viết nhầm hay code nhầm thế [IMG]images/smilies/a43.gif[/IMG]?

    Việc đưa vào 1 list thì bạn vặn vẹo code trên 1 chút, căn bản bạn phải biết sử dụng Form như list box, combobox, text box .... tốt nhất là List box bạn tự tìm hiểu. Tôi ví dụ đoạn code hiện Wb ẩn trong Msgbox cho bạn tham khảo và tùy biến

    Mã:
    Sub Test()
        Dim Wb As Workbook
        For Each Wb In Application.Workbooks
            If Windows(Wb.Name).Visible = False Then
                MsgBox Wb.Name
            End If
        Next
    End Sub

  5. #5
    nhq1993 Guest
    Trích dẫn Gửi bởi dhn46
    Cái đỏ đỏ là bạn viết nhầm hay code nhầm thế [IMG]images/smilies/a43.gif[/IMG]?

    Việc đưa vào 1 list thì bạn vặn vẹo code trên 1 chút, căn bản bạn phải biết sử dụng Form như list box, combobox, text box .... tốt nhất là List box bạn tự tìm hiểu. Tôi ví dụ đoạn code hiện Wb ẩn trong Msgbox cho bạn tham khảo và tùy biến

    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Do mình diễn đạt sai ý gây hiểu nhầm.
    Cảm ơn bạn đã giúp đỡ!

    Tùy biến hộp listbox mình chịu rồi bạn ạ.
    Thôi mình dùng tạm code trên của bạn vậy.
    Hiện tất ra cũng được.

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •