[Импорт] Вопросы по Excel :-))

[shikin]

Цитата: Сообщение от PALY а если просто перед первой цифрой поставить A1"= 850+45-300" и в командной строке видиш все составляющие, а в ячейке результат. Так не устраивает?

Пали, я знаю такой метод через знак "=", но к сожалению он неуместен. у меня в документе во всех строках есть еще над строки, в которых я подписываю дату совершения каждой операции. При распечатке на принтере скрытое не будет видным.
Я очень хочу чтобы была видна ячейка А1 с содержимым.

[zss]

Нашел один интересный способ:
=FORMULA(A1)
Естественно, в ячейке А1 должно быть записано Ваше выражение со знаком равно
= 850+45-300
тогда в А1 будет видно
595
а в ячейке, где записано =FORMULA(A1), будет видно
= 850+45-300

[sskkru]

zss, а о какой версии Еxcel идет речь? В Еxcel 2000, например, такой функции нет

[shikin]

Цитата: Сообщение от zss Нашел один интересный способ: =FORMULA(A1) Естественно, в ячейке А1 должно быть записано Ваше выражение со знаком равно = 850+45-300 тогда в А1 будет видно 595 а в ячейке, где записано =FORMULA(A1), будет видно = 850+45-300

zss, я попробовал Ваш метод на версиях 2003 и ХР, в ячейке А1, как вы и сказали, произошел подсчет, но в В1 у меня только написалось слово #ИМЯ?
Помогите, пожалуйста, может я что-то криворука делаю.
Заранее спасибо огромнейшее, что подсказываете.

[sevenup]

1) Столбец А - формулы, Стоблец В - пусто
2) Запустить редактор мактосов Alt+F11
3) написать следующий код в документе "ЭтотДокумент":

Sub DoIt()
i = 1
While Cells(i, 1) <> ""
Cells(i, 2).Formula = "=" + Cells(i, 1)
i = i + 1
Wend
End Sub

4) Редактор можно закрыть
5) Командой Alt+F8 запустить этот макрос на выполнение из Excel

Работает, начиная с версии 97.

[shikin]

Цитата: Сообщение от sevenup 1) Столбец А - формулы, Стоблец В - пусто 2) Запустить редактор мактосов Alt+F11 3) написать следующий код в документе "ЭтотДокумент": Sub DoIt() i = 1 While Cells(i, 1) <> "" Cells(i, 2).Formula = "=" + Cells(i, 1) i = i + 1 Wend End Sub 4) Редактор можно закрыть 5) Командой Alt+F8 запустить этот макрос на выполнение из Excel Работает, начиная с версии 97.

Классс!!! Вы лучшие из лучших ребят. Большой вам спасибо. Все работает, как я хотел. Теперь документооборот дома пойдет гораздо быстрее.
Всетаки я недаром боролся месяц назад (ориентировочно) за право побывать на форуме.
Большой вам Респект! Так держать! Я вас лаф!

Добавлено через 1 час 27 минут
Извините пожалуйста, за мою наивность. Разрешите еще , задать вопрос, относящийся к эксель. Я переделал код в такой вид:
Sub DoIt()
i = 5
While Cells(i, 4) <> ""
Cells(i, 19).Formula = "=" + Cells(i, 4)
i = i + 2
Wend
End Sub

Подскажите пожалуйста, как можно организовать что бы скрипт понимал где пустая ячейка то ее пропускать, а также распознать если в ячейке одно число то просто его переносить?
Скрипт, работает-то. НО немножко бы подкорректировать.
Ответьте пожалуйста, извини что пристаю с глупым вопросом. Я вам очень благодарен за то что начал excel делать почти то что я захотел автоматизировать.

[shikin]

Доброго времени суток, высоко уважаемые программисты!
Помогите пожалуйста решить проблемму, в ячейке(А1) MS EXCEL имееться: "550+100-90=560-"
1)При редактировании А1 содержимое изменить на "550+100-90-"
После редактирования результат должен подбиться в А1.
2)При вводе промежуточного знака "=", проверить правельно ли мы расчитали. В слачает правельности - позволить произвести ввод в ячейку до слудующего знака "=" или до выхода на другую ячейку
3)В ячейке А(i+1) вывести суммирующий результат
Дайте пожалуйста скрипт или инструкцию может эксель по простому сделает это

[michanya]

Правильно поставленный вопрос - половина ответа. Если надо сложить чиселки то лучше калькулятора ничего нет. Если речь о переменных то в А1 помещаем первую, в В1 вторую, C1 третью и т.д. А в F1 (или любой другой удобной ячейке) можно написать

=СУММ(А1:C1) будет суммировать содержимое ячеек А1,B1,C1. Проверять правильность сложения не стоит-люди чаще ошибаются в постановке задачи чем машины в ее выполнении. Можно и так
=СУММ(А1:C1)-D1-E1 если нужно вычесть содержимое ячеек D1,E1.

[shikin]

Я этот способ подсчета знаю, но к сожалению, на практике он непригоден из-за того что суммируется и/или вычитается средне статистически 6-8 значений. На А4 не разместить поячеечно, приходиться использовать вариант: одна ячейка - это вся строка. Подскажите пожалуйста, очень надо для дома(вернее хочу доказать папе что я не зря учусь в универе)
Я положил рисунок сюда

Подскажите пожалуйста, как автоматизировать. Или такого вида данные не автоматизируються как я задумал?

[Zhlobny Hmur]

shikin, Поставь сперва задачу, а не твое видение ее решения. Имаче мы ищем черную кошку в темной комнате.

[shikin]

Странно я рисунок прикреплял вчера, а он не отобразился сегодня. Вот ссылка на данные, с которыми я работаю повседневно http://shikin.od.ua/Dubki.JPG
_http://shikin.od.ua/Dubki.JPG
В столбце D у меня есть ячейки. Как сделать чтобы при вводе в D13 excel реагировал?
1500+90=1590-600=990-500=490-
Под словом реагировал я имею, введу, значения “=1590”, “=990”. Проверить расчёт: 1500+90, равна ли сумма 1590 и 1590-600 равно ли 990?
Если я забуду сам вписать результат, т.е оставлю так
1500+90=1590-600=990-500- или так
1500+90-600-500- или так
1500+90-600-500, то чтобы excel заменил на
1500+90-600-500=490-
Ответьте пожалуйста, можно такое сделать и как?

[michanya]

Особенность программы EXEL в том что она работает с содержимым ячеек. Реакцией программы на ввод в ячейку числа будет изменение содержимого в другой ячейке. Поэтому вводить данные надо именно в ячейки. Можно ввести 1500 в D13, 90 в D14, а в D15 =СУММ(D13:D14). Если ввести все правильно то в D15 появится желаемое 1590. Можно в D16 ввести 600 а в D17 =(D15-D16)
и будет там желаемое 990. По моему мнению все это
совершенно бессмысленно, но работать будет.

[shikin]

У меня веть не статическая формула. Вы посмотрите нат тип данных по ссылке на рисунке, с которыми я работаю

[zss]

Всё это сделать реально с помощью VB Макроса.
Я с Visual Basic общаюсь мало, но примерно это должно выглядеть так:

Цитата: Private Sub Worksheet_Activate() ' Событийная Процедура Активация текущего листа With Worksheets("Лист1") A1 = Range("A1").Value ' Содержимое ячейки A1 EqPos = InStr(1, A1, "=", 1) ' Найти знак равно A2 = Mid(A1, EqPos, Len(A1)) ' Выделить часть, которая после равно Range("A2").Formula = A2 ' Занести в другую ячейку как формулу End With End Sub

[michanya]

И я и EXEL воспринимаем все это просто как набор симво
лов. В ячейки можно вводить любые буквы и цифры - про
грамма просто отображает все введенное и не будет делать
ничего, кроме того что ей будет прямо указано. На панели
инструментов есть кнопка [ f ] - самый простой способ за-
ставить программу что-то сделать это использовать залож-
енные в нее функции.К каждой функции есть понятное
описание -можно подобрать оптимальный набор для выпол
нения любой задачи.