我希望实现以下目标:
Column C
已根据数据输入进行条件格式化:如果输入的数据超出范围,单元格背景将变为红色。
我想在输入数据时通过强制输入框强制在工作表底部输入数据,并且由于超出范围的数据,单元格被条件格式化为红色。
以下是我尝试过的代码:
Private Sub worksheet_change(ByVal target As Range)
If target.rows.count > 1 or target.columns.count > 1 Then
Exit Sub
End If
Dim com As String
Dim comm1 As String
Set isect=Application.Intersect(target,Range("C1:C100"))
If isect Is Nothing Then
Else
If target.Interior.Color = RGB(255,0,0) Then
com = "Enter comment at bottom of sheet"
Do While comm1 = ""
comm1 = Application.InputBox(prompt:=com, Type:=2)
On Error GoTo myloop
If comm1 = False Then
comm1 = ""
End If
myloop:
On Error GoTo -1
Loop
Range("B101").Value = comm1
Else
Range("B101").Value = ""
End If
End If
End Sub