Форма вносса данных постоянно барахлит

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форма вносса данных постоянно барахлит (Макросы/Sub)

Ajer

Дата: Вторник, 18.03.2014, 00:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Создал форму с кодом, для облегчения вноса данных на соревнованиях, все работало, но потом форма начала вносить данные то в 11 строку, а то и 500. Не могу понять в чем проблема. Новичок в программировании. Подскажите или подкорректируйте форму. Вся проблема находиться на вкладке "Данные взвешивания" а еще есть пароль на вход 336396. Буду очень признателен

К сообщению приложен файл: 1931601.xls (93.0 Kb)

Ответить

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]