Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Преобразование формулы в текст
 
#1
15.03.2008 19:01:57
Ребята, а вы не подскажете, как мне из формулы сделать текстовое значение? Иными словами в ячейку А3 забито =А1+А2, что дает результат например 5. Мне же нужна формула, которая, ссылаясь на ячейку А3 выдавала бы результат "А1+А2" (тестом).
 
 
 
#2
15.03.2008 19:08:38
Сумма прописью?
 
 
 
#3
15.03.2008 20:01:55
Не понял вопроса. Какая сумма? При чем тут пропись?  
 
Да, только сейчас обнаружил опечатку - последнее слово в моем прошлом посте - не "тестом", а "текстом", естественно :)
 
 
 
#4
15.03.2008 20:17:59
Просто очень часто в бухгалтерии необходимо число - прописью. Если это денежные единицы, в файле.  
ЗЫ по учету рабочего времени  не Ваш вопрос был? Посторался что-то сделать.
 
 
 
#5
15.03.2008 21:08:59
Не не не... К сумме прописью это не имеет отношения. Постарался описать точнее в файле.
 
 
 
#6
15.03.2008 21:24:04
Igor, ему просто нужно в какой-либо ячейке получить текст, который отображается в строке формул для ячейки А3. Так я понял суть его вопроса.
 
 
 
#7
15.03.2008 21:59:18
это решается простой пользовательской функцией
 
 
 
#8
15.03.2008 23:52:21
Лузер  
Буду вам очень благодарен, если вы скажете, как эту функцию написать.
 
 
 
#9
16.03.2008 05:48:53
Не думаю, что эту задачу можно решить простой пользовательской функцией. У меня такое впечатление, что и непростой пользовательской функцией эта задача не решается. Во всяком случае, я не смог этого сделать.  
А вот макросом это возможно. Посмотрите прикрепленный файл.  
С уважением, Александр.
 
 
 
#10
16.03.2008 09:41:30
{quote}{login=Sh_Alex}{date=16.03.2008 05:48}{thema=Преобразование формулы в текст}{post}Не думаю, что эту задачу можно решить простой пользовательской функцией. У меня такое впечатление, что и непростой пользовательской функцией эта задача не решается. Во всяком случае, я не смог этого сделать.  
А вот макросом это возможно. Посмотрите прикрепленный файл.  
С уважением, Александр.{/post}{/quote}Александр, еще одного шага Вам не хватило для функции.  
Function TextFormula(MyFormula As Range) As String  
If MyFormula.Count > 1 Then Exit Function  
If Left(MyFormula.FormulaLocal, 1) = "=" Then TextFormula = Mid(MyFormula.FormulaLocal, 2)  
End Function
 
 
 
#11
16.03.2008 12:59:50
как=то у меня гораздо проще получилось:  
 
Function TextFormula(r As Range) As String  
TextFormula = ""  
If r.Value <> "" Then TextFormula = r.Formula  
End Function
 
 
 
#12
16.03.2008 13:03:11
{quote}{login=kaa}{date=16.03.2008 12:59}{thema=}{post}как=то у меня гораздо проще получилось:  
 
Function TextFormula(r As Range) As String  
TextFormula = ""  
If r.Value <> "" Then TextFormula = r.Formula  
End Function{/post}{/quote}  
 
сорри, вот так надежнее:  
Function TextFormula(r As Range) As String  
TextFormula = ""  
If r.HasFormula Then TextFormula = r.Formula  
End Function
 
 
 
#13
16.03.2008 13:53:38
да, так изящнее. Только я бы все равно проверял,  ранге какого размера выделил юзер при вводе формулы. И человек просил без знака =, так что без mid или replace не обойтись
 
 
 
#14
16.03.2008 16:15:31
To kaa, возвращает формулу ВБА, добавил локал, после нормально на русской а не аглицкой мове.
 
 
 
#15
16.03.2008 16:50:49
По первой части вопроса понял, погорячился, был не прав не проинтуичил.  
По второй - со временем Ваш пост был?
 
 
 
#16
16.03.2008 16:52:37
{quote}{login=Лузер}{date=16.03.2008 01:53}{thema=}{post}да, так изящнее. Только я бы все равно проверял,  ранге какого размера выделил юзер при вводе формулы. И человек просил без знака =, так что без mid или replace не обойтись{/post}{/quote}  
 
согласен
 
 
 
#17
17.03.2008 16:45:39
Аффигеть! Спасибо большое!  
Как все оказывается просто! А я с час копался в хелпе, пытаясь выудить, какое же свойство отвечает за формулу - так нифига и  не нашел. Решил обратиться к специалистам. Правильно сделал! )  
 
Кстати, в связи с этим оффтопный вопрос. Кто-нибудь знает сайт или книгу, где были бы простым перечислением написаны операторы VBA. Ну что то типа: Объект Range, свойства -... И такая же фигня с функциями - все функции, что они делают, синтаксис.  
 
2 Igor67  
Нет, это был не я. Я другой юзер.
 
 
 
#18
17.03.2008 21:07:36
ZVI, как - то отвечал про толковую литературу. В файле посмотри.    
Первую из названных купил. Теперь изучаю, читается легко, интересно, правда потом пальцы путаются, когда сам пытаешься делать.
 
 
 
#19
01.12.2009 15:57:36
а вот другой вопрос специалистом  
как показать саму формулу, т.е. в тексте и с подстановкой значений  
например  
А1: 10  
А2: 20  
А3: =А1+А2  
А4: =10+20
 
 
 
#20
01.12.2009 16:03:00
=10&"+"&20  
Или объясните "специалистОм" хитрее :)
 
 
 
Страницы: 1
Читают тему
Наверх