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

dim WithEvents list as workSheet

Вроде этого...
...
Рейтинг: 0 / 0
Очень прошу помочь
    #32260799
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А еще есть событие Private Sub Worksheet_Change(ByVal Target As Range)
...
Рейтинг: 0 / 0
Очень прошу помочь
    #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
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Очень прошу помочь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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