Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Как найти сумму переменных?


Автор: Thriller 22.11.2004, 13:09
Народ!
Проблема такая.
Дано: таблица, в которой на ряду с числами стоят и символьные выражения:


| 2 | 3 | 5y | 1 | 3 | 5y | 4 | сумма |

Найти: сумму 5y+5y=10y
Как?

Автор: Mrak 23.11.2004, 07:50
В принципе что-то похожее на мой вариант. Взгляни сюда http://forum.vingrad.ru/index.php?showtopic=34007

Автор: Akina 23.11.2004, 13:36
Цитата
Найти: сумму 5y+5y=10y
Как?

Вообще это никакой логике не поддается. Получается что каждая запись у тебя является на самом деле структурой, состоящей из чисельной и текстовой компоненты, ты складываешь чисельные компоненты тех записей, у которых текстовая компонента совпадает.

отсюда решение - парсить на компоненты, групповать и считать сумму.

Автор: Staruha 26.11.2004, 13:35
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d As Integer
Range("A2").Value = ""
d = UsedRange.Columns.Count

For r = 1 To d
If Cells(1, r).Value = "5y" Then
Range("A2").Value = Range("A2").Value + Left((Cells(1, r).Value), 1)

End If
Next r
Range("A2").Value = Range("A2").Value & "Y"
End Sub

конкретно для 5y

Автор: cardinal 29.11.2004, 00:19
Эх, Старуха, ну когда же ты будешь сдвиги делать в своем коде... smile

Автор: Гость_Старуха 29.11.2004, 09:29
Исправлюся

Автор: Cashey 30.11.2004, 01:22
Так, народ, кончай флудить, мне голос вернули smile
Добавлено @ 01:23
Старуха от меня лично - ты молодец smile

Автор: Гость_Старуха 30.11.2004, 09:50
Спасибо! И Vitу спасибо.
Вы наверно видите какая петрушка с моей регистрацией творится. Раньше я выходила через центральный комп и там все нормально. А сейчас у меня свой выход через сеть. На первую страницу захожу как старуха , а потом все сбрасывается.

Автор: cardinal 30.11.2004, 15:34
А может поопробовать сделать cookie каким-нибудь системным, скрытым или архивным файлом как только залогинишься?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)