Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Фиксация меняющегося значения счетчика на другом листе
 
Уважаемые форумчане, такая задача:
На листе имеется таблица данных, которые изменяются в зависимости от данных, задаваемых счетчиком. При определенных условиях в ячейке ( в моем примере в ячейке BV11) появляются показания счетчика. Необходимо, чтобы первое показание счетчика в ячейке BV11, которое будет больше 0, зафиксировалось на другом листе в такой же строке (А11), следующее - отразилось в ячейке В11 и так далее. Имеется макрос счетчика:
Visual BasicВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Counter()

Dim CounterCell, BV11 As Range

   Set CounterCell = ActiveSheet.Range("K1")
   CounterCell.Value = 0

       Do While CounterCell.Value < 1000000
       CounterCell.Value = CounterCell.Value + 0.01
Loop


End Sub
Во вложенном примере дана только одна строка, а таких строк больше 1000 и надо, чтобы данные фиксировались по столбцам: BV45:BV1100, CD45:CD1100, DS45:DS1100, DT45:DT11000,DU45:DU11000. Для каждого столбца вывод данных должен осуществляться на новый лист.
Как можно решить эту задачу?
leon307
 
Леонид Алхимов, код следует оформлять соответствующим тегом. Видели, как это выглядит у других? Вот и Вы так делайте: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
И пустые строки в коде - кому они нужны?
По поводу файла: готовьте небольшой ПРИМЕР.
 
Код
Public Sub Macro1()
    Dim inR As Range
    Dim r As Range
    Dim i&
    
    Set inR = Worksheet____1.Range("BV45:BV1100")
    
    For Each r In inR
        If r.Value <> 0 Then
            i& = i& + 1
            Worksheet____1.Cells(r.Row, i&) = r.Value
        End If
    Next
    Set inR = Nothing
End Sub
Из того что понял
Страницы: 1
Читают тему (гостей: 1)
Наверх