请各位大神指教，小生在此拜谢关于TEXTBOX内容和LISTBOX内容的有条件合并

lucasmnp · 发表于 2023-7-14 15:08

谢谢各位大神的不啬指教，小生在此拜谢！

因工作需要，不断用到VBA，虽经过论坛，也进步了一点，但始终欠缺点天份，请各大神指点一二！
谢谢

蓝桥玄霜 · 发表于 2023-7-14 15:53

合并的例子：

lucasmnp · 发表于 2023-7-14 16:57

本帖最后由 lucasmnp 于 2023-7-14 23:08 编辑

继续顶呀继续顶呀

lucasmnp · 发表于 2023-7-14 17:10

蓝桥玄霜发表于 2023-7-14 15:53
合并的例子：

您好蓝版，多谢你回复，受宠若惊，

但可能我表达得不够清楚，如图显示，我也更新了附件，重新写清楚了需求，谢谢！

lucasmnp · 发表于 2023-7-14 17:11

意思就是说，凡是显示FALSE的，都不合并

lucasmnp · 发表于 2023-7-14 22:51

继续顶顶。。。

lucasmnp · 发表于 2023-7-15 04:13

继续顶呀，遍历论坛，也没相关例子啊！

蓝桥玄霜 · 发表于 2023-7-15 08:58

Private Sub CommandButton3_Click()
Dim ry$, zb$, bz$, hb$
ry = Sheet1.Range("C2").Text: zb = Sheet1.Range("D2").Text: bz = Sheet1.Range("E2").Text
If zb <> "FALSE" Then
hb = ry & ":" & zb & ":"
If bz <> "FALSE" Then
hb = hb & ":" & bz
End If
Else
hb = ry & ":"
If bz <> "FALSE" Then
hb = hb & bz
End If
End If
Sheet1.[E10] = hb
End Sub

复制代码

lucasmnp · 发表于 2023-7-15 14:14

蓝桥玄霜发表于 2023-7-15 08:58

谢谢蓝版谢谢蓝版谢谢蓝版

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

[求助] 请各位大神指教，小生在此拜谢关于TEXTBOX内容和LISTBOX内容的有条件合并