VBNet - Форум - проткнуть ячейки

Вопрос: проткнуть ячейки Добавлено: 29.04.11 17:01

Автор вопроса: mattiasrem

Доброго дня, коллеги.
Прошу вашей помощи. Есть макрос, который позволяет протыкать ячейки (чтобы после форматирования в тектовй режим вручную е приходилось протыкать диапазон)
Вот он:

Dim temp As String
Dim MyRange As Range
Dim cell As Range

On Error Resume Next
Set MyRange = Application.InputBox("Choose the range", "ask u", Selection.Address, Type:=8)

If Err.Number <> 0 Then
MsgBox ("Ne vveli diapazon")
Exit Sub
End If

For Each cell In MyRange

temp = cell.Formula
cell.Formula = temp

Next cell

Вопрос вот в чем? Как пробежаться по ячейкам, если тип их не текстовый, а CURRENCY.

Макрос

Dim temp As Currency
Dim MyRange As Range
Dim cell As Range

On Error Resume Next
Set MyRange = Application.InputBox("Choose the range", "ask u", Selection.Address, Type:=8)

If Err.Number <> 0 Then
MsgBox ("ne vveli ni4ego")
Exit Sub
End If

For Each cell In MyRange

temp = cell.Formula
cell.Formula = temp

Next cell

Превращает все поля диапазона в нули...БОЛЬШОЕ спасибо.
Путаюсь методом проб и ошибок постичь офисное VBA.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: acm Вопросов: 0 Ответов: 3	Web-сайт: umedjon.ucoz.ru Профиль \| \| #1	Добавлено: 01.05.11 11:44
	кто может помочь ?? Ответить

Номер ответа: 2 Автор ответа: xank92 Вопросов: 0 Ответов: 1	Web-сайт: http://s-bike.ru/ Профиль \| \| #2	Добавлено: 01.05.11 15:04
	Прости, не в курсе Ответить

Номер ответа: 3 Автор ответа: smgog Вопросов: 0 Ответов: 2	Web-сайт: http://true-style.ru/ Профиль \| \| #3	Добавлено: 01.05.11 22:16
	Вообще не понял о чем речь идет =( Ответить

Номер ответа: 4 Автор ответа: mattiasrem Вопросов: 3 Ответов: 2	Профиль \| \| #4	Добавлено: 10.05.11 11:31
	Большое вам спасибо, ребята. Ответить

Страница: 1 |