Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Изменение данных в ячейках с помощью ComboBox или ТеxtBox?
 
#1
20.11.2011 19:28:11
Подскажите пожалуйста,  
имеется форма к таблице (таблица с автофильтром), на форме с помощью ComboBoxa фильтруется таблица и в ListBoxе показаны найденые.Когда я мышкой выделяю в листбоксе например фамилию одного студента в комбобоксах и листбоксах показаны его данные, я хотела бы например имеющийся номер телефона студента изменить и записать. Как можно это сделать?
 
 
 
#2
20.11.2011 19:33:42
Ну, как самое простое, открыть таблицу, найти нужного студента и поменять его номер на новый. Чем плох вариант?
 
 
 
#3
20.11.2011 19:42:06
{quote}{login=...}{date=20.11.2011 07:33}{thema=}{post}Ну, как самое простое, открыть таблицу, найти нужного студента и поменять его номер на новый. Чем плох вариант?{/post}{/quote}  
 
тем что работа с таблицей должна быть полностью через форму,  
Application.Visible = False  
Daten.Show  
 
начальника так желает :(
 
 
 
#4
20.11.2011 19:48:59
Через ЛистБокс Вы не сможете внести изменение. Предпочтительный вариант (предполагается, что ЛистБокс заполнен с листа): данные выбранной строки из ЛистБокса разносим по ТекстБоксам. В Текстбоксе редактируем. Присваиваем значения ТекстБоксов ячейкам - "перегружаем" ЛистБокс.
 
 
 
#5
20.11.2011 19:49:39
>>Как можно это сделать?  
Например изменить и записать.  
А какой ответ вы ожидаете?  
Чтобы вам написали код, форму для этого кода и файл для этой формы?
 
 
 
#6
20.11.2011 19:59:29
{quote}{login=Юрий М}{date=20.11.2011 07:48}{thema=}{post}Через ЛистБокс Вы не сможете внести изменение. Предпочтительный вариант (предполагается, что ЛистБокс заполнен с листа): данные выбранной строки из ЛистБокса разносим по ТекстБоксам. В Текстбоксе редактируем. Присваиваем значения ТекстБоксов ячейкам - "перегружаем" ЛистБокс.{/post}{/quote}  
 
Мне не надо через Листбокс менять, я имела ввиду что я выбираю в ЛистБоксе студента его все данные показанны в Комбобоксах и ТекстБоксах, просто линеек на листе очень много, почти 600 т.е. и столбцов 35, это же сума сойти сколько приписывать сидеть каждой ячейке...
 
 
 
#7
20.11.2011 20:02:24
Вам же не нужно менять ВСЕ данные - только несколько ячеек. Сами же писали "например, имеющийся номер телефона". А уже если захотите поменять все данные по выбранному студенту, то другого выхода, кроме как менять их вручную,- нет. Не умеет ещё Excel читать мысли.
 
 
 
#8
20.11.2011 20:06:00
{quote}{login=RAN}{date=20.11.2011 07:49}{thema=}{post}>>Как можно это сделать?  
Например изменить и записать.  
А какой ответ вы ожидаете?  
Чтобы вам написали код, форму для этого кода и файл для этой формы?{/post}{/quote}  
 
а что так резко то, я тебя что прошу всю программу за меня написать? а спросила только пример как можно с формы с текстБокса изменить данные в таблице!
 
 
 
#9
20.11.2011 20:09:47
{quote}{login=Юрий М}{date=20.11.2011 08:02}{thema=}{post}Не умеет ещё Excel читать мысли.{/post}{/quote}  
 
вот это жаль...  
 
но спасибо за обьяснение! вроде наступил просвет
 
 
 
#10
20.11.2011 20:19:35
Можно еще один вопрос,    
на листе дата рождения записанна в виде 30605 (16.10.1983), а если я задаю новую дату с формы (ТекстБокс) 16.10.1983 она так и записывает на листе и потом автофильтр не видет эту дату, как сделать чтобы было 30605?
 
 
 
#11
20.11.2011 20:37:07
Сложно это всё - таблицу Excel через форму заполнять.  
посмотрите пример здесь: http://excelvba.ru/programmes/Entrant  
 
 
> начальника так желает :(  
может, не насяльника, а препод?  
начальникам обычно пофиг, как именно, - главное, чтобы работало
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#12
20.11.2011 20:54:09
{quote}{login=EducatedFool}{date=20.11.2011 08:37}{thema=}{post}  
посмотрите пример здесь: http://excelvba.ru/programmes/Entrant  
 
 
может, не насяльника, а препод?  
{/post}{/quote}  
 
спасибочки за пример!  
да нет все таки начальника, отучилась я еще в 2005 году, поэтому наверно и торможу сейчас так))))
 
 
 
#13
22.11.2011 22:44:39
Ну помогите пожалуйста((((( не соображу никак  
 
Private Sub CommandButton3_Click()  
 
Dim i As Integer  
 
With Worksheets("Daten")  
i = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row  
 
.Cells(i, 2).Value = UserForm1.TextBox1.Text  
UserForm1.TextBox1.Text = ""  
.Cells(i, 3).Value = UserForm1.TextBox2.Text  
UserForm1.TextBox2.Text = ""  
.Cells(i, 4).Value = UserForm1.TextBox3.Text  
UserForm1.TextBox3.Text = ""  
.Cells(i, 5).Value = UserForm1.TextBox4.Text  
UserForm1.TextBox4.Text = ""  
.Cells(i, 6).Value = UserForm1.TextBox5.Text  
UserForm1.TextBox5.Text = ""  
.Cells(i, 7).Value = UserForm1.TextBox6.Text  
UserForm1.TextBox6.Text = ""  
.Cells(i, 8).Value = UserForm1.TextBox7.Text  
UserForm1.TextBox7.Text = ""  
.Cells(i, 9).Value = UserForm1.TextBox8.Text  
UserForm1.TextBox8.Text = ""  
.Cells(i, 10).Value = UserForm1.TextBox9.Text  
UserForm1.TextBox9.Text = ""  
 
End With  
End Sub  
 
записывает изменения только в первой линейке таблицы, даже если выбираю в комбобоксе другого студента например с 3 линии то все равно меняет первую(((
 
 
 
#14
22.11.2011 23:41:10
если я правильно понял  
.Cells(i, 2).Value = UserForm1.TextBox1.Text  
UserForm1.TextBox1.Text = ""  
.Cells(i + 1, 3).Value = UserForm1.TextBox2.Text  
UserForm1.TextBox2.Text = ""  
.Cells(i + 2, 4).Value = UserForm1.TextBox3.Text  
UserForm1.TextBox3.Text = ""  
.Cells(i + 3, 5).Value = UserForm1.TextBox4.Text  
UserForm1.TextBox4.Text = ""  
.Cells(i + 4, 6).Value = UserForm1.TextBox5.Text  
UserForm1.TextBox5.Text = ""  
.Cells(i + 5, 7).Value = UserForm1.TextBox6.Text  
UserForm1.TextBox6.Text = ""  
.Cells(i + 6, 8).Value = UserForm1.TextBox7.Text  
UserForm1.TextBox7.Text = ""  
.Cells(i + 7, 9).Value = UserForm1.TextBox8.Text  
UserForm1.TextBox8.Text = ""  
.Cells(i + 8, 10).Value = UserForm1.TextBox9.Text  
UserForm1.TextBox9.Text = ""
 
 
 
#15
23.11.2011 00:12:49
{quote}{login=???}{date=22.11.2011 11:41}{thema=}{post}если я правильно понял  
.Cells(i, 2).Value = UserForm1.TextBox1.Text  
UserForm1.TextBox1.Text = ""  
.Cells(i + 1, 3).Value = UserForm1.TextBox2.Text  
{/post}{/quote}  
 
спасибо, но наверно не понятно объяснила  
 
просто я с ума схожу уже с этой таблицей и ничего не понимаю((
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...