列表框控件内容输入单元格

422016019 · 发表于 2020-2-20 16:05

本帖最后由 422016019 于 2020-2-20 16:17 编辑

我想实现通把列表框的内容写入到商品对应的信息单元格，如图2（参数之间分隔符无所谓，可以是别的）。
但我的信息是多行，多列（如图1，类似一个二维数组）。

YZC51 · 发表于 2020-2-20 16:08

附件错误啦！是空的

3190496160 · 发表于 2020-2-20 16:13

附件是空的，请重新上传附件

422016019 · 发表于 2020-2-20 16:17

YZC51 发表于 2020-2-20 16:08
附件错误啦！是空的

附件更新啦

422016019 · 发表于 2020-2-20 16:18

3190496160 发表于 2020-2-20 16:13
附件是空的，请重新上传附件

附件更新啦

3190496160 · 发表于 2020-2-20 16:27

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) <> "" Then
      If m = "" Then
         m = "[" & ListBox1.List(i) & "]"
      Else
         m = m & "[" & ListBox1.List(i) & "]"
      End If
End If
Next i
If m = "" Then MsgBox "清闲录入数据": Exit Sub
r = Columns(1).Find(ComboBox1.Text, , , 1).Row
Cells(r, 2) = m
End Sub

3190496160 · 发表于 2020-2-20 16:27

test2.rar (15.39 KB, 下载次数: 41)

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

[求助] 列表框控件内容输入单元格

最新热点 /1