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

суть вот в чем - на 1 Листе в первом столбце располагаются сверху вниз три цифры:

1
2
3

Нужно сделать следующее - при выборе мышкой любой из ячеек в солбце с цифрами, либо любой другой пустой ячейки ее значение помещалось бы в ячейку А1 на Листе 2..

задача довольно проста по смыслу..

заранее спасибо всем ответившим!
...
Рейтинг: 0 / 0
Запись в ячейку
    #32739636
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В модуле кода первого листа:

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     ' Обрабатываются только ячейки с числовыми значениями 
    If IsNumeric(Target.Value) Then
        ActiveSheet.Workbook("Лист2").Range("A1").Value = Target.Value
    End If
End Sub
...
Рейтинг: 0 / 0
Запись в ячейку
    #32739677
Алиска
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо, но мне нужно немножко не так..

происходит событие - нажимаю мышью на Листе 1 (могу в любое значение - текст, цифра). На Листе 2, в А1 должно отобразиться значение, куда я нажимала. При переходе на Лист 1 опять при нажатии на любую ячейку данные должны перекинуться на Лист 2 в А1
...
Рейтинг: 0 / 0
Запись в ячейку
    #32739741
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда в чем проблема? Удаляете проверку If...Then и делу венец
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запись в ячейку
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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