Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование текстового формата в числовой / 7 сообщений из 7, страница 1 из 1
03.02.2010, 14:22
    #36447152
Gena108
Gena108
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
После выполнения запроса в Екселе на группировку, столбец ИТОГО становится текстовым. Как этого можно избежать?
Форматировние через формат ячеек не получается, получается преобразовать в число только, тогда когда выпадает ошибка, в это списке можно выбрать "Преобразовать в число", макросом такая фича не записывается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2010, 14:33
    #36447211
Gena108
Gena108
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
Получилось быстро преобразовать следующим образом:
Код: plaintext
Range(Cells( 2 ,  7 ), Cells(finalrow1,  7 )) = Range(Cells( 2 ,  7 ), Cells(finalrow1,  7 )).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2010, 09:22
    #36454681
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
У меня был случай когда из ФайнРеадера экспортировал значения и при
Код: plaintext
Форматировние через формат ячеек
не помогло вот и пошел другим путем.
Вот так можно
авторPrivate Sub CommandButton1_Click()
For n = 1 To 10
Range("A" & n).NumberFormat = "#,##0"
Next n
End Sub
если ячейки входят от 1 до 10
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 12:10
    #36462717
Gena108
Gena108
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
Код: plaintext
Range(Cells( 2 ,  7 ), Cells(finalrow1,  7 )) = Range(Cells( 2 ,  7 ), Cells(finalrow1,  7 )).Value
работает не всегда.
Код: plaintext
.Columns("A:D").EntireColumn.NumberFormat = "0"
. - не работает.
Код: plaintext
1.
2.
3.
4.
5.
Private Sub CommandButton1_Click()
For n =  1  To  10 
Range("A" & n).NumberFormat = "#,##0"
Next n
End Sub
- очень долго. Можно ли быстрей.

Может кто знает как, перед выполнением запроса в Ексель задать числовой формат столбца? Или какой-то другой метод?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 12:14
    #36462743
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
Gena108После выполнения запроса в Екселе на группировку, столбец ИТОГО становится текстовым. Как этого можно избежать?
Форматировние через формат ячеек не получается, получается преобразовать в число только, тогда когда выпадает ошибка, в это списке можно выбрать "Преобразовать в число", макросом такая фича не записывается.
Допишите в макрос условие спецвставки - умножить на единицу или плюс ноль
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 13:24
    #36463049
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
если мкросом то

range("a1") = cdbl(range("a1"))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 16:45
    #36463786
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование текстового формата в числовой
Gena108,

Например можно так задать формат выделенных ячеек числовым, с 2-мя знаками после запятой и преобразовать их в число.

Код: plaintext
1.
2.
3.
With Selection
  .NumberFormat = "0.00"
  .Value = .Value
End With

Соответственно вместо Selection можно поставить нужный вам диапазон ячеек, например Columns("A:D")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование текстового формата в числовой / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 529ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178503]:
 0ms
get settings:
 11ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 203ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 235ms
total:  529ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]