0

3つの異なるドロップダウンからのデータをスプレッドシートに挿入したいのですが、いくつかの問題があります。cbo_fac1、cbo_fac2、cbo_fac3という3つのドロップダウンがあります。

ユースケースは次のとおりです。

ユースケース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

ただし、すべてのユースケースの要件を満たしていないため、大きな違いはなく、無効な構文エラーメッセージも返されます。

前もって感謝します！

4

2 に答える 2

2

ここに簡単なスニペットがあります：

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

私はこのコードをテストしていませんが、あなたはその考えを理解する必要があります。

于 2012-10-30T14:10:08.823 に答える
1

試したものの代わりに、次の3行をコードに追加できます。

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)
于 2012-10-30T15:00:12.947 に答える