Как вставить 1 автоматически в ячейку excel?

Question

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

Answer 1

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

ActiveCell.value = 1 

Если вы хотели бы быть более модульным, если это возможно, происходит много раз, а затем рассмотреть возможность взглянуть на события изменения here, как это было предложено @tom

Answer 2

Я действительно не рекомендую делая это, особенно если это для мониторинга вашего запаса, и поэтому за это время, и на этот раз только я написал его, чтобы сделать его более безопасным, если вы действительно это сделаете, НО Я НЕ РЕКОМЕНДУЕТ ЭТО.

вы будете нуждаться, чтобы вставить это в модуль листа, что он относится к

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    If Target.Columns.Count = 1 And Target.Rows.Count = 1 And Target.Column = 2 Then 
     Target.Value = 1 
    End If 
End Sub 

Чтобы получить к модулю рабочего листа вам нужно перейти в редактор VBA (Shortcut Alt + F11 на окнах) и вставить в нужном модуле рабочего листа (Примечание выделено лист)

Я предупреждаю вас, хотя это может очень быстро привести к вашему уровню запаса неточным, так как это будет работать при нажатии на ячейке или переместить вокруг горе rksheet с помощью клавиш со стрелками. Это может испортить всю вашу систему и не будет отменено (vba вытирает память отмены)

Что было бы гораздо лучше сделать, это фактически контролировать ваши точные уровни запасов в excel, а затем использовать формулу, например (скажем, вы сохраните свой уровень запасов в колонке c)

=IF(C1>0, B1=1, B1=0) 

Это автоматически автоматически точно отражает, было ли это на складе или нет.