Tôi có vấn đề như sau:
1- Files Excel mà các ô đã được giấu công thức. Làm thế nao để xem các công thức đó?
2- Làm thế nào khi nhập số sai trong Excel vào ô thì đổi màu ô?
Cám ơn anh, chị giúp
Bạn viết tiếng Anh hay tiếng Việt đây vậy?Tôi có vấn đề như sau:. . .
2- Làm thế nào khi nhập số sai trong Excel vào ô thì đổi màu ô?
Bạn phải chuột vô thanh SheetsName (bên trái dưới cùng màn hình excel)Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ij As Integer
If Not Intersect(Target, Range("A2:A99")) Is Nothing Then
Select Case VarType(Target.Value)
Case 0
ij = 34
Case 1: ij = 35
Case Is < 7: ij = 36
Case 8: ij = 37
Case 9, 13: ij = 38
Case 10, 11, 12: ij = 39
Case Is < 37: ij = 40
Case Else: ij = 41
End Select
End If
With Target.Interior
.ColorIndex = ij: .Pattern = xlSolid
End With
End Sub