Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать звездочку из текста в ячейке - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Убрать звездочку из текста в ячейке
Паштет Дата: Вторник, 15.04.2025, 21:19 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток!
Делаю макрос, в котором надо к числовым значениям ячеек прибавить некоторое число. Таблица со значениями генерируется сторонней программой и все значения в текстовом виде, однако у некоторых значений имеется у числа звездочка "*", например 1677.25*. При этом после вычислений эту звездочку надо вернуть на место. Но что только не делал, но избавиться от звездочки в числе не получается. Пробовал и символами играть "~*", Chr(42), и Left+Len и Replace не хочет работать и все. Помогите с этой звездочкой.
П.С. ИИ тоже не помог.
[vba]
Код
Sub Summa2()
Dim LastRowList, LastRowObr As Long, List, zvezda, TempCell As String
Dim Cell As Range
Dim add, CellVal As Double
With Sheets("обработка")
    List = Str(.Cells(1, 2))
    LastRowObr = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

With Sheets(List)
    LastRowList = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range(.Cells(2, 3), .Cells(LastRowList, 10)).Replace What:=".", replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End With
For i = 5 To LastRowObr
add = val(Sheets("обработка").Cells(i, "C").Value) / 1000

    For j = 2 To LastRowList
    If CStr(Sheets(List).Cells(j, "B").Value) = CStr(Sheets("обработка").Cells(i, "A").Value) Then
                
                For k = 3 To 10
                    Set Cell = Sheets(List).Cells(j, k)
                    zvezda = ""

'начало проблемного места
                    If Len(Trim(Cell.text)) = 0 Or Cell.Value = "*" Then GoTo 2 Else GoTo 1
1:
                        If CStr(Cell.Value) Like "\*" Then zvezda = "*": _
                    Cell.Value = Replace(Cell.Value, Chr(42), "") _
                    Else: zvezda = ""
                        CellVal = CDbl(Cell.Value)
'конец проблемного места
                        CellVal = CellVal + add
                        Cell = CellVal & zvezda
                        Cell = Format(Cell.Value, "0.00")
2:
                Next k
            End If
    Next j
    Next i

End Sub
[/vba]
К сообщению приложен файл: Probegy.xlsm (67.4 Kb)
 
Ответить
СообщениеДоброго времени суток!
Делаю макрос, в котором надо к числовым значениям ячеек прибавить некоторое число. Таблица со значениями генерируется сторонней программой и все значения в текстовом виде, однако у некоторых значений имеется у числа звездочка "*", например 1677.25*. При этом после вычислений эту звездочку надо вернуть на место. Но что только не делал, но избавиться от звездочки в числе не получается. Пробовал и символами играть "~*", Chr(42), и Left+Len и Replace не хочет работать и все. Помогите с этой звездочкой.
П.С. ИИ тоже не помог.
[vba]
Код
Sub Summa2()
Dim LastRowList, LastRowObr As Long, List, zvezda, TempCell As String
Dim Cell As Range
Dim add, CellVal As Double
With Sheets("обработка")
    List = Str(.Cells(1, 2))
    LastRowObr = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

With Sheets(List)
    LastRowList = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range(.Cells(2, 3), .Cells(LastRowList, 10)).Replace What:=".", replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End With
For i = 5 To LastRowObr
add = val(Sheets("обработка").Cells(i, "C").Value) / 1000

    For j = 2 To LastRowList
    If CStr(Sheets(List).Cells(j, "B").Value) = CStr(Sheets("обработка").Cells(i, "A").Value) Then
                
                For k = 3 To 10
                    Set Cell = Sheets(List).Cells(j, k)
                    zvezda = ""

'начало проблемного места
                    If Len(Trim(Cell.text)) = 0 Or Cell.Value = "*" Then GoTo 2 Else GoTo 1
1:
                        If CStr(Cell.Value) Like "\*" Then zvezda = "*": _
                    Cell.Value = Replace(Cell.Value, Chr(42), "") _
                    Else: zvezda = ""
                        CellVal = CDbl(Cell.Value)
'конец проблемного места
                        CellVal = CellVal + add
                        Cell = CellVal & zvezda
                        Cell = Format(Cell.Value, "0.00")
2:
                Next k
            End If
    Next j
    Next i

End Sub
[/vba]

Автор - Паштет
Дата добавления - 15.04.2025 в 21:19
Pelena Дата: Вторник, 15.04.2025, 21:56 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19475
Репутация: 4590 ±
Замечаний: ±

