Я стремлюсь достичь следующего:
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