Tạo một mảng động gồm tất cả các sheets (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

khuongnguyencm69

Thành viên mới
Tham gia
7/6/16
Bài viết
31
Được thích
5
Chào mấy anh chị.
Em lúc này tập tành viết code, giờ em muốn tạo một mảng arr1 gồm các worksheet trong workbook, mỗi ngày em thêm một sheet, nên khi chạy code nó redim lại và đưa nó vào mảng, mảng này gồm tên tất cả các sheet có trong this workbook, làm sao để tạo 1 mảng như thế được, đã seach nát google mà không có, em không biết mảng này là mấy chiều?vì em cần làm là mảng này sẽ so sánh với mảng 2 chiều. Nếu nó 1 chiều thì so sánh được không??
code em:
Sub arrsheet
dim arr1 as variant
dim i as integer
arr1 = 1
i = sheets().count
redim arr1(i)
end sub

Sao nó không hiểu là mảng này gồm tên các sheet trong thisworksheet này. Mấy anh chị giúp em với!
 
Chào mấy anh chị.
Em lúc này tập tành viết code, giờ em muốn tạo một mảng arr1 gồm các worksheet trong workbook, mỗi ngày em thêm một sheet, nên khi chạy code nó redim lại và đưa nó vào mảng, mảng này gồm tên tất cả các sheet có trong this workbook, làm sao để tạo 1 mảng như thế được, đã seach nát google {1} mà không có, em không biết mảng này là mấy chiều?vì em cần làm là mảng này sẽ so sánh với mảng 2 chiều. Nếu nó 1 chiều thì so sánh được không??
code em:
Sub arrsheet
dim arr1 as variant
dim i as integer
arr1 = 1
i = sheets().count
redim arr1(i)
end sub

Sao nó không hiểu là mảng này gồm tên các sheet trong thisworksheet {2} này. Mấy anh chị giúp em với!

{1} Tôi thì tìm nát google cũng không ra từ seach có nghĩa là gì.

{2} thisworksheet thì nó có tên 1 sheet thôi, làm quái gì có "tên các sheet"

(mần ăn mà gõ cẩu thả thì đương nhiên là code nó không hiểu gì cả)

Cái mảng chứa các sheets là một (object) collection tên là sheets
Cái mảng chứa các worksheets là một (object) collection tên là worksheets
Sheets chứa tất cả các loại sheets, kể cả worksheets. Worksheets chỉ chứa... worksheets
Tên của cái worksheet đầu tiên là Worksheets(1).Name
 
Upvote 0
{1} Tôi thì tìm nát google cũng không ra từ seach có nghĩa là gì.

{2} thisworksheet thì nó có tên 1 sheet thôi, làm quái gì có "tên các sheet"

(mần ăn mà gõ cẩu thả thì đương nhiên là code nó không hiểu gì cả)

Cái mảng chứa các sheets là một (object) collection tên là sheets
Cái mảng chứa các worksheets là một (object) collection tên là worksheets
Sheets chứa tất cả các loại sheets, kể cả worksheets. Worksheets chỉ chứa... worksheets
Tên của cái worksheet đầu tiên là Worksheets(1).Name
À mình gõ là thisworkbook, do tự mày mò nên kiến thức còn nhiều lỗ hỗng, bác thông cảm! Hì
 
Upvote 0
À mình gõ là thisworkbook, do tự mày mò nên kiến thức còn nhiều lỗ hỗng, bác thông cảm! Hì
Tóm lại bạn muốn làm điêu gì? Tạo ra 1 mảng chứa tên các sheet? Rồi làm gì tiếp theo?
Đại khái thế này:
Mã:
Sub Test()
  Dim idx As Long, lCount As Long
  lCount = Sheets.Count
  ReDim arr(1 To lCount)
  For idx = 1 To lCount
    arr(idx) = Sheets(idx).Name
    Debug.Print arr(idx)
  Next
End Sub
Làm gì tiếp tùy bạn. Muốn code có tác dụng trên Thisworkbook hay ActiveWorkbook cũng tùy bạn xử lý
 
Upvote 0
Tóm lại bạn muốn làm điêu gì? Tạo ra 1 mảng chứa tên các sheet? Rồi làm gì tiếp theo?
Đại khái thế này:
Mã:
Sub Test()
  Dim idx As Long, lCount As Long
  lCount = Sheets.Count
  ReDim arr(1 To lCount)
  For idx = 1 To lCount
    arr(idx) = Sheets(idx).Name
    Debug.Print arr(idx)
  Next
End Sub
Làm gì tiếp tùy bạn. Muốn code có tác dụng trên Thisworkbook hay ActiveWorkbook cũng tùy bạn xử lý
Cảm ơn bác rất nhiều, giờ muốn đi học để nâng cao thêm mà ở gần chổ ở không ai dạy hết, tự học thì cái biết nó ít mà còn lộn xộn xà ngầu lắm, các có cuốn sách nào nâng cao giới thiệu em biết, cái cơ bản thì em đã nắm được rồi! hì, cảm ơn bác lần nữa!
 
Upvote 0
Cảm ơn bác rất nhiều, giờ muốn đi học để nâng cao thêm mà ở gần chổ ở không ai dạy hết, tự học thì cái biết nó ít mà còn lộn xộn xà ngầu lắm, các có cuốn sách nào nâng cao giới thiệu em biết, cái cơ bản thì em đã nắm được rồi! hì, cảm ơn bác lần nữa!
Hổng biết cứ lên đây hỏi, vài tháng là "nâng cao" liền
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom