Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19108 / 76734

←次へ　｜　前へ→


	【63063】ListBoxで複数選択した値を指定したセルに取り込みたい

jackey - 09/10/5(月) 14:18 -


	引用なし

	パスワード

こんにちは。
こちらの過去ログを参考にさせていただき、
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

'よろしくお願いします。

1 hits

▼

【63063】ListBoxで複数選択した値を指定したセルに取り込みたい jackey 09/10/5(月) 14:18

≪