| |
こんにちは。
こちらの過去ログを参考にさせていただき、
UserFormのListBoxで表示された値を複数選択し、指定のワークシートの
指定したセルに返しように、VBAで組んでみたのですが、
アプリケーション定義または、オブジェクト定義のエラーと表示され
うまく動作しません。どのように記述したらよいのか教えてください。
記述内容は、以下の通りです。
Private Sub CommandButton1_Click()
Dim i As Long
Dim myList As String
For i = 0 To LB_tokubetu.ListCount - 1
If LB_tokubetu.Selected(i) = True Then
myList = myList & LB_tokubetu.List(i) & "・"
End If
Next i
If myList <> "" Then
Worksheets("名簿カード").Range("D18").AddComment "Left(myList, Len(myList) - 1)" '→ この部分でエラーが発生してしまいセルへ転記できません。
Else
MsgBox "選択されていません。"
End If
End Sub
'よろしくお願いします。
|
|
jackey
- 09/10/5(月) 14:18 -
