1

4つのチェックボックスオプションを持つユーザーフォームから渡された値を取得し、それらを単一の連結セルに書き込もうとしています。

次のようにユーザーフォームを選択すると：

ここに画像の説明を入力

次のように単一のセルに保存したいと思います。

ここに画像の説明を入力

私は次のコードでこれを達成しようとしましたが (以下を参照)、最初のアイテムなしで 2 番目、3 番目、または 4 番目のアイテムのみが選択された場合、コンマなどではうまく機能しません。もっと良い方法があると確信していますが、オンラインでそれを理解したり、答えを見つけたりすることはできません。

Private Sub cmdSave_Click()
  Dim colors As String

   If chkRed = True Then
      colors = "Red"
   Else
      colors = colors
   End If

   If chkBlue = True Then
      colors = colors & ", Blue"
   Else
      colors = colors
   End If

   If chkGreen = True Then
      colors = colors & ", Green"
   Else
      colors = colors
   End If

   If chkYellow = True Then
      colors = colors & ", Yellow"
   Else
      colors = colors
   End If

   With colorsSheet
      .Cells(ActiveCell.Row, 1).Value = colors
   End With

   Unload Me

End Sub
4

3 に答える 3

4

フレーム コントロールの名前を に変更すると、frameColoursそのチェックボックスをループして文字列を作成できます。

Dim chk as Control
Dim colors as string, delimiter as string

for Each chk In Me.frameColours.Controls
    if typeOf chk Is msforms.CheckBox then
        if (chk.Value) then
            colors = colors & delimiter & chk.Caption
            delimiter = ","
        end if
    end if
next

With colorsSheet
    .Cells(ActiveCell.Row, 1).Value = colors
End With
于 2013-03-11T16:33:04.133 に答える
1 
Private Sub Submit_Click()

Dim lngIndex As Long, strTemp As String


For lngIndex = 1 To 16

'There are 16 check boxex, hence 1 to 16 is given

If Me.Controls("CheckBox" & lngIndex) Then
    strTemp = strTemp & Me.Controls("TextBox" & lngIndex).Value & vbLf 

'Returns you the output in a new line within the same cell.

End If

Next lngIndex

Sheets("Sheet1").Range("A1").Value = Left$(strTemp, Len(strTemp) - 1)

End Sub
于 2013-03-13T17:44:51.537 に答える
0

If you want to eliminate the initial comma from output like ", Blue, Green, Yellow", you're going to have to change the code that adds those strings to check whether colors is empty. Something like:

If chkBlue = true Then
    If colors = "" Then
        colors = "Blue"
    Else
        colors = colors & ", Blue"
    End If
End If

Since "Red" is the first color you add, you can assume that colors is empty:

If chkRed = True Then
      colors = "Red"
End If

You dont' need Else ... colors = colors

于 2013-03-11T16:39:42.253 に答える