Xin tư vấn việc sửa DL trên Form. (1 người xem)

[thanhtam348]

Tôi gặp đâu đó trong GPE nầy một File với chức năng trong Form tôi rất thích, nhưng xin hỏi anh chị và các bạn mình file nầy có thể thêm chức năng sửa dữ liệu và nạp lại vào Sheet được không? - nếu được xin giúp đở dùm mình cám ơn nhiều, mình rất muốn có một Form để sửa DL như vậy.

 

[tvxdgt]

nhưng xin hỏi anh chị và các bạn mình file nầy có thể thêm chức năng sửa dữ liệu và nạp lại vào Sheet được không? - nếu được xin giúp đở dùm mình cám ơn nhiều, mình rất muốn có một Form để sửa DL như vậy.

Bạn xem thế này có đúng ý không nha, hơi cũ chuối tý, bạn vào view code của UserForm1, thêm đoạn code này vào

Private Sub CommandButton2_Click()  
 On Error GoTo CommandButton2_Click_Error
Sheet2.Activate
Cells.Replace What:= _        
Me.ListBox1.Column(1), _        
Replacement:=Me.TextBox3.Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _        
False, SearchFormat:=False, ReplaceFormat:=False
   On Error GoTo 0  
 Exit Sub
CommandButton2_Click_Error:
End Sub

 

[thanhtam348]

Cám ơn bạn tvxdgt !
Tuy bạn nói "củ chuối" nhưng cũng dùng được - đủ vui, có điều mình muốn hỏi thêm: Nếu như dử liệu có 3 cột như trong File, và mình muốn thêm một TextBox nửa để sửa cho cột thứ 3 thì thêm thủ tục nào? - cách của bạn lạ với mình quá, mong bạn giúp thêm.

 

[tvxdgt]

Cám ơn bạn tvxdgt !
Tuy bạn nói "củ chuối" nhưng cũng dùng được - đủ vui, có điều mình muốn hỏi thêm: Nếu như dử liệu có 3 cột như trong File, và mình muốn thêm một TextBox nửa để sửa cho cột thứ 3 thì thêm thủ tục nào? - cách của bạn lạ với mình quá, mong bạn giúp thêm.

Bạn sửa lại một chút như thế này:

Private Sub CommandButton2_Click()  
On Error GoTo CommandButton2_Click_Error
Sheet2.Activate
Cells.Replace What:=Me.ListBox1.Column(0),Replacement:=Me.TextBox2.Value
Cells.Replace What:=Me.ListBox1.Column(1), Replacement:=Me.TextBox3.Value
Cells.Replace What:=Me.ListBox1.Column(3), Replacement:=Me.TextBox4.Value   
On Error GoTo 0  
 Exit Sub
CommandButton2_Click_Error:
End Sub

 

[thanhtam348]

Cám ơn bạn tvxdgt !
bạn xem lại dùm, mình chèn vào nó báo một hàng đỏ như phía dưới.

Private Sub CommandButton2_Click()
On Error GoTo CommandButton2_Click_Error
Sheet2.Select
[COLOR=#ff0000]Cells.Replace What:=Me.ListBox1.Column(0),Replacement:=Me.TextBox2.ValueCells.Replace What:=Me.ListBox1.Column(1), Replacement:=Me.TextBox3.ValueCells.Replace What:=Me.ListBox1.Column(3), Replacement:=Me.TextBox4.Value
[/COLOR]On Error GoTo 0
 Exit Sub
CommandButton2_Click_Error:
End Sub

 

[tvxdgt]

Cám ơn bạn tvxdgt !
bạn xem lại dùm, mình chèn vào nó báo một hàng đỏ như phía dưới.

Private Sub CommandButton2_Click()
On Error GoTo CommandButton2_Click_Error
Sheet2.Select
[COLOR=#ff0000]Cells.Replace What:=Me.ListBox1.Column(0),Replacement:=Me.TextBox2.ValueCells.Replace What:=Me.ListBox1.Column(1), Replacement:=Me.TextBox3.ValueCells.Replace What:=Me.ListBox1.Column(3), Replacement:=Me.TextBox4.Value
[/COLOR]On Error GoTo 0
 Exit Sub
CommandButton2_Click_Error:
End Sub

Bạn copy lại đoạn code trên mình mới hiệu chỉnh không thì xem trong file đính kèm cho tiện.

 

[thanhtam348]

Cái cột thứ 3 cho TextBox4 (cột Đơn Vị) còn bị lổi, bạn tvxdgt xem lại dùm nha!

 

[tvxdgt]

Cái cột thứ 3 cho TextBox4 (cột Đơn Vị) còn bị lổi, bạn tvxdgt xem lại dùm nha!

đoạn code cũ:

Cells.Replace What:=Me.ListBox1.Column(3), Replacement:=Me.TextBox4.Value

Đỗi thành:

Cells.Replace What:=Me.ListBox1.Column(2), Replacement:=Me.TextBox4.Value

nhưng trước mình nói "cũ chuối" là như thế này là dùng kiểu tìm kiếm và thay thế replace nên ở cột thứ 3 đơn vị ví dụ 100m2 khi thay thế thì thay thế hàng loạt đơn vị 100m2 luôn.

 

[thanhtam348]

Vậy có cách không bạn, mình thấy các cột khác vẩn tốt mà!

 

[tvxdgt]

Vậy có cách không bạn, mình thấy các cột khác vẩn tốt mà!

Các cột khác là do cột mã định mức thì không có cái nào trùng nhau, hạng mục định mức cũng vậy chỉ có cột đơn vị là trùng nhau nên vì vậy phải dùng đoạn code khác cho cột đơn vị vậy.

 

[thanhtam348]

Vậy nếu còn có thể xin giúp dùm một phen !