Вопрос : Счетчик и фиксация времени в Эксел

Я ищу кто-то для того чтобы расширить VBA программируя в прикрепленном электронная таблица для того чтобы включить 2 больше комплекта данных. В настоящее время электронная таблица работает следующим образом: электронная таблица

This сравнивает номер в колонке a (1) к номеру в колонке b (Comp 1) будет статическим значением и подсчитывает число времен 1 большле чем или чем Comp 1.  После этого, когда 1 большле чем comp 1, электронная таблица колонка u. фиксаций времени автоматически.  Более детальное описание можно найти в моем последнем озаглавленном столбе «фиксацией времени/встречным "

I хочет приложить эту такую же функциональность к выделенным колонкам (y через AJ).  Furthermore, я только хочу колонку AI к фиксации времени когда 5 большле чем comp 5 и я хочет к колонке фиксации времени AJ когда 6 чем Comp 6.  Пожалуйста посмотрите, что в настоящее время Кодего VBA и мой ранее столб увидеть как текущая программа работает.  Пожалуйста препятствуйте мне знать если будут любые вопросы.  Я понимаю что это будет трудный вопрос и я был уверен задать «a» к всякий, кто вверх для challenge.

Thanks,
Zach class= " lastRow
>Attachments " имени " class= class= " значение "
>
filename " class= >Counter.xlsm (58 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали)
>Main File
" описания " class=
class=
>
class=

Ответ : Счетчик и фиксация времени в Эксел

Я пропустил бит с уточнением фиксации времени с случаем 5 только когда больш чем и с случаем 6 только если чем. В виду того что вы всегда сравниваете одну колонку с другими, не показалось обязательно к мне закрепить петлеть через все клетки в обеих колонках. Исключать ту характеристику позволяет WorksheetChange стать гораздо простоее.

Откорректированное Кодий показанное ниже. Это Кодий также исправило некоторые черепашки в CheckMyData.

Брэд
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

Sub CheckMyData ()
Тусклое CellEntry как ряд, rg как ряд
Тусклый addr как вариант
С Sheet1
    Для каждого addr в блоке («A2», «F2», «K2», «P2», «Y2», «AD2»)
        Установите rg =. Ряд (CStr (addr))
        Установите rg = ряд (rg. Клетки (. Rows.Count, rg. Колонка). Конец (xlUp))
        Для каждого CellEntry в rg. Клетки
            WorksheetChange CellEntry
        Затем
    Затем
Конец с
Application.OnTime EarliestTime: =Now + TimeValue («00: 00: 10»), процедура: = " CheckMyData»
Подводная лодка конца

Sub WorksheetChange (цель ByVal как ряд)
Тусклое rngValue2 как ряд, rngGreaterThan как ряд, rngLessThan как ряд, rngLastAction как ряд, rngTimeStamp как ряд
Выберите случай Target.Column
Случаем будет <> rngValue2.Value после этого
        Если rngLastAction <> «>» после этого
            rngGreaterThan = rngGreaterThan + 1
            Если Target.Column <> 30 после этого rngTimeStamp.Value = теперь, то ()
            rngLastAction = «>»
        Закончитесь если
    ElseIf Target.Value < rngValue2=""> «<> 25 после этого rngTimeStamp.Value = теперь ()
            rngLastAction = «<> к >= или  < to="">
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us