1

Я стремлюсь достичь следующего:

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

0