我们在 Excel 中管理库存。我知道这有点过时,但我们正在发展商业公司,我们所有的钱都被困在业务上,没有钱投资 IT。
所以我想知道我可以用Excel自动完成产品编号的方式进行编程吗?
这是一个产品类别的示例
我们所有的设计代码都是6位数字,我真正想要的是,当只添加部分数字并按回车键时,它会通过上面的数字自动完成剩余的数字。
例如,在这种情况下,我期望的是,如果我输入 5
按 Enter 键,它会根据上述数字自动生成 790705
。
最佳答案
将以下 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
(根据您工作表中的实际列数/行数更改上面的列数和最小行数)。
关于Excel编程自动完成部分输入(数字),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4673446/