Làm theo ý hiểu của bản thân.
Function GetPivot(ByVal Rng As Range)
Dim lr&, i&, j&, k&, col&, t&
Dim res(), KQ()
lr = Rng.Rows.Count
col = Rng.Columns.Count
ReDim res(1 To lr, 1 To 3)
For j = 3 To col Step 2
For i = 2 To lr
If Rng(i, j) <> "" And IsNumeric(Rng(i, j)) Then
k = k + 1
'ReDim Preserve Res(1 to k, 1 to 3)
res(k, 1) = Rng(1, j - 1)
res(k, 2) = Rng(i, 1)
res(k, 3) = Rng(i, j)
End If
Next
Next
ReDim KQ(1 To k, 1 To 3)
For i = 1 To k
If res(i, 1) <> 0 Then
t = t + 1
KQ(t, 2) = res(t, 2)
KQ(t, 1) = res(i, 1)
KQ(t, 3) = res(i, 3)
End If
Next i
GetPivot = KQ
End Function
| Bảng A | ||||||||||||||||||
| Mã liệu | Sản phẩm 1 | Sản phẩm 2 | Sản phẩm 3 | Sản phẩm…n | SF | Mã | SLg | |||||||||||
| A | 1 | Sản phẩm 1 | A | 1 | ={DataTable(A3:I18)} | |||||||||||||
| B | 4 | Sản phẩm 1 | D | 2 | ||||||||||||||
| C | 7 | Sản phẩm 1 | I | 3 | ||||||||||||||
| D | 2 | Sản phẩm 2 | B | 4 | ||||||||||||||
| E | Sản phẩm 2 | F | .5 | |||||||||||||||
| F | 0.5 | Sản phẩm 2 | M | 6 | ||||||||||||||
| G | Sản phẩm 3 | C | 7 | |||||||||||||||
| H | Sản phẩm 3 | I | 8 | |||||||||||||||
| I | 3 | 8 | Sản phẩm 3 | K | .9 | |||||||||||||
| J | Sản phẩm 3 | O | 10 | |||||||||||||||
| K | 0.9 | |||||||||||||||||
| L | ||||||||||||||||||
| M | 6 | |||||||||||||||||
| N | ||||||||||||||||||
| O | 10 | |||||||||||||||||
Function DataTable(Rng As Range)
Dim Arr()
Dim J As Long, W As Integer, Col As Integer
Dim SF As String
Arr() = Rng.Value
ReDim aKQ(1 To Rng.Cells.Count, 1 To 3) As String
For Col = 3 To UBound(Arr(), 2) Step 2
SF = Arr(1, Col - 1)
For J = 2 To UBound(Arr())
If Arr(J, Col) > 0 Then
W = W + 1: aKQ(W, 1) = SF
aKQ(W, 2) = Arr(J, 1): aKQ(W, 3) = Str(Arr(J, Col))
End If
Next J
Next Col
DataTable = aKQ()
End FunctionCảm ơn anh đã xem file. do kích thước của mảng KQ không đủ chứa.
Redim 10 ngàn nhiều quá, mà nếu dữ liệu 3 ngàn dòng thì vẫn không đủ
Ngược lại, code này redim không chỉ hơi dư mà là quá dư (gấp đôi mức cần thiết). Kết quả thì không chém bớt nên lúc nào cũng dư cả cây số.
Trân trọng cảm ơn anh đã khai sáng.
Dùng hàm count của excel hoặc tạo vòng for đếm số dòng kết quả trước
Bạn thử điền K2 = 2230703, L2 = 1, M2 = KKK
ReDim aKQ(1 To Rng.Cells.Count\2, 1 To 3) As Stringvâng điều này thì em biết. nhưng khi em viết lồng với nhiều hàm và còn lặp lại nên rất dài và rối mắt. em muôn rút gọn lại cho dễ quản lý
Cảm ơn anh đã xem bài và chỉ dẫn.
Bạn thử xem file của bạn có cái pivot table nào không? Có công thức mẫu nào cần chuyển sang hàm VBA không? Mấy bài bên trên là làm chơi cho vui chứ câu hỏi của bạn hoàn toàn không có gì để trả lời.
Ý anh HieuCD là đếm hoặc dùng vòng lặp để có số k trước, sau đó resize mảng kết quả k dòng thì vừa, không cần vòng lặp chém zero (thực chất là chém empty)
Anh rào vườn dư tức là xâm phạm quỹ đất công. Vì vẫn có những trường hợp số lượng dòng kết quả ít hơn số lượng ô chia hai.
em xin lỗi em gửi nhầm file ạ. em không sửa được bài #1. nên em xin phép gửi lại file tại đây ạ
Function UseGetPivotData(ByVal rng As Range, ByVal Dayz&, ByVal Hourz&, ByVal Line&, ByVal ID$)
UseGetPivotData = rng.pivotTable.GetPivotData("Sum of INPUT", "Day", Dayz, "Hour", Hourz, "line", Line, "ID", ID)
End FunctionH13
=UseGetPivotData(Sheet3!$A$1,F13,F14,F15,F16)vâng được rồi ạ. em cảm ơn bác, nhân tiện cho em hỏi là mình muốn khi nhập giá trị trong hàm tự tạo mà nó hiện cái đề xuất hướng dẫn giống hàm của excel thì làm như thế nào vậy ạ
Cách làm khá phức tạp, bạn tìm trên diễn đàn có bài nói về vấn đề nầy
