C#ATIA

↑タイトル詐欺 主にFusion360API 偶にCATIA V5 VBA(絶賛ネタ切れ中)

Formの内容を、DrawTableに反映する2

こちらで頂いた質問の続きです。
Formの内容を、DrawTableに反映する - C#ATIA

「テーブルに反映する際、同一のセル内で改行した状態にしたい」
と言う風に解釈しました。
前回のコードのChangedCheckBox関数のみを変更します。
(テキストボックスが変更されても呼び出されるのに、関数名が不適切なのは
投稿する直前に解釈が間違っている事に気が付き、慌てて修正したため
関数名を変更し忘れたためです。涙)

'vba UserForm1Code
・・・
'**** Formサポート関数関連 ****
'CheckBox変更
'チェックの入ったCheckBoxに対応したTextBoxのTextだけを取得
Private Function ChangedCheckBox() As String
    Dim s$: s = ""
    Dim i%
    For i = 1 To CheckBoxs.Count
        If CheckBoxs.Item(i).Value Then
            s = s + Me.Controls("TextBox" + CStr(i)).Text + vbNewLine’←①
        End If
    Next
    ChangedCheckBox = s
End Function
・・・

①部分に "+ vbNewLine" を追加しました。

実行結果はこちら
f:id:kandennti:20160315174219p:plain

解釈が違うかな?