Sửa giùm lỗi VBA

[tamhoncuada10313]

Khi em ấn vào nút sửa thì sẽ hiện ra một form khác. Trên form hiện ra em điền mã thiết bị cần sửa và ấn nút hiển thị để hiện thị lên những info liên quan. Nhưng không hiểu sao khi tìm được nó vẫn cứ hiện lên msg là không tìm được
Thêm một điều nữa là em muốn khi vào bảng tính thì ko sửa được dữ liệu mà muốn sửa dữ liệu thì phải sửa trên form

 

[voda]

-Bạn khai báo thêm biến t và chỉnh code lại như sau:

With Sheet1
    For i = 4 To lrow
        If .Cells(i, 2) = txtmatim Then
        Me.ten = .Cells(i, 3)
        Me.dvtinh = .Cells(i, 4)
        Me.ban = .Cells(i, 5)
        Me.time = .Cells(i, 6)
        Me.dvsd = .Cells(i, 7)
        Me.user = .Cells(i, 8)
        Me.note = .Cells(i, 9)
        Me.cmdsua.Enabled = False
        t = 1
       End If
    Next i
    If t <> 1 Then MsgBox "Khong co trong danh muc", , "Thong Bao!"
End With

-Nếu không cho chỉnh sửa trong sheet, bạn thêm dòng lệnh mở và khóa sheet ở đầu và cuối các thủ tục.

 

[tamhoncuada10313]

Dòng lệnh mở và khóa sheet đầu và cuối mỗi thủ tục là như thế nào hả bác voda. Em mới tập tọng VBA nên ko hiểu rõ lắm. Mong bác thông cảm vì đã làm phiền bác

 

[salam]

Ví dụ bạn đặt thêm code bảo vệ sheet vào.

Private Sub Workbook_Open()
UserForm1.Show
ActiveSheet.Unprotect
End Sub

Private Sub cmdexit_Click()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me
End Sub

 

[voda]

Bạn thử thêm như sau:

Private Sub cmdtim_Click()
Dim lrow As Long, i As Long
[B]Sheet1.Unprotect("123")[/B]
         lrow = Sheet1.[B4].End(xlDown).Row
         If Me.txtmatim = "" Then
              Me.txtmatim.SetFocus
             MsgBox "Chua nhap ma"
            Exit Sub
        End If
........
........
[B]Sheet1.Protect("123")[/B]
End Sub

 

[tamhoncuada10313]

Em có điều muốn hỏi các bác: giả sử trong một form em có một nút là :"vào excel" để khi ấn vào đó sẽ vào bảng tính excel cho mình thì đoạn code cho nút đó như thế nào ạ?
Thuộc tính nào của form để hiện lên mấy nút phóng to thu nhỏ cửa sổ?

 

[voda]

-Câu lệnh đó là: Tênsheet.Activate
-Vấn đề 2, bạn tham khảo theo link:
http://www.giaiphapexcel.com/forum/showthread.php?p=78211#post78211

 

[tamhoncuada10313]

Chức năng xóa ở form danh mục thiết bị không xóa được
Chức năng cập nhật của form sổ sửa chữa không kẻ khung được
Mong các bác sửa lỗi giùm