Question

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

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

Answer 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

使用VBA的收藏夹列表

1 个答案: