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

Вход

Регистрация

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

 

= Мир MS Excel/TextBox, при внесении данных "АВ0001-15" из таблицы, изъять - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » TextBox, при внесении данных "АВ0001-15" из таблицы, изъять (Иное/Other)
TextBox, при внесении данных "АВ0001-15" из таблицы, изъять
damask_86ru Дата: Воскресенье, 11.01.2015, 18:31 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
На листе Excel имеется таблица состоящая из двух столбцов и кнопка которая запускает форму ввода информации для данной таблицы.
Вопрос заключается в следующем, а точнее их два:
1) Вопрос первый, как занести в Textbox1 который расположен на форме последнее значение из столбца "Серия / №", а именно, только порядковый номер "0001" исключая "АВ" и "-15", и прибавляя к данному номеру "1", чтобы в итоге в Textbox1 отобразилось значение "0002"?
2) Вопрос второй, как сделать, чтобы после нажатия на кнопку "Ввод" (кнопка расположена на форме) значение в Textbox1 изменилось на "0003", т.е. автоматом забирало из таблицы последнее значение в столбце "Серия / №"?

Код для ввода данных, думаю будет таким:

ActiveSheet.Cells(lLastRow, "B").Value =
Me.ComboBox1.Value & " " & Me.TextBox1.Value & "-" & Me.TextBox4.Value

P.S. Таблица условная, как пример.
К сообщению приложен файл: primer.xlsm (20.9 Kb)
 
Ответить
СообщениеНа листе Excel имеется таблица состоящая из двух столбцов и кнопка которая запускает форму ввода информации для данной таблицы.
Вопрос заключается в следующем, а точнее их два:
1) Вопрос первый, как занести в Textbox1 который расположен на форме последнее значение из столбца "Серия / №", а именно, только порядковый номер "0001" исключая "АВ" и "-15", и прибавляя к данному номеру "1", чтобы в итоге в Textbox1 отобразилось значение "0002"?
2) Вопрос второй, как сделать, чтобы после нажатия на кнопку "Ввод" (кнопка расположена на форме) значение в Textbox1 изменилось на "0003", т.е. автоматом забирало из таблицы последнее значение в столбце "Серия / №"?

Код для ввода данных, думаю будет таким:

ActiveSheet.Cells(lLastRow, "B").Value =
Me.ComboBox1.Value & " " & Me.TextBox1.Value & "-" & Me.TextBox4.Value

P.S. Таблица условная, как пример.
Автор - damask_86ru
Дата добавления - 11.01.2015 в 18:31
Karataev Дата: Воскресенье, 11.01.2015, 21:08 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
сделал первое задание .не знаю,стану ли делать второе задание
я сделал для себя кнопку,т.к.у меня не работают activex на листе . вы для себя измените
К сообщению приложен файл: primer_v1.xlsm (25.4 Kb)
 
Ответить
Сообщениесделал первое задание .не знаю,стану ли делать второе задание
я сделал для себя кнопку,т.к.у меня не работают activex на листе . вы для себя измените
Автор - Karataev
Дата добавления - 11.01.2015 в 21:08
damask_86ru Дата: Понедельник, 12.01.2015, 07:22 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Большое СПАСИБО Вам!
Ваш вариант по первому моему вопросу отлично работает!
 
Ответить
СообщениеБольшое СПАСИБО Вам!
Ваш вариант по первому моему вопросу отлично работает!
Автор - damask_86ru
Дата добавления - 12.01.2015 в 07:22
damask_86ru Дата: Понедельник, 12.01.2015, 15:25 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Karataev, по поводу второго вопроса. Подскажите пожалуйста, а нельзя ли как то привязать функцию приведенную в Вашем примере к кнопке "Ввод", на обновление TextBox1, т.е. повторение функции?
К сообщению приложен файл: primer_v1.1.xlsm (26.3 Kb)
 
Ответить
СообщениеKarataev, по поводу второго вопроса. Подскажите пожалуйста, а нельзя ли как то привязать функцию приведенную в Вашем примере к кнопке "Ввод", на обновление TextBox1, т.е. повторение функции?
Автор - damask_86ru
Дата добавления - 12.01.2015 в 15:25
RAN Дата: Понедельник, 12.01.2015, 15:53 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата damask_86ru, 11.01.2015 в 18:31, в сообщении № 1
последнее значение из столбца "Серия / №", а именно, только порядковый номер "0001"

Цитата damask_86ru, 11.01.2015 в 18:31, в сообщении № 1
нажатия на кнопку "Ввод" (кнопка расположена на форме) значение в Textbox1 изменилось на "0003", т.е. автоматом забирало из таблицы последнее значение в столбце "Серия / №"?

Ну никак такого представить не могу.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата damask_86ru, 11.01.2015 в 18:31, в сообщении № 1
последнее значение из столбца "Серия / №", а именно, только порядковый номер "0001"

Цитата damask_86ru, 11.01.2015 в 18:31, в сообщении № 1
нажатия на кнопку "Ввод" (кнопка расположена на форме) значение в Textbox1 изменилось на "0003", т.е. автоматом забирало из таблицы последнее значение в столбце "Серия / №"?

Ну никак такого представить не могу.
Автор - RAN
Дата добавления - 12.01.2015 в 15:53
gling Дата: Понедельник, 12.01.2015, 18:21 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Можа так?
К сообщению приложен файл: primer_v1.1-1-.xlsm (27.5 Kb)

ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 12.01.2015, 20:28
 
Ответить
СообщениеМожа так?
Автор - gling
Дата добавления - 12.01.2015 в 18:21
damask_86ru Дата: Понедельник, 12.01.2015, 20:01 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
RAN, я забыл описать, что после нажатия кнопки "Ввод" значение из TextBox1 заносилось в таблицу, в столбец "Серия / №", и тут же код должен забрать это значение из таблицы в TextBox1 и прибавить "1".
 
Ответить
СообщениеRAN, я забыл описать, что после нажатия кнопки "Ввод" значение из TextBox1 заносилось в таблицу, в столбец "Серия / №", и тут же код должен забрать это значение из таблицы в TextBox1 и прибавить "1".
Автор - damask_86ru
Дата добавления - 12.01.2015 в 20:01
damask_86ru Дата: Понедельник, 12.01.2015, 20:23 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
gling, Большое Вам СПАСИБО, работает!
Только у меня почему то не вызывается форма с кнопки в файле который я скачал с Вашего сообщения, но вышел из положения скопировав код в исходник.
Если будут еще варианты, не откажусь и от них). Еще раз Спасибо!
К сообщению приложен файл: primer_v1.2.xlsm (23.9 Kb)
 
Ответить
Сообщениеgling, Большое Вам СПАСИБО, работает!
Только у меня почему то не вызывается форма с кнопки в файле который я скачал с Вашего сообщения, но вышел из положения скопировав код в исходник.
Если будут еще варианты, не откажусь и от них). Еще раз Спасибо!
Автор - damask_86ru
Дата добавления - 12.01.2015 в 20:23
gling Дата: Понедельник, 12.01.2015, 20:41 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Заменил файл в Сообщении№6, там от кнопки прибавляется 1. Первоначально не так понял, делал от мышки. А форма выдает ошибку потому, что диапазон таблицы от конца таблицы до нижнего значения пустой, и вывести на форму данные нет возможности (их нет). Это мое мнение, возможно не правильное. Удалите строки таблицы до нижнего значения и все будет работать.

ЯД-41001506838083
 
Ответить
СообщениеЗаменил файл в Сообщении№6, там от кнопки прибавляется 1. Первоначально не так понял, делал от мышки. А форма выдает ошибку потому, что диапазон таблицы от конца таблицы до нижнего значения пустой, и вывести на форму данные нет возможности (их нет). Это мое мнение, возможно не правильное. Удалите строки таблицы до нижнего значения и все будет работать.
Автор - gling
Дата добавления - 12.01.2015 в 20:41
damask_86ru Дата: Понедельник, 12.01.2015, 21:15 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
gling, Спасибо еще раз, скачал все работает, то что надо!
А я тоже немного переделал Ваш вариант изменив "Privat Sub TextBox1_MausUp" на "Privat Sub CommandButton1_MausUp". Только вот в этом варианте у меня получалось что в TextBox1 отображалось старое значение (что конечно же неудобно), но при нажатии на кнопку "Ввод" значение заносилось правильное, и копировалось в TextBox1 (только без прибавления). Если хотите посмотрите файл во вложении.
К сообщению приложен файл: primer_v1.3.xlsm (24.0 Kb)
 
Ответить
Сообщениеgling, Спасибо еще раз, скачал все работает, то что надо!
А я тоже немного переделал Ваш вариант изменив "Privat Sub TextBox1_MausUp" на "Privat Sub CommandButton1_MausUp". Только вот в этом варианте у меня получалось что в TextBox1 отображалось старое значение (что конечно же неудобно), но при нажатии на кнопку "Ввод" значение заносилось правильное, и копировалось в TextBox1 (только без прибавления). Если хотите посмотрите файл во вложении.
Автор - damask_86ru
Дата добавления - 12.01.2015 в 21:15
damask_86ru Дата: Понедельник, 12.01.2015, 21:36 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Что то странное происходит в последнее время с кнопками (ActiveX) размещенными на листе, превращаются будто в картинку. Не нажмешь... Заметил, что не у меня одного такая проблема. И чаще это происходит с файлами которые содержат модули.
 
Ответить
СообщениеЧто то странное происходит в последнее время с кнопками (ActiveX) размещенными на листе, превращаются будто в картинку. Не нажмешь... Заметил, что не у меня одного такая проблема. И чаще это происходит с файлами которые содержат модули.
Автор - damask_86ru
Дата добавления - 12.01.2015 в 21:36
gling Дата: Понедельник, 12.01.2015, 22:15 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Сделайте без элементов ActiveX.
К сообщению приложен файл: 6227800.xlsm (23.0 Kb)

ЯД-41001506838083
 
Ответить
СообщениеСделайте без элементов ActiveX.
Автор - gling
Дата добавления - 12.01.2015 в 22:15
damask_86ru Дата: Вторник, 13.01.2015, 08:53 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Спасибо, я об этом уже подумал.
Еще в начале форума, я удивился тому, что Karataev написал "не работают на листе элементы ActiveX".
Теперь у самого такая проблема.
 
Ответить
СообщениеСпасибо, я об этом уже подумал.
Еще в начале форума, я удивился тому, что Karataev написал "не работают на листе элементы ActiveX".
Теперь у самого такая проблема.
Автор - damask_86ru
Дата добавления - 13.01.2015 в 08:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » TextBox, при внесении данных "АВ0001-15" из таблицы, изъять (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

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