チェックボタン選択時のセル反映について

以前オプションボタンで①を教えていただきました。

①Dim m As Long, n As Long, ws As Worksheet
　Set ws = Worksheets("取付")
　m = 0
　n = ws.Cells(14, Columns.Count).End(xlToLeft).Offset(, 0).Column
　With CheckBox14
　For i = 0 To .ListCount - 1
　If .Selected(i) = True Then
　ws.Cells(14, n).Offset(m) = .List(i)
　m = m + 1
　End If
　Next i
　End With

これをチェックボタン②を実行した際に同じように反映させるにはどうコードを書き換えればいいのかわかりませんので教えてください。

②If CheckBox14.Value = True Then
　Worksheets("取付").Range("D21").Value = "1CH"
　Else
　Worksheets("取付").Range("D21").Value = ""
　End If

No.1 回答者： fujillin 回答日時： 2022/02/02 11:14

こんにちは

＞チェックボタン②を実行した際に同じように反映させるには～～
「チェックボタン」というのが、チェックボックスなのかボタンなのか、またはそれ以外のものなのか全くわかりませんけれど・・・

全く同じ処理を実行させたいのなら、対応するコードの部分に、ご提示の①をまるっとコピペするのが簡単でしょう。