1

我是 excel VBA 的新手，我试图调整 Stack Overflow 上的一些解决方案，但我仍然卡住了！

我正在尝试使用用户表单中组合框中的选定选项的文本将此选定文本的行粘贴到 Excel 工作表中。

下面的代码旨在选择当前活动的用户窗体的组合框值“CboIncomesPatch”并将该值粘贴到活动表的单元格“M8”中，然后循环粘贴，直到计数器计时达到单位的数字总数。单位总数是文本框值“TxtNumberOfUnits”，例如“15”。组合框中的 15 个文本应粘贴在单元格“M8”中，然后是所有后续行“M9”、“M10”等。组合框使用的范围是硬编码的，所有选项都是字符串的人名（没有数字）。

错误发生在以下代码的 .SelectedItem 处。当我将它用于文本框时，该循环起作用，不包括选择代码的组合框值部分。

请让我知道我是否可以在此处提供更多信息以帮助您回答。

谢谢，

尼尔

Sub Incomes_Patch()

Dim Counter As Integer
Dim ws As UserForm
Dim Total As Integer
Dim Incomes As String

Set ws = UserForm(this.CboIncomesPatch.GetItemText(Me.CboIncomesPatch.SelectedItem))
Set Incomes.Value = ws

Total = TxtNumberOfUnits.Value
Counter = 0

Application.ActiveSheet.range("M8").Select
Do While Counter <= Total
If Counter = Total Then Exit Do
    ActiveCell.Value = Incomes + Counter
    ActiveCell.Offset(1, 0).Select
    Counter = Counter + 1
Loop

End Sub
4

2 回答 2

0

请在下面找到正确的代码来执行此操作：

Sub Incomes_Patch()

Dim Counter As Integer
'Dim ws As UserForm
Dim Total As Integer
Dim Incomes As String

'I am not sure why you wanted the form object, you need the combobox value right? you can directly get it from Combobox.

'Set ws = UserForm(this.CboIncomesPatch.GetItemText(Me.CboIncomesPatch.SelectedItem))
Incomes = Me.CboIncomesPatch.Text ' selected item doesn't work in Combo, so you need to use Text

Total = TxtNumberOfUnits.Text
Counter = 0

Application.ActiveSheet.Range("M8").Select
Do While Counter <= Total
If Counter = Total Then Exit Do
    ActiveCell.Value = Incomes & Counter
    ActiveCell.Offset(1, 0).Select
    Counter = Counter + 1
Loop

End Sub

它有帮助吗？

谢谢，V

于 2013-05-01T17:49:27.880 回答
0

你不能使用组合框的 .SelectedText 属性吗？

Set ws = UserForm(Me.CboIncomesPatch.SelectedText)
Set Incomes.Value = ws
于 2013-05-01T17:00:41.890 回答