сделать так чтоб при нажатии убирал повторяющие записи

@машечка · Регистрация: 02.10.2011

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

помогите пожалуйста, есть кнопка при нажатии на которую он распределяет студентов которые сдавали диплом по годам, нужно сделать так, чтоб при повторном нажатии он не дублировал одни и те же надписи

@Alex77755 · 02.10.2011, 15:54

У тебя же кодом предусмотрена дозапись!
Можно просто очищать лист полностью и записывать поновой:

Visual Basic

Private Sub CommandButton1_Click()
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "База" Then
sh.Cells.ClearContents
sh.Range("A1:E1").Value = Sheets("База").Range("A1:E1").Value
End If
Next
    For i = 2 To Sheets(1).Range("A1").End(xlDown).Row
        If Sheets(1).Range("C" & i) = "Диплом" Or Sheets(1).Range("C" & i) = "диплом" Then
            myN = "" & Sheets(1).Range("E" & i) & ""
            myR = Sheets(myN).Range("A1").End(xlDown).Row + 1
            If myR = 65537 Then myR = 2
            'Sheets("" & myN & "").Select
            Sheets(1).Range("A" & i & ":E" & i).Copy Destination:=Sheets(myN).Range("A" & myR)
        End If
    Next
End Sub

@машечка · 02.10.2011, 19:48 **[ТС]**

а можно сделать так чтоб он в начале выдовал форму и там было поле фио, группа, вид работы (курсовая/ диплом) и год

@Alex77755 · 02.10.2011, 20:45

Можно

@машечка · 02.10.2011, 21:14 **[ТС]**

а как? очень нужно, помогите пожалуйста

@Alex77755 · 02.10.2011, 21:16

есть кнопка при нажатии на которую он распределяет студентов

А форма-то при чём?

@машечка · 02.10.2011, 21:19 **[ТС]**

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

@Alex77755 · 02.10.2011, 21:22

Лучше бы задание озвучила..
а то ни фига не понятно..

@машечка · 02.10.2011, 21:31 **[ТС]**

нужно сделать форму в которой заполняются фио, группа в меню выбирается диплом/курсовая и т.д., название и год, при нажатии на кнопку определяет что если работа является дипломом, то вся строка копируется в таблицу на второй лист, названием которого является год работы.

@Alex77755 · 02.10.2011, 21:48

А причём тогда первый лист? Или там должно быть всё?

@машечка · 02.10.2011, 21:49 **[ТС]**

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

А причём тогда первый лист? Или там должно быть всё?

да там должно быть все

@Alex77755 · 02.10.2011, 21:52

Ну так тогда по кнопке надо просто вызывать форму, а по кнопке на форме(после проверки заполненности всех полей) заполнять базу, а потом запускать сортировку(которая уже есть)

@машечка · 02.10.2011, 21:54 **[ТС]**

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

Ну так тогда по кнопке надо просто вызывать форму, а по кнопке на форме(после проверки заполненности всех полей) заполнять базу, а потом запускать сортировку(которая уже есть)

хм...и как эт сделать?

@Alex77755 · 02.10.2011, 22:00

В редакторе VBE нажать в меню Insert - User Form

Добавлено через 2 минуты
А в коде кнопки прописать:

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Форма и появится

@машечка · 02.10.2011, 22:17 **[ТС]**

а как сделать тогда чтоб при нажатии на форме на кнопку он записывал в таблицу листа База данные?

@Alex77755 · 02.10.2011, 22:21

Можно сначала считать в переменные значения полей. Потом проверить все ли значения не равны пустому месту. Потом определить количаство записей в базе. Потом дописать в базу новые данные. А потом запустить ту процедуру, что имеется(Запись с сортировкой)

@машечка · 02.10.2011, 22:34 **[ТС]**

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

Можно сначала считать в переменные значения полей. Потом проверить все ли значения не равны пустому месту. Потом определить количаство записей в базе. Потом дописать в базу новые данные. А потом запустить ту процедуру, что имеется(Запись с сортировкой)

я запуталась окончательно %)
лучше скажи что мне написать для кнопки чтоб он записывал в таблицу данные

@Alex77755 · 02.10.2011, 22:40

Если тебе надо с формой, то код кнопки на листе будет примерно такой:

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

А вот код кнопки на форме будет значительно сложней

сначала считать в переменные значения полей. Потом проверить все ли значения не равны пустому месту. Потом определить количаство записей в базе. Потом дописать в базу новые данные. А потом запустить ту процедуру, что имеется(Запись с сортировкой)

@машечка · 02.10.2011, 23:29 **[ТС]**

и ни че не сложно... заставил меня тут страдать этой фигней!

@Sasha_Smirnov · 02.10.2011, 23:41

Так скорей бегите, а то ещё научат программировать! Придётся на лекциях скучать☺

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 21:52	12
	Ну так тогда по кнопке надо просто вызывать форму, а по кнопке на форме(после проверки заполненности всех полей) заполнять базу, а потом запускать сортировку(которая уже есть) 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 21:54 [ТС]	13
	Сообщение от Alex77755 Ну так тогда по кнопке надо просто вызывать форму, а по кнопке на форме(после проверки заполненности всех полей) заполнять базу, а потом запускать сортировку(которая уже есть) хм...и как эт сделать? 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 19:48 [ТС]	3
	а можно сделать так чтоб он в начале выдовал форму и там было поле фио, группа, вид работы (курсовая/ диплом) и год 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 20:45	4
	Можно 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 21:14 [ТС]	5
	а как? очень нужно, помогите пожалуйста 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 21:16	6
	есть кнопка при нажатии на которую он распределяет студентов А форма-то при чём? 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 21:19 [ТС]	7
	нужно создать форму через которую эт все заполнятся и потом распределятся по годам будет 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 21:22	8
	Лучше бы задание озвучила.. а то ни фига не понятно.. 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 21:31 [ТС]	9
	нужно сделать форму в которой заполняются фио, группа в меню выбирается диплом/курсовая и т.д., название и год, при нажатии на кнопку определяет что если работа является дипломом, то вся строка копируется в таблицу на второй лист, названием которого является год работы. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 21:48	10
	А причём тогда первый лист? Или там должно быть всё? 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 21:49 [ТС]	11
	Сообщение от Alex77755 А причём тогда первый лист? Или там должно быть всё? да там должно быть все 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 22:17 [ТС]	15
	а как сделать тогда чтоб при нажатии на форме на кнопку он записывал в таблицу листа База данные? 0

	02.10.2011, 23:41

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	02.10.2011, 22:21	16
	Можно сначала считать в переменные значения полей. Потом проверить все ли значения не равны пустому месту. Потом определить количаство записей в базе. Потом дописать в базу новые данные. А потом запустить ту процедуру, что имеется(Запись с сортировкой) 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 22:34 [ТС]	17
	Сообщение от Alex77755 Можно сначала считать в переменные значения полей. Потом проверить все ли значения не равны пустому месту. Потом определить количаство записей в базе. Потом дописать в базу новые данные. А потом запустить ту процедуру, что имеется(Запись с сортировкой) я запуталась окончательно %) лучше скажи что мне написать для кнопки чтоб он записывал в таблицу данные 0

@машечка 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 29
	02.10.2011, 23:29 [ТС]	19
	и ни че не сложно... заставил меня тут страдать этой фигней! 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	02.10.2011, 23:41	20
	Так скорей бегите, а то ещё научат программировать! Придётся на лекциях скучать☺ 1