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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод значений и формула в одной ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ввод значений и формула в одной ячейке (Макросы и функции)
Ввод значений и формула в одной ячейке
Foocys Дата: Среда, 24.04.2013, 08:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Суть проблемы: Есть поле "B", необходимо что бы при выборе в поле "А" значений 1,2,3 и тд в поле "B" попадали соответствующие значения 1,2,3..., а при выборе например 5, в поле "B" нужно вбивать значение руками, при этом при повторном использовании данная схема не должна нарушаться.
 
Ответить
СообщениеСуть проблемы: Есть поле "B", необходимо что бы при выборе в поле "А" значений 1,2,3 и тд в поле "B" попадали соответствующие значения 1,2,3..., а при выборе например 5, в поле "B" нужно вбивать значение руками, при этом при повторном использовании данная схема не должна нарушаться.

Автор - Foocys
Дата добавления - 24.04.2013 в 08:06
AlexM Дата: Среда, 24.04.2013, 08:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Код макроса вставить в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
           Select Case Target.Value
               Case 0, 1, 2, 3, 4, 6, 7, 8, 9: Range("B1") = Target.Value
               Case Else: Range("B1") = ""
           End Select
End If
End Sub
[/vba]

Дополнение
Можно заменить
[vba]
Код
Range("B1") = Target.Value
[/vba]на[vba]
Код
Range("B1").Formula = "=A1"
[/vba] тогда будет формула.
К сообщению приложен файл: Foocys.xls (18.0 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.


Сообщение отредактировал AlexM - Среда, 24.04.2013, 08:46
 
Ответить
СообщениеКод макроса вставить в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
           Select Case Target.Value
               Case 0, 1, 2, 3, 4, 6, 7, 8, 9: Range("B1") = Target.Value
               Case Else: Range("B1") = ""
           End Select
End If
End Sub
[/vba]

Дополнение
Можно заменить
[vba]
Код
Range("B1") = Target.Value
[/vba]на[vba]
Код
Range("B1").Formula = "=A1"
[/vba] тогда будет формула.

Автор - AlexM
Дата добавления - 24.04.2013 в 08:37
Foocys Дата: Среда, 24.04.2013, 10:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Большое спасибо, сейчас попробуем. Дополнительный вопрос: возможно ли использовать этот макрос, если например при выборе 2 или 3 в поле "а" в поле "B" попадало значение из листа 2. Наглядный пример:

есть 5 видов доставки, в первых 4х стоимость фиксирована, в 5м всегда разная (вводиться в ручную). Стоимость доставки указана на листе2 (кроме 5 вида). На листе 1 в поле "А" выбираем вид доставки в поле "В" попадает соответствующая стоимость указанная на листе 2, соответсвено при выборе 5го вида в поле "В" стоимость вводиться в ручную.
 
Ответить
СообщениеБольшое спасибо, сейчас попробуем. Дополнительный вопрос: возможно ли использовать этот макрос, если например при выборе 2 или 3 в поле "а" в поле "B" попадало значение из листа 2. Наглядный пример:

есть 5 видов доставки, в первых 4х стоимость фиксирована, в 5м всегда разная (вводиться в ручную). Стоимость доставки указана на листе2 (кроме 5 вида). На листе 1 в поле "А" выбираем вид доставки в поле "В" попадает соответствующая стоимость указанная на листе 2, соответсвено при выборе 5го вида в поле "В" стоимость вводиться в ручную.

Автор - Foocys
Дата добавления - 24.04.2013 в 10:53
light26 Дата: Среда, 24.04.2013, 11:04 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Цитата (Foocys)
Наглядный пример:

Это не наглядный пример. Наглядный пример у AlexM


Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Среда, 24.04.2013, 11:05
 
Ответить
Сообщение
Цитата (Foocys)
Наглядный пример:

Это не наглядный пример. Наглядный пример у AlexM

Автор - light26
Дата добавления - 24.04.2013 в 11:04
AlexM Дата: Среда, 24.04.2013, 11:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Цитата (Foocys)
Дополнительный вопрос: возможно ли использовать этот макрос

Точно такой нельзя. А если чуть поправить - можно.
Наглядного примера не видно. Прочтите правила форума. Там есть рекомендации как добавить к сообщению наглядный пример (файл *.xls).



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата (Foocys)
Дополнительный вопрос: возможно ли использовать этот макрос

Точно такой нельзя. А если чуть поправить - можно.
Наглядного примера не видно. Прочтите правила форума. Там есть рекомендации как добавить к сообщению наглядный пример (файл *.xls).

Автор - AlexM
Дата добавления - 24.04.2013 в 11:14
Foocys Дата: Понедельник, 29.04.2013, 02:48 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Наглядный пример
К сообщению приложен файл: 3407962.xlsx (9.8 Kb)
 
Ответить
СообщениеНаглядный пример

Автор - Foocys
Дата добавления - 29.04.2013 в 02:48
AlexM Дата: Понедельник, 29.04.2013, 08:33 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Цитата (Foocys)
Ввод значений и формула в одной ячейке

Так?
К сообщению приложен файл: Foocys1.xls (38.5 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата (Foocys)
Ввод значений и формула в одной ячейке

Так?

Автор - AlexM
Дата добавления - 29.04.2013 в 08:33
Foocys Дата: Понедельник, 29.04.2013, 09:42 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Да, именно так. Как это реализовать?
 
Ответить
СообщениеДа, именно так. Как это реализовать?

Автор - Foocys
Дата добавления - 29.04.2013 в 09:42
AlexM Дата: Понедельник, 29.04.2013, 10:03 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Цитата (Foocys)
Как это реализовать

В принципе ЭТО можно было сделать только макросом, но вы просили
Цитата (Foocys)
Ввод значений и формула в одной ячейке

поэтому получился гибрид. Макроса и формулы.
Код макроса в модуле листа, на котором выпадающий список.

Макрос в зависимости от значения в В1 в ячейку В2 вставляет формулу или ничего.
Формула использует функцию ВПР, о которой можно прочитать в справке. Диапазон в функции динамический. Последнюю ячейку определяет макрос.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата (Foocys)
Как это реализовать

В принципе ЭТО можно было сделать только макросом, но вы просили
Цитата (Foocys)
Ввод значений и формула в одной ячейке

поэтому получился гибрид. Макроса и формулы.
Код макроса в модуле листа, на котором выпадающий список.

Макрос в зависимости от значения в В1 в ячейку В2 вставляет формулу или ничего.
Формула использует функцию ВПР, о которой можно прочитать в справке. Диапазон в функции динамический. Последнюю ячейку определяет макрос.

Автор - AlexM
Дата добавления - 29.04.2013 в 10:03
Foocys Дата: Понедельник, 29.04.2013, 10:26 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Еще раз спасибо. Что касается гибрида: одновременно и формулу и макрос не обязательно, я так писал потому, что в принципе не знал как это реализовать.

[offtop] И еще 1 вопрос, не знаю сможете ли Вы мне помочь, данную таблицу необходимо перенести в Google Docs, но при импорте ни чего не работает
 
Ответить
СообщениеЕще раз спасибо. Что касается гибрида: одновременно и формулу и макрос не обязательно, я так писал потому, что в принципе не знал как это реализовать.

[offtop] И еще 1 вопрос, не знаю сможете ли Вы мне помочь, данную таблицу необходимо перенести в Google Docs, но при импорте ни чего не работает

Автор - Foocys
Дата добавления - 29.04.2013 в 10:26
AlexM Дата: Понедельник, 29.04.2013, 10:43 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
[offtop]Google Docs я не знаю



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение[offtop]Google Docs я не знаю

Автор - AlexM
Дата добавления - 29.04.2013 в 10:43
DV Дата: Понедельник, 29.04.2013, 13:10 | Сообщение № 12
Группа: Друзья
Ранг: Обитатель
Сообщений: 286
Репутация: 194 ±
Замечаний: 0% ±

Excel 2010 RUS
Вариант без макроса:
К сообщению приложен файл: 3407962_2.xlsx (11.0 Kb)
 
Ответить
СообщениеВариант без макроса:

Автор - DV
Дата добавления - 29.04.2013 в 13:10
Foocys Дата: Вторник, 30.04.2013, 02:34 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Насколько я понял, при выборе Д необходимо цену ввести на 2м листе. Мне необходимо что бы цена вводилась в той же ячейке, в которой она выводиться со второго листа. Это необходимо для того, что бы использовать данную ячейку в формулах для подсчета.
 
Ответить
СообщениеНасколько я понял, при выборе Д необходимо цену ввести на 2м листе. Мне необходимо что бы цена вводилась в той же ячейке, в которой она выводиться со второго листа. Это необходимо для того, что бы использовать данную ячейку в формулах для подсчета.

Автор - Foocys
Дата добавления - 30.04.2013 в 02:34
Foocys Дата: Вторник, 30.04.2013, 07:54 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Цитата (DV)
ариант без макроса:
К сообщению приложен ф


Можете описать процесс создания?
 
Ответить
Сообщение
Цитата (DV)
ариант без макроса:
К сообщению приложен ф


Можете описать процесс создания?

Автор - Foocys
Дата добавления - 30.04.2013 в 07:54
AlexM Дата: Вторник, 30.04.2013, 08:48 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4449
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Цитата (Foocys)
Насколько я понял, при выборе Д необходимо цену ввести на 2м листе

Нет. При выборе Д цену можно вводить в В2 на первом листе. При этом вы "забьете" именованную формулу "цена".
Но формулу легко вернуть, так как в В2 сделан выпадающий список, в котором выбрать можно только имя именованной формулы.
Создание такого выпадающего списка имеет особенность. В источнике, перед знаком равно нужно поставить пробел.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
Цитата (Foocys)
Насколько я понял, при выборе Д необходимо цену ввести на 2м листе

Нет. При выборе Д цену можно вводить в В2 на первом листе. При этом вы "забьете" именованную формулу "цена".
Но формулу легко вернуть, так как в В2 сделан выпадающий список, в котором выбрать можно только имя именованной формулы.
Создание такого выпадающего списка имеет особенность. В источнике, перед знаком равно нужно поставить пробел.

Автор - AlexM
Дата добавления - 30.04.2013 в 08:48
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ввод значений и формула в одной ячейке (Макросы и функции)
  • Страница 1 из 1
  • 1
Поиск:

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