Lớp học GPE tháng 10 - TPHCM: Conditional Formatting và Data Validation (tối 4, 6/10) | Excel cơ bản (tối 9, 11, 13/10) |
Thuần thục các hàm dò tìm (tối 10, 12/10) | Tất tần tật về PivotTable (tối 16, 18, 20/10) |
Tất tần tật về Filter và Advanced Filter (tối 23, 25/10) | Name động và biểu đồ (tối 24, 26, 28/10)

Đăng ký học Khởi đầu cùng Google Spreadsheet - 2 chủ nhật 1 và 8/10 - TPHCM

Đăng ký học Xây dựng ứng dụng Form bằng VBA - 2 chủ nhật 15 và 22/10 - TPHCM

Đặt tên cho Sheet

Thảo luận trong 'Lập Trình với Excel' bắt đầu bởi ThuNghi, 30 Tháng mười 2006.

  1. ThuNghi

    ThuNghi Hãy cho rồi sẽ nhận!

    Nhờ các bạn chỉ giúp:
    Tôi có file NKC, tôi đã tạo mỗi số cái là 1 sheet mang ký hiệu 111, 112, 113... từ file NKC (và theo CDPS).
    - Giúp tôi viết 1 sub để thông báo là sheet mang tên x đã có rồi, xin bạn tạo Sheet khác, (như trên tôi đã tạo SC 111 rồi, mà tạo thêm lần nữa thì sẽ trùng tên => Msg).
    - Và tạo một sheet tổng hợp chỉ ra bảng tính này có bao nhiêu SC (Sh.) để in thành trang tổng hợp, sổ này có những sổ cái TK nào.
    Cám ơn
     
  2. nvson

    nvson Geotechnics

    Chức năng này trong Excel đã có sẵn rồi, bạn không thể tạo được 2 sheet có cùng tên đâu.

    Bạn thử code sau:
    Mã:
    Public Sub Sheet_List()
    Dim i As Byte
    i = 1
    Cells(i, 1) = "So Sheet trong file"
    For Each Sheet In Worksheets
        i = i + 1
        Cells(i, 1) = Sheet.Name
    Next
    End Sub
    
     
    Lần chỉnh sửa cuối: 30 Tháng mười 2006
  3. ThuNghi

    ThuNghi Hãy cho rồi sẽ nhận!

    Lý do là khi tôi dùng advance filter để tạo 1 sổ chi tiết từ sổ TH, tôi làm 1 macro lấy tên vùng cần filter vd la ô A1 ="xxx" đặt tên cho Sh, khi trùng nó báo lỗi. Muốn chuyên nghiệp hơn khi lấy biến A1="xxx" và kiểm tra tên Sheet, nếu có thì đặt biến khác. Tôi chưa biết cách kiểm tra tên Sheet bằng macro, dạng như là sheet có tồn tại chưa, giúp hộ nhé, cám ơn
     
  4. sundaylight

    sundaylight Thành viên mới

    tổng hợp các sheet trong 1 workbook

    bạn ơi, cho hỏi bỏ đoạn lệnh trên vào chỗ nào để sử dụng được. Cảm ơn.
     
  5. nvson

    nvson Geotechnics

    Bạn vào Excel, nhấn Alt+F11.
    Nhấn Insert/Module
    Rồi paste đoạn code trên vào.
    Nhấn F5 để chạy (trong VBA), nếu ở Excel nhấn Alt+F8...
     
  6. Thien

    Thien Thành viên thường trực

    Hi! bạn.

    Có cách nào trong sheet chứa danh sách các tên sheet trong file có luôn link,để khi nhấp vào tên sheet nào đó thì sẽ di chuyển ngay đến sheet đó.

    Thân chào bạn
     
  7. nvson

    nvson Geotechnics

    Sau khi bạn đã tạo được danh sách các tên sheet rồi, nếu muốn nhấn vào tên sheet nào thì nhảy ngay đến sheet đó bạn sử dụng chức năng Hyperlink (Vào Insert/Hyperlink).
     
  8. nvson

    nvson Geotechnics

    Nếu muốn "chuyên nghiệp" hơn thì sử dụng code sau:
    Mã:
    Sub Sheet_List()
    Dim a, i
    Dim sh1
    i = 1
    Cells(i, 1) = "Cac Sheet trong file:"
    For Each sh1 In Worksheets
        a = sh1.Name
        i = i + 1
        Range("A" & i).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=a & "!A1", TextToDisplay:=a
    Next
    End Sub
    
     
  9. nvson

    nvson Geotechnics

    Đó là do tên sheet có dấu cách (space). Bạn đặt tên sheet không có dấu cách là được.
     
  10. Mainho

    Mainho Thành viên mới

    Cho minh hoi, khi khong muon dung cac module nay nua thi lam sao xoa hoac chinh sua ten cho de nho?
     
  11. nvson

    nvson Geotechnics

    Trong cửa sổ Project - VBA Project (Khung bên trái) trong Microsoft Visual Basic, nhấn phải chuột vào chữ Module1, chọn Remove Module1. Chọn Yes nếu muốn Save hoặc No nếu không muốn Save Module.
     
  12. boyxin

    boyxin Members actively

    Bạn xem file này thế nào? (sản phẩm của anhtuan1066)
    Download File: Menu sheet and Hyperlink

    Bạn có thể Rename, Delete, Insert... sheet (F9 để cập nhật)​
     
    Lần chỉnh sửa cuối: 4 Tháng tư 2008

Chia sẻ trang này