Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывод сообщение "Такая запись уже существует" на столбец С - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод сообщение "Такая запись уже существует" на столбец С (Макросы/Sub)
Вывод сообщение "Такая запись уже существует" на столбец С
DKeT Дата: Среда, 01.05.2019, 22:55 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте, скажите пожалуйста как на столбец С сделать такая запись уже существует, если при вводе мы вводим тоже значение. Файл по ссылке, если сюда то превышает размер Ссылка удалена. Нарушение Правил форума


Сообщение отредактировал Pelena - Четверг, 02.05.2019, 07:50
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста как на столбец С сделать такая запись уже существует, если при вводе мы вводим тоже значение. Файл по ссылке, если сюда то превышает размер Ссылка удалена. Нарушение Правил форума

Автор - DKeT
Дата добавления - 01.05.2019 в 22:55
Pelena Дата: Четверг, 02.05.2019, 07:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Весь файл не нужен. Сделайте небольшой пример с сохранением структуры и положите сюда


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВесь файл не нужен. Сделайте небольшой пример с сохранением структуры и положите сюда

Автор - Pelena
Дата добавления - 02.05.2019 в 07:51
DKeT Дата: Четверг, 02.05.2019, 20:49 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Pelena, не знаю как по другому сделать, так размер большой. Получается есть код для формы , в форме для строки код , "в примере" нужно сделать что если мы вводим точно такое же значение он бы выдавал сообщение что хотите добавить новое или нет в файле пример
[vba]
Код
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
[/vba]
К сообщению приложен файл: 033.xlsm (12.7 Kb)


Сообщение отредактировал DKeT - Четверг, 02.05.2019, 20:59
 
Ответить
СообщениеPelena, не знаю как по другому сделать, так размер большой. Получается есть код для формы , в форме для строки код , "в примере" нужно сделать что если мы вводим точно такое же значение он бы выдавал сообщение что хотите добавить новое или нет в файле пример
[vba]
Код
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
[/vba]

Автор - DKeT
Дата добавления - 02.05.2019 в 20:49
Pelena Дата: Четверг, 02.05.2019, 21:54 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Вам уже столько ответов дали на разных форумах...


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВам уже столько ответов дали на разных форумах...

Автор - Pelena
Дата добавления - 02.05.2019 в 21:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод сообщение "Такая запись уже существует" на столбец С (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!