Как требовать ввода в ячейку, если значение имеет другая ячейка

Question

Я пытаюсь отредактировать VBA для одной из моих книг, чтобы при наличии значения в столбце A требовалось значение для столбца C, иначе файл не будет сохранен, но у меня возникли некоторые проблемы с этим , Я могу получить Excel, чтобы проверить ячейку для любого ввода и требовать, чтобы у нее был ввод, но мне нужно проверить, есть ли у другой ячейки ввод, прежде чем требовать ввода. Это связано с тем, что не все строки в моей электронной таблице будут использоваться постоянно, но некоторые люди забывают поместить в электронную таблицу очень важные фрагменты информации, которые отбрасывают некоторые из наших остатков.

Артикул вводится в лист, когда мы переключаемся на новый, и я хочу, чтобы программа проверяла, есть ли количество продукта в данной ячейке каждый раз, когда новый артикул вводится в лист.

Благодарю.

Answer 1

Нечто подобное будет работать, оно напоминает пользователю вводить что-то в количестве. Поместите это в код для рабочего листа.

Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, Range("A:A")) Is Nothing And target.Value <> "" Then

    If target.Offset(, 2) = "" Then
        MsgBox ("For the SKU you just entered, be sure to enter a quantity in Column C")
    End If

End If

End Sub

Вы можете изменить его так, чтобы он потребовал ввода или чего-либо еще, если хотите. Как это -

Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, Range("A:A")) Is Nothing And target.Value <> "" Then

    If target.Offset(, 2) = "" Then
        target.Offset(, 2) = InputBox("How many of these are there?")
    End If

End If

End Sub