Архив форумов ЦИТФорума

[weasle]

Ничего не рублю в Visual Basic, но, кровь из носа, нужна програмка именно в нем: В ячейке А1 по истечении каждой минуты меняется значение, нужно чтобы все новые значения копировались в ячейки В1, В2, В3 и т.д. вниз в столбик, т.е. чтобы не я каждый раз по факту изменения ячейки А1 делал вручную Copy (A1), Paste Special-Value (B1), а Excel автоматически. Спасибо огромное заранее.

[dem_online]

Dim last
Dim brk
Private Sub Worksheet_Activate()
last = Cells(1, 1)
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Cells(1, 1) last Then
last = Cells(1, 1)
brk = brk + 1
Cells(brk, 2) = last
Cells(brk, 3) = Now()
End If
End Sub


Для корректной работы лучше вместо проверки cells (1, 1) last анализировать Target, кроме того в референсе написано, что change не реагирует на пересчет (надо использовать Calculate), но этим ты уж сам займись

[Томоз]

ищи чайник ищи