Sinh nhật Web 10/8/2010

Chúc tất cả Quý thầy cô có một ngày làm việc hiệu quả!
Hãy cùng nhau chia sẻ thông tin quý thầy cô nhé!
Cảm ơn bạn đã ghé thăm!

Tài nguyên dạy học

Thống kê

  • truy cập   (chi tiết)
    trong hôm nay
  • lượt xem
    trong hôm nay
  • thành viên
  • Khách vào nhà

    3 khách và 0 thành viên

    Mail liên hệ

    Website Hồ Việt Cảnh
    Mail: vietcanhthcslp@gmail.com
    ĐT: 0977777921
    Cảm ơn bạn đã ghé thăm

    HOA DẠI

    Quản trị web chúc các bạn vui vẻ nha !

    Chào mừng ngày Nhà giáo Việt Nam 20/11. Chúc quý thầy cô vui vẻ, hạnh phúc bên đàn em thân yêu!

    tao nut nhan cho exel.doc

    Wait
    • Begin_button
    • Prev_button
    • Play_button
    • Stop_button
    • Next_button
    • End_button
    • 0 / 0
    • Loading_status
    Nhấn vào đây để tải về
    Báo tài liệu có sai sót
    Nhắn tin cho tác giả
    (Tài liệu chưa được thẩm định)
    Nguồn:
    Người gửi: Hồ Việt Cảnh (trang riêng)
    Ngày gửi: 13h:00' 28-09-2012
    Dung lượng: 78.0 KB
    Số lượt tải: 12
    Số lượt thích: 0 người
    Tai trang chu exel, bấm Alt + F11, copy đoạn cod sau dan vao Mudul (chon Insert – Mudul)
    Bấm Alt + Q để thoát.

    Sub Link2Sh()   With ActiveSheet     With Sheets(.Shapes(Application.Caller).AlternativeText)       .Visible = True: .Select     End With     .Visible = 2   End With End Sub 

    Thấy các bạn thường xuyên hỏi về chủ đề này và trên diễn đàn cũng đã có rất nhiều giải pháp thực thi nhưng hầu hết đều dùng vòng lập FOR Hôm nay tôi hướng dẩn các bạn làm 1 file thuộc dạng này nhưng với các bước thao tác và code cực kỳ đơn giản! 1> Viết code Hãy viết code trước để các bước chuẩn bị sau này được thuận tiện hơn Chèn code này vào Module
    PHP Code:
    Sub Link2Sh()   With ActiveSheet     With Sheets(.Shapes(Application.Caller).AlternativeText)       .Visible = True: .Select     End With     .Visible = 2   End With End Sub 
    2> Các bước chuẩn bị - Giả sử các bạn đã có 1 file gồm nhiều sheet, hãy chèn thêm 1 sheet và đặt tên là Trang chủ - Tại sheet Trang chủ này, hãy vẽ các Button bằng công cụ Drawing Object - Click phải vào Button, chọn Add Text và gõ nhản tùy ý - Click phải vào Button, chọn Format AutoShape, chuyển sang tab Web và gõ tên sheet cần link vào khung Alternative text (bước này vô cùng quan trọng)  - Click phải vào Button, chọn Assign Macro và double click vào tên sub Link2Sh  - Thực hiện thao tác trên cho tất cả các Button trên sheet Trang chủ - Vẽ Button ở các sheet con và thực hiện các thao tác như trên đối với các Button này -------------------------- Vậy là xong! Giờ hãy bấm nút và... tận hưởng thành quả (Xem file đính kèm) -------------------------- Lưu ý: Bạn có thể vẽ Button bằng bất cứ công cụ nào nhưng nhất định không được dùng các object c
     
    Gửi ý kiến