Nhờ GPE hướng dẫn cách giúp để đoạn code trên (phần chữ màu đỏ) không Clear tất cả thông tin ở Range BB2:BH2
Chưa xem file của bạn nhưng qua mô tả tôi đoán như sau: phần bị lỗi do chưa có tham chiếu tới thư viện Scripting runtime. Vậy để sửa bạn làm như sau:
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ByVal X As Single, ByVal Y As Single)
If Label2.BackStyle = fmBackStyleTransparent Then
Label2.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Label3.BackStyle = fmBackStyleTransparent Then
Label3.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If Label4.BackStyle = fmBackStyleTransparent Then
Label4.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub cmdIn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If cmdIn.BackStyle = fmBackStyleTransparent Then
cmdIn.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub cmdInSQ_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If cmdInSQ.BackStyle = fmBackStyleTransparent Then
cmdInSQ.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub cmdThoat_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If cmdThoat.BackStyle = fmBackStyleTransparent Then
cmdThoat.BackStyle = fmBackStyleOpaque
End If
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label2.BackStyle = fmBackStyleOpaque Then
Label2.BackStyle = fmBackStyleTransparent
ElseIf Label3.BackStyle = fmBackStyleOpaque Then
Label3.BackStyle = fmBackStyleTransparent
ElseIf Label4.BackStyle = fmBackStyleOpaque Then
Label4.BackStyle = fmBackStyleTransparent
ElseIf cmdIn.BackStyle = fmBackStyleOpaque Then
cmdIn.BackStyle = fmBackStyleTransparent
ElseIf cmdInSQ.BackStyle = fmBackStyleOpaque Then
cmdInSQ.BackStyle = fmBackStyleTransparent
Else
cmdThoat.BackStyle = fmBackStyleOpaque
cmdThoat.BackStyle = fmBackStyleTransparent
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(, 2).Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Offset(, 2).Activate
MsgBox ActiveCell.Address
Application.EnableEvents = True
End SubTôi nghĩ chẳng có gì để rút gọn ở các sự kiện MouseMove trên, bởi như vậy đã là tương đối tối ưu, nhưng nếu bạn có thể dùng Class thì có thể rút gọn hơn cho bạn, tuy nhiên bạn cần gửi cái file có cái form đó lên đây tôi sẽ giúp cho bạn.
Tôi biết bạn nói về bài nào và của ai, đây cũng không phải là lười biếng mà họ muốn tiện ích, không muốn sử dụng chuột, tuy nhiên, ở cell nó không như textbox tức nó không có sự kiện Cell_Change nên rất khó thực hiện ý đồ đó.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Left(Target.Address(0, 0), 1) = "E" Then
Target.Offset(, -4).Activate
MsgBox ActiveCell.Address
' Code cua ban
Else
Target.Offset(, 2).Activate
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then
If Target <> "" Then
Target.Offset(, 4).Value = Now
Target.Offset(, 3).FillDown
Target.Offset(, 2).Activate
Else
Target.Offset(, 1).Resize(, 4).ClearContents
End If
ElseIf Target.Column = 2 Then
If Target <> "" Then Target.Offset(1, -1).Activate
ElseIf Target.Column = 3 Then
If Target <> "" Then Target.Offset(1, -2).Activate
End If
End If
End SubEm cám ơn anh phucbugis nhé, ok rồi anh ơi anh giỏi thật sửa lại vừa gọn vừa hết lỗi, anh có thể giải thích vì sao code em làm bị lỗi không anh ?
Cám ơn Thầy đã hồi âm! form này ở trong một chương trình em đang viết có nhiều form, Thầy cho em thời gian để tách riêng form này ra và gửi lên chương trình nhờ Thầy giúp em, về Class em còn lớ ngớ lắm, rất mong Thầy quan tâm giúp đỡ. Trân trọng
Chào thầy Nghĩa! Em gửi file giả định lên nhờ Thầy giúp đỡ. Cụ thể Thầy xem giúp em 1 số nội dung sau:
Tôi làm tạm cái file này, bạn xem có thấy gì bất tiện không nhé.
Cám ơn Thầy đã quan tâm giúp đỡ em !, em đã chạy thử thấy code rất gọn, chạy êm và nhanh hơn rất nhiều, tuy nhiên khi Prin Priview vẫn bị mờ các nút chức năng Thầy ạ, hơn nữa khi thoát từ nút thoát thì vẫn không thoát hết cả phần excel. em đã thử bằng cách thêm 1 nút lệnh để mở form từ excel (Không cho mở form ngay khi Enable ) thì không mắc lỗi mờ khi Prin Priview, em không hiểu lỗi này là lỗi gì. Rất mong Thầy quan tâm giúp đỡ. Trân trọng biết ơn Thầy
