Hỏi về cách tìm kiếm và thay thế dữ liệu bằng UserForm. (1 người xem)

[khamha]

Theo tiêu đề,ý của mình là muốn làm 1 cái Form để sử dụng vào việc tìm kiếm và thay thế dữ liệu theo cột,trong đó có:
1. ComboBox thứ nhất dùng để điền cột cần tìm dữ liệu,bắt đầu từ dòng thứ 3 đến dòng cuối cùng có dữ liệu.
2. ComboBox thứ hai dùng để điền dữ liệu cần tìm.
3. 1 TexBox dùng để điền dữ liệu cần thay thế.
Các bạn giúp mình nhé,Cảm ơn các bạn.

 

[Hai Lúa Miền Tây]

Theo tiêu đề,ý của mình là muốn làm 1 cái Form để sử dụng vào việc tìm kiếm và thay thế dữ liệu theo cột,trong đó có:
1. ComboBox thứ nhất dùng để điền cột cần tìm dữ liệu,bắt đầu từ dòng thứ 3 đến dòng cuối cùng có dữ liệu.
2. ComboBox thứ hai dùng để điền dữ liệu cần tìm.
3. 1 TexBox dùng để điền dữ liệu cần thay thế.
Các bạn giúp mình nhé,Cảm ơn các bạn.

Hong biết yêu cầu này có thể dùng ADO để giải quyết không nhỉ? Bạn cho xem 1 ít dữ liệu giả lập trong đó có form + các control lên thử nhé.

 

[khamha]

Vì ko thể vào DD bằng PC được,nên mình up lên đây:http://www.ziddu.com/download/20756527/Timkiemvathaythe2.xls.html
Bạn thông cảm nhé,cảm ơn.

Dữ liệu thực tế là chữ chứ ko phải số!

 

[Hai Lúa Miền Tây]

Vì ko thể vào DD bằng PC được,nên mình up lên đây:http://www.ziddu.com/download/20756527/Timkiemvathaythe2.xls.html
Bạn thông cảm nhé,cảm ơn.

Dữ liệu thực tế là chữ chứ ko phải số!

Làm thử như sau:

Dim cn As Object, adoRS As Object
Private Sub OK_Click()
  Set adoRS = CreateObject("ADODB.Recordset")
  On Error GoTo BaoLoi
        With adoRS
                 .Source = "UPDATE [SHEET1$] SET F" & Cot & "='" & Thaythe & "' WHERE F" & Cot & " LIKE '" & Timdulieu & "'"
                 .ActiveConnection = cn
                 .Open
        End With
    Exit Sub
BaoLoi:
MsgBox Err.Description

End Sub
Private Sub UserForm_Initialize()
  Set cn = CreateObject("ADODB.Connection")
  
        With cn
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                           "Data Source=" & ThisWorkbook.FullName & _
                                           ";Extended Properties=""Excel 8.0;HDR=No;"";"
            .Open
        End With

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set adoRS = Nothing
cn.Close
Set cn = Nothing
End Sub

Bạn lưu ý số cột bạn phải gõ là số từ 1->số cột có trong bảng.

 

[viehoai]

Vì ko thể vào DD bằng PC được,nên mình up lên đây:http://www.ziddu.com/download/20756527/Timkiemvathaythe2.xls.html
Bạn thông cảm nhé,cảm ơn.

Dữ liệu thực tế là chữ chứ ko phải số!

Khamha tham khảo them file không dùng ADO