根据另一个单元格的条件格式将单元格设为必填项

根据另一个单元格的条件格式将单元格设为必填项

我希望实现以下目标:

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

相关内容