[Alma3]

Доброго времени суток, уважаемые форумчане! Вот тут столкнулся с проблемкой... Как в экселе формулы писать это понятно, а можно ли как-нибудь сделать так, чтобы в ячейке, кроме ответа появлялось ещё и решение! Вот допустим простой пример: в ячейку А1 вводим длину, в ячейку А2 - ширину, а в ячейку А3 вводим "=А1*А2", т.е. он покажет значение площади в числах! А можно ли как-нибудь получить результат в виде формулы, т.е. допустим длина и ширина по 1м, вводим эти данные, и необходимо, чтобы вместо 1м., програмка писала 1*1=1...? Возможно ли это? Есть ли какая-0нить команда Экселя, которая отображает формулы, причем чтобы не номером ячейки, а именно ее значением? Спаисбо за внимание! Заранее благодарен!

[Selkoff]

Русский лень, бессмысленный и беспощадный )

p.s. осваивайте MathCAD

Сообщение от Alma3 Есть ли какая-0нить команда Экселя, которая отображает формулы, причем чтобы не номером ячейки, а именно ее значением?

Вуаля!

[RrRR]

http://forum.dwg.ru/showthread.php?t=13590

[Alma3]

всем большое спаисбо за ответы! =)

p.s. осваивайте MathCAD

А он лучше экселя?

И ещё вопрос: Можно ли каким-нибудь образом вставлять формулы из mathtype 5 в эксель? Чтобы они вставлялись не картинкой, а или формулой, или по ячейкам втыкалися?
P.S. сорри, если подобный вопрос уже был...

[Selkoff]

Сообщение от Alma3 А он лучше экселя?

У меня нет однозначного ответа на этот вопрос.

[KronSerg]

Сообщение от AlphaGeo Вуаля!

А на кой сцепить-то сделано, всё получится, если после "=" оставить выражение в скобках.

Сообщение от KronSerg А на кой сцепить-то сделано, всё получится, если после "=" оставить выражение в скобках.

Тогда вот так...

[Кулик Алексей aka kpblc]

Что-то стандартной функции получения формулы я не нашел, поэтому могу предложить только

Код:

[Выделить все]

Public Function GetCellFormula(Adress As Range) As String
  GetCellFormula = Adress.Formula
End Function

P.S. Это без разбора - какая ячейка какое значение имеет... Такой парсер мне не по силам

[KronSerg]

Сообщение от Кулик Алексей aka kpblc P.S. Это без разбора - какая ячейка какое значение имеет... Такой парсер мне не по силам

Как то так?

Код:

[Выделить все]

Public Function GetCellFormula(Adress As Range) As String
Dim ch(1 To 2000) As String
Dim str, adr As String
Dim n, i, j As Byte
str = Adress.Formula
j = Len(str)
  For i = 1 To j
  ch(i) = Mid(str, i, 1)
   Next i
   str = ""
For i = 1 To j
adr = ""
If (Asc(ch(i)) < 91 And AscW(ch(i)) > 64) Or Asc(ch(i)) = 36 Then
adr = ch(i)
For k = i + 1 To i + 7
If k > j Then Exit For
n = Asc(ch(k))
If (n < 48 Or (n > 57 And n < 65) Or n > 90) And n <> 36 Then Exit For
adr = adr + ch(k)
Next k
ch(i) = Range(adr).Value
End If
str = str + ch(i)
If adr <> "" Then i = k - 1
Next i
GetCellFormula = str + "=" + Format(Adress.Value)
End Function

Правда работает только на простые операции в формуле.

[Кулик Алексей aka kpblc]

KronSerg, я твой код не проверял, но тем не менее: как будет разобрана, например, такая формула:

Код:

[Выделить все]

=ЕСЛИ(ЕОШИБКА(ПОИСК("ОСВЕ";ПРОПИСН(Лист3!$A$1);2));ЛОЖЬ;ИНДЕКС(Dat!$A$1:$B$9;ПОИСКПОЗ(A$3;Dat!$A$1:$A$9;0);B2))

[KronSerg]

Работает только на простые операции, с функциями решил не заморачиваться, да и твой вариант выдаст мало понятное

Код:

[Выделить все]

=IF(ISERROR(SEARCH("ОСВЕ",UPPER(Лист3!$A$1),2)),FALSE,INDEX(Dat!$A$1:$B$9,MATCH(A$3,Dat!$A$1:$A$9,0),B2))

Решил что цифры понимания происходящему не добавят
Да, признаю про $ не подумал , если надо поправлю.

[dimak]

В ячейке А1 = 1
В ячейке B1 = *
В ячейке C1 = 1
В ячейке D1 = =
В ячейке E1 = =(A1*C1)
В ячейке F1 = =СЦЕПИТЬ(A1;B1;C1;D1;E1)

Сообщение от dimak В ячейке А1 = 1 В ячейке B1 = * В ячейке C1 = 1 В ячейке D1 = = В ячейке E1 = =(A1*C1) В ячейке F1 = =СЦЕПИТЬ(A1;B1;C1;D1;E1)

Баян, однако!

[Alma3]

Всем огромное спасибо за ответы! =)
Буду пробовать делать!

[KronSerg]

Дописал пару строк:

Код:

[Выделить все]

Public Function GetCellFormula(Adress As Range) As String
Dim ch(1 To 22000) As String
Dim str, adr As String
Dim n, i, j, k As Integer
Application.Volatile
str = Adress.Formula
j = Len(str)
  For i = 1 To j
  ch(i) = Mid(str, i, 1)
   Next i
   str = ""
For i = 1 To j
adr = ""
n = AscW(ch(i))
If (n < 91 And n > 64) Or n = 36 Or n > 191 Then
adr = ch(i)
For k = i + 1 To i + 30
If k > j Then Exit For
n = Asc(ch(k))
If (n < 48 Or (n > 58 And n < 65) Or (n > 90 And n < 97) Or (n > 122 And n < 192)) And n <> 36 And n <> 33 Then Exit For
adr = adr + ch(k)
Next k
On Error Resume Next
ch(i) = Range(adr).Value
If Err.Number <> 0 Then ch(i) = adr
Err.Clear
On Error GoTo 0
 End If
str = str + ch(i)
If adr <> "" Then i = k - 1
Next i
GetCellFormula = str + "=" + Adress.Text
End Function

теперь на тест

Код:

[Выделить все]

=ЕСЛИ(ЕОШИБКА(ПОИСК("ОСВЕ";ПРОПИСН(Лист3!$A$1);2));ЛОЖЬ;ИНДЕКС(Dat!$A$1:$B$9;ПОИСКПОЗ(A$3;Dat!$A$1:$A$9;0);B2))

получаем

Код:

[Выделить все]

=IF(ISERROR(SEARCH("ОСВЕ",UPPER(15),2)),FALSE,INDEX(45:1,MATCH(21,45:5,0),1))=ЛОЖЬ

Как сделать названия формул русскими пусть думают другие.
Да, не идеально, но нет времени дорабатывать.