Подсчитать количества знака в числе

[valerij]

Есть столбец(А2:А1350) с 8-ми разрядными числами.
Как выполнить условие:
Если в этом столбце попадется число <> 8-ми разрядам, то выдать сообщение о количестве таких чисел и установить курсор на этом(первом) числе?

[VictorM]

В простейшем случае, количество знаков можно определить так:

Sub test()
Dim iVal As Long
Dim iCol As Long
iVal = Range("A1").Value
iCol = Len(iVal) 'количество знаков
End Sub

ну, а теперь можно организовывать цикл, проверку и т.д.
(неплохо бы еще сделать проверку на числовые данные)

[valerij]

Сообщение от VictorM

В простейшем случае, количество знаков можно определить так:

Чето не то, MsgBox iCol, показывает, 4, а не 8

[VictorM]

напишите так:

Sub test()
Dim iVal As String
Dim iCol As Long
iVal = Range("A1").Value
iCol = Len(iVal) 'количество знаков
End Sub

теперь 8

[valerij]

Сообщение от VictorM

напишите так

Виктор!
"Нить" ухватил, Спасибо

[valerij]

Вот так, подправил, учитывет и нули

For oSt = 2 To 1378
iVal = Cells(oSt, 1).Value
If Len(iVal) = 0 Then GoTo 1
If Len(iVal) <> 8 Then MsgBox "НЕ ПРАВИЛЬНЫЙ ФОРМАТ НАКЛАДНЫХ": Exit For
1:
Next
If oSt >= 1378 Then oSt = 2
Cells(oSt, 1).Select
ActiveWindow.SmallScroll Down:=oSt - 13
End Sub