Попробуйте приведенный ниже код, он очистит значения всех ячеек с 0
в столбце «I». Пояснения в комментариях к коду.
Option Explicit
Sub ClearZerosOnly()
Dim Rng As Range, myRange As Range
Dim LastRow As Long
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Sheets("Sheet1") ' change "sheet1" to your sheet's name
With Sht
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter
Set Rng = .Range("A1:V" & LastRow)
Rng.AutoFilter Field:=9, Criteria1:="0" ' set the Auto-Filter criteria
' set the Visible range and column I (from row 2, without header)
Set myRange = Application.Intersect(Rng.SpecialCells(xlCellTypeVisible), .Range("I2:I" & LastRow))
End With
If Not myRange Is Nothing Then myRange.ClearContents
End Sub
Понятый о задержке. Имея это в виду, я перехожу к сайту NIST в течение американских времен и Серверу Мирового времени для остальных. Не знайте, является ли любой "лучшим".
Я думаю из-за задержки, нет такой вещи как надежный веб-сервис атомных часов.
К сожалению, Вы никогда не будете, вероятно, получать действительно точный веб-сервис атомных часов из-за проблем задержки с транспортом сообщений/пакетов назад и вперед с Вашей машины на сервер.
Большинство атомных часов, которые доступны по Интернету, использует определенный протокол, названный Протоколом сетевого времени, который включает буфер дрожания, который конкретно составляет и корректируется основанный на задержке транспорта. Это обеспечивает более точное представление времени атомных часов, чем использование веб-сервиса по HTTP.
Я думаю, необходимо ли использовать веб-сервис, самый точный будет тем, размещенным на сервере, который является физически и географически самым близким к Вам и также имеет наименьшее количество количества сетевых транзитных участков для получения с собственной машины на сервер, так как это уменьшит задержку пакетов.
Веб-сервис NTP подойдет, пока поскольку задержка предсказуема. NTP - это проводной протокол и очень легкий для удаления любых движущихся частей, которые могут вызвать дополнительное изменение задержки (также известное как джиттер). Стек SOAP привнесет больше изменчивости.
Вот сообщение в блоге, которое приходит к такому же выводу .
Пуристы быстро указывают на проблему точности. Но держу пари, что вы даже не смогли бы получить идеально точное время, даже если бы ваше приложение находилось на том же сервере, что и само программное обеспечение атомных часов.
Я думаю, что существует потребность в веб-сервисе с часами. Я могу придумать несколько сценариев, в которых не имеет значения отключиться на несколько секунд.
Помимо точности, другой сложной областью обслуживания даты и времени является учет деталей перехода на летнее время в большинстве стран. Это то, что даже самые последние операционные системы не могут понять. Но это определенно то, что сделало бы веб-сервис часов ценным.