Добавление данных через UserForm

@AleksG · Регистрация: 28.08.2013

Author24 — интернет-сервис помощи студентам

Друзья,
Есть UserForm , в которую сотрудники вносят свои командировки. Но у меня получалось в коде, только вставлять всегда в одни и те же ячейки, а мне надо что бы:
Сотрудник внес данные и они добавились на второй лист.
Уехал-приехал внес данные и они добавились на строчку ниже, а не вместо раннее введенных данных.
Вот как сейчас выглядит во вложении

toiai · 28.11.2013, 18:14

Попробуйте так:

Visual Basic

Private Sub CommandButton1_Click()
    Dim kz&
    kz = Sheets("Êîìàíäèðîâêà").UsedRange.Rows.Count + 1
    Range("Êîìàíäèðîâêà!A" & kz).Value = TextBox1.Value
    Range("Êîìàíäèðîâêà!B" & kz).Value = TextBox2.Value
    Range("Êîìàíäèðîâêà!C" & kz).Value = TextBox3.Value
    Range("Êîìàíäèðîâêà!D" & kz).Value = TextBox4.Value
    Range("Êîìàíäèðîâêà!E" & kz).Value = TextBox5.Value
    Range("Êîìàíäèðîâêà!F" & kz).Value = TextBox6.Value
    Range("Êîìàíäèðîâêà!G" & kz).Value = TextBox7.Value
    Range("Êîìàíäèðîâêà!H" & kz).Value = TextBox8.Value
    Range("Êîìàíäèðîâêà!I" & kz).Value = TextBox9.Value
    Range("Êîìàíäèðîâêà!J" & kz).Value = TextBox10.Value
    Me.Hide
End Sub

@AleksG · 28.11.2013, 18:20 **[ТС]**

Спасибо огромное, все работает. А может еще подскажите:
Я когда начинаю новые данные вносить, в UserForm остаются данные от предыдущего ввода, как прописать, что бы они очищались

toiai · 28.11.2013, 18:27

После внесения данных на лист добавить код:

Visual Basic

1	TextBoxN.Value=""

Кол-во строк равно количеству TextBox только N заменить на соответсвующие номера

@Kubuntovod · 29.11.2013, 18:06

Если полей на форме много, то можно так:

Visual Basic

1
2
3

  For Each Ctrl In UserForm3.Controls
    If TypeOf Ctrl Is TextBox Then Ctrl.Value = ""
  Next

@AleksG · 02.12.2013, 18:30 **[ТС]**

toiai, Помогите пожалуйста еще один раз.
Данные которые попадают в ячеки на другом листе, я хочу защитить от редактирования, соответственно нужен код, согласно которому, при вводе через форму, будет автоматически вводиться код, а потом опять ставиться защита листа от редактирования.
Заранее спасибо

toiai · 02.12.2013, 18:45

Попробуй так:

Visual Basic

Private Sub CommandButton1_Click()
    Dim kz&
    Sheets("Командировка").Unprotect "123" 'параметр это пароль снятия защиты листа
    kz = Sheets("Командировка").UsedRange.Rows.Count + 1
    Range("Командировка!A" & kz).Value = TextBox1.Value
    Range("Командировка!B" & kz).Value = TextBox2.Value
    Range("Командировка!C" & kz).Value = TextBox3.Value
    Range("Командировка!D" & kz).Value = TextBox4.Value
    Range("Командировка!E" & kz).Value = TextBox5.Value
    Range("Командировка!F" & kz).Value = TextBox6.Value
    Range("Командировка!G" & kz).Value = TextBox7.Value
    Range("Командировка!H" & kz).Value = TextBox8.Value
    Range("Командировка!I" & kz).Value = TextBox9.Value
    Range("Командировка!J" & kz).Value = TextBox10.Value
    Sheets("Командировка").Protect "123" 'параметр это пароль защиты листа
    Me.Hide
End Sub

Только перед запуском установи защиту листа с вышеуказанным паролем (или используй свой, заменив в коде тоже)

@Kubuntovod · 02.12.2013, 20:01

Можете вообще скрыть лист с данными.

И вопрос в тему, у Вас сотрудники пользуются одним файлом? Или кто-то один вбивает данные всех сотрудников? Почему спрашиваю, можно организовать одновременную работу нескольких пользователей и при этом не задумываться о защите данных.

@AleksG · 03.12.2013, 18:04 **[ТС]**

Сообщение от Kubuntovod

Можете вообще скрыть лист с данными.

И вопрос в тему, у Вас сотрудники пользуются одним файлом? Или кто-то один вбивает данные всех сотрудников? Почему спрашиваю, можно организовать одновременную работу нескольких пользователей и при этом не задумываться о защите данных.

Как раз пользуются несколько сотрудников, поэтому и нужна защита, так как они могут что нибудь натворить с файлом.
Поэтому нужна защита.

Добавлено через 40 секунд
Спасибо Вам огромное за помощь, все работает.

Добавлено через 8 часов 51 минуту

Сообщение от toiai

Попробуй так:

Visual Basic

Private Sub CommandButton1_Click()
    Dim kz&
    Sheets("Командировка").Unprotect "123" 'параметр это пароль снятия защиты листа
    kz = Sheets("Командировка").UsedRange.Rows.Count + 1
    Range("Командировка!A" & kz).Value = TextBox1.Value
    Range("Командировка!B" & kz).Value = TextBox2.Value
    Range("Командировка!C" & kz).Value = TextBox3.Value
    Range("Командировка!D" & kz).Value = TextBox4.Value
    Range("Командировка!E" & kz).Value = TextBox5.Value
    Range("Командировка!F" & kz).Value = TextBox6.Value
    Range("Командировка!G" & kz).Value = TextBox7.Value
    Range("Командировка!H" & kz).Value = TextBox8.Value
    Range("Командировка!I" & kz).Value = TextBox9.Value
    Range("Командировка!J" & kz).Value = TextBox10.Value
    Sheets("Командировка").Protect "123" 'параметр это пароль защиты листа
    Me.Hide
