Excel VBA質問箱 IV

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

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


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

73633 / 76732

←次へ　｜　前へ→


	【7573】Re:リストボックスのチェックボックス

１２３ - 03/9/8(月) 18:16 -


	引用なし

	パスワード

▼INA さん：　こんばんは

ありがとうございました。本当に助かりました。
Selected は、「選択している場合Trueを返す」ということ
だったので、複数選択している場合はダメかと思っていました。

（ちょっと修正）
Sheet1に写す際に、Sheet1のRowを変数ｋにしました。

本当にありがとうございました。

>Private Sub CommandButton1_Click()
>Dim r As Long
>Dim c As Long
Dim k As Long
>
>With Worksheets("sheet1")
　k=1
>　　For r = 0 To ListBox1.ListCount - 1
>　　　　If ListBox1.Selected(r) = True Then
>　　　　　
>　　　　　 For c = 0 To 3
>　　　　　　　 .Cells(r + 1, c + 1).Value = ListBox1.List(r, c)
　　　　　　　　　　　　r + 1を変数ｋにしました。
>　　　　　 Next c
　　　　　k=k+1
>　　　　End If
>　　Next r
>
>'空白行の削除　
>　For r = ListBox1.ListCount To 1 Step -1
>　　If .Cells(r, 1).Value = "" Then
>　　　 .Rows(r).Delete
>　　End If
>　Next r
>
>End With
>End Sub

0 hits

▼

【7554】リストボックスのチェックボックス １２３ 03/9/8(月) 16:19