Các câu hỏi về mảng trong VBA (Array)

[viehoai]

Xin các anh chị giúp đỡ Code Gán các giá trị của một Range là các phần tử của Mãng
Ví dụ: Tôi có các giá trị của Range("A1:A10"). Tôi muốn viết code để gán giá trị của các cells từ A1:A10 là các phần tử của Mãng Arr chẳn hạn.
Xin cảm ơn các anh chị

 

[PacificPR]

Em có 2 vùng dữ liệu (về kích thước bằng nhau). Em dùng hàm Application.Union nối hai vùng đó lại và gán nó vào mảng (Cụ thể trong file đính kèm em thấy không đúng)). Vậy mong Thầy, Anh(Chị) cho em hỏi mình có thể tạo mảng bằng cách như vậy không ạ

 

[befaint]

Em có 2 vùng dữ liệu (về kích thước bằng nhau). Em dùng hàm Application.Union nối hai vùng đó lại và gán nó vào mảng (Cụ thể trong file đính kèm em thấy không đúng)). Vậy mong Thầy, Anh(Chị) cho em hỏi mình có thể tạo mảng bằng cách như vậy không ạ

Khi 2 vùng không liên tục như trường hợp của bạn thì không được.
Bạn kiểm tra: msgbox cot (kết quả =1)
Nếu thay Set eRng = .Range("B6:B18") khi đó Rng là vùng liên lục, và kết quả (1) = (2)

 

[PacificPR]

Khi 2 vùng không liên tục như trường hợp của bạn thì không được.
Bạn kiểm tra: msgbox cot (kết quả =1)
Nếu thay Set eRng = .Range("B6:B18") khi đó Rng là vùng liên lục, và kết quả (1) = (2)

Dạ cám ơn anh. Em đang tập tành viết hàm tìm dữ liệu theo cấu trúc kiểu (Vungdulieu; MaTK;Vungdulieu) nên em định ép 2 vùng đó vào 1 mảng và thực thi trên mảng đó .

 

[befaint]

Dạ cám ơn anh. Em đang tập tành viết hàm tìm dữ liệu theo cấu trúc kiểu (Vungdulieu; MaTK;Vungdulieu) nên em định ép 2 vùng đó vào 1 mảng và thực thi trên mảng đó .

Bạn xét trên 2 mảng cũng được chứ sao.

 

[VetMini]

Định nghĩa của mảng là vùng dữ liệu liên tục.
VBA cho phép bạn chuyển 1 vùng range sang mảng vì nó không đi ngược định nghĩa này. Nếu vùng range của bạn khong liên tục, VBA phải có cách định nghĩa lại cách chuyển biến (map) từ 2 vùng khong liên tục thành 1 vùng liên tục.
Hiện thời thì MS chưa thấy cần thiết phải định nghĩa lại cho nên nó chưa cho phép làm.

Kỹ thuật gần nhất là tạo 1 mảng với 2 mảng
Dim mang(1 to 2) as variant
mang(1) = range1.value
mang(2) = range2.value

Lúc xét mảng thì nhét code, hễ hết mang(1) thì chuyển sang mang(2)
(code như thế nào thì phải tuỳ cách dùng)

 

[PacificPR]

Định nghĩa của mảng là vùng dữ liệu liên tục.
VBA cho phép bạn chuyển 1 vùng range sang mảng vì nó không đi ngược định nghĩa này. Nếu vùng range của bạn khong liên tục, VBA phải có cách định nghĩa lại cách chuyển biến (map) từ 2 vùng khong liên tục thành 1 vùng liên tục.
Hiện thời thì MS chưa thấy cần thiết phải định nghĩa lại cho nên nó chưa cho phép làm.

Kỹ thuật gần nhất là tạo 1 mảng với 2 mảng
Dim mang(1 to 2) as variant
mang(1) = range1.value
mang(2) = range2.value

Lúc xét mảng thì nhét code, hễ hết mang(1) thì chuyển sang mang(2)
(code như thế nào thì phải tuỳ cách dùng)

