CheckBoxとTextBoxの値を貼付る方法

質問

よろしくお願いします。
Dim n As Long
Dim r As Range
Dim C, buf As String
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & n).Select
For Each C In Controls
If TypeName(C) = "CheckBox" Then
If C.Value Then buf = buf & C.Caption & vbCrLf
End If
Next C
ActiveCell.Offset(-1, 16).Value = buf & TextBox9.Value
’buf＝チェックされている複数のCheckBoxのCaption
’この時のActiveCell.Offset(-1, 16).ValueにはbufとTextBox9の値も表示されています。
End If
で、セルに入力して
ActiveCell.Offset(0, 7).Value = ActiveCell.Offset(-1, 16).Value
で、セルに貼り付けようとすると、bufの値のみ表示されてTextBox9の値が表示されません。
bufの値とTextBox9の値と両方をコピー表示する方法をお教えください。

回答No.1

n-jun

コード的に間違っているようには見えません。
・・・TextBox9.Valueに何があるのかは別として

ただ
＞で、セルに入力して
これは
＞ActiveCell.Offset(-1, 16).Value = buf & TextBox9.Value
この”代入”を意味しているのか、それとも他の何かなのかがわからなかったです。

仮にどうしてもダメなら
ActiveCell.Offset(0, 7).Value = buf & TextBox9.Value
同じ事をすればよい。
場合によってはセルに値が入る事で変化（書式とか数値と数字の違いetc）して
しまっているなら、こっちの方が確実なのかも。