Xin code VBA

[Sóc trăng miền nhớ]

Anh chị cho em xin code VBA sao cho kết quả mong muốn như cột tô vàng file đính kèm!
Note: dữ liệu mỗi lần lấy có thể nhiều dữ liệu hơn hay ít hơn cũng có
Xin cảm ơn!!!

 

[thnghiachau]

Anh chị cho em xin code VBA sao cho kết quả mong muốn như cột tô vàng file đính kèm!
Note: dữ liệu mỗi lần lấy có thể nhiều dữ liệu hơn hay ít hơn cũng có
Xin cảm ơn!!!

Bạn thử cái này có đúng ý bạn không nha....

 

[SA_DQ]

Thêm 1 tham khảo:

Sub NoiDungDung()
Dim NoiDung As String:                         Dim Dong As Integer
Dim Rng As Range, Cls As Range:                Const Cg As String = " + "

Set Rng = Range([D4], [D65500].End(xlUp))
For Each Cls In Rng
    If Cls.Value = "run" Then
        Dong = Cls.Row:                         NoiDung = ""
    ElseIf Cls.Value = "stop" Then
        NoiDung = NoiDung & Cg & Cls.Offset(, 1).Value
        If Cls.Offset(, 2).Value <> "" Then _
            NoiDung = NoiDung & Cg & Cls.Offset(, 2).Value
        If Cls.Offset(1).Value = "run" Or Cls.Offset(1).Value="" Then
            Cells(Dong, "G").Value = NoiDung:   NoiDung = ""
        End If
    End If
Next Cls
End Sub

 

[befaint]

Bài này chắc chuyển sang chuyên mục bạn bè giúp nhau thôi..

 

[thnghiachau]

Thêm 1 tham khảo:

Sub NoiDungDung()
Dim NoiDung As String:                         Dim Dong As Integer
Dim Rng As Range, Cls As Range:                Const Cg As String = " + "

Set Rng = Range([D4], [D65500].End(xlUp))
For Each Cls In Rng
    If Cls.Value = "run" Then
        Dong = Cls.Row:                         NoiDung = ""
    ElseIf Cls.Value = "stop" Then
        NoiDung = NoiDung & Cg & Cls.Offset(, 1).Value
        If Cls.Offset(, 2).Value <> "" Then _
            NoiDung = NoiDung & Cg & Cls.Offset(, 2).Value
        If Cls.Offset(1).Value = "run" Or Cls.Offset(1).Value="" Then
            Cells(Dong, "G").Value = NoiDung:   NoiDung = ""
        End If
    End If
Next Cls
End Sub

Code Tuyệt đỉnh công phu...
nhưng thêm tí nữa thì khi "run" mà có "chi tiết" cũng ghi ra (dòng 18) ah
Nhìn lại cái em làm... cho học sinh mẫu giáo rùi! hichic

 

[VetMini]

Bài này chắc chuyển sang chuyên mục bạn bè giúp nhau thôi..

View attachment 238591

Hình như diễn đàn đổi luật rồi.
Tôi nghe nói luật mới chỉ cấm phê bình cách viết của người khác thôi chứ còn muốn viết như thế nào đều quéo-cằm.

 

[befaint]

Hình như diễn đàn đổi luật rồi.

Hình như mới đổi từ tuần trước anh ạ.

 

[Sóc trăng miền nhớ]

Bạn thử cái này có đúng ý bạn không nha....

Cảm ơn bạn nhiều

Bài đã được tự động gộp: 3/6/20

Cảm ơn bạn nhiều

Bạn xem giúp code ở modul 1. Mình gán đường link vào ô A1, mà lấy vào ô đó thì lỗi

Bài đã được tự động gộp: 3/6/20

Thêm 1 tham khảo:

Sub NoiDungDung()
Dim NoiDung As String:                         Dim Dong As Integer
Dim Rng As Range, Cls As Range:                Const Cg As String = " + "

