选择多个复选框后，在Excel中打印字符串

Question

我正在使用excel VBA上的userform将数据输入到不同的表中，但我还没有找到将多个值连接在一起并在每个输入之间加上逗号的方法。使用所附图片的一个例子是，如果选择了粉尘干燥和静电，则将输入细胞的数值将为" Dusty，Dusty，Static“。有没有办法做这样的事：

Range("R4").Value = If Dusty.Value = true then "Dusty"

​

​

Answer 1

试试看

Range("R4").Value = iif(dusty, "Dusty ", "") & _
                    iif(dry, "Dry ", "") & _
                    iif(damp, "Damp", "") & _
                    iif(static, "Static", "") & _
                    iif(abrasive, "Abrasive ", "") & _
                    iif(cohesive, "Cohesive ", "") & _
                    iif(hygroscopic, "Hygroscopic ", "") & _
                    iif(friable, "Friable ", ""))
Range("R4").Value = application.trim(Range("R4").Value)
Range("R4").Value = replace(Range("R4").Value, " ", ", ")

Answer 2

If Dusty Then Range("R4") = "Dusty"

它是以下简称：

If Dusty.Value = True Then 
    Range("R4").Value = "Dusty"
End If

对于多个复选框，类似于每个复选框的内容应该是可以的：

If Dusty Then Range("R4") = Range("R4") & "Dusty" & vbCrLf
If Friable Then Range("R4") = Range("R4") & "Friable" & vbCrLf

它将Range("R4")的值与新值连接起来。

Answer 3

还可以通过遍历窗体上的所有控件来实现这一点。这种方法的一些好处是，您无需修改代码就可以添加更多的复选框，与其他方法相比，代码的字符要少得多，并且没有冗余代码(例如，重复使用不同参数的iif() )。

这种方法的主要缺点是如果您希望将值按排序顺序排列。它们将按照创建CheckBoxes的顺序进行排序。

另一个考虑因素是，如果窗体上有其他CheckBox控件，则不希望此控件应用于该窗体。您可以添加一个额外的检查，以便在.Name属性上查找前缀，或者在.Tag属性中设置某些内容，或者将CheckBoxes放在框架内，并将Me.Controls更改为Frame1.Controls。

Dim Control As Control, Data As String
For Each Control In Me.Controls
    If TypeName(Control) = "CheckBox" Then
        If Control.Value Then ' This is on a different line to prevent errors, VB checks all conditions of an If even if first one is false. 
            Data = Iif(Data <> "",Data & ", ","") & Control.Caption
        End If
    End If
Next

Range("R4").Value = Data 

请注意我是如何使用Iif()更新Data的，因为您担心用逗号分隔值。