Поместите следующий макрос события рабочего листа в область кода рабочего листа:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CheckCells As Range, r As Range, rINT As Range
Set CheckCells = Range("A2")
Set rINT = Intersect(CheckCells, Target)
If rINT Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rINT
If r.Value > 20 Then r.Value = 20
Next r
Application.EnableEvents = False
End Sub
Он будет контролировать входы в ячейку A2 и ограничивать их до 20. Если вы хотите наложить те же ограничения на другие ячейки, вы можете сделать это, изменив одну строку кода.
Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:
- щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
- выберите View Code - откроется окно VBE
- вставьте материал и закройте окно VBE
Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.
Если вы сохраните книгу, макрос будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- вызвать окна VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Чтобы узнать больше о макросах событий (код листа), см .:
http://www.mvps.org/dmcritchie/excel/event.htm
Макросы должны быть включены, чтобы это работало!