Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Выделение цветом года превышающим более 3 лет от 2019 года
 
[QUOTE]Андрей_26 написал:
В код листа вставить:
Попробовала вставить, но выдает ошибку
Код
If MYear - Cells(i, "E").Value >= 3 Then
Выделение цветом года превышающим более 3 лет от 2019 года
 
Ой, а можете на примере показать, а то не поняла.  
Выделение цветом года превышающим более 3 лет от 2019 года
 
Здравствуйте, скажите пожалуйста как в эксель сделать так, чтоб от сегодняшнего года выделялись все года , которые превышают 3 года,и если эти года выделены красным, когда мы изменяем год, то он снова становился белым.
Вывод сообщение "Такая запись уже существует"
 
Цитата
Hugo написал:
я перед публикацией проверил в Вашем файле, никаких ошибок нет.
Неправильно написала он выдает даже когда там пусто
Вывод сообщение "Такая запись уже существует"
 
Цитата
Hugo написал:
я перед публикацией проверил в Вашем файле, никаких ошибок нет.
а можете перекинуть на моем файле?  
Вывод сообщение "Такая запись уже существует"
 
Цитата
Hugo написал:
Private Sub TextBox9_AfterUpdate()    x = TextBox9    Set sht = Sheets("Лист1")    a = sht.Range("A1").CurrentRegion.Columns(3).Value    For I = 1 To UBound(a)        If a(I, 1) = x Then MsgBox "Такая запись уже существует!", vbCritical: TextBox9.SetFocus: TextBox9 = Empty: Exit For    NextEnd Sub
Выдает ошибку
Вывод сообщение "Такая запись уже существует"
 
Цитата
vikttur написал:
DKe ,  Вы должны сами давать ссылки на параллельное размещение темы
это как?
Вывод сообщение "Такая запись уже существует"
 
Цитата
Hugo написал:
Добрый вечер.Я так пробую - что-то у меня сетфокус не отрабатывает, но может и не нужно...Код ? 12345678Private Sub TextBox9_AfterUpdate()    x = TextBox9    Set sht = Sheets("Лист1")    a = sht.Range("A1").CurrentRegion.Columns(3).Value    For I = 1 To UBound(a)        If a(I, 1) = x Then MsgBox "Такая запись уже существует!", vbCritical: TextBox9.SetFocus: TextBox9 = Empty: Exit For    NextEnd SubP.S. Правда файл брал не по ссылке, а с другого форума.
а в какую часть кода это вставлять?  
Вывод сообщение "Такая запись уже существует"
 
 Попробовала, но пример тоже превышает, а можете показать на коде? Нужно чтоб когда мы вводим в форме в код и если такой код уже есть , то чтоб он выдавал сообщения " Что такая запись уже существует, нужно ли добавить   новую или нет?" Это получается столбец С
Код
Private Sub CommandButton2_Click()
Dim Ar, I As Integer
Ar = Array(1, 8, 9, 10, 7, 6, 20, 19, 17, 18, 16, 15, 14, 13, 12, 11, 25, 24, 23, 22, 21, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 40, 41, 39) 'продолжить массив номерами по порядку следования текстбоксов
Set sht = Sheets("Лист1")
N = sht.Range("A1").CurrentRegion.Rows.Count
For I = 1 To UBound(Ar) + 1
  sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
  Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
End Sub
Private Sub UserForm_Initialize()
   Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
   Me.TextBox8.SetFocus
End Sub
Вывод сообщение "Такая запись уже существует"
 
Здравствуйте, скажите пожалуйста как на столбец С сделать такая запись уже существует, если при вводе мы вводим тоже значение. Файл по ссылке, т.к превышает размер файл.
http://www.cyberforum.ru/vba/thread2446173.html#taglist
Заполнение формы записи в заблокированном листе
 
Здравствуйте, подскажите пожалуйста, как заполнять  таблицу  через созданную форму если лист заблокирован? 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 (Добавление сообщения к теме)
Автонумерация первой строки через созданную форму
 
