Переместиться в определенную ячейку в excel / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переместиться в определенную ячейку в excel

13 сообщений из 13, страница 1 из 1

Переместиться в определенную ячейку в excel

#39007376

Андрей_707

Гость

Помогите решить проблему. Необходимо переместиться (или получить фокус) в определенной ячейке в excel. Т.е есть таблица, со списком городов. В верху таблицы есть раскрывающийся список с этими городами, необходимо при выборе из этого раскрывающегося списка, курсор поместился на город из таблицы.
Т.е что то типа поиска.

...

Рейтинг:

0 / 0

14.07.2015, 21:41

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39007398

hclubmk

Участник

Сообщения: 283

Рейтинг: 0 / 0

Андрей_707В верху таблицы есть раскрывающийся список Какой список? Как организован? Штатный элемент управления, ActiveX, через проверку данных? Не много вопросов или самому догадаться?

...

Рейтинг:

0 / 0

14.07.2015, 22:25

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39007401

Андрей_707

Гость

Список через проверку данных, но можно организовать по другому, главное чтобы работало

...

Рейтинг:

0 / 0

14.07.2015, 22:36

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39007406

hclubmk

Участник

Сообщения: 283

Рейтинг: 0 / 0

Если можно по-другому, то через штатный список как-то так

...

Рейтинг:

0 / 0

14.07.2015, 22:50

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39007410

hclubmk

Участник

Сообщения: 283

Рейтинг: 0 / 0

Через проверку данных как-то так

...

Рейтинг:

0 / 0

14.07.2015, 23:06

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39007412

hclubmk

Участник

Сообщения: 283

Рейтинг: 0 / 0

Что касаемо варианта с проверкой данных, наверно, следующий вариант будет более правильным:

Код: vbnet

1.
2.
3.
4.
5.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$1" Then
    Worksheets(1).Range(Application.ConvertFormula(Replace(Range("A1").Validation.Formula1, "=", ""), xlR1C1, xlA1)).Find(What:=Range("A1").Value, LookIn:=xlValues).Select
End If
End Sub

...

Рейтинг:

0 / 0

14.07.2015, 23:27

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39008241

Андрей_707

Гость

hclubmk, спасибо, все получилось.

...

Рейтинг:

0 / 0

15.07.2015, 20:08

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39055695

Андрей_707

Гость

hclubmkЧто касаемо варианта с проверкой данных, наверно, следующий вариант будет более правильным:

Код: vbnet

1.
2.
3.
4.
5.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$1" Then
    Worksheets(1).Range(Application.ConvertFormula(Replace(Range("A1").Validation.Formula1, "=", ""), xlR1C1, xlA1)).Find(What:=Range("A1").Value, LookIn:=xlValues).Select
End If
End Sub

Подскажите как в этот код вставить обработку ошибок? Т.к если то что введенные в ячейку данные не обнаружены, то появляется ошибка. Хотелось бы чтобы появлялся MsgBox. Спасибо.

...

Рейтинг:

0 / 0

18.09.2015, 21:07

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39055749

Казанский

Гость

Андрей_707,
а почему проверка данных пропускает значения, которые не обнаруживаются? Там только предупреждение, что ли?
У меня формула проверки дает диапазон в стиле А1, так что работает так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address() <> "$A$1" Then Exit Sub
  If Target = "" Then Exit Sub
  Set Target = Range(Mid(Target.Validation.Formula1, 2)).Find(What:=Target.Value, LookIn:=xlValues)
  If Target Is Nothing Then
    MsgBox "Не найдено"
  Else
    Target.Select
  End If
End Sub

...

Рейтинг:

0 / 0

18.09.2015, 23:00

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39056010

Андрей_707

Гость

Казанский,
Нет, просто хочу чуть переделать поиск. Тот вариант уже не подходит.

Теперь нужно вводить в ячейку (например А1) текст, при нажатии ввод, он должен искаться в столбце B1:B1000, и если не найден, выдавать сообщение.

...

Рейтинг:

0 / 0

19.09.2015, 16:11

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39056029

Казанский

Гость

Просто замените область поиска

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address() <> "$A$1" Then Exit Sub
  If Target = "" Then Exit Sub
  Set Target = Range("B1:B1000").Find(What:=Target.Value, LookIn:=xlValues)
  If Target Is Nothing Then
    MsgBox "Не найдено"
  Else
    Target.Select
  End If
End Sub

...

Рейтинг:

0 / 0

19.09.2015, 16:39

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39056041

Андрей_707

Гость

Казанский,
Спасибо все работает.
А еще как добавить в MsgBox "Не найдено", то что было введено в ячейку? т.е "Введенное значение ____ не найдено"

...

Рейтинг:

0 / 0

19.09.2015, 17:00

| Ответить | Цитировать | Написать

Переместиться в определенную ячейку в excel

#39056167

Казанский

Гость

Код: vbnet

MsgBox  "Введенное значение " & [A1] & " не найдено"

...

Рейтинг:

0 / 0

19.09.2015, 19:11

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переместиться в определенную ячейку в excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=%D0%90%D0%BD%D0%B4%D1%80%D0%B5%D0%B9_707&author_mode=last_posts&do_search=1]:	0ms
get settings:	9ms
get forum list:	13ms
get settings:	9ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	39ms
get topic data:	11ms
get forum data:	3ms
get page messages:	51ms
get tp. blocked users:	1ms
others:	726ms

total:	885ms