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

Вход

Регистрация

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

 

= Мир MS Excel/Преобразование числа до сотых в значениях - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование числа до сотых в значениях (Формулы/Formulas)
Преобразование числа до сотых в значениях
Zhuzhiks Дата: Вторник, 10.11.2020, 22:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте!
Столкнулся для себя с нерешаемой проблемой.
Дело в том, что числа, которые отображаются и имеют значения в эксель, отображаются не полностью, т.е. видимо имеют значение "с конца" в единицу.
Для понимание прикладываю пример. Понять, что эти числа не ограничиваются десятками и сотнями, возможно только при суммировании.
Пытался идти разными способами и через блокнот, и через формулу округления и через поиск значений содержащие эти знаки, через разбитие на массивы и их суммирование. Конечной попыткой был макрос (я не про, но попытался), но он тоже не помог, суммы все равно не считаются до сотых. Может кто-нибудь поможет с решением данной задачи?
Макрос, который не смог...
[vba]
Код
Sub SHRT()
Dim LastRow As Long
LastRow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
Dim Bc As Double
For i = 1 To (LastRow - 1)
Bc = Range("A" & (i + 1))
ThisWorkbook.Worksheets(1).Range("B" & (i + 1)) = CInt(Int(Bc * 100)) / 100
Next i
End Sub
[/vba]
Спасибо.
К сообщению приложен файл: 2992149.xlsx(81.6 Kb)


Сообщение отредактировал Zhuzhiks - Вторник, 10.11.2020, 22:02
 
Ответить
СообщениеЗдравствуйте!
Столкнулся для себя с нерешаемой проблемой.
Дело в том, что числа, которые отображаются и имеют значения в эксель, отображаются не полностью, т.е. видимо имеют значение "с конца" в единицу.
Для понимание прикладываю пример. Понять, что эти числа не ограничиваются десятками и сотнями, возможно только при суммировании.
Пытался идти разными способами и через блокнот, и через формулу округления и через поиск значений содержащие эти знаки, через разбитие на массивы и их суммирование. Конечной попыткой был макрос (я не про, но попытался), но он тоже не помог, суммы все равно не считаются до сотых. Может кто-нибудь поможет с решением данной задачи?
Макрос, который не смог...
[vba]
Код
Sub SHRT()
Dim LastRow As Long
LastRow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
Dim Bc As Double
For i = 1 To (LastRow - 1)
Bc = Range("A" & (i + 1))
ThisWorkbook.Worksheets(1).Range("B" & (i + 1)) = CInt(Int(Bc * 100)) / 100
Next i
End Sub
[/vba]
Спасибо.

Автор - Zhuzhiks
Дата добавления - 10.11.2020 в 22:01
CaramelManiac Дата: Среда, 11.11.2020, 19:26 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 22 ±
Замечаний: 0% ±

MS Excel 2003-2019
Здравствуйте.
Может так:
[vba]
Код
CInt(Int(CDbl(Bc * 100))) / 100
[/vba]
 
Ответить
СообщениеЗдравствуйте.
Может так:
[vba]
Код
CInt(Int(CDbl(Bc * 100))) / 100
[/vba]

Автор - CaramelManiac
Дата добавления - 11.11.2020 в 19:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование числа до сотых в значениях (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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