Excel VBA里面，如何实现，插入的文本框里面，读取excel表里面已有的编号列，并+1

宋建先生

请教一下各位大神，
1：excel vba里面，插入窗口里面的文本框控件，如何实现文本框里面自动读取已有的excel表格里面的编号最大值，并+1，这样实现文本框不用自己输入了。

2：如何实现，在vba窗口里面，大小写的转换？比如已有计算出的小写数值，转换成大写；

第一问题配图

第二问题配图



###附件
2018年7月17日登录窗口.rar (169.14 KB, 下载次数: 30)

2018-7-18 18:18 上传

点击文件名下载附件

宋建先生

跪谢各位大神

不知道为什么

宋建先生 发表于 2018-7-19 08:31
跪谢各位大神

楼主，第一个问题有现成的max函数，取来一用即可。第二个转大写的，论坛很多代码，动动你的小手下即可。相信能做出如此漂亮界面的是应该有能力处理这基础问题的。

宋建先生

不知道为什么 发表于 2018-7-19 08:58
楼主，第一个问题有现成的max函数，取来一用即可。第二个转大写的，论坛很多代码，动动你的小手下即可。 ...

好的，谢谢大侠指点，我这就试试看~谢谢~

宋建先生

不知道为什么 发表于 2018-7-19 08:58
楼主，第一个问题有现成的max函数，取来一用即可。第二个转大写的，论坛很多代码，动动你的小手下即可。 ...

大侠，我现在已经能在文本框里面读取到编号的最大值并+1了，但是有个问题，这个文本框只能先输入一下，比如随便输入个文字或者数字了，然后这个文本框的数值才能变成“最大值+1”这个正确的数，这是什么问题呢？

不知道为什么

宋建先生 发表于 2018-7-19 09:52
大侠，我现在已经能在文本框里面读取到编号的最大值并+1了，但是有个问题，这个文本框只能先输入一下，比 ...

没看你附件，我猜测你可以这样实现：1、窗体加载时，读取最大值，2、在某个操作后 读取最大值。

宋建先生

不知道为什么 发表于 2018-7-19 10:23
没看你附件，我猜测你可以这样实现：1、窗体加载时，读取最大值，2、在某个操作后 读取最大值。

已经修改好了，嘿嘿，谢谢您了~

宋建先生

可是大小写这个问题还是没有解决。。

宋建先生

转大小写这个问题真心没解决~不知道该怎么弄了~

mrzhu

1. Private Sub 数量_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.     小写金额 = Format(Val(数量) * Val(单价), "0.00 元")
   
3.     大写金额.Value = DX(Val(数量) * Val(单价))
   
4. End Sub

复制代码

1. Private Function DX(m)
   
2.     DX = IIf(Abs(m) < 0.005, "", Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 00")), Split("@ [DBNum2];;0 [>9][dbnum2]圆0角0分;[=0]圆整;[dbnum2]圆零0分")), ""), "零分", "整"), "0圆零", ""), "0圆", ""))
   
3. End Function

复制代码