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

Вход

Регистрация

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

 

= Мир MS Excel/Вывести из списка суммы клиента - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывести из списка суммы клиента (Формулы/Formulas)
Вывести из списка суммы клиента
ASSEI Дата: Среда, 10.01.2018, 14:54 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 0 ±
Замечаний: 40% ±

MS Excel prof 2010 плюс
Здравствуйте, ! в примере если выбрать клиента из списка хотелось бы увидеть сумму в текстовых полях. пример во вложении! Заранее спасибо.
К сообщению приложен файл: 7776766.rar(40.1 Kb)
 
Ответить
СообщениеЗдравствуйте, ! в примере если выбрать клиента из списка хотелось бы увидеть сумму в текстовых полях. пример во вложении! Заранее спасибо.

Автор - ASSEI
Дата добавления - 10.01.2018 в 14:54
Che79 Дата: Среда, 10.01.2018, 15:03 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1274
Репутация: 227 ±
Замечаний: 0% ±

Excel 2007, 2013
Кросс с ответами на Планете. У Вас Libre Office?


Делай нормально и будет нормально!
 
Ответить
СообщениеКросс с ответами на Планете. У Вас Libre Office?

Автор - Che79
Дата добавления - 10.01.2018 в 15:03
ASSEI Дата: Среда, 10.01.2018, 15:04 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация: 0 ±
Замечаний: 40% ±

MS Excel prof 2010 плюс
ой нет, MS 2007 xlsx


Сообщение отредактировал ASSEI - Среда, 10.01.2018, 15:10
 
Ответить
Сообщениеой нет, MS 2007 xlsx

Автор - ASSEI
Дата добавления - 10.01.2018 в 15:04
sboy Дата: Среда, 10.01.2018, 16:36 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2116
Репутация: 606 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
[vba]
Код
Private Sub ComboBox3_Change()

Dim wbSource As Workbook, rngSource As Range
Set wbSource = Workbooks("клиент.xls")
If Not ComboBox3.Value = "" Then
    Set rngSource = wbSource.Sheets("TDSheet").Range("A1:A100").Find(ComboBox3.Value)
    If Not rngSource Is Nothing Then
        TextBox4.Value = rngSource.Offset(0, 1).Value
        TextBox5.Value = rngSource.Offset(0, 2).Value
        '...
    End If
End If
End Sub

Private Sub UserForm_Activate()
Workbooks.Open Filename:="D:\Мои документы\Desktop\проект\клиент.xls"
'Workbooks.Open Filename:="D:\Мои документы\Загрузки\проект\клиент.xls"
ComboBox3.List = Workbooks("клиент.xls").Sheets("TDSheet").Range("A1:A100").Value 'клиенты
    
End Sub

[/vba]
К сообщению приложен файл: 4929335.xlsm(39.0 Kb)
 
Ответить
СообщениеДобрый день.
[vba]
Код
Private Sub ComboBox3_Change()

Dim wbSource As Workbook, rngSource As Range
Set wbSource = Workbooks("клиент.xls")
If Not ComboBox3.Value = "" Then
    Set rngSource = wbSource.Sheets("TDSheet").Range("A1:A100").Find(ComboBox3.Value)
    If Not rngSource Is Nothing Then
        TextBox4.Value = rngSource.Offset(0, 1).Value
        TextBox5.Value = rngSource.Offset(0, 2).Value
        '...
    End If
End If
End Sub

Private Sub UserForm_Activate()
Workbooks.Open Filename:="D:\Мои документы\Desktop\проект\клиент.xls"
'Workbooks.Open Filename:="D:\Мои документы\Загрузки\проект\клиент.xls"
ComboBox3.List = Workbooks("клиент.xls").Sheets("TDSheet").Range("A1:A100").Value 'клиенты
    
End Sub

[/vba]

Автор - sboy
Дата добавления - 10.01.2018 в 16:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывести из списка суммы клиента (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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