使用 VBA 的收藏夹列表答案

【问题标题】：Favorites List using VBA使用 VBA 的收藏夹列表
【发布时间】：2019-04-27 19:09:31
【问题描述】：

我正在尝试使用循环创建收藏夹列表。我创建了一个具有不同选项的组合框，以及一个用于执行代码的 ActiveX 命令按钮。现在，当您按下回车按钮时，所有 10 个单元格都填充了当前在组合框中选择的任何内容。我只希望每个组合框选择一次填充一个单元格。

  Dim x As Integer
  For x = 8 To 18
         Worksheets("Sheet1").Cells(x, 19).Value = ComboBox1.Value
  Next x

【问题讨论】：

嗯，您正在循环遍历这 10 个单元格并将它们设置为 ComboBox1.Value，这样就可以预期了。是否要将当前值添加到第一个空单元格？

标签： excel vba for-loop combobox

【解决方案1】：

如果您只想将值添加到第一个空单元格，您可以先使用IF 检查它是否为空。然后在添加值后退出循环，这样您就不会填满所有空的值。
像这样的东西可能会起作用吗？

Dim x As Integer      
For x = 8 To 18             
    if Worksheets("Sheet1").Cells(x, 19).Value = "" Then
        Worksheets("Sheet1").Cells(x, 19).Value = ComboBox1.Value
        Exit For        
    end if
Next x

【讨论】：