Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3293 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63063】ListBoxで複数選択した値を指定したセルに取り込みたい jackey 09/10/5(月) 14:18 質問[未読]
【63070】Re:ListBoxで複数選択した値を指定したセル... kanabun 09/10/5(月) 15:33 発言[未読]
【63072】Re:ListBoxで複数選択した値を指定したセル... jackey 09/10/5(月) 15:50 お礼[未読]
【63073】Re:ListBoxで複数選択した値を指定したセル... kanabun 09/10/5(月) 15:57 発言[未読]
【63074】Re:ListBoxで複数選択した値を指定したセル... kanabun 09/10/5(月) 15:59 発言[未読]
【63075】Re:ListBoxで複数選択した値を指定したセル... jackey 09/10/5(月) 16:07 お礼[未読]
【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

'よろしくお願いします。
【63070】Re:ListBoxで複数選択した値を指定したセ...
発言  kanabun  - 09/10/5(月) 15:33 -
引用なし
パスワード
   ▼jackey さん：
こんにちは。

>　　　　Worksheets("名簿カード").Range("D18").AddComment "Left(myList, Len(myList) - 1)"　　 '→ この部分でエラーが発生してしまいセルへ転記できません。

””が不要なのでは？
　Worksheets("名簿カード").Range("D18").NoteText Left(myList, Len(myList) - 1)
【63072】Re:ListBoxで複数選択した値を指定したセ...
お礼  jackey  - 09/10/5(月) 15:50 -
引用なし
パスワード
   ▼kanabun さん：
有難うございました。記述いただいた内容に修正しましたら、指定セルのコメント欄に記載されていました。
　コメント欄ではなく、指定のセルに転記させるにはどのような方法があるのでしょうか。教えてくんになってしまいますがよろしくお願いいたします。

>▼jackey さん：
>こんにちは。
>
>>　　　　Worksheets("名簿カード").Range("D18").AddComment "Left(myList, Len(myList) - 1)"　　 '→ この部分でエラーが発生してしまいセルへ転記できません。
>
>””が不要なのでは？
>　Worksheets("名簿カード").Range("D18").NoteText Left(myList, Len(myList) - 1)
【63073】Re:ListBoxで複数選択した値を指定したセ...
発言  kanabun  - 09/10/5(月) 15:57 -
引用なし
パスワード
   ▼jackey さん：

>▼kanabun さん：
>有難うございました。記述いただいた内容に修正しましたら、指定セルのコメント欄に記載されていました。
>　コメント欄ではなく、指定のセルに転記させるにはどのような方法があるのでしょうか。教えてくんになってしまいますがよろしくお願いいたします。

>>>　　　　Worksheets("名簿カード").Range("D18").AddComment "Left(myList, Len(myList) - 1)"　　 '→ この部分でエラーが発生してしまいセルへ転記できません。

Range("D18").AddComment とあったから、コメントに入れるんだなと
推定しましたが、セルに代入でしたか？


Worksheets("名簿カード").Range("D18").Value Left(myList, Len(myList) - 1)
【63074】Re:ListBoxで複数選択した値を指定したセ...
発言  kanabun  - 09/10/5(月) 15:59 -
引用なし
パスワード
   すみません。間違えました m(__)m

Worksheets("名簿カード").Range("D18").Value = Left(myList, Len(myList) - 1)
【63075】Re:ListBoxで複数選択した値を指定したセ...
お礼  jackey  - 09/10/5(月) 16:07 -
引用なし
パスワード
   ▼kanabun さん：
早速のご回答有難うございました。
おかげさまでスムーズに動作し、セルへ書き込むことができました。
VBAの初心者ですので今度ともご教示ください。


>すみません。間違えました m(__)m
>
>Worksheets("名簿カード").Range("D18").Value = Left(myList, Len(myList) - 1)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3293 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free