Cám ơn thầy cho em hiểu thêm kiến thức về mảng. Lúc đầu em nhầm tưởng dùng hàm Union gép lại thì tạo được 1 vùng liên tục

 

[PacificPR]

Bạn xét trên 2 mảng cũng được chứ sao.

Ý định của em là muốn bớt cái tArr cho nhẹ bớt như trong file đính kèm. Anh sửa hộ em với

 

[befaint]

Ý định của em là muốn bớt cái tArr cho nhẹ bớt như trong file đính kèm. Anh sửa hộ em với

Bạn để ý thêm:
- Nếu vùng chọn là 1 cell thì sao?
- Nếu vùng chọn nhiều hơn 1 cột, nhiều hơn 1 hàng thì sao?
- Có cần phải xoay lại vùng về chiều đứng không?
- Nếu vùng chọn là nhiều hàng, nhiều cột thì mặc định bạn chọn hàng 1 (cột 1) chẳng hạn, và xét các phần tử ở 2 vùng khi cùng chỉ số.

 

[VetMini]

Trường hợp của bạn tôi nghĩ có lẽ dùng kỹ thuật 1 mảng lớn liên tục là DỄ NHẤT.

1. Tìm số dòng tổng cộng.
2. Lúc copy từ range1 ra mảng copy dư thêm luôn tất cả số dòng
3. copy từ range2 ra 1 mảng tạm
4. copy mảng tạm vào phần dư trên mảng chính.

Tôi nhớ hình như thớt này đã có bài như thế rồi. Bạn chịu khó tìm. Nếu không thấy thì tôi nghĩ khả năng bạn viết code này không khó.

 

[PacificPR]

Trường hợp của bạn tôi nghĩ có lẽ dùng kỹ thuật 1 mảng lớn liên tục là DỄ NHẤT.

1. Tìm số dòng tổng cộng.
2. Lúc copy từ range1 ra mảng copy dư thêm luôn tất cả số dòng
3. copy từ range2 ra 1 mảng tạm
4. copy mảng tạm vào phần dư trên mảng chính.

Tôi nhớ hình như thớt này đã có bài như thế rồi. Bạn chịu khó tìm. Nếu không thấy thì tôi nghĩ khả năng bạn viết code này không khó.

Dạ . Trước em làm theo cấu trúc hàm VLOOKUP (được có 1 chiều thôi ạ). Nhưng thấy cấu trúc hàm Sumif hay hay nên thử xem có được không
Cám ơn thầy nhiều. Rất mong được sự giúp đỡ từ thầy./

 

[VetMini]

Code Vlookup nhiều vùng nè:

' hàm sử dụng VLookup để tìm trên nhiều ranges
' lưu ý là hàm được đơn giản hoá, khong có các code trắc nghiệm sự hợp lý của tham số
' tham số:
' vl: trị cần tìm
' rgs: mảng các ranges
' col: cột cần trả về
' khong có tham thứ tư vì tìm từng range khong thể thực hiện theo kiểu tìm khoảng (1, -1)
' nếu muốn tìm kiểu này bắt buộc phải chập các ranges lại và sắp xếp tăng/giảm dần

Function MRVLookup(byVal vl, byVal rgs, byVal col)
Dim rg as range
For each rg in rgs
MRVLookup = Application.Vlookup(vl, rg, col, 0)
If Not IsError(MRVLookup) Then Exit Function
Next rg
End Function

' code gọi hàm
ketqua = MRVLookup(tricantim, Array( Sheet1.Range("A1:C10"), Sheet1.Range("A100:C150"), Sheet2.Range("B1:D10") ), 3)
If Not IsError(ketqua) Then

 

[ndu96081631]

Em có 2 vùng dữ liệu (về kích thước bằng nhau). Em dùng hàm Application.Union nối hai vùng đó lại và gán nó vào mảng (Cụ thể trong file đính kèm em thấy không đúng)). Vậy mong Thầy, Anh(Chị) cho em hỏi mình có thể tạo mảng bằng cách như vậy không ạ

Làm vầy nè:

Function BigRange(ByVal SrcRng As Range) As Range
  Set BigRange = Range(Replace(SrcRng.Address, ",", ":"))
End Function
Sub Taomang2()
  Dim SRng As Range, eRng As Range
  Dim Rng As Range, hang As Long, Cot As Long
  Dim sArr
  With Sheet1
    Set SRng = .Range("A6:A18"): Set eRng = .Range("C6:C18")
    Set Rng = BigRange(.Range(SRng, eRng))
    sArr = Rng.Value
    hang = UBound(sArr, 1): Cot = UBound(sArr, 2)
    .Range("I6").Resize(hang, Cot) = sArr
  End With
End Sub

 

[AutoReply]

Làm vầy nè:

    hang = UBound(sArr, 1): Cot = UBound(sArr, 2)

anh ơi, chữ 'hang" có nghĩa là gì ạ ?

 

[ndu96081631]

anh ơi, chữ 'hang" có nghĩa là gì ạ ?

"hang" đó của ông kia, đâu phải của tôi. Tôi chỉ có cái BigRange thôi

 

[VetMini]

Code tạo một mảng lớn liên tục từ 2 ranges

' có 2 ranges, rg1 và rg2. Tạo một mảng lớn với dữ liệu từ 2 ranges này
Dim mang, mangPhu
Dim soCot as Long, soDong as Long, i as Long, j as long
soCot = Application.Max(rg1.columns.count, rg2.columns.count) ' số cột bắt buộc phải là số lớn giữa 2 ranges
soDong = rg1.rows.count + rg2.rows.count ' số dòng là tổng 2 ranges
mang = rg1.Resize(soDong, soCot).Value ' chép rg1 vào mảng, với số dòng dư
mangPhu = rg2.Resize(, soCot).Value ' chép rg2 vào mảng phụ
soDong = rg1.rows.count ' bắt đầu chép mảng phụ vào mảng chính
For i = 1 to rg2.rows.count
  soDong = soDong + 1
  For j = 1 to soCot
    mang(soDong, j) = mangPhu(i, j)
  Next j
Next i

 

[PacificPR]

anh ơi, chữ 'hang" có nghĩa là gì ạ ?

Cái Chị này toàn chọc quê thôi (Xinh gái mà ác ghê ). Cám ơn các Thầy, Anh qua đây em biết thêm được nhiều về mảng trong VBA

 

[VetMini]

Ủa cái tên "Lười Biếng Nhấc Máy" ấy là phụ nữ hở? còn phya mới tin.

@LBNM: ndu không thường dùng tiếng Tây nên hang có nghĩa là Tùy Chọn : { "hang", "háng", "hàng", "hãng", "hạng" }
Nếu gặp mấy người hay viết Đía Ồn thì hang có nghĩa là treo, và cot có nghĩa là cái giường em bé

 

[tueyennhi]

Cho em hỏi có câu lệnh nào để kiểm tra trong một mảng có chứa giá trị là số hay không ? Tạm thời em dùng phương thức Find.

 

[phuyen89]

Cho em hỏi có câu lệnh nào để kiểm tra trong một mảng có chứa giá trị là số hay không ? Tạm thời em dùng phương thức Find.

+ Nếu bạn đầu, khai báo mảng có kiểu dữ liệu rõ ràng, thì đã biết.
+ Nếu khai báo mảng không đi kèm kiểu dữ liệu, thì mình thường dùng vòng lặp duyệt qua các phần tử của mảng.Để kiểm tra số mình sẽ dùng Isnumeric function để kiểm tra.

 

[NguyenNgocThuHien]

+ Nếu bạn đầu, khai báo mảng có kiểu dữ liệu rõ ràng, thì đã biết.
+ Nếu khai báo mảng không đi kèm kiểu dữ liệu, thì mình thường dùng vòng lặp duyệt qua các phần tử của mảng.Để kiểm tra số mình sẽ dùng Isnumeric function để kiểm tra.

Hàm isnumber sẽ không đảm bảo chính xác.

MsgBox IsNumeric("123")