Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отформатировать чичло как число / 6 сообщений из 6, страница 1 из 1
11.03.2010, 10:25
    #36513260
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
Подскажите, вот выгружает из базы часть записей отформатированные как текст. В левом углу
в таких ячейках зеленый треугольничек. Как с этим справиться программно. В свойствах
ячеек - числовой формат, но чтобы перевести надо щелкать по этим ячейкам.
И от чего эта выгрузка такая зависит...Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2010, 10:30
    #36513273
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
Копировать единицу (или "0"), выделить диапазон. Правка-Спецвставка-Операция-Умножить (или Сложить)-ОК
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2010, 10:48
    #36513335
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
спасибо большое...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2010, 11:34
    #36513483
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
а вот макросом не хочет...руками пожалуста

Sub Форматирование_числа()
'
' Форматирование_числа Макрос
'

'
Range("F2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Range("F2").Select
Selection.Copy
Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("F2").Select


End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2010, 11:37
    #36513499
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
Piter_,
выделяете нужный диапазон и запускаете макрос

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub p()
    Dim cell As Range
    For Each cell In Selection
        If IsNumeric(cell) Then
            cell = Val(cell)
        End If
    Next cell
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2010, 11:43
    #36513525
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отформатировать чичло как число
спасибо, так работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отформатировать чичло как число / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 534ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178379]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 189ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 249ms
total:  534ms
x
x
Закрыть


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