Mọi người giúp em điền thông tin tự động theo dữ liệu có sẵn với ạ ???? (1 người xem)

[vanhoangquy]

nhờ admin xóa hộ em topic này ạ

 

[phulien1902]

Em có 1 file đã đính kèm.
Cột B: là số thứ tự các hộ gia đình trong 1 xã.
Cột C: là số khẩu trong hộ gia đình.
Cột K: là số dư nợ gia đình đó đang vay.

Nhờ mọi người giúp em điền thông tin vào cột A theo mẫu em đã cho (ví dụ: hộ gia đình STT 3 có 1 thành viên đang vay ngân hàng thì đánh dấu tất cả các thành viên còn lại trong hộ đó là "hộ đang vay")

Em xin cảm ơn rất nhiều ạ

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

mọi người giúp em với

Bạn thử

Sub abc()
    Dim i%
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 2) <> Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) <> Empty And Cells(i, 11) = Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " ch" & ChrW(432) & "a vay"
        End If
    Next
    With Range("A2:A" & Range("D" & Rows.Count).End(3).Row)
        .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

 

[Phuocam]

Thử công thức này tại A2:

=IF(LOOKUP(1E35,$B$2:B2,$K$2:K2)>0,"hộ đang vay","Chưa")

 

[hoanganhvo2612]

Thử công thức này tại A2:

=IF(LOOKUP(1E35,$B$2:B2,$K$2:K2)>0,"hộ đang vay","Chưa")

Số TT 9 không đúng bạn ơi

 

[phulien1902]

Số TT 9 không đúng bạn ơi

Sửa lại Code bài#2 1 chút;

Sub abc()
    Dim i%
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 2) <> Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) = Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) <> Empty And Cells(i, 11) = Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " ch" & ChrW(432) & "a vay"
        End If
    Next
    With Range("A2:A" & Range("D" & Rows.Count).End(3).Row)
        .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

 

[vanhoangquy]

EM ĐANG THỬ Ạ

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

Sửa lại Code bài#2 1 chút;

Sub abc()
    Dim i%
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 2) <> Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) = Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) <> Empty And Cells(i, 11) = Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " ch" & ChrW(432) & "a vay"
        End If
    Next
    With Range("A2:A" & Range("D" & Rows.Count).End(3).Row)
        .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

BẠN ƠI, NẾU BẢNG DỮ LIỆU LỚN HƠN VÀ CÓ NHIỀU XÃ THÌ CÓ ĐÚNG KO. BẠN CÓ THỂ LÀM TRỰC TIẾP TRÊN FILE NÀY KO Ạ

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

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

 

[phulien1902]

EM ĐANG THỬ Ạ

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

BẠN ƠI, NẾU BẢNG DỮ LIỆU LỚN HƠN VÀ CÓ NHIỀU XÃ THÌ CÓ ĐÚNG KO. BẠN CÓ THỂ LÀM TRỰC TIẾP TRÊN FILE NÀY KO Ạ

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

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

Dữ liệu lớn thì không dùng Code trên được.

 

[vanhoangquy]

Bạn ơi, bạn kiểm tra lại giúp mình từ dòng 177 trở đi lại hiện không chính xác. Bạn kiểm tra lại giúp mình

 

[phulien1902]

Bạn ơi, bạn kiểm tra lại giúp mình từ dòng 177 trở đi lại hiện không chính xác. Bạn kiểm tra lại giúp mình

Bạn dùng Code dưới và kiểm tra lại kết quả trong File nhé

Sub abc_New()
    Dim i As Long, LR As Long
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 2) <> Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) = Empty And Cells(i, 11) <> Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " " & ChrW(273) & "ang vay"
        ElseIf Cells(i, 2) <> Empty And Cells(i, 11) = Empty Then
            Cells(i, 1) = "H" & ChrW(7897) & " ch" & ChrW(432) & "a vay"
        End If
    Next
    With Sheets(1)
        LR = Cells(Rows.Count, "D").End(xlUp).Row
        For i = 2 To LR
            If .Cells(i, "A") = "" Then .Cells(i, "A").FillDown
        Next
    End With
    Application.ScreenUpdating = True
End Sub

 

[Phuocam]

Số TT 9 không đúng bạn ơi

Bài này khó đây, tức là chỉ cần một thành viên trong gia đình vay thì nguyên gia đình có kết quả là "hộ đang vay"
Trong file LOC LAN 2, dữ liệu Stt một số hộ không có, hoặc có nhưng trùng nên khó làm được kể cả VBA.

 

[phulien1902]

Bài này khó đây, tức là chỉ cần một thành viên trong gia đình vay thì nguyên gia đình có kết quả là "hộ đang vay"
Trong file LOC LAN 2, dữ liệu Stt một số hộ không có, hoặc có nhưng trùng nên khó làm được kể cả VBA.

Bài này không khó, nếu chủ Topic có đủ dữ liệu cần thiết tại cột B và cột K. Mình đã xem không kĩ File.
Cảm ơn bạn đã kiểm tra.

 

