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

Question

我希望能够在excel单元格中选择值1。未选中的单元格保持空白。

Answer 1

ActiveCell将使用当前选中的单元格，如您所见，它为该单元格指定值1。

ActiveCell.value = 1

如果您希望它更多模块化（如果它可能多次发生），那么请考虑按​​照@Tom

的建议查看更改事件here

Answer 2

我真的不建议你这样做，特别是如果这是为了监控你的股票，所以这次和这次只有我写了它，以使它更安全，如果你＆＃39;实际上要做到这一点，但我不推荐它。

您需要将其粘贴到与

相关的工作表模块中

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编辑器（Windows上的快捷键Alt + F11）并粘贴到正确的工作表模块（注意突出显示的工作表）

我警告你，虽然这很快就会导致你的库存水平不准确，因为只要你点击一个单元格或用箭头键移动工作表就会运行。这可能会搞乱整个系统，并且不会撤消（vba擦除撤消内存）

更好的做法是实际监控您在Excel中的确切库存水平，然后使用公式（例如，您将库存水平保留在c栏中）

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

然后，这将自动准确地表示它是否有库存。