Чего все упираются в этот интегер? Привычка интернетовская? Function sum_currency(r As

Question

Чего все упираются в этот интегер? Привычка интернетовская? Function sum_currency(r As

Range, r2 As Range) As Long
Dim m As Long
m = 1
If InStr(r.NumberFormat, "$$") > 0 Then
m = CLng(Range("K3").Value)
End If
sum_currency = (CLng(r.Value) + CLng(r2.Value)) * m
End Function

0

03.06.2023

5 ответов

21 просмотр

Игорь Автор вопроса

Aryn 🇺🇦
Благодарю! Использовал CInt, т.к. думал, что мои ...

На скрине видно что превышают 32,767

0

03.06.2023

Aryn 🇺🇦

Игорь
На скрине видно что превышают 32,767

Спасибо ещё раз! Не знал об этом ограничении у CInt :)

0

03.06.2023

ChatKeeperBot

Игорь
На скрине видно что превышают 32,767

Игорь, твою репутацию увеличил Aryn. Репутация - 772 Респект от Excel Hacks

0

03.06.2023

Игорь Автор вопроса

Aryn 🇺🇦
Спасибо ещё раз! Не знал об этом ограничении у CIn...

И для счётчика строк лучше сразу привыкать ставить тип лонг! Чтоб потом не удивляться...

0

03.06.2023

Aryn 🇺🇦 · Accepted Answer

Aryn 🇺🇦

Благодарю! Использовал CInt, т.к. думал, что мои числа по сути не упираются в int32

0

03.06.2023

Похожие чаты

Чего все упираются в этот интегер? Привычка интернетовская? Function sum_currency(r As

5 ответов

Похожие вопросы