vanhoangquy
Thành viên mới
- Tham gia
- 19/10/10
- Bài viết
- 31
- Được thích
- 10
nhờ admin xóa hộ em topic này ạ
Lần chỉnh sửa cuối:
Mọi người giúp em điền thông tin tự động theo dữ liệu có sẵn với ạ ???? (3 người xem)
- Thread starter vanhoangquy
- Ngày gửi
Người dùng đang xem chủ đề này
Thành viên mới
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,425
Bạn thử
PHP:
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 Subhoanganhvo2612
Thành viên thường trực
- Tham gia
- 15/11/16
- Bài viết
- 252
- Được thích
- 130
Số TT 9 không đúng bạn ơi
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,425
Sửa lại Code bài#2 1 chút;
PHP:
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 Subvanhoangquy
Thành viên mới
- Tham gia
- 19/10/10
- Bài viết
- 31
- Được thích
- 10
EM ĐANG THỬ Ạ
Bài đã được tự động gộp:
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:
Bài đã được tự động gộp:
Lần chỉnh sửa cuối:
phulien1902
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,425
Dữ liệu lớn thì không dùng Code trên được.
Lần chỉnh sửa cuối:
vanhoangquy
Thành viên mới
- Tham gia
- 19/10/10
- Bài viết
- 31
- Được thích
- 10
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
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,425
Bạn dùng Code dưới và kiểm tra lại kết quả trong File nhé
PHP:
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
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,752
- Được thích
- 7,782
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
GPE - My love
- Tham gia
- 6/7/13
- Bài viết
- 3,543
- Được thích
- 4,425
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
Thành viên mới
- Tham gia
- 19/10/10
- Bài viết
- 31
- Được thích
- 10
file của mình chưa đủ dữ liệu nên có thể run code bị sai.
các bạn có thể cho mình xin tài liệu để học về code VBA được ko ạ.
Bài đã được tự động gộp:
các bạn có thể cho mình xin tài liệu để học về code VBA được ko ạ.
Lần chỉnh sửa cuối:
hoanganhvo2612
Thành viên thường trực
- Tham gia
- 15/11/16
- Bài viết
- 252
- Được thích
- 130
Bạn chạy thử code này
Mã:
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 Subvanhoangquy
Thành viên mới
- Tham gia
- 19/10/10
- Bài viết
- 31
- Được thích
- 10
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
EM NHỜ ADMIN XÓA HỘ EM TOPIC NÀY Ạ. EM XIN CẢM ƠN
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
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.
Lần chỉnh sửa cuối:
truongvu317
Thành viên tích cực
- Tham gia
- 15/11/10
- Bài viết
- 955
- Được thích
- 694
- Giới tính
- Nữ
Mỗi thế mà đã khóc đứng khóc ngồi.
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.
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
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,752
- Được thích
- 7,782
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
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ị,
Ý 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.
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.
