sắp xếp giá trị vào bảng

gio_rung · 6/8/24

Nhờ các bạn hỗ trợ. Mình có bảng giá trị (Bảng 1)
Mình muốn tự động điền số tiền theo tháng ở bảng trên (bảng 1) vào bảng kết quả. Mỗi tháng mỗi người 1 dòng (như phần tô vàng)
Cám ơn mọi người ạ!

SA_DQ · 6/8/24

PHP:

Sub XepLaiBang()
 Dim Rws As Long, W As Integer, Col As Integer, Cot As Integer
 Dim Rng As Range, Cls As Range
 
 Rws = [C3].End(xlDown).Row
 Set Rng = [F3].Resize(Rws, 2)
 ReDim Arr(1 To 2 * Rws, 1 To 7)
1  [A20].Resize(5+Rws, 7).Value = Arr()
 For Each Cls In Rng
    If Cls.Value > 0 Then
        W = W + 1:              Arr(W, 1) = W
        For Col = 2 To 5
            Arr(W, Col) = Cells(Cls.Row, Col).Value
        Next Col
        Arr(W, Cls.Column) = Cls.Value
    End If
 Next Cls
 2 [A12].Resize(W, 7).Value = Arr()
End Sub

gio_rung · 6/8/24

SA_DQ đã viết:

PHP:

Sub XepLaiBang()
 Dim Rws As Long, W As Integer, Col As Integer, Cot As Integer
 Dim Rng As Range, Cls As Range
 
 Rws = [C3].End(xlDown).Row
 Set Rng = [F3].Resize(Rws, 2)
 ReDim Arr(1 To 2 * Rws, 1 To 7)
 [A20].Resize(5+Rws, 7).Value = Arr()
 For Each Cls In Rng
    If Cls.Value > 0 Then
        W = W + 1:              Arr(W, 1) = W
        For Col = 2 To 5
            Arr(W, Col) = Cells(Cls.Row, Col).Value
        Next Col
        Arr(W, Cls.Column) = Cls.Value
    End If
 Next Cls
 [A12].Resize(W, 7).Value = Arr()
End Sub

Cám ơn bác nhiều lắm ạ! Em có thể nhờ bác sửa lại nếu chia 2 bảng thành 2 sheet với số dòng không giới hạn ko ạ?

doredore1988 · 6/8/24

Rảnh rỗi viết mấy hàm excell để góp vui, chứ giờ VBA lên ngôi quá

))

gio_rung · 6/8/24

doredore1988 đã viết:
Rảnh rỗi viết mấy hàm excell để góp vui, chứ giờ VBA lên ngôi quá ))

Cám ơn bác nhiều ạ!

VetMini · 6/8/24

doredore1988 đã viết:
Rảnh rỗi viết mấy hàm excell để góp vui, chứ giờ VBA lên ngôi quá ))

Trừ phi bạn là dân lập trình, chuyên phát triển ứng dụng, chứ để cho VBA "lên ngôi" là hiện tượng xấu.

Mà tôi cũng chả hiểu sao thớt lại đi unpivot nửa chừng bảng của mình ra làm cái gì. Loại bảng unpivot nửa chừng vừa khó đọc vừa khó tính toán.

SA_DQ · 7/8/24

@Chủ bài đăng

Bảng kết quả hiện thời là:

Bảng kết quả
STT	Mã Số	Họ tên	Nơi sinh	Địa chỉ	Tháng 1	Tháng 2
1	11	Nguyễn Văn A			100,000
2	11	Nguyễn Văn A			-	200,000
3	22	Nguyễn Văn B			-	200,000
4	33	Đặng Thị C			300,000	-
5	44	Vũ Văn D			200,000	-
6	44	Vũ Văn D			-	200,000
7	55	Nguyễn Thị E			300,000	-

Giờ bạn muốn thành 2 bảng ở 2 trang như vậy, phải không:

STT	Mã Số	Họ tên	Nơi sinh	Địa chỉ	Tháng 1
1	11	Nguyễn Văn A			100,000
4	33	Đặng Thị C			300,000
5	44	Vũ Văn D			200,000
7	55	Nguyễn Thị E			300,000


