Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/преобразование текста в число - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование текста в число (Макросы Sub)
преобразование текста в число
Марина16 Дата: Среда, 29.01.2014, 20:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
Здравствуйте
У меня входе различных преобразований данных получилась табличка, которая во вложении. В конце мне надо сложить полученные числа. А функция сумма не работает, т к надо преобразовать текст в число.
Помогите, пожалуйста. Лучше в форме макроса
К сообщению приложен файл: _Microsoft_Exce.xls (17.0 Kb)
 
Ответить
СообщениеЗдравствуйте
У меня входе различных преобразований данных получилась табличка, которая во вложении. В конце мне надо сложить полученные числа. А функция сумма не работает, т к надо преобразовать текст в число.
Помогите, пожалуйста. Лучше в форме макроса
Автор - Марина16
Дата добавления - 29.01.2014 в 20:50
KuklP Дата: Среда, 29.01.2014, 20:52 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Public Sub w1C_convert1()
     ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Public Sub w1C_convert1()
     ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal
End Sub
[/vba]
Автор - KuklP
Дата добавления - 29.01.2014 в 20:52
Марина16 Дата: Среда, 29.01.2014, 21:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
спасибо огромное
 
Ответить
Сообщениеспасибо огромное
Автор - Марина16
Дата добавления - 29.01.2014 в 21:06
Alex_ST Дата: Среда, 29.01.2014, 21:31 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
То же самое, что предложил Сергей, но (как всегда у меня :D ) более универсально - практически на все возможные случаи[vba]
Код
Sub Repair_Value()   ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
     Dim rArea As Range
     On Error Resume Next
     ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
     If Err Then Exit Sub
     With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
     For Each rArea In Selection.Areas
        rArea.FormulaLocal = rArea.FormulaLocal
     Next rArea
     With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]


С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 29.01.2014, 21:32
 
Ответить
СообщениеТо же самое, что предложил Сергей, но (как всегда у меня :D ) более универсально - практически на все возможные случаи[vba]
Код
Sub Repair_Value()   ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
     Dim rArea As Range
     On Error Resume Next
     ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
     If Err Then Exit Sub
     With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
     For Each rArea In Selection.Areas
        rArea.FormulaLocal = rArea.FormulaLocal
     Next rArea
     With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]
Автор - Alex_ST
Дата добавления - 29.01.2014 в 21:31
Марина16 Дата: Среда, 05.02.2014, 20:50 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
спасибо, за помощь


Сообщение отредактировал Марина16 - Среда, 05.02.2014, 20:55
 
Ответить
Сообщениеспасибо, за помощь
Автор - Марина16
Дата добавления - 05.02.2014 в 20:50
Марина16 Дата: Воскресенье, 11.05.2014, 14:51 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
Подскажите, почему не работает на Win XP, На семерке все хорошо
[vba]
Код
Sub Repair_Value() ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
Dim rArea As Range
On Error Resume Next
ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
If Err Then Exit Sub
With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
For Each rArea In Selection.Areas
rArea.FormulaLocal = rArea.FormulaLocal
Next rArea
With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]
 
Ответить
СообщениеПодскажите, почему не работает на Win XP, На семерке все хорошо
[vba]
Код
Sub Repair_Value() ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
Dim rArea As Range
On Error Resume Next
ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
If Err Then Exit Sub
With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
For Each rArea In Selection.Areas
rArea.FormulaLocal = rArea.FormulaLocal
Next rArea
With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]
Автор - Марина16
Дата добавления - 11.05.2014 в 14:51
Марина16 Дата: Воскресенье, 11.05.2014, 14:52 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 40% ±

Excel 2003
Alex_ST, Подскажите, почему не работает на Win XP, На семерке все хорошо
[vba]
Код
Sub Repair_Value() ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
Dim rArea As Range
On Error Resume Next
ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
If Err Then Exit Sub
With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
For Each rArea In Selection.Areas
rArea.FormulaLocal = rArea.FormulaLocal
Next rArea
With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]


Сообщение отредактировал Serge_007 - Воскресенье, 11.05.2014, 14:58
 
Ответить
СообщениеAlex_ST, Подскажите, почему не работает на Win XP, На семерке все хорошо
[vba]
Код
Sub Repair_Value() ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
Dim rArea As Range
On Error Resume Next
ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
If Err Then Exit Sub
With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
For Each rArea In Selection.Areas
rArea.FormulaLocal = rArea.FormulaLocal
Next rArea
With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub
[/vba]
Автор - Марина16
Дата добавления - 11.05.2014 в 14:52
Alex_ST Дата: Понедельник, 12.05.2014, 08:49 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
У меня на работе Семёрка на одном компе, ХРюша - на другом, дома - Виста (ну да, мне стыдно %) , но переставлять кучу ломаного софта лень killed )
На всех машинах работает прекрасно.
Также не зависит и от версии Офиса. Хоть я и фанат 2003, но на одном компе на работе пришлось поставить ещё и 2010. Там тоже работает.

А что значит "не работает"?
Заремарьте строку On Error Resume Next на обоих компах и на одинаковом примере запустите макросы.
Какие ошибки выдаст?


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеУ меня на работе Семёрка на одном компе, ХРюша - на другом, дома - Виста (ну да, мне стыдно %) , но переставлять кучу ломаного софта лень killed )
На всех машинах работает прекрасно.
Также не зависит и от версии Офиса. Хоть я и фанат 2003, но на одном компе на работе пришлось поставить ещё и 2010. Там тоже работает.

А что значит "не работает"?
Заремарьте строку On Error Resume Next на обоих компах и на одинаковом примере запустите макросы.
Какие ошибки выдаст?
Автор - Alex_ST
Дата добавления - 12.05.2014 в 08:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование текста в число (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!