Ошибка VBA?

[valerij]

Всем привет.
Как такое может быть?
В жёлтом диапазоне есть числа 7, 8, 9, если протянуть мышкой от 7 до 9, только в жёлтом, то числа не меняются, если держать Ctrl и тянуть мышкой, то эти числа станут семёркой, несмотря на то, что курсор был с плюсиком.
Со всеми остальными числами, всё ОК!!!

[SAS888]

Во всем заполненном диапазоне установлен текстовый формат. Очевидно, что в "желтом" диапазоне значения были введены после установки текстового формата, а в остальных ячейках - до изменения формата на текстовый.
Измените формат ячеек на "общий" (или числовой), затем, заново внесите в ячейку значения (достаточно войти и выйти в редактирование ячейки).

[valerij]

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

Очевидно, что в "желтом" диапазоне значения были введены после установки текстового формата, а в остальных ячейках - до изменения формата на текстовый..

Получается, что цифры в текстовом ф-те уже не цифры?

Придётся менять формат?

[IgorGO]

внутри VBA все нормально... ошибка с внешней стороны.
"7" всегда не равно 7

достаточно войти и выйти в редактирование ячейки

а когда ячеек тысячи я произвожу замену например 0 на 0 (1 на 1, 2 на 2 и т.д.)
в худшем случае (чтобы изменения коснулись всех значений) - это десять замен, а не последовательное редактирование тысячи ячеек.

[Hugo121]

Хорошо помогает "текст по столбцам".

[valerij]

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

внутри VBA все нормально... ошибка с внешней стороны.

Этот столбец цифр - даты, я получаю с помощью IgorGO_Макрос ещё с 2009 года, никаких правок в этих датах не предусмотрено, т. е. макросом ввёл и забыл.

"7" всегда не равно 7.

Если проверить это так, то получается, что равно или я не так понял, но в с3 семёрка ведь не в кавычках.

Sub zxc()
MsgBox [c3]
If [c3] = "7" Then MsgBox 77777
If [c3] = 7 Then MsgBox 55555
End Sub

[Hugo121]

Какое значение в ячейке можно посмотреть в Locals, изучив содержимое массива из этого диапазона.

Sub tt()
    Dim a()
    a = [c3:c20].Value
    Stop
End Sub

[IgorGO]

проверяй так:

Sub AequalB()
  a = 7
  b = "7"
  Debug.Print "a = " & a & "   b = " & b & "   a=b? " & (a = b) & "!!!"
End Sub

смотри окно immediate (Ctrl+G) в редакторе ВБА

[valerij]

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

проверяй так:

Sub AequalB()
  a = 7
  b = "7"
  Debug.Print "a = " & a & "   b = " & b & "   a=b? " & (a = b) & "!!!"
End Sub

смотри окно immediate (Ctrl+G) в редакторе ВБА

Видел, но мне от этого надо уходить, раз один раз появилось, может появится и ещё, а найти, почему вдруг макрос не работает непросто.
Значит нужно менять формат.
Selection.NumberFormat = "General"
А как?
IgorGO
Вот твой макрос. Как сделать?

Sub даты()
Application.EnableEvents = False
c = 3: g = 3: cc = 2: gg = 2
        For L = 1 To 3
Sheets(L).Select
For iCount& = 0 To 13
If Application.Weekday([e1].Offset(iCount& * 28), 2) = 1 Then
        For i = 3 To 20
        Range("C" & i).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - c)
        c = c - 1: If c = 0 Then c = 3
        If i = 6 Or i = 7 Or i > 10 And i < 14 Or i > 16 Then GoTo 1
        Range("G" & i).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - g)
        g = g - 1: If g = 0 Then g = 3
1:      Next
Else
    For ii = 3 To 19
        If ii = 5 Or ii = 8 Or ii = 11 Or ii = 14 Or ii = 17 Then GoTo m
            Range("C" & ii).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - cc)
                cc = cc - 1: If cc = 0 Then cc = 2
m:      If ii > 4 And ii < 8 Or ii > 9 And ii < 14 Or ii > 15 Then GoTo 3
            Range("G" & ii).Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - gg)
                gg = gg - 1: If gg = 0 Then gg = 2
3:  Next
End If
    Next iCount&
Next L
Application.EnableEvents = True
End Sub

[IgorGO]

возможно, это нечто по мотивам моего макроса.
это я написал? 3 GoTo в короткой процедуре... я не припомню чтобы 3 раза использовал GoTo за последних несколько лет, не то что в одной процедуре.

кроме текста самого макроса, нужны бы данные, на которых он работает и понимать задачу, которую данный макрос решает. + необходимо время и желание что-либо написать