Тип переменной в экселе

[Calvin]

Здраствуйте, уважаемые!
Стопорнулся я на элементарщине, но факт!
Допустим, мне нужно взять значение какой-либо ячейки и в ней же это значение применить преобразовав в формулу.

Код: Выделить всё

range("a1").formula="=" & range("a1").value & "*25"


но проблема в том, что если значение ячейки изначально нецелое число, то во время преобразования в формулу выдается ошибка, так как компилятор не воспринимает значение "4,25". Ему нужно "4.25". И чего то я не могу эту запятую убрать при помощи FORMAT или Csng. Если тупо заменить, то можно. Но меня интересует, можно ли это сделать функцией.

[GSerg]

range("a1").formulalocal = ...

[Calvin]

Код: Выделить всё

Range("H60").FormulaLocal = "=" & Range("H60").Value & "*1.2"


не работает....ругается, если нецелое число

[GSerg]

Юзать моск полезно и правильно.
formulalocal принимает формулу в стандарте текущей системной локали. Но до тех пор, пока автор использует неявное преобразование типов, работать ничего, естественно, не будет.

[Calvin]

честно говоря нифига не понял

вот нашел вариант

Код: Выделить всё

Range("H60").Formula = "="  &  Replace(Range("H60").Value, ",", ".") & "*1.2"


[GSerg]

Calvin
Скажи честно, тебе известна разница между числом и строковым представлением числа?..

[Nicky]

Range("H60").FormulaLocal = "=" & Range("H60").Value & "*" & 1.2

[Calvin]

GSerg

известно (я в принципе из-за этого и написал, просто сформулировал не так как ты)...я просто не понял, что ты изначально имел ввиду
а вообще мне кажется это "глюк" ВБА

Nicky спасибо, буду знать

а чем отличается (конкретно) FormulaLocal от Formula?....принцип то понятен

[GSerg]

А мне кажется, что это не глюк VBA. Наоборот, всё совершенно корректно.
А чем отличается - выше по топику посмотри.

[Calvin]

GSerg
если бы мне было все понятно, я б не переспрашивал....

[GSerg]

formulalocal принимает формулу в стандарте текущей системной локали.