| |
▼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
|
|
１２３
- 03/9/8(月) 18:16 -
