Помогите решить простую задачу - Microsoft Office Excel

asercbr123 · 09.12.2008, 01:22

Привет всем!! Прошу вашей помощи в решении задачи для первого класса!! Пример: Есть столбец со значениями, Первая ячейка 1/0, Вторая ячейка 2/0, Третья ячейка 6/0, нада каким-то образом в какойто ячеке посчитать сумму чисел до знака "/", тоесть 1,2 и 6., большое спасибо запомощ.

IgorGO · 09.12.2008, 03:31

Не, в первом классе таких задач не решают.
Задача поставлена несколько смутно. (решение аналогичное)
Предполагаю, что данные начинаются с первой строки.
тогда в любой ячейке правее колонки с данными пишем:

Код:

=СУММПРОИЗВ(ЗНАЧЕН(ЛЕВСИМВ(R1C[-1]:RC[-1];ПОИСК("/";R1C[-1]:RC[-1])-1))*1)

формула посчитает сумму чисел до знака "/", в столбце левее от первой ячейки до текущей строки (включительно).

Sasha_Smirnov · 09.12.2008, 04:10

Sub SelectsFirstColumnsAndPrintsValue()
'печатает сумму чисел (стоящих в том числе и перед слэшем)
'в ячейках 1-х столбцов всех таблиц файла (при N запусках)
'(где N — количество таблиц в файле)

Static TableNumber: TableNumber = TableNumber + 1
Dim strok As Integer, i As Integer, sum As Single

With Selection

If ActiveDocument.Tables.Count >= TableNumber Then
Selection.GoTo What:=wdGoToTable, Count:=TableNumber
.SelectColumn
strok = .Cells.Count
MsgBox "В этой таблице столько строк: " & strok
.HomeKey 'лезем в первую строку

For i = 1 To strok
.HomeKey
SendKeys "+{END}", True ' выделение ячейки (как нажать шифт-End)
sum = sum + Val(.Text) 'сумма искомых чисел в ячейках 1-й колонки
.HomeKey
.MoveDown
Next i

.EndKey wdStory 'печатать будем в конце файла

.TypeText "Сумма 1-го столбца таблицы № " & _
TableNumber & " (кроме чисел после / и ,) равна " & sum & "." & vbCr
Else
MsgBox "Нет больше таблиц Word/Excel в '" & ActiveDocument & "'."
End If

End With
End Sub

'Эта программа (VBA-приложение для Word), при каждом
'своем выполнении, выделяет в документе Word первый столбец
'очередной таблицы (пока таблицы не кончатся).
'Формат таблиц: Word либо Excel ("внедренная").
'При этом - печатает сумму 1-го столбца очередной таблицы.
'К сожаленью, не в ячейке - а ПОД таблицами. Так проще!

asercbr123 · 09.12.2008, 10:16

Хотб задача была поставлена и смутно, и ответ дан тож смутно, но главное ответ направил мозг в нужном направлении.., пспасибо большое всё получилось!!!

Sasha_Smirnov · 11.12.2008, 13:25

Не за что! Моя версия таблиц Excel не видит, как оказалось.

09.12.2008, 01:22	#1
asercbr123 Новичок Джуниор Регистрация: 09.12.2008 Сообщений: 2	Помогите решить простую задачу Привет всем!! Прошу вашей помощи в решении задачи для первого класса!! Пример: Есть столбец со значениями, Первая ячейка 1/0, Вторая ячейка 2/0, Третья ячейка 6/0, нада каким-то образом в какойто ячеке посчитать сумму чисел до знака "/", тоесть 1,2 и 6., большое спасибо запомощ.

09.12.2008, 03:31	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Не, в первом классе таких задач не решают. Задача поставлена несколько смутно. (решение аналогичное) Предполагаю, что данные начинаются с первой строки. тогда в любой ячейке правее колонки с данными пишем: Код: `=СУММПРОИЗВ(ЗНАЧЕН(ЛЕВСИМВ(R1C[-1]:RC[-1];ПОИСК("/";R1C[-1]:RC[-1])-1))*1)` формула посчитает сумму чисел до знака "/", в столбце левее от первой ячейки до текущей строки (включительно). Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

09.12.2008, 04:10	#3
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	А для Word’а вот так (может, пригодится?) Sub SelectsFirstColumnsAndPrintsValue() 'печатает сумму чисел (стоящих в том числе и перед слэшем) 'в ячейках 1-х столбцов всех таблиц файла (при N запусках) '(где N — количество таблиц в файле) Static TableNumber: TableNumber = TableNumber + 1 Dim strok As Integer, i As Integer, sum As Single With Selection If ActiveDocument.Tables.Count >= TableNumber Then Selection.GoTo What:=wdGoToTable, Count:=TableNumber .SelectColumn strok = .Cells.Count MsgBox "В этой таблице столько строк: " & strok .HomeKey 'лезем в первую строку For i = 1 To strok .HomeKey SendKeys "+{END}", True ' выделение ячейки (как нажать шифт-End) sum = sum + Val(.Text) 'сумма искомых чисел в ячейках 1-й колонки .HomeKey .MoveDown Next i .EndKey wdStory 'печатать будем в конце файла .TypeText "Сумма 1-го столбца таблицы № " & _ TableNumber & " (кроме чисел после / и ,) равна " & sum & "." & vbCr Else MsgBox "Нет больше таблиц Word/Excel в '" & ActiveDocument & "'." End If End With End Sub 'Эта программа (VBA-приложение для Word), при каждом 'своем выполнении, выделяет в документе Word первый столбец 'очередной таблицы (пока таблицы не кончатся). 'Формат таблиц: Word либо Excel ("внедренная"). 'При этом - печатает сумму 1-го столбца очередной таблицы. 'К сожаленью, не в ячейке - а ПОД таблицами. Так проще! Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html Последний раз редактировалось Sasha_Smirnov; 09.12.2008 в 07:55. Причина: перенос печати в конец файла.

11.12.2008, 13:25	#5
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Не за что! Моя версия таблиц Excel не видит, как оказалось. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
BORLAND C++, решил простую задачу с функцией, кажеца что-то не так.	Graf Xandr	Помощь студентам	2	06.12.2008 19:57
Помогите решить задачу по С++	dosinho	Помощь студентам	1	29.11.2008 13:33
Помогите решить задачу	Witaliy	Паскаль, Turbo Pascal, PascalABC.NET	2	24.11.2008 18:21
Помогите решить простую задачу	Teh	Общие вопросы Delphi	4	24.04.2008 07:37
Помогите решить простую задачу по C++	steal13	Общие вопросы C/C++	6	03.01.2008 09:40

09.12.2008, 10:16	#4
asercbr123 Новичок Джуниор Регистрация: 09.12.2008 Сообщений: 2	Хотб задача была поставлена и смутно, и ответ дан тож смутно, но главное ответ направил мозг в нужном направлении.., пспасибо большое всё получилось!!!