Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отобразить сообщение после выбора данных в листбоксе. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить сообщение после выбора данных в листбоксе. (Макросы/Sub)
Отобразить сообщение после выбора данных в листбоксе.
parovoznik Дата: Пятница, 05.06.2020, 15:47 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
В листбоксе отображаются данные. После выбора одного или нескольких значений должно отображаться сообщение "Выбраны такие то данные".Сейчас выбираю одно значение , а в сообщении отображаются все три клиента.
К сообщению приложен файл: 9664168.xlsm(31.7 Kb)
 
Ответить
СообщениеДобрый день.
В листбоксе отображаются данные. После выбора одного или нескольких значений должно отображаться сообщение "Выбраны такие то данные".Сейчас выбираю одно значение , а в сообщении отображаются все три клиента.

Автор - parovoznik
Дата добавления - 05.06.2020 в 15:47
RAN Дата: Пятница, 05.06.2020, 16:01 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5321
Репутация: 1063 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[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]

Автор - RAN
Дата добавления - 05.06.2020 в 16:01
parovoznik Дата: Пятница, 05.06.2020, 16:17 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
RAN, благодарю . А значит эта строка : s = Join(a0, vbCr). Join-???
 
Ответить
СообщениеRAN, благодарю . А значит эта строка : s = Join(a0, vbCr). Join-???

Автор - parovoznik
Дата добавления - 05.06.2020 в 16:17
RAN Дата: Пятница, 05.06.2020, 16:18 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5321
Репутация: 1063 ±
Замечаний: 0% ±

2010
F1


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеF1

Автор - RAN
Дата добавления - 05.06.2020 в 16:18
parovoznik Дата: Пятница, 05.06.2020, 16:24 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 20 ±
Замечаний: 0% ±

Excel 2007
Угу.
 
Ответить
СообщениеУгу.

Автор - parovoznik
Дата добавления - 05.06.2020 в 16:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отобразить сообщение после выбора данных в листбоксе. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!