STT	Mã Số	Họ tên	Nơi sinh	Địa chỉ	Tháng 2
2	11	Nguyễn Văn A			200,000
3	22	Nguyễn Văn B			200,000
6	44	Vũ Văn D			200,000

gio_rung · 7/8/24

SA_DQ đã viết:
@Chủ bài đăng

Bảng kết quả hiện thời là:

Bảng kết quả
STT Mã Số Họ tên Nơi sinh Địa chỉ Tháng 1 Tháng 2
1 11 Nguyễn Văn A 100,000
2 11 Nguyễn Văn A - 200,000
3 22 Nguyễn Văn B - 200,000
4 33 Đặng Thị C 300,000 -
5 44 Vũ Văn D 200,000 -
6 44 Vũ Văn D - 200,000
7 55 Nguyễn Thị E 300,000 -

Giờ bạn muốn thành 2 bảng ở 2 trang như vậy, phải không:

STT Mã Số Họ tên Nơi sinh Địa chỉ Tháng 1
1 11 Nguyễn Văn A 100,000
4 33 Đặng Thị C 300,000
5 44 Vũ Văn D 200,000
7 55 Nguyễn Thị E 300,000
STT Mã Số Họ tên Nơi sinh Địa chỉ Tháng 2
2 11 Nguyễn Văn A 200,000
3 22 Nguyễn Văn B 200,000
6 44 Vũ Văn D 200,000

Ý em là như này ạ:

SA_DQ · 7/8/24

À, thì ra là đem bảng kết quả sang trang khác;
/-)úng là tiếng Việt!

Vậy thì bạn thiết kế bảng kết quả ở trang tính trống nào đó (Ví dụ nó có tên là 'GPE")
& thêm tên trang tính vô đầu 2 dòng lệnh mà mình vừa winh số ở bài trên của mình là OK thôi;
Ví dụ Sheets("GPE").[A20].Resize(5+Rws, 7).Value = Arr()
Chúc bạn sớm thành công!

doredore1988 · 7/8/24

Mình chỉ chỉnh lại code của bác trên, bạn có thể dùng thử

Sub XepLaiBang2()
Dim Rws As Long, W As Integer, Col As Integer, Cot As Integer
Dim Rng As Range, Cls As Range

Rws = ThisWorkbook.Sheets("Du_lieu").[C3].End(xlDown).Row
Set Rng = ThisWorkbook.Sheets("Du_lieu").[F3].Resize(Rws, 2)
ReDim Arr(1 To 2 * Rws, 1 To 7)
'ThisWorkbook.Sheets("Ket_qua").[A20].Resize(5 + Rws, 7).Value = Arr()
For Each Cls In Rng
If Cls.Value > 0 Then
W = W + 1: Arr(W, 1) = W
For Col = 2 To 5
Arr(W, Col) = ThisWorkbook.Sheets("Du_lieu").Cells(Cls.Row, Col).Value
Next Col
Arr(W, Cls.Column) = Cls.Value
End If
Next Cls
ThisWorkbook.Sheets("Ket_qua").[A4].Resize(W, 7).Value = Arr()
End Sub

VetMini · 7/8/24

SA_DQ đã viết:
À, thì ra là đem bảng kết quả sang trang khác;
/-)úng là tiếng Việt!
...

Ý của thớt,theo thuật ngữ kỹ thuật là:
- Pivot theo người, Tên Nhân Viên + Mã Số.
- Cross-Tabbed theo tháng.
Đó là mẫu Full Pivot, bảng đầu vào

Nếu Unpivot Fully thì bảng đầu ra sẽ có dạng là
- Các tabs sẽ trở thành dòng, không còn tabs tháng 1, tháng 2, ... tháng n nữa.
Mỗi dòng sẽ là
Tên Nhân Viên + Mã Số + Tháng + Dữ liệu tháng

Bấy giờ thớt muốn Partly Unpivot bảng đầu ra
- Tức là vẫn còn giữ các tabs tháng 1, tháng 2, ... tháng n
- Nhưng lúc cross-tab thì không đặt cùng hàng mà sang hàng khác (trái với luật pivot)
- Nói cách khác, dữ liệu tháng 2 không nằm cùng dòng với dữ liệu tháng 1, mà nằm ở dòng kế tiếp. Nếu có n tháng thì mỗi trị pivot (Mã + Tên NV) sẽ có n dòng.

