InputBox 字符上限的问题

lichao940 · 发表于 2018-9-3 10:35

   我做了一个订单处理程序，使用InputBox 来接收订单号，然后每个订单号使用/ 来分割，但我发现我的订单号过长 400001235/400003238/。。。这样我一次最多只能输入 10几个订单号。。。
但是我每天有100多个订单，总字符长度超过1024字节。

这如何做接收和循环啊。。。。哭瞎。。

sonumber = InputBox("请输入订单号" & vbNewLine & "多个订单请用分割符号 / ", "输入提示")
      If sonumber <> "" Then
         sonumber = sonumber & "/"

         so_number = Split(sonumber, "/")

         For soindex = 0 To UBound(so_number)

02761752696 · 发表于 2018-9-3 11:13

感觉你是不是进入误区了，简单是问题复杂化了

lichao940 · 发表于 2018-9-3 11:58

额。。好像是。。我有个模版订单号会在订单号会以固定列排好，我要得到列数据数量，然后循环就好了。。。

lichao940 · 发表于 2018-9-3 12:45

02761752696 发表于 2018-9-3 11:13
感觉你是不是进入误区了，简单是问题复杂化了

有啥简单的办法吗。。。。

向東 · 发表于 2018-9-3 13:15

你是用扫码枪获取订单号吗？

lichao940 · 发表于 2018-9-3 13:43

向東发表于 2018-9-3 13:15
你是用扫码枪获取订单号吗？

不是人工粘贴到EXL 列的。。。

向東 · 发表于 2018-9-3 13:55

你可以在表中插入一个Textbox控件来采集

lichao940 · 发表于 2018-9-3 15:12

向東发表于 2018-9-3 13:55
你可以在表中插入一个Textbox控件来采集

插入了一个控件，，但怎么返回个用/分段。。。

lichao940 · 发表于 2018-9-3 15:30

向東发表于 2018-9-3 13:55
你可以在表中插入一个Textbox控件来采集

如何做这个属性的TEXTBOX。。。

sonumber= InputBox("请输入梯号" & vbNewLine & "多个梯号请用分割符号 / ", "合格证输入提示")

向東 · 发表于 2018-9-3 15:44

sonumber= InputBox("请输入梯号" & vbNewLine & "多个梯号请用分割符号 / ", "合格证输入提示")
你这个代码，输入交互只适合偶尔少量的数据，要是大量的录入不累死，还以为你用码枪扫码录入。
你参考一下这个帖子里的代码：
http://club.excelhome.net/thread-587659-1-1.html
看看，输入是如何交互的

		自动登录	找回密码
密码			免费注册

[讨论] InputBox 字符上限的问题