Question

我想将来自三个不同下拉列表的数据插入到我的电子表格中，但我遇到了一些困难。有三个下拉列表称为cbo_fac1，cbo_fac2和cbo_fac3。

以下是用例：

用例1 - 将No preference中的结果插入电子表格

cbo_fac1 - No preference
cbo_fac2 - No preference 
cbo_fac3 - No preference

用例2a - 将value, ,插入电子表格中的结果。应该是value

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference

用例2b - 将, value,中的结果插入电子表格中。应该是value

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

用例2c - 将, , value插入电子表格中的结果。应该是value

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

用例3a - 将value, value,中的结果插入电子表格中。应该是value, value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

用例3b - 将, value, value中的结果插入电子表格中。应该是value, value

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value

用例3c - 将value, , value中的结果插入电子表格中。应该是value, value

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value

如何删除用例2a-3c 中的额外逗号？

到目前为止，这是我的代码：

If Me.cbo_fac1 <> "No preference" Then
cbo_fac1Entry = Me.cbo_fac1.Value
Else
cbo_fac1Entry = ""
End If

If Me.cbo_fac2 <> "No preference" Then
cbo_fac2Entry = Me.cbo_fac2.Value
Else
cbo_fac2Entry = ""
End If

If Me.cbo_fac3 <> "No preference" Then
cbo_fac3Entry = Me.cbo_fac3.Value
Else
cbo_fac3Entry = ""
End If

cbo_facEntry = cbo_fac1Entry & ", " & cbo_fac2Entry & ", " & cbo_fac3Entry

If cbo_facEntry = " , ," Then
cbo_facEntry = "No preference"
Else
End If
rng1.Offset(1, 15) = cbo_facEntry

我尝试插入此代码：

if right(cbo_facEntry,1)="," then
   cbo_facEntry= left(len(cbo_facEntry)-1)
end if

if left(cbo_facEntry,1)="," then
   cbo_facEntry= right(len(cbo_facEntry)-1)
end if

后：

If cbo_facEntry = ",," Then
cbo_facEntry = "No Preference"
Else
End If

但它没有太大区别，因为它不符合所有用例的要求，并且还返回无效的语法错误消息。

提前致谢！

Answer 1

这是一个简单的片段：

Dim a(2) As String
a[0] = cbo_fac1
a[1] = cbo_fac2
a[2] = cbo_fac3

Dim I As Integer, result As String
For I = 0 To UBound(a)
    If a(I) <> "No Preference" Then
        If I = 0 Then
            result = a(I)
        Else
            result = result & "," & a(I)
        End If
    End If
Next

我没有测试过这段代码，但你应该明白这个想法。

Answer 2

您可以将这三行添加到您的代码中，而不是您尝试过的内容：

cbo_facEntry = Replace(cbo_facEntry, ", , ", ", ")
If Left(cbo_facEntry, 1) = "," Then cbo_facEntry = Right(cbo_facEntry, Len(cbo_facEntry) - 2)
If Right(cbo_facEntry, 2) = ", " Then cbo_facEntry = Left(cbo_facEntry, Len(cbo_facEntry) - 2)

从Excel VBA中删除字符串中的额外逗号

2 个答案: