Ajer
Дата: Вторник, 18.03.2014, 00:52 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Создал форму с кодом, для облегчения вноса данных на соревнованиях, все работало, но потом форма начала вносить данные то в 11 строку, а то и 500. Не могу понять в чем проблема. Новичок в программировании. Подскажите или подкорректируйте форму. Вся проблема находиться на вкладке "Данные взвешивания" а еще есть пароль на вход 336396. Буду очень признателен
Создал форму с кодом, для облегчения вноса данных на соревнованиях, все работало, но потом форма начала вносить данные то в 11 строку, а то и 500. Не могу понять в чем проблема. Новичок в программировании. Подскажите или подкорректируйте форму. Вся проблема находиться на вкладке "Данные взвешивания" а еще есть пароль на вход 336396. Буду очень признателен Ajer
Ответить
Сообщение Создал форму с кодом, для облегчения вноса данных на соревнованиях, все работало, но потом форма начала вносить данные то в 11 строку, а то и 500. Не могу понять в чем проблема. Новичок в программировании. Подскажите или подкорректируйте форму. Вся проблема находиться на вкладке "Данные взвешивания" а еще есть пароль на вход 336396. Буду очень признателен Автор - Ajer Дата добавления - 18.03.2014 в 00:52
KuklP
Дата: Вторник, 18.03.2014, 09:59 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Попробуйте так: [vba]Код
Private Sub CommandButton1_Click() With Sheets("Данные взвешивания") n = [a65536].End(xlUp).Row n = IIf(n > 10, n + 1, 11) .Cells(n, 1).Value = n - 10 .Cells(n, 2).Value = TextBox1.Text .Cells(n, 4).Value = TextBox2.Text .Cells(n, 7).Value = TextBox3.Text .Cells(n, 8).Value = TextBox4.Text .Cells(n, 3).Value = ComboBox1.Text .Cells(n, 5).Value = ComboBox2.Text .Cells(n, 6).Value = ComboBox3.Text .Cells(n, 10).Value = ComboBox4.Text .Cells(n, 11).Value = ComboBox5.Text .Cells(n, 12).Value = ComboBox6.Text .Cells(n, 13).Value = ComboBox7.Text .Cells(n, 14).Value = ComboBox8.Text .Cells(n, 15).Value = ComboBox9.Text .Cells(n, 16).Value = ComboBox10.Text .Cells(n, 17).Value = ComboBox11.Text End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub
[/vba]
Попробуйте так: [vba]Код
Private Sub CommandButton1_Click() With Sheets("Данные взвешивания") n = [a65536].End(xlUp).Row n = IIf(n > 10, n + 1, 11) .Cells(n, 1).Value = n - 10 .Cells(n, 2).Value = TextBox1.Text .Cells(n, 4).Value = TextBox2.Text .Cells(n, 7).Value = TextBox3.Text .Cells(n, 8).Value = TextBox4.Text .Cells(n, 3).Value = ComboBox1.Text .Cells(n, 5).Value = ComboBox2.Text .Cells(n, 6).Value = ComboBox3.Text .Cells(n, 10).Value = ComboBox4.Text .Cells(n, 11).Value = ComboBox5.Text .Cells(n, 12).Value = ComboBox6.Text .Cells(n, 13).Value = ComboBox7.Text .Cells(n, 14).Value = ComboBox8.Text .Cells(n, 15).Value = ComboBox9.Text .Cells(n, 16).Value = ComboBox10.Text .Cells(n, 17).Value = ComboBox11.Text End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Попробуйте так: [vba]Код
Private Sub CommandButton1_Click() With Sheets("Данные взвешивания") n = [a65536].End(xlUp).Row n = IIf(n > 10, n + 1, 11) .Cells(n, 1).Value = n - 10 .Cells(n, 2).Value = TextBox1.Text .Cells(n, 4).Value = TextBox2.Text .Cells(n, 7).Value = TextBox3.Text .Cells(n, 8).Value = TextBox4.Text .Cells(n, 3).Value = ComboBox1.Text .Cells(n, 5).Value = ComboBox2.Text .Cells(n, 6).Value = ComboBox3.Text .Cells(n, 10).Value = ComboBox4.Text .Cells(n, 11).Value = ComboBox5.Text .Cells(n, 12).Value = ComboBox6.Text .Cells(n, 13).Value = ComboBox7.Text .Cells(n, 14).Value = ComboBox8.Text .Cells(n, 15).Value = ComboBox9.Text .Cells(n, 16).Value = ComboBox10.Text .Cells(n, 17).Value = ComboBox11.Text End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub
[/vba] Автор - KuklP Дата добавления - 18.03.2014 в 09:59
Wasilich
Дата: Вторник, 18.03.2014, 11:03 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Не могу понять в чем проблема
Проблема в том, что вы сами себе создали трудности. Все данные можно, точно таким же образом, вводить непосредственно в таблицу.
Не могу понять в чем проблема
Проблема в том, что вы сами себе создали трудности. Все данные можно, точно таким же образом, вводить непосредственно в таблицу.Wasilich
К сообщению приложен файл:
Ajer.xls
(81.0 Kb)
Ответить
Сообщение Не могу понять в чем проблема
Проблема в том, что вы сами себе создали трудности. Все данные можно, точно таким же образом, вводить непосредственно в таблицу.Автор - Wasilich Дата добавления - 18.03.2014 в 11:03
Ajer
Дата: Вторник, 18.03.2014, 12:27 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
KuklP, Спасибо большое, все работает без глюков
KuklP, Спасибо большое, все работает без глюков Ajer
Ответить
Сообщение KuklP, Спасибо большое, все работает без глюков Автор - Ajer Дата добавления - 18.03.2014 в 12:27