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

Ðề tài: Đặt tên cho Sheet

  1. #1
    Tham gia ngày
    08 2006
    Bài gởi
    3,815
    Cảm ơn
    4,143
    Được cảm ơn 4,413 lần trong 2,270 bài viết

    Đặt tên cho Sheet

    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. #2
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    777
    Cảm ơn
    186
    Được cảm ơn 1,196 lần trong 486 bài viết
    - 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).
    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.

    - 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
    Bạn thử code sau:
    Code:
    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
    thay đổi nội dung bởi: nvson, 30-10-06 lúc 01:53 PM

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


  4. #3
    Tham gia ngày
    08 2006
    Bài gởi
    3,815
    Cảm ơn
    4,143
    Được cảm ơn 4,413 lần trong 2,270 bài viết
    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

  5. #4

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

    Trích Nguyên văn bởi nvson
    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:
    Code:
    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
    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.

  6. #5
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    777
    Cảm ơn
    186
    Được cảm ơn 1,196 lần trong 486 bài viết
    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...

  7. #6
    Tham gia ngày
    06 2006
    Bài gởi
    329
    Cảm ơn
    182
    Được cảm ơn 108 lần trong 67 bài viết
    Trích Nguyên văn bởi nvson
    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...
    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

  8. #7
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    777
    Cảm ơn
    186
    Được cảm ơn 1,196 lần trong 486 bài viết
    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).

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


  10. #8
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    777
    Cảm ơn
    186
    Được cảm ơn 1,196 lần trong 486 bài viết
    Nếu muốn "chuyên nghiệp" hơn thì sử dụng code sau:
    Code:
    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

  11. #9
    Tham gia ngày
    09 2006
    Nơi Cư Ngụ
    Thái Bình - Quảng Ninh
    Bài gởi
    777
    Cảm ơn
    186
    Được cảm ơn 1,196 lần trong 486 bài viết
    Đó 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.

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


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

Trang 1/2 1 2 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. 1 flie gồm NHIỀU SHEET KHI MÌNH ĐẶT TÊN SHEET THÌ TẠI MỘT CELL SHEET TH CŨNG DOI THEO
    Viết bởi kieu manh trong chuyên mục Hàm và công thức Excel
    Trả lời: 3
    Bài mới gởi: 15-01-13, 10:08 PM
  2. Giúp tôi tự động chuyển dữ liệu từ Sheet 1 sang Sheet 2 khi Sheet 1 thay đổi!
    Viết bởi hoangv75 trong chuyên mục Cơ sở dữ liệu
    Trả lời: 4
    Bài mới gởi: 04-09-12, 03:33 PM
  3. các sheet liên kết với nhau, nếu chuyển dữ liệu sheet này sang sheet khác thì sao?
    Viết bởi khanhnth02 trong chuyên mục Những vấn đề chung
    Trả lời: 3
    Bài mới gởi: 09-06-12, 10:03 AM
  4. lấy dữ liệu từ sheet này lên sheet kia- 2 sheet nằm trong 2 file khác nhau
    Viết bởi ntndvn trong chuyên mục Những vấn đề chung
    Trả lời: 2
    Bài mới gởi: 23-05-12, 12:05 AM

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)]