Excel编程自动完成部分input（数字）

我们在Excel中pipe理我们的库存。 我知道它的老式，但我们正在发展商业公司，我们所有的钱都被封锁在业务上，没有钱投资于IT。

所以我想知道我可以用excel自动完成产品编号的方式进行编程吗？

这是一个产品类别的例子

我们所有的devise代码都是6位数字，我真正想要的是当只有部分号码被添加，并点击input它自动完成剩余的数字通过采取上述数字。

因此，例如在这种情况下，我期待的是，如果我input5自动进入它基于上述号码790705 。

Answer 1

将下面的VBA代码添加到工作表的代码部分：

 Private Sub Worksheet_Change(ByVal Target As Range) Dim oldText As String, aboveText As String, newText As String If Target.Column = 2 And Target.Row >= 3 And Target.Text <> "" Then oldText = Target.Text aboveText = Target.Cells(0, 1).Text If Len(aboveText) = 6 And Len(oldText) < 6 Then newText = Left(aboveText, 6 - Len(oldText)) & oldText Application.EnableEvents = False Target.Value = newText Application.EnableEvents = True End If End If End Sub 

（根据工作表中的实际列/行号更改上面的列号和最小行号）。

Answer 2

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If (Target.Column = 2 And Target.Row > 2 And Target.Value < 10) Then Target = Target.Offset(rowOffset:=-1) + 1 End If End Sub 

只要您在新行中input一个数字，它就会转换到前一行+1。