Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Вынесение новых значений в ячейке в отдельный столбец
 
#1
23.07.2014 16:21:20
Ребятки, подскажите такое. У меня есть таблица, большая, приводить ее не буду. В одной ячейке каждые несколько десятков минут я вручную ввожу показатель эффективности. Хотелось бы добиться следующего: каждое новое значение, которое я ввожу в эту ячейку, чтобы выводилось в отдельном столбце одно под одним. То есть я как бы могла проследить историю вводимых значений. Набросала пример, авось кто-то сжалится :)
 
 
 
#2
23.07.2014 16:34:59
Пробуйте, матушка.  :)  
ЗЫ Забыл сказать. Макрос живёт в листе, а в книгах с расширением "xlsx" макросы не живут, потому книга в немного другом формате поддерживающем макросы.
ЗЫЗЫ Спасибо форуму и форумчанам - потроху учусь писать макросы и помогать другим. Всем ДобРа. :)
Изменено: JayBhagavan - 23.07.2014 16:38:13

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
23.07.2014 16:38:29
от "ребяток"
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
23.07.2014 16:41:29
LILLY, без макроса, вносить значение прямо в таблицу
дату и время вставлять горячими клавишами:

Дата: Ctrl+Shift+;
Время: Ctrl+Shift+:
 
 
 
#5
23.07.2014 16:56:29
Jay, Sanja, спасибо. Еще и развеселили под конец дня:)
Все работает идеально. Отличия я так понимаю в алгоритме.
Если не затруднит, подскажите (я в макросах пока очень слабо разбираюсь): что нужно подкорректировать, чтобы поменять географию исходной ячейки и конечной (откуда стартовать формировать столбец). Хочется не просто воспользоваться решением правильно, но и немного учиться параллельно.
 
 
 
#6
23.07.2014 17:00:31
LILLY, попытаюсь объяснить.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3")) Is Nothing Then
        varAddr = Range("G1").End(xlDown).Address
        Range(varAddr).Offset(1, 0) = Target
        Range(varAddr).Offset(1, 1) = Now
    End If
End Sub
"B3" - это адрес проверяемой ячейки.
"G1" - это адрес первой ячейки таблицы с историей.
Смело меняете их на нужные.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
23.07.2014 17:25:03
Поняла. Но хм, меняю значения и выскакивает ошибка. Казалось бы, ошибиться здесь трудно, но все же. Что я делаю не так?

Изменено: LILLY - 23.07.2014 17:25:29
 
 
 
#8
23.07.2014 17:52:42
Замените макрос на сей. Доработал, как мог.
Скрытый текст

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#9
23.07.2014 18:41:43
Класс! Вы меня спасаете.
Можно еще одно уточнение? :)  А если ячейка зависимая (формула)? Можно что-то с этим сделать? А то работает только если руками вбиваешь новое число.
Изменено: LILLY - 23.07.2014 18:42:40
 
 
 
#10
23.07.2014 18:53:09
LILLY, я в затруднении. Надеюсь более умудрённые в ВБА Вам помогут.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
23.07.2014 19:09:25
Очень надеюсь. Пожалейте мои пальцы:)
 
 
 
#12
23.07.2014 20:39:04
Используйте другое событие листа (B2 - ячейка с формулой)
Код
Private Sub Worksheet_Calculate()
    Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = [B2].Value
    Cells(Cells(Rows.Count, 8).End(xlUp).Row + 1, 8) = Now
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#13
23.07.2014 21:31:19
Попробовала. Опять же, может я что-то не так делаю, но результат тот же - работает, только если менять значение руками в самое ячейке. Пробовала тестить даже просто - сделала ссылку из B2 на B3 и в B3 меняла значение - не реагирует.
 
 
 
#14
23.07.2014 22:06:55
Код
Private Sub Worksheet_Calculate()
    Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = [B3].Value
    Cells(Cells(Rows.Count, 7).End(xlUp).Row, 8) = Now
End Sub
это для значения формулой, Sanja чуть-чуть промахнулся
F1 творит чудеса
 
 
 
#15
23.07.2014 22:21:55
ААААА. Не понимаю. Можете в листе Excel показать?
 
 
 
#16
23.07.2014 22:27:42
Меняйте значения в А1 или А2
Согласие есть продукт при полном непротивлении сторон
 
 
 
#17
24.07.2014 00:12:30
Вот! Это то, что нужно! Спасибо. Подскажите, пытаюсь менять исходную ячейку и столбцы (откуда и куда выводить данные),отображение становится некорректным.
Например, сменила ячейку с B2 на B16, а столбцы вывода данных с 7 и 8 на 10 и 11 - глюк (данные не идут столбцом, а меняются в одной и той же ячейке).
 
 
 
#18
24.07.2014 14:38:44
Максим, может быть вы подскажете, почему работает некорректно, если подправить целевые ячейки?
 
 
 
#19
24.07.2014 14:46:18
Поправил, как Вы выше писали. Всё работает.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#20
24.07.2014 18:41:11
Спасибо! Все работает
 
 
 
#21
24.07.2014 18:49:51
не смотрел код JayBhagavan, но учтите, LILLY, что скорее всего код ссылается на конкретные ячейки. сместите их - опять придется переписывать.
F1 творит чудеса
 
 
 
#22
24.07.2014 18:50:49
Максим Зеленский, код Ваш. Поменял ссылки на ячейки.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#23
24.07.2014 19:28:06
 Хочу вот модифицировать :)  Можно как-то сделать, чтобы иметь возможность останавливать работу макроса? Я так понимаю работает он постоянно.Хочу сделать так, чтобы на кнопку жмакнуть - запустился, все работает как надо. Кликаю другую кнопку - стоп.
Все это делать я умею (назначать на кнопки). Не умею только останавливать и заново запускать. Поможете?
Изменено: oleg28 - 24.07.2014 19:28:24
 
 
 
#24
24.07.2014 22:11:26
oleg28, именно этот макрос?
F1 творит чудеса
 
 
 
#25
24.07.2014 22:34:15
Ага. Задача на удивление похожая. Может мы коллеги с Лилией?:)
Только у меня данные я думаю быстрее меняются в ячейках, и иногда, чтобы остановить наплыв данных, макрос нужно остановить. А потом по требованию (нажатию кнопки) опять запустить.
 
 
 
#26
24.07.2014 22:37:16
Цитата
oleg28 пишет: Может мы коллеги с Лилией?
Ага, и компьютер у вас один на двоих?
 
 
 
#27
24.07.2014 23:12:02
Вроде нет))) Если вы о теории заговора, я думаю, каждый спрашивает то, что ему интересно.
 
 
 
#28
24.07.2014 23:33:03
Просто я вижу, что IP одинаковый.  
 
 
 
#29
24.07.2014 23:48:15
Хз. LILLY, вы откуда? Я киев, провайдер datagroup
 
 
 
#30
25.07.2014 00:48:27
Цитата
oleg28 пишет: макрос нужно остановить
да пжлст
F1 творит чудеса
 
 
 
Страницы: 1 2 След.
Наверх