Trang 1/5 1 2 3 4 5 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 47
  1. #1

    Wink Hướng dẫn cách tạo menu nút bấm thêm đến nhiều sheet

    Mình thấy bạn Manhhungmhnh gửi xin hỏi diễn đàn cách ẩn hiện menu đến sheet rất hay mình muốn làm như vậy nhưng khi mình thêm các mục nữa thì không biết làm nhờ mọi người hướng dẫn thêm nhé/ cảm ơn nhiều/
    Tập tin đính kèm Tập tin đính kèm

  2. Thành viên sau cảm ơn Manhhungstone về bài viết này:


  3. #2
    Tham gia ngày
    06 2008
    Bài gởi
    24,226
    Cảm ơn
    13,902
    Được cảm ơn 43,163 lần trong 19,519 bài viết
    Trích Nguyên văn bởi Manhhungstone View Post
    Xin hướng mọi người hướng dẫn giùm à/
    Tặng bạn code này:
    PHP Code:
    Sub Main()
      
    ActiveSheet.Buttons.Visible True
    End Sub 
    PHP Code:
    Sub GotoSh()
      
    ActiveSheet.Buttons.Visible False
      ActiveSheet
    .Buttons("Cmd").Visible True
      Sheets
    (ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
    End Sub 
    Việc của bạn là:
    1> Vẽ 1 nút nhấn (nút này là nút nhấn chính), đặt tên cho nó là Cmd (đặt tên bằng cách chọn nút rồi gõ chữ Cmd vào hộp Name Box)... Tiếp theo, click phải vào nó, chọn Assign Macro, chọn macro có tên là Main rồi bấm OK
    2> Vẽ thêm các nút khác, bao nhiều nút tùy ý và:
    a) Gõ nhãn của nút trùng với tên sheet mà bạn muốn liên kết
    b) Click phải vào nó, chọn Assign Macro, chọn macro có tên là GotoSh rồi bấm OK
    ---------------------------
    Từ đây, cứ thêm nút thì hãy làm 2 bước a), b) ở trên là được
    Lưu ý:
    - Nhãn của nút là các ký tự ta gõ trên nút
    - Tên của nút được tạo bằng cách gõ vào hộp Name Box
    - Tên nhãn là hoàn toàn khác nhau
    - Tên của các nút con không được đặt trùng với nút chính (tên gì cũng được, trừ Cmd)
    - Chú ý các bước, đọc kỹ và thao tác chính xác mới cho kết quả đúng
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: ndu96081631, 13-04-10 lúc 08:37 PM

  4. Có 10 thành viên cảm ơn ndu96081631 về bài viết này:


  5. #3
    Cảm ơn bạn nhiều/ cho mình hỏi thêm mình muốn lập một menu chính nữa có tên là sổ tổng hợp và củng khi nhấn vào cũng hiện ra các menu thực đơn để nhấn vào các sheet có tên cùng. nhờ bạn hướng dẫn hộ thêm nhé/ cảm ơn bạn nhiều.
    Tập tin đính kèm Tập tin đính kèm

  6. Thành viên sau cảm ơn Manhhungstone về bài viết này:


  7. #4
    Tham gia ngày
    06 2008
    Bài gởi
    24,226
    Cảm ơn
    13,902
    Được cảm ơn 43,163 lần trong 19,519 bài viết
    Trích Nguyên văn bởi Manhhungstone View Post
    Cảm ơn bạn nhiều/ cho mình hỏi thêm mình muốn lập một menu chính nữa có tên là sổ tổng hợp và củng khi nhấn vào cũng hiện ra các menu thực đơn để nhấn vào các sheet có tên cùng. nhờ bạn hướng dẫn hộ thêm nhé/ cảm ơn bạn nhiều.
    Khó à nha! Vì khi ấy bạn lại phải viết thêm code
    PHP Code:
    Sub Main1()
      
    Dim Bt
      
    For Each Bt In ActiveSheet.Buttons
        
    If InStr(Bt.OnAction"GotoSh1"Then Bt.Visible True
      Next
    End Sub 
    PHP Code:
    Sub Main2()
      
    Dim Bt
      
    For Each Bt In ActiveSheet.Buttons
        
    If InStr(Bt.OnAction"GotoSh2"Then Bt.Visible True
      Next
    End Sub 
    PHP Code:
    Sub GotoSh1()
      
    ActiveSheet.Buttons.Visible False
      ActiveSheet
    .Buttons("Cmd1").Visible True
      ActiveSheet
    .Buttons("Cmd2").Visible True
      Sheets
    (ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
    End Sub 
    PHP Code:
    Sub GotoSh2()
      
    ActiveSheet.Buttons.Visible False
      ActiveSheet
    .Buttons("Cmd1").Visible True
      ActiveSheet
    .Buttons("Cmd2").Visible True
      Sheets
    (ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
    End Sub 
    Nếu thêm bộ "menu" nữa thì lại phải viết thêm 1 "cặp" code tương tự như trên
    Bạn tự nghiên cứu đi
    Tập tin đính kèm Tập tin đính kèm

  8. Có 6 thành viên cảm ơn ndu96081631 về bài viết này:


  9. #5
    mình đã làm theo bạn nhưng mình không biết cách đặt tên vào hộp Name Box cho các nút bấm bấm ở đâu/ nhờ bạn hướng dấn giùm nhé trình độ excel còn non lắm/ cảm ơn bạn nhiều.

  10. #6
    Tham gia ngày
    06 2008
    Bài gởi
    24,226
    Cảm ơn
    13,902
    Được cảm ơn 43,163 lần trong 19,519 bài viết
    Trích Nguyên văn bởi Manhhungstone View Post
    mình đã làm theo bạn nhưng mình không biết cách đặt tên vào hộp Name Box cho các nút bấm bấm ở đâu/ nhờ bạn hướng dấn giùm nhé trình độ excel còn non lắm/ cảm ơn bạn nhiều.
    Xem hình dưới đây nhé

    Nhấp chuột vào hình để phóng to

Name:	untitled..JPG
Views:	748
Size:	39.6 KB
ID:	44381

    (Hy vọng là bạn hiểu và làm tiếp được... Hic...)

  11. Có 4 thành viên cảm ơn ndu96081631 về bài viết này:


  12. #7

    Hướng Dẫn Ẩn hiện Hình ảnh trên thanh menu.

    Nhờ mọi người hướng dẫn có cách nào tạo biểu tượng hình ảnh ẩn và hiện theo thanh nenu đến sheet
    Tập tin đính kèm Tập tin đính kèm

  13. #8
    Tham gia ngày
    06 2008
    Bài gởi
    24,226
    Cảm ơn
    13,902
    Được cảm ơn 43,163 lần trong 19,519 bài viết
    Trích Nguyên văn bởi Manhhungstone View Post
    Nhờ mọi người hướng dẫn có cách nào tạo biểu tượng hình ảnh ẩn và hiện theo thanh nenu đến sheet
    Xem yêu cầu của bạn, tôi đã nghĩ là vô phương rồi... và dù có viết được code chạy cho file này thì cũng sẽ không tùy biến được khi bạn thêm nút
    Tối hôm qua mày mò và không ngờ đã "lượm được bí kiếp" ---> Xin hướng dẩn bạn làm theo 1 cách hoàn toàn mới
    --------------------------------------
    1> Bước 1: Vẽ hình
    Giả sử bạn đã vẽ được các nút như hình:

    Nhấp chuột vào hình để phóng to

Name:	untitled1..JPG
Views:	702
Size:	36.1 KB
ID:	44542

    2> Bước 2: Đánh dấu cho nút
    Click phải vào 1 nút con (có thể chọn 1 lần vừa nút con, vừa hình) rồi bấm Ctrl + 1, chuyển sang tab Web rồi gõ vào khung Alternative text từ khóa theo quy tắc: Tên nút chính:Tên sheet

    Nhấp chuột vào hình để phóng to

Name:	untitled2..JPG
Views:	689
Size:	41.1 KB
ID:	44543


    Lập lại thao tác trên cho tất cả các nút con

    3> Bước 3: Viết code
    Gồm có 2 đoạn:
    PHP Code:
    Sub Main()
      
    Dim Shp As Shape
      With ActiveSheet
        
    For Each Shp In .Shapes
          
    If .Shapes(Application.Caller).AlternativeText _
          Split
    (Shp.AlternativeText":")(0Then Shp.Visible True
        Next
      End With
    End Sub 
    PHP Code:
    Sub GotoSh()
      
    Dim Shp As Shape
      With ActiveSheet
        
    .DrawingObjects.Visible False
        
    For Each Shp In .Shapes
          
    If InStr(Shp.OnAction"Main"Then Shp.Visible True
        Next
        Sheets
    (Split(.Shapes(Application.Caller).AlternativeText":")(1)).Select
      End With
    End Sub 
    4> Bước 4: Assign Macro
    - Quét 1 lần tất cả các nút chính, click chuột phải, chọn Assign Macro rồi chọn macro có tên là Main
    - Quét 1 lần tất cả các nút con, click chuột phải, chọn Assign Macro rồi chọn macro có tên là GotoSh
    ----------------------------------
    Chú ý:
    - Đánh dấu chính xác, nếu gõ chữ vào khung Alternative text dù sai chỉ 1 từ thì code cũng sẽ bị lỗi (đương nhiên, vì code dựa vào đánh dấu này để phân biệt các nút và các nhóm với nhau
    - Với cách làm này, dù bạn có thêm bao nhiêu menu hay bao nhiêu nút con nữa thì code cũng chỉ 2 sub ấy thôi
    Tập tin đính kèm Tập tin đính kèm

  14. Có 4 thành viên cảm ơn ndu96081631 về bài viết này:


  15. #9
    NHờ bạn xem giùm khi mình muốn tạo một menu mới bằng macro để vào sheet chỉ định trên nhưng khi mình nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì nó tự động xoá hết các menu tạo mới của mình/ nhờ mọi người có cách nào khi nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì không bị mất menu mới mình đã tạo( Mình kèm theo File) nhờ mọi người làm hộ/ xin cảm ơn/
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: Manhhungstone, 16-04-10 lúc 05:08 PM

  16. Thành viên sau cảm ơn Manhhungstone về bài viết này:


  17. #10
    Tham gia ngày
    06 2008
    Bài gởi
    24,226
    Cảm ơn
    13,902
    Được cảm ơn 43,163 lần trong 19,519 bài viết
    Trích Nguyên văn bởi Manhhungstone View Post
    NHờ bạn xem giùm khi mình muốn tạo một menu mới bằng macro để vào sheet chỉ định trên nhưng khi mình nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì nó tự động xoá hết các menu tạo mới của mình/ nhờ mọi người có cách nào khi nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì không bị mất menu mới mình đã tạo( Mình kèm theo File) nhờ mọi người làm hộ/ xin cảm ơn/
    Không cần viết thêm sub đâu, sửa lại sub Main 1 chút là được:
    PHP Code:
    Sub Main()
      
    Dim Shp As Shape
      On Error Resume Next
      With ActiveSheet
        
    For Each Shp In .Shapes
          
    If .Shapes(Application.Caller).AlternativeText _
          Split
    (Shp.AlternativeText":")(0Then Shp.Visible True
        Next
        Sheets
    (.Shapes(Application.Caller).AlternativeText).Select
      End With
    End Sub 
    Assign Macro nút Sổ Cái cho sub Main này (chú ý AlternativeText)
    Tập tin đính kèm Tập tin đính kèm

  18. Có 2 thành viên cảm ơn ndu96081631 về bài viết này:


Trang 1/5 1 2 3 4 5 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Xin code menu ẩn hiện sheet bằng checkbox
    Viết bởi vidangtinhyeu99 trong chuyên mục Hỏi đáp về VBA - Macro
    Trả lời: 8
    Bài mới gởi: 16-11-11, 10:11 AM
  2. Em vô tình động đến Menu nào mà file của em tự động tạo ra rất nhiều bản in
    Viết bởi Phanhanhdai trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 2
    Bài mới gởi: 25-03-10, 12:30 PM
  3. Protect sheet cùng với ẩn Menu Tools
    Viết bởi khoa_pr trong chuyên mục Lập Trình với Excel
    Trả lời: 1
    Bài mới gởi: 29-12-09, 07:13 AM
  4. Popup Menu có nhiều dòng trống
    Viết bởi duongsatdn trong chuyên mục Những vấn đề chung
    Trả lời: 2
    Bài mới gởi: 22-07-09, 09:45 AM
  5. How to use ASAP Menu Sheet - Hưpớng dẫn sử dụng menu ASAP Sheets
    Viết bởi ptm0412 trong chuyên mục English - Vietnamese Excel translation
    Trả lời: 7
    Bài mới gởi: 01-03-08, 11:06 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]