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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод чисел в денежном формате, как в кассовом аппарате - Мир MS Excel

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

Excel 2010
Хотелось бы реализовать ввод чисел в ячейку, как кассовом аппарате(в Беларуси по крайней мере), т.е. введя, например, три цифры 235 должно получится 2р 35 коп, а не 235 рублей 00 копеек. Введя 2355 должно получиться 23р. 55коп, а если ввести 23555 должно быть 235руб. 55 коп.
Разделитель значения не имеет, рубли от копеек можно разделить просто пробелом.
Желательно чтобы цифры группировались при вводе числа.
 
Ответить
СообщениеХотелось бы реализовать ввод чисел в ячейку, как кассовом аппарате(в Беларуси по крайней мере), т.е. введя, например, три цифры 235 должно получится 2р 35 коп, а не 235 рублей 00 копеек. Введя 2355 должно получиться 23р. 55коп, а если ввести 23555 должно быть 235руб. 55 коп.
Разделитель значения не имеет, рубли от копеек можно разделить просто пробелом.
Желательно чтобы цифры группировались при вводе числа.

Автор - art777
Дата добавления - 28.05.2017 в 13:47
Sandor Дата: Воскресенье, 28.05.2017, 14:10 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
так подойдет?

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Set tsh = Worksheets(1)
a = Target.Columns.Column
b = Target.Rows.Row
c = Target.Value
p = Int(c / 100 + 0.0001)
k = Int(c - p * 100 + 0.0001)
Application.EnableEvents = False
tsh.Cells(b, a).Value = p & " ðóá. " & k & " êîï."
Application.EnableEvents = True
lEnd Sub
[/vba]

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

кривые символы - это руб. и коп.)))


Сообщение отредактировал Sandor - Воскресенье, 28.05.2017, 14:11
 
Ответить
Сообщениетак подойдет?

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

Set tsh = Worksheets(1)
a = Target.Columns.Column
b = Target.Rows.Row
c = Target.Value
p = Int(c / 100 + 0.0001)
k = Int(c - p * 100 + 0.0001)
Application.EnableEvents = False
tsh.Cells(b, a).Value = p & " ðóá. " & k & " êîï."
Application.EnableEvents = True
lEnd Sub
[/vba]

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

кривые символы - это руб. и коп.)))

Автор - Sandor
Дата добавления - 28.05.2017 в 14:10
art777 Дата: Воскресенье, 28.05.2017, 14:24 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Что-то у меня не работает.
Размещал на "лист" и на "книгу".
Вы бы файл приложили.

Суть как бы в том, что 2 последних числа - копейки, остальное - рубли.


Сообщение отредактировал art777 - Воскресенье, 28.05.2017, 14:26
 
Ответить
СообщениеЧто-то у меня не работает.
Размещал на "лист" и на "книгу".
Вы бы файл приложили.

Суть как бы в том, что 2 последних числа - копейки, остальное - рубли.

Автор - art777
Дата добавления - 28.05.2017 в 14:24
Pelena Дата: Воскресенье, 28.05.2017, 14:33 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Вы бы файл приложили

Файл с примером должны Вы приложить в соответствии с Правилами форума


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

Файл с примером должны Вы приложить в соответствии с Правилами форума

Автор - Pelena
Дата добавления - 28.05.2017 в 14:33
Sandor Дата: Воскресенье, 28.05.2017, 14:39 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
ок, сейчас
тырнет глючит
не всегда на связи))
К сообщению приложен файл: 8600260.xlsm (14.7 Kb)


Сообщение отредактировал Sandor - Воскресенье, 28.05.2017, 14:44
 
Ответить
Сообщениеок, сейчас
тырнет глючит
не всегда на связи))

Автор - Sandor
Дата добавления - 28.05.2017 в 14:39
art777 Дата: Воскресенье, 28.05.2017, 14:53 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Спасибо, работает.
Жаль, конечно, что не группирует при вводе самого числа(так бы было сразу понятно сколько руб. и сколько коп. введено), но средствами EXCEL это наверно не реализовать.
 
Ответить
СообщениеСпасибо, работает.
Жаль, конечно, что не группирует при вводе самого числа(так бы было сразу понятно сколько руб. и сколько коп. введено), но средствами EXCEL это наверно не реализовать.

Автор - art777
Дата добавления - 28.05.2017 в 14:53
Pelena Дата: Воскресенье, 28.05.2017, 14:56 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Вариант без макросов.
Вводите числа в столбец А (строки с 1 по 20)
К сообщению приложен файл: 2819549.xlsx (8.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВариант без макросов.
Вводите числа в столбец А (строки с 1 по 20)

Автор - Pelena
Дата добавления - 28.05.2017 в 14:56
gling Дата: Воскресенье, 28.05.2017, 15:14 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Пропишите пользовательский формат ячеек 0р. 00коп. Только Excel стирает этот формат при повторном открытии книги.


ЯД-41001506838083

Сообщение отредактировал gling - Воскресенье, 28.05.2017, 15:21
 
Ответить
СообщениеПропишите пользовательский формат ячеек 0р. 00коп. Только Excel стирает этот формат при повторном открытии книги.

Автор - gling
Дата добавления - 28.05.2017 в 15:14
mechanix85 Дата: Воскресенье, 28.05.2017, 17:10 | Сообщение № 9
Группа: Друзья
Ранг: Форумчанин
Сообщений: 240
Репутация: 34 ±
Замечаний: 0% ±

все проще
К сообщению приложен файл: 6570897.png (127.9 Kb)
 
Ответить
Сообщениевсе проще

Автор - mechanix85
Дата добавления - 28.05.2017 в 17:10
Sandor Дата: Воскресенье, 28.05.2017, 17:29 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: -4 ±
Замечаний: 0% ±

Excel 2010
ты колдун )))
 
Ответить
Сообщениеты колдун )))

Автор - Sandor
Дата добавления - 28.05.2017 в 17:29
Pelena Дата: Воскресенье, 28.05.2017, 17:38 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
все проще

Это же решение было предложено три часа назад ;)
У него есть один минус: этот параметр действует на все книги, а это не всегда бывает нужно


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

Это же решение было предложено три часа назад ;)
У него есть один минус: этот параметр действует на все книги, а это не всегда бывает нужно

Автор - Pelena
Дата добавления - 28.05.2017 в 17:38
Pelena Дата: Воскресенье, 28.05.2017, 18:48 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
пользовательский формат ячеек 0р. 00коп.

Отличное решение! А чтобы формат не стирался, надо его записать примерно так 0" руб. "00" коп."


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

Отличное решение! А чтобы формат не стирался, надо его записать примерно так 0" руб. "00" коп."

Автор - Pelena
Дата добавления - 28.05.2017 в 18:48
gling Дата: Воскресенье, 28.05.2017, 19:10 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
так 0" руб. "00" коп."

Спасибо. Теперь вижу разницу. Теперь не буду экономить на кавычках.)))


ЯД-41001506838083
 
Ответить
Сообщение
так 0" руб. "00" коп."

Спасибо. Теперь вижу разницу. Теперь не буду экономить на кавычках.)))

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

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