Tạo nút xóa dữ liệu đã nhập

[titanic]

chào các anh/chị
em muốn tạo một cái nút khi mình nhấp chọn vào nó sẽ tự động xóa các dữ liệu ở các ô mình muốn xóa (xem file đính kèm ) , cảm ơn trước nhe

 

[Hoàng Trọng Nghĩa]

Bạn cho ghi macro rồi bạn phủ khối ở vùng vàng đó rồi bấm xóa, tắt ghi macro, rồi vào VBA sửa lại chút xíu cho gọn, sau đó gán macro đó vào nút lệnh thôi!

Sau khi ghi macro thì nó sẽ như vầy:

Sub Macro1()
'
' Macro1 Macro
'
'
    Range("B2:C11").Select
    Selection.ClearContents
End Sub

Chỉnh lại chút xíu nó sẽ như vầy:

Sub Macro1()
  Sheets("du lieu nhap").Range("B2:C11").ClearContents
End Sub

 

[dhn46]

Bạn chắc cũng biết 1 ít về VBA nhỉ. Vậy code của bạn đây

Private Sub CommandButton1_Click()
Sheet2.Range("b2:c11").ClearContents
End Sub

 

[titanic]

cám ơn bạn đã chỉ nhưng có thể làm trên file mình gửi được không để mình nghiên cứu từ từ ? tại mình chưa hiểu lắm

 

[dhn46]

file của bạn đây. bạn tham khảo nhé

 

[vinhnguyet]

hỏi thông tin về nút xóa dữ lieu

em muốn xin các anh chị nào biết về tạo nút xóa dữ liệu hướng dẫn chi tiết cho em xem được không ah, em làm mãi mà không thực hiện được

 

[ndu96081631]

file của bạn đây. bạn tham khảo nhé

Bạn có đưa file lên cũng đừng khuyến mãi virus chứ
File của bạn có con StartUp bự chảng
Các bạn khác chú ý nha. Với file này mà Enable Macro, bị dính virus ráng chịu

 

[0905744404]

Bạn chắc cũng biết 1 ít về VBA nhỉ. Vậy code của bạn đây

Private Sub CommandButton1_Click()
Sheet2.Range("b2:c11").ClearContents
End Sub

Em cám ơn, Nhưng cho em hỏi thêm chút, nếu trong trường hợp em muốn xoá luôn cột đó đi thì phải viết code như thế nào
Em sửa lại code của anh nhưng không được vì no chỉ xoá data thôi
"Private Sub CommandButton1_Click()
Sheet2.Range("1:10").ClearContents
End Sub"

 

[0905744404]

Em cám ơn, Nhưng cho em hỏi thêm chút, nếu trong trường hợp em muốn xoá luôn cột đó đi thì phải viết code như thế nào
Em sửa lại code của anh nhưng không được vì no chỉ xoá data thôi
"Private Sub CommandButton1_Click()
Sheet2.Range("1:10").ClearContents
End Sub"

Private Sub CommandButton1_Click()
Sheet2.Range("1:10").Delete
End Sub
em làm được rồi em cám ơn

 

[0905744404]

[/QUOTE]

Bạn có đưa file lên cũng đừng khuyến mãi virus chứ
File của bạn có con StartUp bự chảng
Các bạn khác chú ý nha. Với file này mà Enable Macro, bị dính virus ráng chịu

Em Chào thầy!
thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên.
thầy giúp em nha!!

 

[0905744404]

Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete
Có thể record macro quá trình này để biết code ghi thế nào[/QUOTE]
Em không hiểu code viết như thế nào hết, em kem VBA lắm
thầy viết giúp em nha!!

 

[ndu96081631]

Em Chào thầy!
thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên.
thầy giúp em nha!!

Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete
Có thể record macro quá trình này để biết code ghi thế nào

 

[0905744404]

Em Chào thầy!
thầy có thể viết giúp em đoạn code xóa đi những dòng mà giá trị tại cột D ô nào rỗng thì xóa dòng đó đi còn không thì để nguyên.
thầy giúp em nha!!

Cách đơn giản nhất: AutoFilter cột D theo điều kiện Blanks rồi delete
Có thể record macro quá trình này để biết code ghi thế nào[/QUOTE]
Em làm ra như thế này rồi mà không biết phải là thế nào để code tự xóa những dòng rỗng đi
Thầy xem giúp em với
Sub Macro2()
ActiveWindow.SmallScroll Down:=-9
Selection.AutoFilter Field:=4, Criteria1:="="
ActiveWindow.SmallScroll Down:=-12
Rows("12:18").Select
Selection.Delete Shift:=xlUp
End Sub

 

[ndu96081631]

Em làm ra như thế này rồi mà không biết phải là thế nào để code tự xóa những dòng rỗng đi
Thầy xem giúp em với
Sub Macro2()
ActiveWindow.SmallScroll Down:=-9
Selection.AutoFilter Field:=4, Criteria1:="="
ActiveWindow.SmallScroll Down:=-12
Rows("12:18").Select
Selection.Delete Shift:=xlUp
End Sub

Nếu làm không được thì đưa file lên đây nhé

 

[0905744404]

Nếu làm không được thì đưa file lên đây nhé

Em tải file lên rồi mong Thầy xem và viết lại code giúp em với.

 

[vinhnguyet]

em đã xem file anh gửi lên, anh có thể hướng dẫn em cách tạo ra nút xóa đó được không ah

 

[0905744404]

Có thể record macro quá trình này để biết code ghi thế nào

Bạn làm theo hướng dẫn của thầy ndu96081631 nha.nút thì không khó lắm nhưng cón code thì mình cũng đang nhờ thầy viết cho nè.

 

[ndu96081631]

Em tải file lên rồi mong Thầy xem và viết lại code giúp em với.

Code xóa dòng chứa cell rổng tại cột D như sau:

Private Sub CommandButton3_Click()
  On Error Resume Next
  With Range("D4:D1000")
    .AutoFilter 1, "="
    .Offset(1).SpecialCells(12).EntireRow.Delete
    .AutoFilter
  End With
End Sub

 

[0905744404]

Code xóa dòng chứa cell rổng tại cột D như sau:

Private Sub CommandButton3_Click()  On Error Resume Next  With Range("D4:D1000")    .AutoFilter 1, "="    .Offset(1).SpecialCells(12).EntireRow.Delete    .AutoFilter  End WithEnd Sub

Em cám ơn thầy!!!Thầy giúp em viết lại code Hidden, anHidden những dòng có giá trị rỗng tại cột D với, em đang tìm hiểu về code VBA nên còn chậm lắm Thầy ạ

 

[ndu96081631]

Em cám ơn thầy!!!Thầy giúp em viết lại code Hidden, anHidden những dòng có giá trị rỗng tại cột D với, em đang tìm hiểu về code VBA nên còn chậm lắm Thầy ạ

Code như vầy sẽ là ẩn dòng có giá trị rổng tại cột D:

Private Sub CommandButton3_Click()
  On Error Resume Next
  Range("D4:D1000").AutoFilter 1, "<>"
End Sub

Còn để hiện ra thì hủy chế độ AutoFilter đi bằng đoạn code sau:

Private Sub CommandButton3_Click()
  On Error Resume Next
  ActiveSheet.AutoFilterMode = False
End Sub