Отобразить сообщение после выбора данных в листбоксе.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отобразить сообщение после выбора данных в листбоксе. (Макросы/Sub)

parovoznik

Дата: Пятница, 05.06.2020, 15:47 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 443

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
В листбоксе отображаются данные. После выбора одного или нескольких значений должно отображаться сообщение "Выбраны такие то данные".Сейчас выбираю одно значение , а в сообщении отображаются все три клиента.

К сообщению приложен файл: 9664168.xlsm (31.7 Kb)

Ответить

RAN

Дата: Пятница, 05.06.2020, 16:01 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Private Sub ButtonReport_Click()
    Dim a0(), i As Long, k As Long, s$

    With ListBox1
        '        ReDim a0(1 To .ListCount)
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                ReDim Preserve a0(k)
                a0(k) = .List(i)
                k = k + 1
            End If
            '             s = s & vbCr & ListBox1.List(i): k = k + 1
        Next i
    End With
    s = Join(a0, vbCr)
    If k > 0 Then
        MsgBox "Выбраны такие данные :" & s, vbInformation
    Else
        MsgBox "Ничего не выбрано", vbCritical
    End If
End Sub

[/vba]