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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод данных и их же отображение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных и их же отображение (Макросы Sub)
Ввод данных и их же отображение
ivanov1974 Дата: Пятница, 07.02.2014, 11:29 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 1 ±
Замечаний: 0% ±

Здравствуйте знатоки Excel. Возможно ли написать макрос, чтобы при вводе данных в текстовом формате в ячейку А1, данные из этой же ячейки отображались бы в ячейке А3 в том же текстовом формате. Например: в А1 вводим слово «КРЕАТИВ» и нажимаем ENTER. В ячейке А3 автоматически введено «КРЕАТИВ». С помощью формулы неудобно, так как данные в ячейке А3 все равно часто приходится редактировать и не охота пользоваться функцией «специальная вставка», а в макросах ноль.
 
Ответить
СообщениеЗдравствуйте знатоки Excel. Возможно ли написать макрос, чтобы при вводе данных в текстовом формате в ячейку А1, данные из этой же ячейки отображались бы в ячейке А3 в том же текстовом формате. Например: в А1 вводим слово «КРЕАТИВ» и нажимаем ENTER. В ячейке А3 автоматически введено «КРЕАТИВ». С помощью формулы неудобно, так как данные в ячейке А3 все равно часто приходится редактировать и не охота пользоваться функцией «специальная вставка», а в макросах ноль.
Автор - ivanov1974
Дата добавления - 07.02.2014 в 11:29
Stormy Дата: Пятница, 07.02.2014, 11:35 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Можно так. Данные из рекордера

[vba]
Код
Sub Макрос()

       Range("A2").Select
       Selection.Copy
       Range("A5").Select
       ActiveSheet.Paste
End Sub
[/vba]
Меняйте значения ячейки на свои.
А можно используя ЕСЛИ сделать формульно.
Код
=Если(А2=0;формула расчета;А2)

То есть для ввода используете 2 ячейки, одна которая расчитывает формулу, вторая забирает введенные данные.

Место для рекламы.

Сообщение отредактировал Stormy - Пятница, 07.02.2014, 11:39
 
Ответить
СообщениеМожно так. Данные из рекордера

[vba]
Код
Sub Макрос()

       Range("A2").Select
       Selection.Copy
       Range("A5").Select
       ActiveSheet.Paste
End Sub
[/vba]
Меняйте значения ячейки на свои.
А можно используя ЕСЛИ сделать формульно.
Код
=Если(А2=0;формула расчета;А2)

То есть для ввода используете 2 ячейки, одна которая расчитывает формулу, вторая забирает введенные данные.
Автор - Stormy
Дата добавления - 07.02.2014 в 11:35
SkyPro Дата: Пятница, 07.02.2014, 12:14 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
В модуль листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([a1], Target) Is Nothing Then [a3].Value = [a1].Value
End Sub
[/vba]

skypro1111@gmail.com
 
Ответить
СообщениеВ модуль листа:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([a1], Target) Is Nothing Then [a3].Value = [a1].Value
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 07.02.2014 в 12:14
ivanov1974 Дата: Пятница, 07.02.2014, 20:48 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 1 ±
Замечаний: 0% ±

Большое спасибо за помощь. Макрос SkyPro прекрасно работает. А вот с формулой Stormy я так и не понял. Если можно, подробнее, пожалуйста
 
Ответить
СообщениеБольшое спасибо за помощь. Макрос SkyPro прекрасно работает. А вот с формулой Stormy я так и не понял. Если можно, подробнее, пожалуйста
Автор - ivanov1974
Дата добавления - 07.02.2014 в 20:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ввод данных и их же отображение (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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