Gấp: Nhờ cao thủ giúp đỡ xư lý lỗi code tìm kiếm và sửa dữ liệu trong excel (1 người xem)

[phhg1983]

Hiện nay em đang làm đề tài quản lý thư viện chỗ em: dùng lập trình trong Excel.
Tuy nhiên, khi em chạy thì không thấy có kết quả ( cũng không báo lỗi):
Ví dụ:
- khi nhấn vào sửa, thay đổi dữ liệu thì dữ liệu trong data cũng không đổi.
- khi dùng lệnh xóa thì dữ liệu cũng không mất

Các bác chỉ giúp em với.

 

[VetMini]

Gấp: Nhờ mót thủ giúp đỡ.

 

[SA_DQ]

Bạn nên sửa lại tiêu đề bài viết;
Ví như:

Giúp lập trình quản lí sách & tài liệu tại 1 thư viện

 

[SA_DQ]

Trong macro này của bạn:

Private Sub btns_Click()
With Sheet1
    Dim i As Integer
    MsgBox Me!id.Caption
    For i = 2 To Range("A10000").End(xlUp).Row
5        If Cells(i, 1) = id.Caption Then
            Cells(i, 2) = txtts.Text:                Cells(i, 3) = txttg.Text
        End If
    Next i
    MsgBox "Saved!", vbInformation
    Unload Me
   End With
End Sub

Dòng lệnh mang số 5 để làm điều kiện ghi dữ liệu sẽ không bao giờ đạt được;
Lí do là:
Cells(i, 1) là các trị số, còn Me!id.Caption luôn là kiểu dữ liệu chuỗi (text)
Sao chúng bằng nhau cho được?