Страницы: 1
RSS
Как большой массив данных поделить на 1 000 000
 
есть большой список, например, продажи в 2010 и 2011 гдах по товарам в рублях:  
           2010         2011  
Яблоки     1000000    11000000  
груши      2000000    22000000  
и т.д.  
необходимо привести эти данные к млн.руб, то есть одновременно всю таблицу поделить на  1 000 000    
Дополнение - в каждой ячейке формала (то есть мы видим яблоки в 2010году - 1000000, а на самом деле это формула - 100 руб*10000кг)  
 
Можно ли сделать это бысто или придется в каждой формуле дописывать хвост /1000000 в ручную???
 
1. Меню Правка-Найти/Заменить, область поиска - формулы.  
2. Заменить в самой формуле и протянуть?
 
файл-пример не помешал бы.
Редко но метко ...
 
{quote}{login=vikttur}{date=31.01.2011 10:55}{thema=}{post}1. Меню Правка-Найти/Заменить, область поиска - формулы.  
2. Заменить в самой формуле и протянуть?{/post}{/quote}  
 
1-не подходит, так как каждый раз формула разная.  
 
прикрепила частичку файла в приложении
 
{quote}{login=GIG_ant}{date=31.01.2011 10:56}{thema=}{post}файл-пример не помешал бы.{/post}{/quote}  
вот - в приложении
 
Вот что пришло на ум:  
 
Выделяете диапазон с ячейками где нужно поделить на 1 000 000 и выполняете макрос:  
 
Sub Макрос1()  
Dim f As String  
Dim r As Range  
 
For Each r In Selection.Cells  
f = r.FormulaR1C1  
r.FormulaR1C1 = f & "/1000000"  
Next r  
 
End Sub  
 
Это что бы в ручную не прописывать.
Редко но метко ...
 
при условии что в выделеных ячейках у вас именно формулы, а не значения
Редко но метко ...
 
Посмотрите еще ответ от Алексея (Казанский) - http://www.planetaexcel.ru/forum.php?thread_id=17380
<FONT COLOR="CadetBlue">
 
Не меняя данные: установите формат ячеек "# ##0,  " (два пробела в конце), если нужно целое число миллионов, или  
"# ##0,##  " - если нужны миллионы с долями.
 
{quote}{login=GIG_ant}{date=31.01.2011 11:28}{thema=}{post}при условии что в выделеных ячейках у вас именно формулы, а не значения{/post}{/quote}  
 
СПАСИБО!!!!  
все работает! получилость!  
УРА
 
{quote}{login=Казанский}{date=31.01.2011 11:40}{thema=}{post}Не меняя данные: установите формат ячеек "# ##0,  " (два пробела в конце), если нужно целое число миллионов, или  
"# ##0,##  " - если нужны миллионы с долями.{/post}{/quote}  
 
ух ты!  
прикольно! и как быстро! и просто!  
спасибо!
 
{quote}{login=GIG_ant}{date=31.01.2011 11:25}{thema=}{post}Вот что пришло на ум:  
 
Выделяете диапазон с ячейками где нужно поделить на 1 000 000 и выполняете макрос:  
 
Sub Макрос1()  
Dim f As String  
Dim r As Range  
 
For Each r In Selection.Cells  
f = r.FormulaR1C1  
r.FormulaR1C1 = f & "/1000000"  
Next r  
 
End Sub  
 
Это что бы в ручную не прописывать.{/post}{/quote}  
 
абсолютно эквивалентно специальная вставка/разделить
 
{quote}{login=dl}{date=31.01.2011 11:52}{thema=Re: }{post}{quote}{login=GIG_ant}{date=31.01.2011 11:25}{thema=}{post}Вот что пришло на ум:  
 
Выделяете диапазон с ячейками где нужно поделить на 1 000 000 и выполняете макрос:  
 
Sub Макрос1()  
Dim f As String  
Dim r As Range  
 
For Each r In Selection.Cells  
f = r.FormulaR1C1  
r.FormulaR1C1 = f & "/1000000"  
Next r  
 
End Sub  
 
Это что бы в ручную не прописывать.{/post}{/quote}  
 
абсолютно эквивалентно специальная вставка/разделить{/post}{/quote}  
 
Уважаемый DI,  
а не могли бы поподробнее объяснить что надо выделить и куда приделать специальную вставку!  
а то я что то не догнала!  
извините за тугодумство и спасибо заранее.
 
RE: dl "абсолютно эквивалентно специальная вставка/разделить"  
 
Позвольте не согласться!    
Специальная вставка/разделить - делит значения,  
а мой махонький макрос - добавляет в формулу деление.  
По моему это разные операции.
Редко но метко ...
 
Похоже, что все так думали, раз сразу это не предложили :)  
И я тоже.  
А оно и впрямь в конец формулы дописывает /n - я проверил.
 
{quote}{login=Hugo}{date=31.01.2011 12:13}{thema=}{post}Похоже, что все так думали, раз сразу это не предложили :)  
И я тоже. А оно и впрямь в конец формулы дописывает /n - я проверил.{/post}{/quote}  
И точно! Не знал. Считал, что спецвставка применима только к значениям. Спасибо!
 
{quote}{login=GIG_ant}{date=31.01.2011 12:10}{thema=}{post}RE: dl "абсолютно эквивалентно специальная вставка/разделить"  
 
Позвольте не согласться!    
Специальная вставка/разделить - делит значения,  
а мой махонький макрос - добавляет в формулу деление.  
По моему это разные операции.{/post}{/quote}  
 
Беру свои слова обратно.  
dl - вы правы.
Редко но метко ...
 
{quote}{login=mbobkova83}{date=31.01.2011 12:02}{thema=Re: Re: }{post}  
Уважаемый DI,  
а не могли бы поподробнее объяснить что надо выделить и куда приделать специальную вставку!  
а то я что то не догнала!  
извините за тугодумство и спасибо заранее.{/post}{/quote}  
 
вводите в любую ячейку =10^6  
копируете ячейку,  
выделяете требуемый диапазон (который поделить на миллион)  
по правой клавиши мыши из контекстного меню  
специальная вставка  
в появившемся окошке ставите галочку () разделить
 
Пользовательский формат красивее - я уж тоже синтаксис искал, но не нашёл. В приёмах на тысячу только есть, под миллион переделать не додумал :)  
Теперь сохранил у себя :)  
Но это конечно от задачи зависит, что нужно считать, а что распечатывать - рубли или миллионы рублей.
 
{quote}{login=dl}{date=31.01.2011 12:49}{thema=Re: Re: Re: }{post}{quote}{login=mbobkova83}{date=31.01.2011 12:02}{thema=Re: Re: }{post}  
Уважаемый DI,  
а не могли бы поподробнее объяснить что надо выделить и куда приделать специальную вставку!  
а то я что то не догнала!  
извините за тугодумство и спасибо заранее.{/post}{/quote}  
 
вводите в любую ячейку =10^6  
копируете ячейку,  
выделяете требуемый диапазон (который поделить на миллион)  
по правой клавиши мыши из контекстного меню  
специальная вставка  
в появившемся окошке ставите галочку () разделить{/post}{/quote}  
 
Ух ты! КРУТО!  
и просто!  
 
спасибо за этот способ!
Страницы: 1
Читают тему
Наверх