ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
13 сообщений из 13, страница 1 из 1
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34773927
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Профи помогите!!!!
У меня такая проблема - есть таблица для ввода результатов опроса. В (А3) результаты ответа на вопрос "будете ли Вы голосовать за нынешнего депутата при следующих выборах?". В (В3) "Почему вы будете за него голосовать?", в (С3) "Почему не будете?". Но если человек ответил "Нет" (код "2") в ячейке (А3), то в ячейку (В3) уже ничего вводиться не будет. А если ответил "Затрудняюсь ответить" (Код "3"), то ничего не будет вводиться не в (В3), не в (С3), а сразу в (D3).
Т.е. если в (А3) вводится "1" дальше должна заполняться ячейка (В3), если в (А3) вводится "2", то через (В3) нужно как бы перепрыгнуть и начать ввод со следующей ячейки - (С3), а если вводится "3", то ввод нужно начать с ячейки (D3).
Как это сделать?
...
Рейтинг: 0 / 0
04.09.2007, 12:02:46
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34774439
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вам нужно написать свой обработчик события Worksheet_Change
...
Рейтинг: 0 / 0
04.09.2007, 13:55:26
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34777710
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Увидев что у меня есть одно сообщение я обрадовался - думал кто-то сейчас скинет готовую формулу, а тут предложение написать "свой обработчик"... :(
Конечно, ОГРОМНОЕ СПАСИБО ЗА ОТВЕТ, но если бы я мог написать этот обработчик, то давно бы написал, а не стал бы спрашивать...
...
Рейтинг: 0 / 0
05.09.2007, 14:13:30
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34777816
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
udgeen69
Участник
Как-то странно. А что у депутатов проблемы с деньгами на VBA-прогеров? Бгага
...
Рейтинг: 0 / 0
05.09.2007, 14:37:18
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34782220
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Мы работаем не на депутатов, а скорее против них...
Знаете ли вы имя своего депутата? Помог ли он хоть чем нибудь вашему округу? Будете ли вы за него голосовать вновь?
"Да" на все три вопроса - довольно редкое исключение!
Так, что лучше помогли бы, чем издеваться...
Я ведь попросил простой человеческой помощи.... эх вы...
...
Рейтинг: 0 / 0
06.09.2007, 17:08:23
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34782842
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then
        Select Case Target.Value
            Case  1 
                Range("B3").Select
            Case  2 
                Range("C3").Select
            Case  3 
                Range("D3").Select
        End Select
    End If
End Sub
...
Рейтинг: 0 / 0
06.09.2007, 21:34:01
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34785888
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Огромное спасибо!!!!
Я даже не поверил, когда увидел что макрос на самом деле работает. Все оказалось так просто ))))

Только у меня небольшая проблема - макрос работает только для ячейки (А3), а мне нужно, чтобы он работал для диапазона (А3:А1500). Не подскажите как это сделать? И еще необходимо, чтобы он запускался автоматически при открытии документа.

Заранее благодарен!
...
Рейтинг: 0 / 0
08.09.2007, 11:23:10
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34785919
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
с позволения big-duke,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
'поместить в модуль листа, например "Лист1", то макрос будет работать именно на листе "Лист1"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:A1500")) Is Nothing Then
        Select Case Target.Value
            Case  1 
                Target.Offset(,  1 ).Select
            Case  2 
                Target.Offset(,  2 ).Select
            Case  3 
                Target.Offset(,  3 ).Select
        End Select
    End If
End Sub
...
Рейтинг: 0 / 0
08.09.2007, 12:08:27
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34787285
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Я создал новый модуль, скопировал в него то, что Вы написали, потом через меню file выбрал clise and retury to microsoft excel. Ввел 2 в ячейку А3 и нажал Tab, но выделилась соседняя ячейка. Т.е. макрос не работает....
Не подскажите - что я делаю не так?
И еще - как можно поместить в модуль листа?
...
Рейтинг: 0 / 0
10.09.2007, 10:16:42
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34788133
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
ПомогитеМнеЯ создал новый модуль, скопировал в него то, что Вы написали, потом через меню file выбрал clise and retury to microsoft excel. Ввел 2 в ячейку А3 и нажал Tab, но выделилась соседняя ячейка. Т.е. макрос не работает....
Не подскажите - что я делаю не так?
И еще - как можно поместить в модуль листа?

этот код не будет работать ни в каком модуле кроме модуля листа.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
10.09.2007, 13:21:10
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34788339
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
И как же его в модуль листа засунуть???????
...
Рейтинг: 0 / 0
10.09.2007, 14:04:20
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34788432
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
ПомогитеМнеИ как же его в модуль листа засунуть???????

А как же ты раньше делал? Ты ж говорил, что код big-duke у тебя работал ;-)

1) открываешь книгу
2) выбираешь нужный лист
3) делаешь правый клик мышью на названии листа на закладке снизу
4) в контекстном меню выбираешь опцию "Исходный текст" - откроется редактор VBE
5) в самое большое окно справа копируешь код

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
10.09.2007, 14:28:58
| Ответить | Цитировать | Написать  
Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
    #34798517
ПомогитеМне
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПомогитеМне
Гость
Чесслово работал))))Тогда я еще работал в 2003-ем. Я просто открыл редактор VBA, вставил там новый модуль, вставил в него скопированный макрос, потом через File нажал сохранить и выйти в Exel. Потом в программе ввел 3 в ячейку А3, нажал Tab и выделение перепрыгнуло через 2 ячейки. Это было что-то!!!!
Со вторым макросом сделал то же самое, но уже в 2007 - и ничего не заработало.
Ааааа... только, что вставил в модуль листа как вы и подсказали ( большое вам спасибо!!!!) когда попытался сохранить программа выдала, что нужно сохранять "с поддержкой макросов".
Все работает - просто с ума сойти!!!!
Огромное спасибо всем кто помогал!!!!! И тем кто создал этот форум!
...
Рейтинг: 0 / 0
13.09.2007, 17:09:09
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вводя "2" в А3 сделать так чтоб дальше набор шол с С3?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34785888&tid=2182284]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 204ms
total:  330ms
созд. / загр.: 330ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]