[vanhoangquy]

file của mình chưa đủ dữ liệu nên có thể run code bị sai.

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

các bạn có thể cho mình xin tài liệu để học về code VBA được ko ạ.

 

[hoanganhvo2612]

EM ĐANG THỬ Ạ

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

BẠN ƠI, NẾU BẢNG DỮ LIỆU LỚN HƠN VÀ CÓ NHIỀU XÃ THÌ CÓ ĐÚNG KO. BẠN CÓ THỂ LÀM TRỰC TIẾP TRÊN FILE NÀY KO Ạ

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

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

Bạn chạy thử code này

Sub check()
    Dim i, ar, j, k, endstt, checkvay As Boolean
    ar = Range("A2:K" & Range("E" & Rows.Count).End(3).Row)
    For i = 1 To UBound(ar)
        checkvay = False
        If Val(ar(i, 11)) > 0 Then checkvay = True
        
        For j = i + 1 To UBound(ar)
            If checkvay = False Then
                If Val(ar(j, 11)) > 0 And ar(j, 2) = "" Then checkvay = True
            End If
            If j = UBound(ar) Then endstt = j
            If ar(j, 2) <> "" Then
                endstt = j - 1
                Exit For
            End If
            
        Next
        If checkvay Then
            For k = i To endstt
                ar(k, 1) = "dang vay"
            Next
        End If
        If j >= UBound(ar) Then Exit For
        i = endstt
    Next
    Range("M2").Resize(UBound(ar), 11) = ar
End Sub

 

[vanhoangquy]

EM CẢM ƠN CÁC AD ĐÃ GIÚP ĐỠ EM. EM ĐÃ HOÀN THÀNH XONG RỒI Ạ.

EM NHỜ ADMIN XÓA HỘ EM TOPIC NÀY Ạ. EM XIN CẢM ƠN

 

[be_09]

EM CẢM ƠN CÁC AD ĐÃ GIÚP ĐỠ EM. EM ĐÃ HOÀN THÀNH XONG RỒI Ạ.
EM NHỜ ADMIN XÓA HỘ EM TOPIC NÀY Ạ. EM XIN CẢM ƠN

Bạn vi phạm nội quy, với 2 vấn đề sau:
1/ Bài 14 không được viết chữ In.
2/ Bạn không nên tự tiện xóa nội dung (khi đã xong việc), bạn nên phục hồi nội dung bài 1 lại, chứ không phải khi cần thì vào hỏi và khi không cần thì tự tiện xóa. Việc của bạn đã xong nhưng các thành viên khác có khi cũng cần dùng đến, có đọc nội dung bài 1 thì mới hiểu các code bên dưới làm cái gì, khi họ thấy phù hợp với công việc thì có thể tham khảo để áp dụng vào thực tế.
3/ Bạn tùy tiện xóa nội dung, là tự làm khó mình đó. Nếu lần sau bạn hỏi thì chắc không thành viên nào giúp bạn, vì xong việc rồi thì bạn không cần nhưng có thể các thành viên khác đọc nội dung thấy phù hợp thì có khi cũng cần đến.

 

[truongvu317]

Bài này khó đây, tức là chỉ cần một thành viên trong gia đình vay thì nguyên gia đình có kết quả là "hộ đang vay"
Trong file LOC LAN 2, dữ liệu Stt một số hộ không có, hoặc có nhưng trùng nên khó làm được kể cả VBA.

Mỗi thế mà đã khóc đứng khóc ngồi.

Bạn vi phạm nội quy, với 2 vấn đề sau:
1/ Bài 14 không được viết chữ In.
2/ Bạn không nên tự tiện xóa nội dung (khi đã xong việc), bạn nên phục hồi nội dung bài 1 lại, chứ không phải khi cần thì vào hỏi và khi không cần thì tự tiện xóa. Việc của bạn đã xong nhưng các thành viên khác có khi cũng cần dùng đến, có đọc nội dung bài 1 thì mới hiểu các code bên duối làm cái gì, khi họ thấy phù hợp với công việc thì có thể tham khảo để áp dụng vào thực tế.
3/ Bạn tùy tiện xóa nội dung, là tự làm khó mình đó. Nếu lần sau bạn hỏi thì chắc không thành viên nào giúp bạn, vì xong việc rồi thì bạn không cần nhưng có thể các thành viên khác đọc nội dung thấy phù hợp thì có khi cũng cần đến.

Quá may! Em không có đăng bài, không là công cốc rồi. Đối với bài này thì chả cần dùng vba, dùng mấy cái công thức bé xíu cũng được.

 

[VetMini]

