EXCEL VBA窗体选择项目加手动输入合并！请各位大虾帮下忙

lucasmnp

在这论坛久了，也终于做出了一个简单的窗体，谢谢各位老师，前辈！！！
但有个问题，想求助各位前辈，老师，请赐教一下！！！


VBA窗体选择项目加手动输入如何合并呢

蓝桥玄霜

在按钮1的代码最后加：
If Me.TextBox1.Text <> "" Then [a17] = Me.TextBox1.Text & "-" & TempStr

lucasmnp

谢谢【蓝桥玄霜】教授，老师，前辈，祝身体健康，万事如意！！！！小生受教了！

一指禅62

总共3句代码就够了：

1. Dim xx As String    '公共变量，窗体代码顶部
   
2. 
   
3. Private Sub ListBox1_Click()
   
4.     xx = ListBox1.Text
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton1_Click()
   
8.     ActiveSheet.Cells(2, 1) = IIf(TextBox1.Text = "", xx, TextBox1.Text & IIf(xx <> "", "-" & xx, ""))
   
9. End Sub

复制代码

lucasmnp

一指禅62 发表于 2018-6-17 09:31
总共3句代码就够了：

谢谢老师，谢谢前辈，祝工作顺利，身体健康！