Excel 365 & Mac Excel
Попробуйте такое условие
[vba]
Код
If Right(Cell.Value, 1) = "*" Then zvezda = "*"
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПопробуйте такое условие
[vba]
Код
If Right(Cell.Value, 1) = "*" Then zvezda = "*"
[/vba]

Автор - Pelena
Дата добавления - 15.04.2025 в 21:56
i691198 Дата: Вторник, 15.04.2025, 22:08 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 395
Репутация: 122 ±
Замечаний: 0% ±

2016
Добрый вечер. Избавиться от звездочки и сразу преобразовать текст в числа можно так. [vba]
Код
If Right(X, 1) = "*" Then X = val(Left(X, Len(X) - 1)) Else X = val(X)
[/vba]
 
Ответить
СообщениеДобрый вечер. Избавиться от звездочки и сразу преобразовать текст в числа можно так. [vba]
Код
If Right(X, 1) = "*" Then X = val(Left(X, Len(X) - 1)) Else X = val(X)
[/vba]

Автор - i691198
Дата добавления - 15.04.2025 в 22:08
Паштет Дата: Вторник, 15.04.2025, 22:37 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Pelena, не помогает.

i691198, при преобразовании в число, округляет до целого и расчеты из-за этого не бьются.
 
Ответить
СообщениеPelena, не помогает.

i691198, при преобразовании в число, округляет до целого и расчеты из-за этого не бьются.

Автор - Паштет
Дата добавления - 15.04.2025 в 22:37
Hugo Дата: Вторник, 15.04.2025, 23:00 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3849
Репутация: 812 ±
Замечаний: 0% ±

365
Паштет, работает банально так:
[vba]
Код
If Right(CStr(Cell.Value), 1) = "*" Then
[/vba]


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПаштет, работает банально так:
[vba]
Код
If Right(CStr(Cell.Value), 1) = "*" Then
[/vba]

Автор - Hugo
Дата добавления - 15.04.2025 в 23:00
Паштет Дата: Среда, 16.04.2025, 06:10 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Hugo, был бы любой другой символ - это работало, но именно со звездочкой какой-то треш. При stop смотрю значения, а звездочка как была, так и остается, соответственно потом улетает в ошибку типа данных.
 
Ответить
СообщениеHugo, был бы любой другой символ - это работало, но именно со звездочкой какой-то треш. При stop смотрю значения, а звездочка как была, так и остается, соответственно потом улетает в ошибку типа данных.

Автор - Паштет
Дата добавления - 16.04.2025 в 06:10
Hugo Дата: Среда, 16.04.2025, 08:19 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3849
Репутация: 812 ±
Замечаний: 0% ±

365
Паштет, я сперва проверил, потом написал.
Ну и конечно это if-then можно чуть переделать чтоб удобнее посмотреть при отладке что происходит.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПаштет, я сперва проверил, потом написал.
Ну и конечно это if-then можно чуть переделать чтоб удобнее посмотреть при отладке что происходит.

Автор - Hugo
Дата добавления - 16.04.2025 в 08:19
Pelena Дата: Среда, 16.04.2025, 08:32 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19475
Репутация: 4590 ±
Замечаний: ±

Excel 365 & Mac Excel
я сперва проверил, потом написал

аналогично


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
я сперва проверил, потом написал

аналогично

Автор - Pelena
Дата добавления - 16.04.2025 в 08:32
MikeVol Дата: Среда, 16.04.2025, 08:49 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 92 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
Паштет, Вобщем долго я не мог понять логику вашего кода. А именно данного блока кода:[vba]
Код
                        If CStr(Cell.Value) Like "\*" Then zvezda = "*": _
                    Cell.Value = Replace(Cell.Value, Chr(42), "") _
                    Else: zvezda = ""
[/vba] и решил пойти чкть другим путём:[vba]
Код
                    ' Сохраняем адресс ячейки, если есть * для того чтоб её после вернуть обратно
                    If Right(Cell.Text, 1) = "*" Then
                        starCells(Cell.Address) = True
                        Cell.Value = Replace(Cell.Value, "*", "")
                    End If
