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

Вход

Регистрация

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

 

= Мир MS Excel/Окно ввода данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Окно ввода данных (Макросы/Sub)
Окно ввода данных
Leshka Дата: Суббота, 03.09.2016, 21:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Вечер добрый. Нуждаюсь в помощи специалистов что бы доделать форму ввода данных. А именно: Как добавить данные выбора в ComboBox; Вставить данные из формы в конкретные ячейки на разных листах. За ранее благодарен!!!!
К сообщению приложен файл: 2021286.xlsm (51.3 Kb)


Сообщение отредактировал Leshka - Суббота, 03.09.2016, 21:42
 
Ответить
СообщениеВечер добрый. Нуждаюсь в помощи специалистов что бы доделать форму ввода данных. А именно: Как добавить данные выбора в ComboBox; Вставить данные из формы в конкретные ячейки на разных листах. За ранее благодарен!!!!
Автор - Leshka
Дата добавления - 03.09.2016 в 21:41
krosav4ig Дата: Суббота, 03.09.2016, 22:24 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
как-то так, наверное
[vba]
Код
Private Sub CommandButton1_Click()
    [Титул!E10].Formula = TextBox1
    [Титул!E16].Formula = TextBox2
    [Титул!C18].Formula = TextBox3
    ['таб расчетов'!P1].Formula = ComboBox2
    [Прочность!BA5,Прочность!BA8,Прочность!BA11].Formula = TextBox2
End Sub
[/vba]
К сообщению приложен файл: 1206726.xlsm (53.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
как-то так, наверное
[vba]
Код
Private Sub CommandButton1_Click()
    [Титул!E10].Formula = TextBox1
    [Титул!E16].Formula = TextBox2
    [Титул!C18].Formula = TextBox3
    ['таб расчетов'!P1].Formula = ComboBox2
    [Прочность!BA5,Прочность!BA8,Прочность!BA11].Formula = TextBox2
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 03.09.2016 в 22:24
Leshka Дата: Воскресенье, 04.09.2016, 06:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
krosav4ig, Да вроде именно то что надо. А как добавить Данные в ComBox
 
Ответить
Сообщениеkrosav4ig, Да вроде именно то что надо. А как добавить Данные в ComBox
Автор - Leshka
Дата добавления - 04.09.2016 в 06:39
Leshka Дата: Воскресенье, 04.09.2016, 08:44 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
krosav4ig, Большое спасибо за помощь. нашел как добавить текст
[vba]
Код
Private Sub UserForm_Initialize()
Dim LastRow As Long
With Sheets("Лист1")
LastRow = .Cells(Rows.Count, 14).End(xlUp).Row
Me.ComboBox1.List = .Range("n2:n4" & LastRow).Value
End With
End Sub
[/vba]
 
Ответить
Сообщениеkrosav4ig, Большое спасибо за помощь. нашел как добавить текст
[vba]
Код
Private Sub UserForm_Initialize()
Dim LastRow As Long
With Sheets("Лист1")
LastRow = .Cells(Rows.Count, 14).End(xlUp).Row
Me.ComboBox1.List = .Range("n2:n4" & LastRow).Value
End With
End Sub
[/vba]
Автор - Leshka
Дата добавления - 04.09.2016 в 08:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Окно ввода данных (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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