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

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

1
2
3

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

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

заранее спасибо всем ответившим!
...
Рейтинг: 0 / 0
15.10.2004, 08:54:12
    #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
15.10.2004, 09:21:35
    #32739677
Алиска
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запись в ячейку
спасибо, но мне нужно немножко не так..

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


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