End Sub

Только перед запуском установи защиту листа с вышеуказанным паролем (или используй свой, заменив в коде тоже)

Я Вам наверно надоел, НО

вопрос вот в чем:
1 сотрудник заполнял свои командировки в поля (A,B,C) и заполнил до строки допусти 15,
2 сотрудник начал заполнять свои командировки в поля (D,E,F,) и первое заполнение началось не с первой пустой строки DEF полей, а с первой пустой строки ABC(то есть с 16-ой строки) в поля D,E,F.
Как сделать что бы он считал пустые строки только в своем диапазоне?

@Hugo121 · 03.12.2013, 18:16

Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей.

toiai · 03.12.2013, 18:29

Предложу вариант такой:
1. Перед выводом формы устанавливать курсор:
- при добавлении в пустую строку
- при корректировке в необходимую строку.
2. При инициализации формы считывать в TextBoxs значения ячеек текущей строки.
3. При записи № записи определять так:

Visual Basic

1	kz=ActiveCells.Row

4. И выход из формы.

@AleksG · 03.12.2013, 18:39 **[ТС]**

Сообщение от Hugo121

Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей.

Они заходят по очереди. и потому что как ресурс есть только Excel

@Hugo121 · 03.12.2013, 20:53

Если по очереди - то это можно считать не многопользовательский режим.
Тогда можно и на Экселе сделать надёжно.

@Kubuntovod · 04.12.2013, 09:03

Сообщение от AleksG

1 сотрудник заполнял свои командировки в поля (A,B,C) и заполнил до строки допусти 15,
2 сотрудник начал заполнять свои командировки в поля (D,E,F,) и первое заполнение началось не с первой пустой строки DEF полей, а с первой пустой строки ABC(то есть с 16-ой строки) в поля D,E,F.
Как сделать что бы он считал пустые строки только в своем диапазоне?

Вариантов несколько.
1. Обязать сотрудников (или внести изменения в макрос, чтобы в пустые поля тоже что-то умолчальное садилось. Можно, к примеру, в первый столбец ставить * или красить текст каким-нибудь цветом) заполнять все поля.
2. Перед внесением новых данных выяснять, какая строка последняя, как-нибудь так: lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
3. Сохранять номер последней заполняемой строки где-то на листе.

Ну и т.д.

@AleksG · 04.12.2013, 12:44 **[ТС]**

Сообщение от Hugo121

Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей.

Работают все по очереди.

@AleksG 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 8
	28.11.2013, 18:20 [ТС]	3
	Спасибо огромное, все работает. А может еще подскажите: Я когда начинаю новые данные вносить, в UserForm остаются данные от предыдущего ввода, как прописать, что бы они очищались 0

@AleksG 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 8
	02.12.2013, 18:30 [ТС]	6
	toiai, Помогите пожалуйста еще один раз. Данные которые попадают в ячеки на другом листе, я хочу защитить от редактирования, соответственно нужен код, согласно которому, при вводе через форму, будет автоматически вводиться код, а потом опять ставиться защита листа от редактирования. Заранее спасибо 0

@Kubuntovod 3195 / 850 / 194 Регистрация: 14.01.2013 Сообщений: 4,068
	02.12.2013, 20:01	8
	Можете вообще скрыть лист с данными. И вопрос в тему, у Вас сотрудники пользуются одним файлом? Или кто-то один вбивает данные всех сотрудников? Почему спрашиваю, можно организовать одновременную работу нескольких пользователей и при этом не задумываться о защите данных. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	03.12.2013, 18:16	10
	Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей. 0

@AleksG 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 8
	03.12.2013, 18:39 [ТС]	12
	Сообщение от Hugo121 Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей. Они заходят по очереди. и потому что как ресурс есть только Excel 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	03.12.2013, 20:53	13
	Если по очереди - то это можно считать не многопользовательский режим. Тогда можно и на Экселе сделать надёжно. 0

@Kubuntovod 3195 / 850 / 194 Регистрация: 14.01.2013 Сообщений: 4,068
	04.12.2013, 09:03	14
	Сообщение от AleksG 1 сотрудник заполнял свои командировки в поля (A,B,C) и заполнил до строки допусти 15, 2 сотрудник начал заполнять свои командировки в поля (D,E,F,) и первое заполнение началось не с первой пустой строки DEF полей, а с первой пустой строки ABC(то есть с 16-ой строки) в поля D,E,F. Как сделать что бы он считал пустые строки только в своем диапазоне? Вариантов несколько. 1. Обязать сотрудников (или внести изменения в макрос, чтобы в пустые поля тоже что-то умолчальное садилось. Можно, к примеру, в первый столбец ставить * или красить текст каким-нибудь цветом) заполнять все поля. 2. Перед внесением новых данных выяснять, какая строка последняя, как-нибудь так: lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count 3. Сохранять номер последней заполняемой строки где-то на листе. Ну и т.д. 0

@AleksG 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 8
	04.12.2013, 12:44 [ТС]	15
	Сообщение от Hugo121 Хм, а почему Эксель? Это ведь задача для Access, тем более если нужна безпроблемная одновременная работа нескольких пользователей. Работают все по очереди. 0