[/vba]Ну и в конечном результате вот такой код:[vba]
Код
Sub Summa2()
    Dim i As Long, j As Long, k As Long
    Dim Cell        As Range
    Dim CellVal     As Double
    Dim Key         As Variant

    Dim starCells   As Object
    Set starCells = CreateObject("Scripting.Dictionary")    ' Для хранения адресов с *

    With ThisWorkbook.Worksheets("обработка")

        Dim List    As String
        List = CStr(.Cells(1, 2).Value)

        Dim LastRowObr As Long
        LastRowObr = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    With ThisWorkbook.Worksheets(List)

        Dim LastRowList As Long
        LastRowList = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range(.Cells(2, 3), .Cells(LastRowList, 10)).Replace What:=".", replacement:=",", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False
    End With

    For i = 5 To LastRowObr

        Dim add     As Double
        add = val(ThisWorkbook.Worksheets("обработка").Cells(i, "C").Value) / 1000

        For j = 2 To LastRowList
            If CStr(ThisWorkbook.Worksheets(List).Cells(j, "B").Value) = CStr(Sheets("обработка").Cells(i, "A").Value) Then

                For k = 3 To 10
                    Set Cell = ThisWorkbook.Worksheets(List).Cells(j, k)

                    If Len(Trim(Cell.Text)) = 0 Or Cell.Text = "*" Then GoTo SkipCell

                    ' Сохраняем адресс ячейки, если есть * для того чтоб её после вернуть обратно
                    If Right(Cell.Text, 1) = "*" Then
                        starCells(Cell.Address) = True
                        Cell.Value = Replace(Cell.Value, "*", "")
                    End If

                    On Error Resume Next
                    CellVal = CDbl(Cell.Value)
                    On Error GoTo 0

                    CellVal = CellVal + add
                    Cell.Value = Format(CellVal, "0.00")

SkipCell:
                Next k

            End If
        Next j
    Next i

    ' Возвращаем * обратно
    For Each Key In starCells.Keys
        ThisWorkbook.Worksheets(List).Range(Key).Value = ThisWorkbook.Worksheets(List).Range(Key).Value & "*"
    Next Key

    Set starCells = Nothing
End Sub
[/vba]Логику расчётов не менял так как не вникал в неё. Думаю это тот результат который вы ожидаете. Удачи.


Ученик.
Одесса - Украина
 
Ответить
СообщениеПаштет, Вобщем долго я не мог понять логику вашего кода. А именно данного блока кода:[vba]
Код
                        If CStr(Cell.Value) Like "\*" Then zvezda = "*": _
                    Cell.Value = Replace(Cell.Value, Chr(42), "") _
                    Else: zvezda = ""
[/vba] и решил пойти чкть другим путём:[vba]
Код
                    ' Сохраняем адресс ячейки, если есть * для того чтоб её после вернуть обратно
                    If Right(Cell.Text, 1) = "*" Then
                        starCells(Cell.Address) = True
                        Cell.Value = Replace(Cell.Value, "*", "")
                    End If
[/vba]Ну и в конечном результате вот такой код:[vba]
Код
Sub Summa2()
    Dim i As Long, j As Long, k As Long
    Dim Cell        As Range
    Dim CellVal     As Double
    Dim Key         As Variant

    Dim starCells   As Object
    Set starCells = CreateObject("Scripting.Dictionary")    ' Для хранения адресов с *

    With ThisWorkbook.Worksheets("обработка")

        Dim List    As String
        List = CStr(.Cells(1, 2).Value)

        Dim LastRowObr As Long
        LastRowObr = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    With ThisWorkbook.Worksheets(List)

        Dim LastRowList As Long
        LastRowList = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range(.Cells(2, 3), .Cells(LastRowList, 10)).Replace What:=".", replacement:=",", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False
    End With

    For i = 5 To LastRowObr

        Dim add     As Double
        add = val(ThisWorkbook.Worksheets("обработка").Cells(i, "C").Value) / 1000

        For j = 2 To LastRowList
            If CStr(ThisWorkbook.Worksheets(List).Cells(j, "B").Value) = CStr(Sheets("обработка").Cells(i, "A").Value) Then

                For k = 3 To 10
                    Set Cell = ThisWorkbook.Worksheets(List).Cells(j, k)

                    If Len(Trim(Cell.Text)) = 0 Or Cell.Text = "*" Then GoTo SkipCell

                    ' Сохраняем адресс ячейки, если есть * для того чтоб её после вернуть обратно
                    If Right(Cell.Text, 1) = "*" Then
                        starCells(Cell.Address) = True
                        Cell.Value = Replace(Cell.Value, "*", "")
                    End If

                    On Error Resume Next
                    CellVal = CDbl(Cell.Value)
                    On Error GoTo 0

                    CellVal = CellVal + add
                    Cell.Value = Format(CellVal, "0.00")

