Страницы: 1
RSS
Вопрос по процедуре "Преобразовать в число"
 
Добрый день знатоки Excel.  
 
На работе ежедневно сталкиваюсь с такой мелочью, которая честно говоря меня уже порядком надоела.  
А дело вот в чем.  
 
Каждое утро я составляю аналитический отчет, который строится на основе данных получаемых из SAP. В SAP есть такая функция как "Экспорт данных в файл Excel".    
 
После того как я открываю этот экспортированный файл, в двух столбцах, где располагаются данные в виде чисел, наблюдаю такую картину: данные имеют не числовой формат, а текстовый ну и соответственно возникает необходимость преобразовать данные в число, мне приходится выделять полностью весь столбец и затем в нажимать кнопку "Преобразовать в число". Чтобы было понятно о чем идет речь, далее привожу скриншот:  
 
 
(url ссылка http://s1.ipicture.ru/uploads/20110712/0Vp56x9D.png)  
 
Вопрос: есть ли какое либо решение того как мне можно автоматизировать данный процесс т.е., чтобы постоянно не выделять столбцы и не выбирать данную опцию "Преобразовать в число" вручную.    
 
Ниже прикреплен файл с примером данных, которые мне постоянно нужно преобразовывать в текст.  
 
Примечание: использую версию Excel 2010 и размер диапазона с данными каждый день разный.
 
Выделяем столбец и:  
Sub www():Selection.TextToColumns:End Sub
Я сам - дурнее всякого примера! ...
 
{quote}{login=KukLP}{date=12.07.2011 07:44}{thema=}{post}Выделяем столбец и:  
Sub www():Selection.TextToColumns:End Sub{/post}{/quote}  
 
Спасибо за помощь. Кстати я сейчас еще немного решил усовершенствовать ваш код. Теперь он выглядит так:  
 
Sub www()  
Range(ActiveCell, ActiveCell.End(xlDown)).Select  
Selection.TextToColumns  
End Sub  
 
 
Так сказать для полной автоматизации... )))
 
Тогда уж лучше:  
Sub www():Range(ActiveCell, ActiveCell.End(xlDown)).TextToColumns:End Sub  
:-)
Я сам - дурнее всякого примера! ...
Страницы: 1
Читают тему
Наверх