powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ввод данных в ячейку после активации другой ячейки
9 сообщений из 9, страница 1 из 1
Ввод данных в ячейку после активации другой ячейки
    #37321276
gvozdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте.

есть выделенная ячейка (например "А1"). Как сделать так, чтобы при нажатии на другую ячейку (например "В1") в первой ячейке ("А1") появлялось значение из "В1"

Спасибо
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321316
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B$1" Then Cells( 1 ,  1 ) = Cells( 1 ,  2 )

End Sub
в модуле листа
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321341
gvozdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемый Shocker.Pro.

Такой вариант не подходит. У меня есть несколько ячеек, подобных "А1" и есть несколько вариантов ячеек, подобных "В1". Задача такая: после нажатия "А1"или "А2" или "А3" и т.д. нажать "В1" или "В5" и т.д. После этого в ячейке "А1" и т.д. должно появиться значение из ячейки "В1" и т.д.

Такое возможно?
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321369
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что мешает-то?
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321403
gvozdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.ProPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B$1" Then Cells(1, 1) = Cells(1, 2)




У Вас ячейки получаются связанны друг с другом. Должно быть так:
1. выделить любую ячейку в диапазоне А
2. нажать любую ячейку в диапазоне В
3. в ранее выделенной ячейке из диапазона А(п.1) появляется значение из ячейки (п.2)
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321410
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gvozdev,

Так я и спрашиваю, что мешает-то?
Одно дело, не знать, каким событием или свойством воспользоваться, другое - не уметь программировать и просить написать программу, вот я и пытаюсь выяснить.
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321423
gvozdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Вопрос понял. Не знаю каким событием воспользоваться
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321426
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gvozdevВопрос понял. Не знаю каким событием воспользоватьсяБлин, так я же тебе код дал. Событие SelectionChange


Пока ты отвечал, я уже написал тебе код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private OldRow As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column =  1  Then
  OldRow = Target.Row
ElseIf Target.Column =  2  And OldRow >  0  Then
  Cells(OldRow,  1 ) = Target.Value
Else
  OldRow =  0 
End If

End Sub
...
Рейтинг: 0 / 0
Ввод данных в ячейку после активации другой ячейки
    #37321466
gvozdev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Спасибо большое, все работает.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ввод данных в ячейку после активации другой ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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