Set Rng = Range([D4], [D65500].End(xlUp))
For Each Cls In Rng
    If Cls.Value = "run" Then
        Dong = Cls.Row:                         NoiDung = ""
    ElseIf Cls.Value = "stop" Then
        NoiDung = NoiDung & Cg & Cls.Offset(, 1).Value
        If Cls.Offset(, 2).Value <> "" Then _
            NoiDung = NoiDung & Cg & Cls.Offset(, 2).Value
        If Cls.Offset(1).Value = "run" Or Cls.Offset(1).Value="" Then
            Cells(Dong, "G").Value = NoiDung:   NoiDung = ""
        End If
    End If
Next Cls
End Sub

Thanks

 

[Sóc trăng miền nhớ]

Bạn thử cái này có đúng ý bạn không nha....

Bạn thử cái này có đúng ý bạn không nha....

bạn ơi muốn cho phần chử đỏ file kèm hiển thị luôn được không?

 

[thnghiachau]

bạn ơi muốn cho phần chử đỏ file kèm hiển thị luôn được không?

Nhận file nha!

 

[thnghiachau]

Thêm 1 tham khảo:

Sub NoiDungDung()
Dim NoiDung As String:                         Dim Dong As Integer
Dim Rng As Range, Cls As Range:                Const Cg As String = " + "

Set Rng = Range([D4], [D65500].End(xlUp))
For Each Cls In Rng
    If Cls.Value = "run" Then
        Dong = Cls.Row:                         NoiDung = ""
    ElseIf Cls.Value = "stop" Then
        NoiDung = NoiDung & Cg & Cls.Offset(, 1).Value
        If Cls.Offset(, 2).Value <> "" Then _
            NoiDung = NoiDung & Cg & Cls.Offset(, 2).Value
        If Cls.Offset(1).Value = "run" Or Cls.Offset(1).Value="" Then
            Cells(Dong, "G").Value = NoiDung:   NoiDung = ""
        End If
    End If
Next Cls
End Sub

Bac @SA_DQ ơi... em xin mạng phép dùng code của Bác chỉnh lại chút xíu cho đúng theo yêu cầu thêm của bạn @Sóc trăng miền nhớ. Cám ơn Bác nhiều lắm ah.. Chỉ tại code của Bác làm e hâm mộ quá nên em phải dùng ah....
Gởi lại cho bạn @Sóc trăng miền nhớ hàng của bác @SA_DQ có chỉnh lại theo bạn muốn đây nha...

 

[SA_DQ]

Đúng là tiêu đề bài viết đang sai với nội 2ui & nên sửa lại

Trong khi chờ đợi việc này xin không phát biểu gì thêm nữa.

Tiêu đề có thể nên sửa lại là: "Ghi nhận lỗi khi chu trình cảnh báo"

 

[PacificPR]

Bac @SA_DQ ơi... em xin mạng phép dùng code của Bác chỉnh lại chút xíu cho đúng theo yêu cầu thêm của bạn @Sóc trăng miền nhớ. Cám ơn Bác nhiều lắm ah.. Chỉ tại code của Bác làm e hâm mộ quá nên em phải dùng ah....
Gởi lại cho bạn @Sóc trăng miền nhớ hàng của bác @SA_DQ có chỉnh lại theo bạn muốn đây nha...

Ủa em với Bác SA_DQ cơ

 

[Sóc trăng miền nhớ]

Bac @SA_DQ ơi... em xin mạng phép dùng code của Bác chỉnh lại chút xíu cho đúng theo yêu cầu thêm của bạn @Sóc trăng miền nhớ. Cám ơn Bác nhiều lắm ah.. Chỉ tại code của Bác làm e hâm mộ quá nên em phải dùng ah....
Gởi lại cho bạn @Sóc trăng miền nhớ hàng của bác @SA_DQ có chỉnh lại theo bạn muốn đây nha...

Cảm ơn nhiều nha.
Những nội dung này trước nay mình coppy tay lâu quá, nay nhờ các pro đơn giản chỉ 1 click

 

[VetMini]

Đúng là tiêu đề bài viết đang sai với nội 2ui & nên sửa lại

Trong khi chờ đợi việc này xin không phát biểu gì thêm nữa.

Tiêu đề có thể nên sửa lại là: "Ghi nhận lỗi khi chu trình cảnh báo"

Cỗ bác nấu đã có người dọn ra, và quan viên đã ăn xong rồi. Bác còn nói với ai vậy?