求助！如何个性设置表格之间数值的递增值

Leopold.h

大家好！我是做跨境电商的，刚工作上遇到一个问题，可因刚学vba，能力不够，解决不了，请大家帮忙下。
下面这张图是一个衣服的尺码表：

S是小号尺码，一般是输入小号尺码78后（每次值都不一样），按规律分别递增4上去，依次填入1，2，3，4四个格子中，也就是：82，86，90，94.[img]file:///C:\Users\M\AppData\Roaming\Tencent\Users\3147842980\QQ\WinTemp\RichOle\RH{56LE6BM1LFDO1GAEX][5.png[/img]

输入完第一行后，再输入第二行s列的数值，依次类推
我的问题是：有时候是递增5，有时候是2。
有没有办法跳出对话框，让客户输入最小尺码后，再输入递增规律值，然后自动填充完整？

liulang0808

表格change事件+inputbox，楼主看看这个是否能实现吧

microyip

在Worksheet_Change里设置代码，判断是否S的输入，是的话，弹出InputBox输入递增数值，然后自动填完后面的

Leopold.h

楼上两位大佬， 没学那么深，我研究下。能否有代码支持下！

fain8828

你好啊~我也是小白，刚开始自学vba。大概是这样写的吧
Public c As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
If [b2] <> c Then
c = [b2]
a = InputBox("数值", "")
[c2] = [b2] + a
[d2] = [c2] + a
[e2] = [d2] + a
End If

End Sub

Leopold.h

谢谢啦，可以用了。不过输入完后，要清空，会触发事件。这个有办法暂停吗？

Leopold.h

microyip 发表于 2020-3-16 11:56
在Worksheet_Change里设置代码，判断是否S的输入，是的话，弹出InputBox输入递增数值，然后自动填完后面的

你好！
按照你说的方法我试了下，可以用。不过我是设置s输入值与初始值不同才弹出窗口。
你能告诉判断s是否输入的表达式吗？

microyip

Leopold.h 发表于 2020-3-17 11:56
你好！
按照你说的方法我试了下，可以用。不过我是设置s输入值与初始值不同才弹出窗口。
你能告诉判断s ...

判断是否S列

Leopold.h

fain8828 发表于 2020-3-16 15:42
你好啊~我也是小白，刚开始自学vba。大概是这样写的吧
Public c As Integer
Private Sub Worksheet_Chang ...

有没有办法设置成只要一输入就弹出设置递增值的窗口，因为有时候是初始值设置对了，但是递增值设置错了。

Leopold.h

microyip 发表于 2020-3-17 11:59
判断是否S列

能列表达式看下嘛？我是新手，明白你的思维，可是写不出来。