Excel VBA用户表单：如何将数据从列表框传输到工作表单元格？

Question

我有一个带有三个选项的ListBox：Cylinder，Ellipsoid和Frustum。用户选择其中之一，然后单击“提交”按钮。我想做的是，当单击“提交”按钮时，将他们的选择写在工作表的单元格中。我该怎么做？

Answer 1

ListBox控件对象将具有一些名称。因此，如果您的表单名为frm，并且列表框对象名为lstBox，则可以将其选定的值移动到myRange范围内，如下所示：

myRange.value = frm.lstBox.text

如果您要遍历某个范围内的单元格，则将类似于：

Dim cell as range

For each cell in myRange
    cell.value = frm.lstBox.text
next cell

上面的代码会将ListBox中的值写入该范围内的每个单元格。