http://www.cyberforum.ru/vba/thread2441851.html ? да, забыла, данная тема еще тут
думаю что первую строчку нужно изменить. но не понимаю как
Код
sht.Cells(N + 1, 1).Value = TextBox1.Text
Изменено: DKe - 24.04.2019 10:54:58
Автонумерация первой строки через созданную форму
 
Здравствуйте, подскажите пожулуйста, как изменить данный код, чтоб первый текстбокс заполнялся автоматически, при том что уже есть заполненные сроки
Код
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
Запуск макроса при нажатии "ENTER
 
Цитата
_Igor_61 написал:
в следующий раз создавайте темы так, чтобы в них было по одному вопросу, а не три как в этой. Попадет и Вам и помогающим за нарушение правил форума. Удачи
Хорошо,спасибо
Запуск макроса при нажатии "ENTER
 
Цитата
_Igor_61 написал:
После всех слов у Вас есть пробел:
Да, все увидела, исправила, теперь работает, благодарю за помощь), очень помогли
Запуск макроса при нажатии "ENTER
 
Цитата
БМВ написал:
после года везде пробел.
Все, увидела, благодарю
Запуск макроса при нажатии "ENTER
 
Цитата
_Igor_61 написал:
DKe , у меня в Вашем файле-примере все работает: А чтобы Пензу находил - уберите пробел после всех слов в ячейке
так там нет пробела,только точка
Запуск макроса при нажатии "ENTER
 
Цитата
БМВ написал:
а как это с текущей темой связано? Но что б еще на пол дня не разводить , то в ячейках "г.Смоленск,2013 " а поиск LookAt:=xlWhole. "г.Смоленск,2013" и не ищет.
ну это получается что в столбце, а что значит : а поиск LookAt:=xlWhole. "г.Смоленск,2013" и не ищет.
Запуск макроса при нажатии "ENTER
 
Цитата
БМВ написал:
кнопке CommandButton1 присвоить аттрибут default=true
а скажите как сделать чтоб при поиске, если я ввожу г.Смоленск,2013  он тоже выдавал ,он выдает что такая запись не найдена, хоть и столбцы изменены,  
Запуск макроса при нажатии "ENTER
 
Цитата
_Igor_61 написал:
В модуль формы:Код ? 1234Private Sub UserForm_Activate()Me.TextBox1.Value = ""Me.TextBox1.SetFocusEnd Sub
Вставила, но он не очищает, и энтер только со второго раза работает  
Запрет на редактирование записей которые уже есть
 
Здравствуйте, скажите пожалуйста как сделать запрет на редактирование записей которые уже есть по столбцам? Если у нас есть заполненные строки, то в какой то момент кто то может нажать и что то изменить, в данном случае нужно чтоб на тех записях что есть или будут появляться, было предупреждение "действительно хотите изменить?", а там где пустые ячейки можно было просто вводить значения.  
Запуск макроса при нажатии "ENTER
 
я имею ввиду, чтоб можно было нажимать на клавиатуре на ентер, а тут получается что только на кнопку
Запуск макроса при нажатии "ENTER
 
Здравствуйте, подскажите пожалуйста как изменить данный код так, чтоб можно было нажимать не только кнопку  ПОИСК на форме  , но так же можно было и на клавиатуре нажать на Энтер, чтоб осуществлялся поиск, и самоочищался вводимый текст , для следующего ввода поиска,т.к сейчас получается, что когда нужно ввести следующий поиск, то остается предыдущие значение.
Изменено: DKe - 23.04.2019 21:33:17 (Добавление сообщения к теме)
Запрет на прокрутку листа вэксель
 
А это как? Можете показать на примере
Изменено: DKe - 21.04.2019 11:41:25
Запрет на прокрутку листа вэксель
 
Здравствуйте, скажите пожулуйста, как в эксель запретить прокрутку листа? Знаю, что можно через ScrollArea, но тут получается, что после закрытия Эксель, и сама прокрутку возвращается,возможно ли это вообще? В данном случае, у меня в Эксель, есть что то вроде формы с переходами по листам, нужно чтоб этот лист не мог прокручивается
Страницы: 1
Наверх