SkipCell:
                Next k

            End If
        Next j
    Next i

    ' Возвращаем * обратно
    For Each Key In starCells.Keys
        ThisWorkbook.Worksheets(List).Range(Key).Value = ThisWorkbook.Worksheets(List).Range(Key).Value & "*"
    Next Key

    Set starCells = Nothing
End Sub
[/vba]Логику расчётов не менял так как не вникал в неё. Думаю это тот результат который вы ожидаете. Удачи.

Автор - MikeVol
Дата добавления - 16.04.2025 в 08:49
Паштет Дата: Среда, 16.04.2025, 11:40 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
Цитата
Паштет, Вобщем долго я не мог понять логику вашего кода. А именно данного блока кода

Смысл в том, что если число написано со звездочкой, то убираем звездочку из числа, и присваиваем ее переменной zvezda, что бы после вычисления обратно добавить звезду к получившемуся числу.
Чуть позже проверю ваш код.

Hugo, Pelena, при всем уважении, при первой обработке числа со звездой вылет ошибки в строке:
[vba]
Код
CellVal = CDbl(Cell.Value)
[/vba].
 
Ответить
Сообщение
Цитата
Паштет, Вобщем долго я не мог понять логику вашего кода. А именно данного блока кода

Смысл в том, что если число написано со звездочкой, то убираем звездочку из числа, и присваиваем ее переменной zvezda, что бы после вычисления обратно добавить звезду к получившемуся числу.
Чуть позже проверю ваш код.

Hugo, Pelena, при всем уважении, при первой обработке числа со звездой вылет ошибки в строке:
[vba]
Код
CellVal = CDbl(Cell.Value)
[/vba].

Автор - Паштет
Дата добавления - 16.04.2025 в 11:40
Hugo Дата: Среда, 16.04.2025, 12:09 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3849
Репутация: 812 ±
Замечаний: 0% ±

365
при первой обработке числа со звездой вылет ошибки в строке:
- это другой вопрос, у нас очевидно не вылетает, у меня точно. Это уже региональные настройки, разделители. Можно конечно делать универсально или под конкретную систему... Но не было такой задачи.
Тем более что это срабатывает когда никакой звёздочки в значении нет ))


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD


Сообщение отредактировал Hugo - Среда, 16.04.2025, 12:14
 
Ответить
Сообщение
при первой обработке числа со звездой вылет ошибки в строке:
- это другой вопрос, у нас очевидно не вылетает, у меня точно. Это уже региональные настройки, разделители. Можно конечно делать универсально или под конкретную систему... Но не было такой задачи.
Тем более что это срабатывает когда никакой звёздочки в значении нет ))

Автор - Hugo
Дата добавления - 16.04.2025 в 12:09
MikeVol Дата: Среда, 16.04.2025, 13:14 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 92 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
Паштет, Так что, решение не подошло что я вам дал? Что-то ничего не понял я и вашего поста выше.


Ученик.
Одесса - Украина
 
Ответить
СообщениеПаштет, Так что, решение не подошло что я вам дал? Что-то ничего не понял я и вашего поста выше.

Автор - MikeVol
Дата добавления - 16.04.2025 в 13:14
Паштет Дата: Среда, 16.04.2025, 15:43 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
MikeVol, снимаю шляпу. Все идеально! Но честно, не очень понял почему это работает, ведь
[vba]
Код
On Error Resume Next
                    CellVal = CDbl(Cell.Value)
                    On Error GoTo 0

                    CellVal = CellVal + add
[/vba]
Cellval должен стать равным 0, если CDbl(Cell.Value) даст ошибку.

Цитата
Это уже региональные настройки, разделители. Можно конечно делать универсально или под конкретную систему...

Hugo, а можете в двух словах описать проблему? Не сам код, а теорию процесса.
 
Ответить
СообщениеMikeVol, снимаю шляпу. Все идеально! Но честно, не очень понял почему это работает, ведь
[vba]
Код
On Error Resume Next
                    CellVal = CDbl(Cell.Value)
                    On Error GoTo 0

                    CellVal = CellVal + add
[/vba]
Cellval должен стать равным 0, если CDbl(Cell.Value) даст ошибку.

Цитата
Это уже региональные настройки, разделители. Можно конечно делать универсально или под конкретную систему...

Hugo, а можете в двух словах описать проблему? Не сам код, а теорию процесса.

Автор - Паштет
Дата добавления - 16.04.2025 в 15:43
Hugo Дата: Среда, 16.04.2025, 18:15 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3849
Репутация: 812 ±
Замечаний: 0% ±