...
2/ Bạn không nên tự tiện xóa nội dung (khi đã xong việc), bạn nên phục hồi nội dung bài 1 lại, chứ không phải khi cần thì vào hỏi và khi không cần thì tự tiện xóa. Việc của bạn đã xong nhưng các thành viên khác có khi cũng cần dùng đến, có đọc nội dung bài 1 thì mới hiểu các code bên dưới làm cái gì, khi họ thấy phù hợp với công việc thì có thể tham khảo để áp dụng vào thực tế.
3/ Bạn tùy tiện xóa nội dung, là tự làm khó mình đó. Nếu lần sau bạn hỏi thì chắc không thành viên nào giúp bạn, vì xong việc rồi thì bạn không cần nhưng có thể các thành viên khác đọc nội dung thấy phù hợp thì có khi cũng cần đến.

2/ Việc khong được xoá nội dung bài 1 thì là lỗi diễn đàn 80%. Lỗi của người chủ thớt chỉ 20%. Diễn đàn có thể có nhiều biện pháp nhưng không chịu áp dụng, điển hình:
(i) Diễn đàn có thể đặt điều kiện rằng bài #1 sẽ khoá sau 30 phút. Không cho chỉnh sửa. Nếu muốn chỉnh thì chủ thớt phải viết thêm bài #2, #3 gì đó để thêm hoặc chỉnh lời.
(ii) Thành viên khác có thể báo cáo, và BQT diễn đàn phải phản ứng ngay, gởi lời cảnh cáo lên thớt cũng như vào hộp thư riêng của ngừoi vi phạm.
Chỉ cho phép 1 trường hợp ngoại lệ duy nhất là thớt gởi nhằm tài liệu mật - Thớt cần tiép xúc thẳng với BQT và diễn đàn sẽ xoá tài liệu này giùm.

3/ Câu "không thành viên nào giúp" chỉ là lời doạ trống rỗng. Nói câu này là bạn tự dối lòng. Ở diễn đàn này ai cũng biết ngừoi trả lời cần viết bài gấp 10 lần người hỏi bài. Sổ bìa đen chỉ là con cọp không vuốt không răng. Một thành viên có thể được sổ bìa đen của một vài ngừoi nhưng tôi chưa hề thấy của tất cả mọi người. Nói trắng ra, diễn đàn này không có tính chất thống nhất.

 

[Phuocam]

2/ Việc khong được xoá nội dung bài 1 thì là lỗi diễn đàn 80%. Lỗi của người chủ thớt chỉ 20%.
...
Câu "không thành viên nào giúp" chỉ là lời doạ trống rỗng. Nói câu này là bạn tự dối lòng.
Ở diễn đàn này ai cũng biết ngừoi trả lời cần viết bài gấp 10 lần người hỏi bài.
...
Nói trắng ra, diễn đàn này không có tính chất thống nhất.

Xổ nho chút chơi.
Trung ngôn -> nghịch nhĩ!

 

[be_09]

2/ Việc khong được xoá nội dung bài 1 thì là lỗi diễn đàn 80%. Lỗi của người chủ thớt chỉ 20%. Diễn đàn có thể có nhiều biện pháp nhưng không chịu áp dụng, điển hình:
(i) Diễn đàn có thể đặt điều kiện rằng bài #1 sẽ khoá sau 30 phút. Không cho chỉnh sửa. Nếu muốn chỉnh thì chủ thớt phải viết thêm bài #2, #3 gì đó để thêm hoặc chỉnh lời.
(ii) Thành viên khác có thể báo cáo, và BQT diễn đàn phải phản ứng ngay, gởi lời cảnh cáo lên thớt cũng như vào hộp thư riêng của ngừoi vi phạm.
Chỉ cho phép 1 trường hợp ngoại lệ duy nhất là thớt gởi nhằm tài liệu mật - Thớt cần tiép xúc thẳng với BQT và diễn đàn sẽ xoá tài liệu này giùm.

3/ Câu "không thành viên nào giúp" chỉ là lời doạ trống rỗng. Nói câu này là bạn tự dối lòng. Ở diễn đàn này ai cũng biết ngừoi trả lời cần viết bài gấp 10 lần người hỏi bài. Sổ bìa đen chỉ là con cọp không vuốt không răng. Một thành viên có thể được sổ bìa đen của một vài ngừoi nhưng tôi chưa hề thấy của tất cả mọi người. Nói trắng ra, diễn đàn này không có tính chất thống nhất.

Tôi cũng là 1 thành viên bình thường nên không có quyền hạn gì cả.
Tôi thấy thành viên vi phạm, nên bài 15 chỉ là nêu ý kiến nhắc nhỡ để tránh việc làm chưa được tốt.
Còn thành viên nào, vi phạm cái gì, xử lý ra sao? Thì là việc của Ban quản trị,

 

[VetMini]

Ý tôi cũng chỉ nhắc nhở:
1. nếu BQT không có biện pháp thích ứng thì việc "vi phạm" này sẽ vẫn xảy ra dài dài. Và lời nhắc nhở thứ 1 và 2 của bạn như muối bỏ biển.
2. nếu mọi người không thống nhất về việc chọn lựa nơi trả lời thì cái sổ bìa đen chỉ là con cọp giấy. Và lời nhắc nhở thứ 3 của bạn cũng như muối bỏ biển.