Tự động xoá dòng trắng sau mỗi lần nhập dữ liệu

[T.Đ.A]

Dạ mấy anh chị cho em hỏi có cách nào để mình tự động xoá dòng trắng sau mỗi lần nhập liệu nếu nhỡ có nhập có khoảng trắng không ạ?

 

[BuiQuangThuan]

Dạ mấy anh chị cho em hỏi có cách nào để mình tự động xoá dòng trắng sau mỗi lần nhập liệu nếu nhỡ có nhập có khoảng trắng không ạ?View attachment 287660

Có khả năng khả thi đấy.

 

[T.Đ.A]

Có khả năng khả thi đấy.

Bác có idea nào không cho em xin tí ạ.

 

[T.Đ.A]

Dạ mấy anh chị cho em hỏi có cách nào để mình tự động xoá dòng trắng sau mỗi lần nhập liệu nếu nhỡ có nhập có khoảng trắng không ạ?View attachment 287660

dạ hoặc là mấy a/c có code nào có thể buộc chúng ta phải nhập theo thứ tự không được bỏ khoảng trống không ạ.

 

[Phuocam]

dạ hoặc là mấy a/c có code nào có thể buộc chúng ta phải nhập theo thứ tự không được bỏ khoảng trống không ạ.

Bạn có thể dùng Data Validation.

 

[Maika8008]

Bạn có thể dùng Data Validation.

Đơn giản và hiệu quả.

 

[T.Đ.A]

Bạn có thể dùng Data Validatio

Bạn có thể dùng Data Validation.

Dạ hiện tại em đang dùng Data Validation nhưng em làm theo list để loại bỏ khả năng nhập sai ạ. Còn nhập cách dòng như hình vẫn có thể nhập được ấy ạ. Anh có cách nào để mình block không cho bỏ dòng được không ạ.

 

[BuiQuangThuan]

Dạ hiện tại em đang dùng Data Validation nhưng em làm theo list để loại bỏ khả năng nhập sai ạ. Còn nhập cách dòng như hình vẫn có thể nhập được ấy ạ. Anh có cách nào để mình block không cho bỏ dòng được không ạ.

Để xử lí vấn đề triệt để. Thì có những yêu cầu bắt buộc với việc nhập liệu. Chứ làm sao mà tính toán được hết các khả năng để mà ngăn chặn.Nếu như người nhập liệu không ý thức được thì đổi người khác. Chứ đau đầu với việc này rồi 1 ngày đẹp trời nó phát sinh vấn đề. Mọi thứ thành công cốc.

 

[cantl]

Bác có idea nào không cho em xin tí ạ.

Này thì idea, nhưng không đảm bảo, chờ góp ý các bác rồi nghịch, lúc nào thấy báo lỗi thì cứ End nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    If WorksheetFunction.Trim(Target(-1).Value) = "" Then
        Target(-1).EntireRow.Delete
    End If
End If
End Sub

 

[T.Đ.A]

Này thì idea, nhưng không đảm bảo, chờ góp ý các bác rồi nghịch, lúc nào thấy báo lỗi thì cứ End nhé.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    If WorksheetFunction.Trim(Target(-1).Value) = "" Then
        Target(-1).EntireRow.Delete
    End If
End If
End Sub

Em cám ơn bác nhiều ạ

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

Để xử lí vấn đề triệt để. Thì có những yêu cầu bắt buộc với việc nhập liệu. Chứ làm sao mà tính toán được hết các khả năng để mà ngăn chặn.Nếu như người nhập liệu không ý thức được thì đổi người khác. Chứ đau đầu với việc này rồi 1 ngày đẹp trời nó phát sinh vấn đề. Mọi thứ thành công cốc.

Dạ vâng ạ. Em sẽ noted lại vấn đề này. Cám ơn bác đã góp ý.

 

[cantl]

Em cám ơn bác nhiều ạ

Cẩn thận, tớ là nghịch code chứ không biết viết đâu nhé.

 

[T.Đ.A]

Vâng. Mà chỗ code xoá dòng có thể giới hạn được ở 4 cột đầu không bác???ví dụ như delete dòng của 4 cột đầu ABCD chẳng hạn ấy ạ.

 

[cantl]

Vâng. Mà chỗ code xoá dòng có thể giới hạn được ở 4 cột đầu không bác???ví dụ như delete dòng của 4 cột đầu ABCD chẳng hạn ấy ạ.

Chả hiểu, chế cháo lung tung. VBA này nó hiểu không giống mình hiểu lắm.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
On Error GoTo line
    If WorksheetFunction.Trim(Target(-1).Value) = "" Then
        Target(-1).Offset(0, -1).Resize(1, 4).Delete (xlShiftUp)
    End If
End If
line:
Exit Sub
Resume Next
End Sub

 

[SA_DQ]

dạ hoặc là mấy a/c có code nào có thể buộc chúng ta phải nhập theo thứ tự không được bỏ khoảng trống không ạ.

Bạn nhập thế nào mà có được dòng trống, hay thế?
Có cách đánh vào thu nhập (biện pháp kinh tế) áp cho những kẻ muốn phá bĩnh dữ liệu của cơ quan

(*) Chú ý xíu nha: Đầu câu nên viết hoa, coi như là hành vi tôn trọng người đọc những dòng vàng ngọc của bạn;

Để xử lí vấn đề triệt để. Thì có những yêu cầu bắt buộc với việc nhập liệu. Chứ làm sao mà tính toán được hết các khả năng để mà ngăn chặn.Nếu như người nhập liệu không ý thức được thì đổi người khác.
Chứ đau đầu với việc này rồi 1 ngày đẹp trời nó phát sinh vấn đề. Mọi thứ thành công cốc.

Có cách khác xử triệt để nè:
Viết 1 Sub chỉ để thứ 2 hàng tuần chạy 1 lần & phát hiện dòng trống trong CSDL;
Nếu tuần trước nhập 3 dòng trống trở lên coi như nhịn lương tuần đó!