如何在excel单元格中自动插入1？

Question

I want to be able to put a value of 1 in an excel cell when it is selected. Cells that are not selected remain blank.

Answer 1

ActiveCell will use the current cell that is selected then, as you can see, it assigns the value of 1 to that cell.

ActiveCell.value = 1

If you would like it to be more modular if it is perhaps occurring many times, then consider having a look at change events here , as suggested by @Tom

Answer 2

I really don't recommend you doing this especially if this is for monitoring your stock and so for this time and this time only I've written it to make it a bit more safer if you're actually to do this BUT I DO NOT RECOMMEND IT.

you're going to need to paste this into the worksheet module that it relates to

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

To get to the worksheet module you need to go into the vba editor (Shortcut Alt+F11 on windows) and paste in the correct worksheet module (Notice highlighted sheet)

I warn you though this could very quickly lead to your stock levels being inaccurate as this will run whenever you click on a cell or move around a worksheet with the arrow keys. This could mess up your whole system and there will be no undo (vba wipes the undo memory)

What would be much better to do is actually monitor your exact stock levels in excel, then use a formula such as (say you keep your stock level in column c)

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

This would then automatically accurately represent whether it was in stock or not.