Em nhờ các Anh Chị trên group viết hộ em code lấy dữ liệu thõa mãn điều kiện với ạ

[hoalv1985]

Em nhờ các anh chị giúp em bài toán này với ạ. Em miêu tả trong file đính kèm ạ. Em cảm ơn ạ!

 

[Hoàng Tuấn 868]

Em nhờ các anh chị giúp em bài toán này với ạ. Em miêu tả trong file đính kèm ạ. Em cảm ơn ạ!

Bài này thì dùng hàm cũng được mà, làm gì phải dùng đến code.

 

[hoalv1985]

Bài này thì dùng hàm cũng được mà, làm gì phải dùng đến code.

dùng hàm gì được bác ơi

 

[Hoàng Tuấn 868]

dùng hàm gì được bác ơi

Thử tự tìm hiểu trước đi, vướng đâu nhờ đấy chứ nhoằng cái hỏi luôn thì bao giờ mới tự làm được.

 

[hoalv1985]

Thử tự tìm hiểu trước đi, vướng đâu nhờ đấy chứ nhoằng cái hỏi luôn thì bao giờ mới tự làm được.

Em tìm hiểu mãi không được thì em mới nhờ ạ, vì cột B là trống. Giờ cột P là thư mục, thì điền dữ liệu vào cột B theo thư mục với điều kiện cứ mỗi thư mục thì điền cách nhật 5 dòng ạ.

 

[Hoàng Tuấn 868]

Em tìm hiểu mãi không được thì em mới nhờ ạ, vì cột B là trống. Giờ cột P là thư mục, thì điền dữ liệu vào cột B theo thư mục với điều kiện cứ mỗi thư mục thì điền cách nhật 5 dòng ạ.

Bạn tìm hiểu những cách nào rồi mà chưa được thì thử đưa lên đây các thành viên xem xét hỗ trợ cho.

 

[SA_DQ]

Xài thử con macro này sau khi gán 3 Names 'SLuong', 'LNhuan' & 'TLLG' trên trang tính

Sub Them4DongMoiMa()
 Dim Rws As Long, J As Long, W As Long
 Dim DHang As String
 
 Rws = [P3].End(xlDown).Row:                W = 3
 [B4].Resize(5 * Rws, 2).Value = ""
 For J = 3 To Rws
    DHang = Cells(J, "P").Value
    W = W + 1:                              Cells(W, "B").Value = DHang
    Cells(W, "C").FormulaR1C1 = "=SLuong":             W = W + 1
    Cells(W, "C").Value = "Doanh thu":      W = W + 1
    Cells(W, "C").FormulaR1C1 = "=LNhuan":  W = W + 1
    Cells(W, "C").FormulaR1C1 = "=TLLG"
 Next J
 MsgBox "Xong Rôi!", , W
End Sub

 

[hoalv1985]

Xài thử con macro này sau khi gán 3 Names 'SLuong', 'LNhuan' & 'TLLG' trên trang tính

Sub Them4DongMoiMa()
 Dim Rws As Long, J As Long, W As Long
 Dim DHang As String
 
 Rws = [P3].End(xlDown).Row:                W = 3
 [B4].Resize(5 * Rws, 2).Value = ""
 For J = 3 To Rws
    DHang = Cells(J, "P").Value
    W = W + 1:                              Cells(W, "B").Value = DHang
    Cells(W, "C").FormulaR1C1 = "=SLuong":             W = W + 1
    Cells(W, "C").Value = "Doanh thu":      W = W + 1
    Cells(W, "C").FormulaR1C1 = "=LNhuan":  W = W + 1
    Cells(W, "C").FormulaR1C1 = "=TLLG"
 Next J
 MsgBox "Xong Rôi!", , W
End Sub

Em cảm ơn anh ạ, Tuyệt vời quá anh ơi. Anh ơi, cột C có thể để thành tiếng việt được ko anh. Vì em làm báo cáo mà để không dấu thì không được đẹp lắm anh ạ.

 

[SA_DQ]

Muốn có tiếng Việt có dấu thì đã bảo là bạn tạo thêm 3 Names;
1 Name có tên là 'SLuong' có nội dung là 'Sản lương'
1 Name có tên là 'LNhuan' có nội dung là 'Lợi nhuận'
& thêm 1 Name nữa là xong thôi!

 

[hoalv1985]

Muốn có tiếng Việt có dấu thì đã bảo là bạn tạo thêm 3 Names;
1 Name có tên là 'SLuong' có nội dung là 'Sản lương'
1 Name có tên là 'LNhuan' có nội dung là 'Lợi nhuận'
& thêm 1 Name nữa là xong thôi!

Dạ anh, Em không hiểu í anh lắm. Vì em cũng không rành về vba ạ. Em cảm ơn anh rất nhiều ạ, anh có thể giúp nốt cho hiển thị thành tiếng việc cho em với anh ơi.

 

[SA_DQ]

→ → → → → → → → → → → → → → → → → → → → →

 

[hoalv1985]

→ → → → → → → → → → → → → → → → → → → → →

Em cảm ơn anh nhiều ạ.