{quote}{login=GIG_ant}{date=01.07.2011 04:59}{thema=}{post}  
 
With Cells(1, 1)  
.NumberFormat = "0.00"  
.value=.value*1  
End With  
 
 
Помогло! Как теперь сделать если не одну ячейку, а почти весь столбец.  
например:  
 
Range(Cells(2, col), Cells(lLastRow, col)).Select  
'col - определенный столбец  
'lLastRow- последняя заполненная ячейка  
 
{/post}{/quote}

Здравствуйте уважаемые коллеги.  Помогите, пожалуйста, решить следующий вопрос:  
В таблице имеются числовые значения, представленные в текстовом виде. Эти данные необходимо   преобразовать в числовой формат.  
     
Cells(1, 1).Select  
Selection.NumberFormat = "0.00"  
 
Указанный код макроса меняет формат ячеек, но при дальнейшем использовании этих данных в свободной таблицы, расчет значений не производиться так как сами значения не преобразованы в числовой формат.    
Например: после выполнения выше указанного макроса, пока не нажмешь на преобразованную ячейку двойным кликом, данные не преобразовываются.

спасибо

Пожалуйста помогите,  
 
Задача: Оперативно (быстро) менять цену деления/масштаб формата представления чисел в Excel таблицах.  
 
цену деления/масштаб - рубль, сотни рублей, тысячи, милионны  
 
мне часто приходиться перебивать цифры в таблицах что бы изменить масштаб.  
использую:  
1. копировать =1/1000, выделить ячейки с значениями  
специальная вставка > умножить>    
проблемы: надо вылавливать ячейки с формулами и возвращать значения.  
2. создавать копии дополнительные листы с формулой =делить на 1000  
 
я бы хотел найти другой более быстрый и эффективный способ.  
например формат ячейки/число/дополнительные форматы # ##0  
 
пожалуйста если есть идей.