Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Очень прошу помочь / 4 сообщений из 4, страница 1 из 1
09.09.2003, 20:45
    #32260536
ogir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень прошу помочь
Помогите подобраться к задачке. Нужно чтобы каждая введеная в ячейку цыфра сохранялась гденибуть, желательно на этом же листе. Буду очень благодарен.
...
Рейтинг: 0 / 0
09.09.2003, 21:39
    #32260556
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень прошу помочь
VBA?
Обьяви лист с событиями и лови изменения. Точно не змнаю но что то подобное там быть должно.

dim WithEvents list as workSheet

Вроде этого...
...
Рейтинг: 0 / 0
10.09.2003, 10:16
    #32260799
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень прошу помочь
А еще есть событие Private Sub Worksheet_Change(ByVal Target As Range)
...
Рейтинг: 0 / 0
11.09.2003, 14:51
    #32262521
Tunga
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень прошу помочь
То есть у вас есть ячейка в которую вводишь что-то и то что введено должно где-то запоминаться ? если да, то читайте дальше:=)))
в окне VBA в окне проекта выберите соответствующую рабочую книгу, зайдите туда и скиньте следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo line1
If Target.Address = "$A$1" Then
With Range("g1").End(xlDown)
.Offset(1, 0) = Target
End With
End If
Exit Sub
line1: If Range("g1") = "" Then
Range("g1") = Target
Else: Range("g2") = Target
End If
End Sub

не самый изящный вариант, но это первое что пришло в голову
ввод идет в ячейку "А1", запоминается в столбце "G"
Удачи !
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Очень прошу помочь / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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