Проблема с формулами

[Павел_В]

Пишу вот такую байду.

Sh.Range("$A$1").Formula = "=FUNC(" & Sh.Range("$A$2").Value & ", A4,A5)"

FUNC = это моя функция (к примеру склеивает три числа)

Так вот когда это простые числа или тект, то все ок, но если если это дробные числа, напрмер - 1,5.
То Excel понимает 1,5 как два параметра, т.е. вобщем получается 4 (так как запись в таком случае идет через знак ","), в чем прикол, помогите вывернуться.

[Павел_В]

Неужели никто не знает, такого быть не может, помогите плиз !!!

[uhm]

Обычная проблема с разделителем целой и дробной части числа.

Если ты напишешь так:

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

Replace(Sh.Range("$A$2").Value, ",", ".")


вместо просто Sh.Range("$A$2").Value, у тебя, скорее всего, все заработает. Это, впрочем, не совсем корректно, поскольку в региональных настройках разделителем может быть не запятая, а что-то еще. Про то, как определить этот разделитель совсем правильно, обсуждалось здесь:

http://bbs.vbstreets.ru/viewtopic.php?t=18126

[Vitaly1]

Текст твоей функции, плиз!

[uhm]

Не-е, там дело не в тексте функции. После выполнения того макроса, который был в исходном сообщении, в ячейке будет написано

=FUNC(1;5; A4;A5)

вместо

=FUNC(1,5; A4;A5)

[Vitaly1]

Я имел ввиду код функции!..

Sh.Range("$A$1").Formula = "=FUNC(" & Sh.Range("$A$2").text & "; A4;A5)"

или так
Sh.Range("$A$1").value = "=FUNC(" & Sh.Range("$A$2").text & "; A4;A5)"

и вообще, зачем там вместо точек с запятой ";" запятые ","!

[sergeyvg]

сильно не думая, предлагаю так:)
Sh.Range("$A$1").Formula = "=FUNC(""" & Sh.Range("$A$2").Value & """, A4,A5)"

[Павел_В]

sergeyvg Добавлено: 12.09.2005 (Пн) 15:39 Заголовок сообщения:

--------------------------------------------------------------------------------

сильно не думая, предлагаю так:)
Sh.Range("$A$1").Formula = "=FUNC(""" & Sh.Range("$A$2").Value & """, A4,A5)"




Но в этом случае, все чтобы ты не написал будет восприниматься в текстовом формате, а это не правильно.

[Павел_В]

Я имел ввиду код функции!..
Sh.Range("$A$1").Formula = "=FUNC(" & Sh.Range("$A$2").text & "; A4;A5)"
или так
Sh.Range("$A$1").value = "=FUNC(" & Sh.Range("$A$2").text & "; A4;A5)"
и вообще, зачем там вместо точек с запятой ";" запятые ","!

А в этом случае вообще работать не будет, так как передача параметров в функцию идет через запятые........