365
Ну это не проблема, просто в ячейке может быть строка, которую можно преобразовать в число, а может быть то что нельзя. У меня отработало без ошибок, но я не изучал где ошибка у Вас, да Вы и не показали.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу это не проблема, просто в ячейке может быть строка, которую можно преобразовать в число, а может быть то что нельзя. У меня отработало без ошибок, но я не изучал где ошибка у Вас, да Вы и не показали.

Автор - Hugo
Дата добавления - 16.04.2025 в 18:15
MikeVol Дата: Среда, 16.04.2025, 20:03 | Сообщение № 15
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 92 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
если CDbl(Cell.Value) даст ошибку
А с чего вы взяли что должна произойти ошибка? Ошибка может произойти если значение в ячейке вообще не число (например, "abc" или "#DIV/0!", ошибка в вычеслиния формулы).
CDbl выдаёт ошибку - подавляется ошибка и CellVal остаётся 0 и тогда в расчётах будет использоваться ноль, что может быть логически неверно.
Вопрос возможно будет от вас следуйщий:
Как CellVal остаётся 0? Всё потому что мы объявили Dim CellVal As Double, и значит по умолчанию равен 0 (ноль).
Хотите можете так написать данный блок:[vba]
Код
                    ' Проверка: можно ли безопасно конвертировать в число
                    If IsNumeric(Cell.Value) Then
                        CellVal = CDbl(Cell.Value)
                        CellVal = CellVal + add
                        Cell.Value = Format(CellVal, "0.00")
                    End If
[/vba]Тут мы чётко проверяем, что значение действительно числовое, это явнее и безопаснее, чем полагаться на On Error Resume Next. А может я не понял ваш вопрос
почему это работает
всё возможно. Удачи.


Ученик.
Одесса - Украина


Сообщение отредактировал MikeVol - Среда, 16.04.2025, 20:11
 
Ответить
Сообщение
если CDbl(Cell.Value) даст ошибку
А с чего вы взяли что должна произойти ошибка? Ошибка может произойти если значение в ячейке вообще не число (например, "abc" или "#DIV/0!", ошибка в вычеслиния формулы).
CDbl выдаёт ошибку - подавляется ошибка и CellVal остаётся 0 и тогда в расчётах будет использоваться ноль, что может быть логически неверно.
Вопрос возможно будет от вас следуйщий:
Как CellVal остаётся 0? Всё потому что мы объявили Dim CellVal As Double, и значит по умолчанию равен 0 (ноль).
Хотите можете так написать данный блок:[vba]
Код
                    ' Проверка: можно ли безопасно конвертировать в число
                    If IsNumeric(Cell.Value) Then
                        CellVal = CDbl(Cell.Value)
                        CellVal = CellVal + add
                        Cell.Value = Format(CellVal, "0.00")
                    End If
[/vba]Тут мы чётко проверяем, что значение действительно числовое, это явнее и безопаснее, чем полагаться на On Error Resume Next. А может я не понял ваш вопрос
почему это работает
всё возможно. Удачи.

Автор - MikeVol
Дата добавления - 16.04.2025 в 20:03
Паштет Дата: Среда, 16.04.2025, 21:32 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 7 ±
Замечаний: 0% ±

Excel 2010
MikeVol, когда вылетала ошибка, я смотрел значение Cell и в нем было 1077,25*. Из-за звездочки, как я понимаю все и валилось.
Мистика какая-то.
 
Ответить
СообщениеMikeVol, когда вылетала ошибка, я смотрел значение Cell и в нем было 1077,25*. Из-за звездочки, как я понимаю все и валилось.
Мистика какая-то.

Автор - Паштет
Дата добавления - 16.04.2025 в 21:32
MikeVol Дата: Четверг, 17.04.2025, 08:36 | Сообщение № 17
Группа: Проверенные
Ранг: Обитатель
Сообщений: 423
Репутация: 92 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
смотрел значение Cell и в нем было 1077,25*. Из-за звездочки
Да, на вашем коде так было и у меня. Из-за
звездочки
не выполнялась следуйщая строка кода
CellVal = CellVal + add


Ученик.
Одесса - Украина


Сообщение отредактировал MikeVol - Четверг, 17.04.2025, 08:36
 
Ответить
Сообщение
смотрел значение Cell и в нем было 1077,25*. Из-за звездочки
Да, на вашем коде так было и у меня. Из-за
звездочки
не выполнялась следуйщая строка кода
CellVal = CellVal + add

Автор - MikeVol
Дата добавления - 17.04.2025 в 08:36
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!