Ввод чисел в денежном формате, как в кассовом аппарате
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
Ответить
Сообщение Хотелось бы реализовать ввод чисел в ячейку, как кассовом аппарате(в Беларуси по крайней мере), т.е. введя, например, три цифры 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] это нужно разместить в проекте на самом листе ну и для рабочего применения нужно ставить обработку ошибок и/или ограничение диапазонов, чтобы не глючило при попытках стереть ячейку, к примеру. кривые символы - это руб. и коп.)))
так подойдет? [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
Сообщение отредактировал 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 последних числа - копейки, остальное - рубли.
Что-то у меня не работает. Размещал на "лист" и на "книгу". Вы бы файл приложили. Суть как бы в том, что 2 последних числа - копейки, остальное - рубли. art777
Сообщение отредактировал art777 - Воскресенье, 28.05.2017, 14:26
Ответить
Сообщение Что-то у меня не работает. Размещал на "лист" и на "книгу". Вы бы файл приложили. Суть как бы в том, что 2 последних числа - копейки, остальное - рубли. Автор - art777 Дата добавления - 28.05.2017 в 14:24
Pelena
Дата: Воскресенье, 28.05.2017, 14:33 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Файл с примером должны Вы приложить в соответствии с Правилами форума
Файл с примером должны Вы приложить в соответствии с Правилами форумаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Файл с примером должны Вы приложить в соответствии с Правилами форумаАвтор - Pelena Дата добавления - 28.05.2017 в 14:33
Sandor
Дата: Воскресенье, 28.05.2017, 14:39 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация:
-4
±
Замечаний:
0% ±
Excel 2010
ок, сейчас тырнет глючит не всегда на связи))
ок, сейчас тырнет глючит не всегда на связи)) Sandor
Сообщение отредактировал 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
Ответить
Сообщение Спасибо, работает. Жаль, конечно, что не группирует при вводе самого числа(так бы было сразу понятно сколько руб. и сколько коп. введено), но средствами EXCEL это наверно не реализовать. Автор - art777 Дата добавления - 28.05.2017 в 14:53
Pelena
Дата: Воскресенье, 28.05.2017, 14:56 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Вариант без макросов. Вводите числа в столбец А (строки с 1 по 20)
Вариант без макросов. Вводите числа в столбец А (строки с 1 по 20) Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Вариант без макросов. Вводите числа в столбец А (строки с 1 по 20) Автор - Pelena Дата добавления - 28.05.2017 в 14:56
gling
Дата: Воскресенье, 28.05.2017, 15:14 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация:
678
±
Замечаний:
0% ±
2010
Пропишите пользовательский формат ячеек 0р. 00коп. Только Excel стирает этот формат при повторном открытии книги.
Пропишите пользовательский формат ячеек 0р. 00коп. Только Excel стирает этот формат при повторном открытии книги. gling
ЯД-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% ±
все проще
Ответить
Сообщение все проще Автор - 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
Это же решение было предложено три часа назад У него есть один минус: этот параметр действует на все книги, а это не всегда бывает нужно
Это же решение было предложено три часа назад У него есть один минус: этот параметр действует на все книги, а это не всегда бывает нужноPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Это же решение было предложено три часа назад У него есть один минус: этот параметр действует на все книги, а это не всегда бывает нужноАвтор - Pelena Дата добавления - 28.05.2017 в 17:38
Pelena
Дата: Воскресенье, 28.05.2017, 18:48 |
Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
пользовательский формат ячеек 0р. 00коп.
Отличное решение! А чтобы формат не стирался, надо его записать примерно так 0" руб. "00" коп."
пользовательский формат ячеек 0р. 00коп.
Отличное решение! А чтобы формат не стирался, надо его записать примерно так 0" руб. "00" коп." Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение пользовательский формат ячеек 0р. 00коп.
Отличное решение! А чтобы формат не стирался, надо его записать примерно так 0" руб. "00" коп." Автор - Pelena Дата добавления - 28.05.2017 в 18:48
gling
Дата: Воскресенье, 28.05.2017, 19:10 |
Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2523
Репутация:
678
±
Замечаний:
0% ±
2010
Спасибо. Теперь вижу разницу. Теперь не буду экономить на кавычках.)))
Спасибо. Теперь вижу разницу. Теперь не буду экономить на кавычках.)))gling
ЯД-41001506838083
Ответить
Сообщение Спасибо. Теперь вижу разницу. Теперь не буду экономить на кавычках.)))Автор - gling Дата добавления - 28.05.2017 в 19:10