连接文本到列表框多选字符串

我已经能够从这里一个非常有用的来源,但最后一块就建立验证码,加入“及”我的字符串选择的最后一项没有给预期的结果之前。 我的目标是列表框选择拼凑成一句话:“我搜索的替代部件通过ABC零件...,XYZ零件...... CAB零件......”

所有的代码工作,除了隔离出来的最后一个条目,输入“和”但我没有不给一个错误。 我想像的问题主要有做,我怎么把它添加到代码 - 这里是完整的代码:

私人小组lbPartCo_Exit(取消作为整数)
昏暗varRow为Variant,strText的作为字符串
昏暗的K作为整数
昏暗的delim作为字符串

strText的= vbNullString
如果Me.lbPartCo.ItemsSelected.Count> 0。然后
对于每个varRow在Me.lbPartCo.ItemsSelected
strText的= strText的&Me.lbPartCo.Column(1,varRow)“”_
与格式(Me.lbPartCo.Column(2 varRow),“\(@@@ \)@@@ - @@@@”)_
&“每”&Me.lbPartCo.Column(3,varRow)“,”
接下来varRow
Me.Text25 =“我寻找替代零部件通过”&_
左(strText中,莱恩(strText中) - 2)“。”
对于k = 0至Me.lbPartCo.ItemsSelected.Count - 1
varRow = Me.lbPartCo.ItemsSelected(K)
如果k> 0。然后
如果k = Me.lbPartCo.ItemsSelected.Count - 1然后
DELIM =“和”
其他
DELIM =“,”
万一
万一
strText的= strText的&DELIM&Me.lbPartCo.Column(0,varRow)

下面k
万一

结束小组

非常感谢!!

--------------解决方案-------------

对不起,我再次复制和一些旧的代码粘贴。 让我们尝试改变单纯从一条线

strText的= strText的&DELIM&Me.lbPartCo.Column(0,varRow)

strText的= strText的&DELIM&Me.lbPartCo.Column(1,varRow)“”_
与格式(Me.lbPartCo.Column(2 varRow),“\(@@@ \)@@@ - @@@@”)_
&“每”&Me.lbPartCo.Column(3,varRow)“,”

对不起,没有把它清楚,我张贴在另一个线程代码应该代替你之前的逻辑。 尝试使用仅此无任何变化。

私人小组lbPartCo_Exit(取消作为整数)
昏暗varRow为Variant,strText的作为字符串
昏暗的K作为整数
昏暗的delim作为字符串

如果Me.lbPartCo.ItemsSelected.Count> 0。然后
对于k = 0至Me.lbPartCo.ItemsSelected.Count - 1
varRow = Me.lbPartCo.ItemsSelected(K)
如果k> 0。然后
如果k = Me.lbPartCo.ItemsSelected.Count - 1然后
DELIM =“和”
其他
DELIM =“,”
万一
万一
strText的= strText的&DELIM&Me.lbPartCo.Column(0,varRow)
下面k
万一
Me.Text25 =“我寻找替代零部件通过”&strText的
结束小组

这就职于“和”一块拼图,但是从结果代码给我这样的文字:“我搜索的替代部件通过2和4”

我一直在这里和那里,但没有得到一块拼图的整个句子。 这就是为什么我认为肯定,它已得到拼接与其他代码,以解决多列和格式化你这么好心帮我以前的各个方面。 请问有没有把所有这些代码一起给予充分的结果,我就想了一个办法 - 包括多列信息,为电话号码的格式化,并插入“和”最后一个项目之前选择?

对不起,我再次复制和一些旧的代码粘贴。 让我们尝试改变单纯从一条线

strText的= strText的&DELIM&Me.lbPartCo.Column(0,varRow)

strText的= strText的&DELIM&Me.lbPartCo.Column(1,varRow)“”_
与格式(Me.lbPartCo.Column(2 varRow),“\(@@@ \)@@@ - @@@@”)_
&“每”&Me.lbPartCo.Column(3,varRow)“,”

这是极好的! 这给了我正是我想要的。 谢谢各位大大为您的所有帮助! :)

分类:办公室 时间:2015-03-15 人气:0
分享到:

相关文章

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 1.724 (s). 10 q(s)