Question

我正在尝试将ListBox1的结果放置到工作表K29中的特定单元格K35到'Calculation Entry'。我有它可以突出多个选择，但我需要提取这些选择并将它们放在所述的单元格中。

它们来自另一个工作表中的单元格填充的列表框。我已创建并填充了列表框，但无法将文本从所选项目移动到上面列出的单元格。

我正在寻找的帮助是VBA与ListBox1激活的ListBox1_Click()代码。

我已经解决了这个问题，并根据朋友的要求放置此代码：

Range("K27").Select 
dim msg as String
dim ary(100) as string
ActiveCell.Clear 
With ListBox1 
    For i = 0 To .ListCount - 1 
       If .Selected(i) Then 
           msg = msg & .List(i) & vbNewLine
           ary(j) = .List(i)
           j = j + 1 
       End If 
    Next i 
    Range("K27").Select 
    ActiveCell.Offset(rowOffset:=0, columnOffset:=0).Activate 
End With 
If msg = vbNullString Then 
   MsgBox "Nothing was selected! Are you sure that you don't want to replace any parts?!" 
  Exit Sub  
 Else Check = MsgBox("You selected:" & vbNewLine & msg & vbNewLine & "Are these selections correct?", vbYesNo + vbInformation, "Please confirm")
 Worksheets("Calculation Entry").Activate ActiveCell.Value = msg  
end if

Answer 1

我可以通过添加一个额外的控件来实现这一点......

我能看到解决这个问题的最简单方法是在ListBox中包含一些描述性文本（“选择所需项目并单击”Go“”），然后包含一个带有标题“Go”的命令按钮（Cmd_go）。这个按钮有逻辑......

Private Sub Cmd_Go_Click()
  ListBox1_Click
End Sub

列表框中选定的值放置在单元格中

1 个答案: