Necro2000
Member
Откуда:
Сообщений: 12
Есть куча ячеек с данными в рублях.
Их надо перевести в тысячи рублей. Т.е. из 200 руб. сделать 0,2 руб., например.
Как это сделать? Senin Viktor
Member
Откуда: Подмосковье
Сообщений: 5006
cells(1,1).Copy ' здесь значение 0.001 - копируем его

Range("E9:E20").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

вставка методом умножения xlMultiply - тоже самое можно и ручками сделать через СпециальнуюВставку

necro2000
Member
Откуда:
Сообщений: 12
Сложно, однако... Проще - никак не сделать? Ashton
Member
Откуда: Moscow
Сообщений: 1178
Да, по-моему, проще некуда. Или затруднения у вас возникают из-за макроса? Тогда проделайте, используя меню.

Еще варианты.

Public Sub X1() Dim rng As Range Dim avarItems As Variant Dim intI As Integer Set rng = Range("A1:A4") avarItems = rng For intI = 1 To UBound(avarItems, 1) avarItems(intI, 1) = avarItems(intI, 1) / 1000 Next intI rng = avarItems End Sub Public Sub X2() Dim cel As Range On Error Resume Next For Each cel In Selection If cel.Value <> "" Then cel.Value = cel.Value / 1000 End If Next cel End Sub Valll
Member
Откуда: Зеленоград
Сообщений: 346
Не рублей надо макросов. Все гораздо проще.

1. Выделяете ячейки, где надо изменить представление данных.
2. Меню: Формат. Ячейки...
3. В диалоговом окне выбираем "Числовые форматы". "Все форматы".
4. В строке "Тип" пишите новый тип данных: 0.000#[пробел].

Пользуйтесь на здоровье.

Valll
Member
Откуда: Зеленоград
Сообщений: 346
Да, прямые скобки[] ставить не надо! necro2000
Member
Откуда:
Сообщений: 12
Да, в макросах не силен.
А вот Vall предложил именно то, что я и искал, но не знал как сделать... Между сообщениями интервал более 1 года.
freeman39
Member
Откуда:
Сообщений: 2
Valll Не надо макросов. Все гораздо проще.

1. Выделяете ячейки, где надо изменить представление данных.
2. Меню: Формат. Ячейки...
3. В диалоговом окне выбираем "Числовые форматы". "Все форматы".
4. В строке "Тип" пишите новый тип данных: 0.000#[пробел].

Пользуйтесь на здоровье.

Спасибо огромное.
Каждый пробел уменьшает соответственно представление числа на 000. Также 0 после запятой определяют количество знаков в представлении после запятой.

Между сообщениями интервал более 1 года.
гнетпгн
Guest Valll, просто нереальное огромное спасибо)))) seruggan
Guest Valll,

Спасибо

ПЕНСИОНЕРКА
Member
Откуда: Владимирская обл
Сообщений: 4103
seruggan, месяц товар Сумма в руб при стандартном округлении до тысяч Округления для сохранения суммы за месяц 1 Столы 300 0 0 1 Стулья 350 0 0 1 табуретки 400 0 1 итог ===1050 0 1 2 Столы 700 1 0 2 Стулья 700 1 1 2 табуретки 700 1 1 итог ===2100 3 2

При больших суммах –это не так заметно
А при малых----проблема

Между сообщениями интервал более 1 года.
555555555
Guest Спасибо))) Очень просто и ясно Виртуальные форумы   Темы из всех форумов за 3 дня   Мои избранные форумы Использование СУБД   Microsoft SQL Server   Firebird, InterBase   Oracle   Microsoft Access   IBM DB2, WebSphere, IMS, U2, etc   MySQL   PostgreSQL   OLAP и DWH   Sybase ASA, ASE, IQ   Informix   Другие СУБД   FoxPro, Visual FoxPro   Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M   SQLite   NoSQL, Big Data Дискуcсии   Сравнение СУБД   Проектирование БД   Работа   ERP и учетные системы   Разработка информационных систем   Тестирование и QA   Отчетные системы   Просто треп   Наши за рубежом   Сертификация и обучение   Hardware   Управление процессом разработки ИС   Юридические вопросы в ИТ Microsoft.NET   WinForms,.Net Framework   ASP.NET   ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM   WPF, Silverlight   WCF, Web Services, Remoting Программирование   Delphi   C++   Visual Basic   Программирование   Java   Разработка под мобильные платформы   PowerBuilder   Microsoft Office   SharePoint   XML, XSL, XPath, XQuery Web Технологии   PHP, Perl, Python   HTML, JavaScript, VBScript, CSS Администрирование ОС   Windows   Unix-системы   Другие: Mac OS, PalmOS, BeOS, PocketPC SQL.RU   Обсуждение нашего сайта   Вопрос-Ответ   Test
Источник: http://www.sql.ru/forum/316349/excel-perevesti-rubli-v-tysyachi



Рекомендуем посмотреть ещё:


Закрыть ... [X]

In Cash We Trust: Белые схемы заработка - Как из 100 рублей сделать 1000 Как сделать химика


Как из рублей сделать тыс рублей Как из рублей сделать тыс рублей Как из рублей сделать тыс рублей Как из рублей сделать тыс рублей Как из рублей сделать тыс рублей Как из рублей сделать тыс рублей

ШОКИРУЮЩИЕ НОВОСТИ