vba窗体 点击增加减少_EXCEL之VBA-窗体实例多页控件的基础应用

前天发了一个窗体应用的简单例子，里面所举的例子也不完善，在这里重新完善一下，下图就是建的一个窗体可可实现的一些功能，之前的例子中插入行的代码是不完善的，现在重新发一下，这代码可以实现从第几行开始到第几行，每相隔几行就插入几行的功能，当然，现在分享的主要是窗体的应用，里面的功能可以根据需要自行添加的，只是上次发了例子的代码是不完善的，现在完善一下。

从第几行到第几行每隔几行插入几行

执行结果

下面是窗体中第一页插入行实现的功能，从第几行到第几行，每相隔几行插入几行空白行。

Private Sub 开始插入_Click()

Dim k, c, e, m, T

k = 我的工具箱.k.Text '设置从第几行开始插入行的变量等于文字框名字为K的内容，这个内容是可自行输入修改的

c = 我的工具箱.c.Text '插入几行

e = 我的工具箱.e.Text '要插入行区域最后一行

m = 我的工具箱.m.Text '相隔几行插入

k= CInt(k)

c = CInt(c)

e = CInt(e)

m = CInt(m)

T = (e - k + 1) * (m + c) / m + k - 1 '这里是计算插入空白行后的的行数，

'没使用cint把文本的数字转换转换成数值型，在进行数值计算时会出现一些问题，比