Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » DKe
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Выделение цветом года превышающим более 3 лет от 2019 года
 
#
14.05.2019 15:11:22
Здравствуйте, скажите пожалуйста как в эксель сделать так, чтоб от сегодняшнего года выделялись все года , которые превышают 3 года,и если эти года выделены красным, когда мы изменяем год, то он снова становился белым.
 
Перейти    
Вывод сообщение "Такая запись уже существует"
 
#
01.05.2019 22:58:40
Здравствуйте, скажите пожалуйста как на столбец С сделать такая запись уже существует, если при вводе мы вводим тоже значение. Файл по ссылке, т.к превышает размер файл.
http://www.cyberforum.ru/vba/thread2446173.html#taglist
 
Перейти    
Заполнение формы записи в заблокированном листе
 
#
24.04.2019 15:37:23
Здравствуйте, подскажите пожалуйста, как заполнять  таблицу  через созданную форму если лист заблокирован? http://www.excelworld.ru/forum/10-41619-1
Спасибо [b]K-SerJC[/b], все работает, но единственное что нельзя заполнять пустые строки через созданную форму, как можно изменить  данный код?
Размер файла превышает, не знаю как сюда выложить, этот файл есть тут http://www.cyberforum.ru/vba/thread2442552.html#post13520335
Изменено: DKe - 24.04.2019 15:50:24 (Добавление сообщения к теме)
 
Перейти    
Автонумерация первой строки через созданную форму
 
#
24.04.2019 09:57:42
Здравствуйте, подскажите пожулуйста, как изменить данный код, чтоб первый текстбокс заполнялся автоматически, при том что уже есть заполненные сроки
Код
Private Sub CommandButton2_Click()Set sht = Sheets("1")
N = sht.Range("A1").CurrentRegion.Rows.Count
sht.Cells(N + 1, 1).Value = TextBox1.Text
sht.Cells(N + 1, 2).Value = TextBox8.Text
sht.Cells(N + 1, 3).Value = TextBox9.Text
sht.Cells(N + 1, 4).Value = TextBox10.Text
sht.Cells(N + 1, 5).Value = TextBox7.Text
sht.Cells(N + 1, 6).Value = TextBox6.Text
sht.Cells(N + 1, 7).Value = TextBox20.Text
sht.Cells(N + 1, .Value = TextBox19.Text
sht.Cells(N + 1, 9).Value = TextBox17.Text
sht.Cells(N + 1, 10).Value = TextBox18.Text
sht.Cells(N + 1, 11).Value = TextBox16.Text
sht.Cells(N + 1, 12).Value = TextBox15.Text
sht.Cells(N + 1, 13).Value = TextBox14.Text
sht.Cells(N + 1, 14).Value = TextBox13.Text
sht.Cells(N + 1, 15).Value = TextBox12.Text
sht.Cells(N + 1, 16).Value = TextBox11.Text
sht.Cells(N + 1, 17).Value = TextBox25.Text
sht.Cells(N + 1, 18).Value = TextBox24.Text
sht.Cells(N + 1, 19).Value = TextBox23.Text
sht.Cells(N + 1, 20).Value = TextBox22.Text
sht.Cells(N + 1, 21).Value = TextBox21.Text
sht.Cells(N + 1, 22).Value = TextBox38.Text
sht.Cells(N + 1, 23).Value = TextBox37.Text
sht.Cells(N + 1, 24).Value = TextBox36.Text
sht.Cells(N + 1, 25).Value = TextBox35.Text
sht.Cells(N + 1, 26).Value = TextBox34.Text
sht.Cells(N + 1, 27).Value = TextBox33.Text
sht.Cells(N + 1, 28).Value = TextBox32.Text
sht.Cells(N + 1, 29).Value = TextBox31.Text
sht.Cells(N + 1, 30).Value = TextBox30.Text
sht.Cells(N + 1, 31).Value = TextBox29.Text
sht.Cells(N + 1, 32).Value = TextBox28.Text
sht.Cells(N + 1, 33).Value = TextBox27.Text
sht.Cells(N + 1, 34).Value = TextBox26.Text
sht.Cells(N + 1, 35).Value = TextBox40.Text
sht.Cells(N + 1, 36).Value = TextBox41.Text
sht.Cells(N + 1, 37).Value = TextBox39.Text
 
TextBox1.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox7.Text = ""
TextBox6.Text = ""
TextBox20.Text = ""
TextBox19.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox16.Text = ""
TextBox15.Text = ""
TextBox14.Text = ""
TextBox13.Text = ""
TextBox12.Text = ""
TextBox11.Text = ""
TextBox25.Text = ""
TextBox24.Text = ""
TextBox23.Text = ""
TextBox22.Text = ""
TextBox21.Text = ""
TextBox38.Text = ""
TextBox37.Text = ""
TextBox36.Text = ""
TextBox35.Text = ""
TextBox34.Text = ""
TextBox33.Text = ""
TextBox32.Text = ""
TextBox30.Text = ""
TextBox29.Text = ""
TextBox28.Text = ""
TextBox27.Text = ""
TextBox26.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox39.Text = ""
TextBox31.Text = ""
End Sub
 
Перейти    
Запрет на редактирование записей которые уже есть
 
#
23.04.2019 15:49:02
Здравствуйте, скажите пожалуйста как сделать запрет на редактирование записей которые уже есть по столбцам? Если у нас есть заполненные строки, то в какой то момент кто то может нажать и что то изменить, в данном случае нужно чтоб на тех записях что есть или будут появляться, было предупреждение "действительно хотите изменить?", а там где пустые ячейки можно было просто вводить значения.  
 
Перейти    
Запуск макроса при нажатии "ENTER
 
#
23.04.2019 12:07:07
Здравствуйте, подскажите пожалуйста как изменить данный код так, чтоб можно было нажимать не только кнопку  ПОИСК на форме  , но так же можно было и на клавиатуре нажать на Энтер, чтоб осуществлялся поиск, и самоочищался вводимый текст , для следующего ввода поиска,т.к сейчас получается, что когда нужно ввести следующий поиск, то остается предыдущие значение.
Изменено: DKe - 23.04.2019 21:33:17 (Добавление сообщения к теме)
 
Перейти    
Запрет на прокрутку листа вэксель
 
#
20.04.2019 11:41:27
Здравствуйте, скажите пожулуйста, как в эксель запретить прокрутку листа? Знаю, что можно через ScrollArea, но тут получается, что после закрытия Эксель, и сама прокрутку возвращается,возможно ли это вообще? В данном случае, у меня в Эксель, есть что то вроде формы с переходами по листам, нужно чтоб этот лист не мог прокручивается
 
Перейти    
Страницы: 1
Наверх