gio_rung · 7/8/24

Cám ơn bác @SA_DQ và rất @doredore1988 nhiều ạ! Em làm được rồi ạ

Bài đã được tự động gộp: 7/8/24

VetMini đã viết:
Ý của thớt,theo thuật ngữ kỹ thuật là:
- Pivot theo người, Tên Nhân Viên + Mã Số.
- Cross-Tabbed theo tháng.
Đó là mẫu Full Pivot, bảng đầu vào

Nếu Unpivot Fully thì bảng đầu ra sẽ có dạng là
- Các tabs sẽ trở thành dòng, không còn tabs tháng 1, tháng 2, ... tháng n nữa.
Mỗi dòng sẽ là
Tên Nhân Viên + Mã Số + Tháng + Dữ liệu tháng

Bấy giờ thớt muốn Partly Unpivot bảng đầu ra
- Tức là vẫn còn giữ các tabs tháng 1, tháng 2, ... tháng n
- Nhưng lúc cross-tab thì không đặt cùng hàng mà sang hàng khác (trái với luật pivot)
- Nói cách khác, dữ liệu tháng 2 không nằm cùng dòng với dữ liệu tháng 1, mà nằm ở dòng kế tiếp. Nếu có n tháng thì mỗi trị pivot (Mã + Tên NV) sẽ có n dòng.

Ý của em đơn giản như 2 bác trên hướng dẫn thôi ạ. Chứ không cao như này đâu ạ. Cám ơn bác ạ!

ptm0412 · 7/8/24

VetMini đã viết:
Nếu có n tháng thì mỗi trị pivot (Mã + Tên NV) sẽ có n dòng.

Cấu trúc này thì data cũng không phải, mà báo cáo cũng không phải.
- Nếu dùng nó như data nguồn để tính toán thì sẽ phải dùng công thức khủng hoặc VBA (lại lên ngôi)
- Nếu dùng nó như báo cáo thì khó xem và in tốn giấy chứ chả tích sự gì
- Dùng để vẽ biểu đồ theo tháng thì so với bảng ban đầu chả khác gì. Vẽ biểu đồ tròn thì vô phương.

VetMini · 8/8/24

ptm0412 đã viết:
Cấu trúc này thì data cũng không phải, mà báo cáo cũng không phải.
...

Khả năng lớn là "sáng kiến độc đáo" của thớt. Chỉ nghĩ vậy thôi chứ chưa thực hiện bao giờ cho nên không biết sự "tự hoại" của nó.

VetMini · 8/8/24

gio_rung đã viết:
...
Ý của em đơn giản như 2 bác trên hướng dẫn thôi ạ. Chứ không cao như này đâu ạ. Cám ơn bác ạ!

Pivot và Unpivot, Cross-tabbed table là căn bản của xây dựng bảng tính và phân tích dữ liệu.
Chúng chỉ là bậc trung. Người lười học thống kê dữ liệu mới lấy cớ chúng là dòng cao cấp.
Sử dụng Excel mà không biết hình dạng của Pivot Table là kiến thức hạng sơ đẳng chứ chưa phải là trung.

Ở bài #11, tôi chỉ giải thích cho các bạn có nhu cầu học phân tích dữ liệu sự khác biệt giữa Pivot table và Partly Pivot.

sắp xếp giá trị vào bảng

gio_rung

Thành viên mới

File đính kèm

SA_DQ

/(hông là gì!

gio_rung

Thành viên mới

doredore1988

Thành viên hoạt động

File đính kèm

gio_rung

Thành viên mới

VetMini

Ăn cùng góc phố

SA_DQ

/(hông là gì!

gio_rung

Thành viên mới

SA_DQ

/(hông là gì!

doredore1988

Thành viên hoạt động

VetMini

Ăn cùng góc phố

gio_rung

Thành viên mới

ptm0412

Bad Excel Member

VetMini

Ăn cùng góc phố

VetMini

Ăn cùng góc phố

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

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng