Округление и вывод суммы

@arskat5 · Регистрация: 18.06.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Недавно на досуге собрал лёгкую таблицу, по выводу результата футбольного матча.
Всё вроде сделал уже, осталось совсем ничего.

1) Нужно чтобы появлялись нужные цифры, и суммировалось то что появилось.
2) Сложенная сумма (итог), выводилось в округлённом виде, в другой ячейке.

Может кто поможет: советом или хоть чем нибудь?
Для Вас я думаю это не проблема, Вы тут делаете намного сложнее вещи.

@Sasha_Smirnov · 03.05.2015, 01:19

arskat5, чужие вещи всегда сложнее!

Вы бы кроме картинки и саму вещь выложили.

Сообщение от arskat5

В Эксели.

@arskat5 · 03.05.2015, 01:23 **[ТС]**

Вот сам файл
(прикрепил)

@arskat5 · 03.05.2015, 01:41 **[ТС]**

Или может хотя бы скажете, как назначить какой либо ячейке, чтобы сумма если меньше 6,5 - то появлялось бы 0,5
а если больше 6,5 - чтобы появлялось 0.
Тесть не мотодом сложения, а просто появлялось та цифра, которая конкретно нужна. Как сделать чтобы ячейки загорались, при больше/меньше какого то числа я сделал, но вот как сделать тоже самое, но чтобы число 0,5 то появлялось, то нет (при вводе больше или меньше)?

@chumich · 03.05.2015, 02:10

Это если ориентироваться на цвет ячеек над флажками, я так понял, что они соответствуют цвету флажков. Но, лучше этот цвет задавать не условным форматированием, а через макрос.

Visual Basic

For i = 2 To 10
    If Лист1.Cells(37, i).Interior.ColorIndex = 14 Then Лист1.Cells(36, i) = 0.5
    If Лист1.Cells(37, i).Interior.ColorIndex = 3 Then Лист1.Cells(36, i) = 0
Next i
For i = 13 To 21
    If Лист1.Cells(37, i).Interior.ColorIndex = 14 Then Лист1.Cells(36, i) = 0.5
    If Лист1.Cells(37, i).Interior.ColorIndex = 3 Then Лист1.Cells(36, i) = 0
Next i

Если ориентироваться на значение в ячейке, то вместо .Interior.ColorIndex = 14 будет например < 6.5

@arskat5 · 03.05.2015, 02:20 **[ТС]**

В макросах ничего не понимаю, да и в Эксели я новичок, еле сделал эту таблицу по видеоурокам с Ютуба.

Там в каждых ячейках загорается то зелёный, то красный, в зависимости от вводимых чисел.
Например в первом если цифра меньше 6,5 загорается зелёным
во втором если меньше 5,5
в третьем если больше 8,5 и т.д.
нужно чтобы все зелёные, после ввода всех чисел, суммировались по 0,5 и выводились уже в графе сумма.
Неважно откуда они будут суммироваться с самой таблицы или снизу по флажкам.

Может подправите мне кто нибудь? помогите пожалуйста.

@chumich · 03.05.2015, 02:32

Сообщение от arskat5

Может подправите мне кто нибудь

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

@arskat5 · 03.05.2015, 02:45 **[ТС]**

По строкам пишу:
1) Меньше 6,5 -зелёный, Больше 6,5 красный
2) Меньше 5,5 -зелёный, Больше 5,5 красный
3) Меньше 8,5 -красный, Больше 8,5 зелёный
4) Меньше 4,5 -зелёный, Больше 4,5 красный
5) Меньше 8,5 -красный, Больше 8,5 зелёный
6) Меньше 4,5 -зелёный, Больше 4,5 красный
7) Меньше 2,5 -красный, Больше 2,5 зелёный
8) Меньше 2,5 -красный, Больше 2,5 зелёный
9) Меньше 2,5 -красный, Больше 2,5 зелёный

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

@arskat5 · 03.05.2015, 04:02 **[ТС]**

Что здесь нужно поменять в Visual Basic, чтобы сработало как нужно и сумма итоговая тоже?
сейчас ячейки с 0,5 не меняются.
-----------------------------------------

Visual Basic

Sub rty()
Лист1.Cells(37, 11) = 0
For i = 2 To 10
    If Лист1.Cells(37, i).Interior.ColorIndex = 14 Then Лист1.Cells(36, i) = 0.5
    If Лист1.Cells(37, i).Interior.ColorIndex = 3 Then Лист1.Cells(36, i) = 0
    Лист1.Cells(37, 11) = Лист1.Cells(37, 11) + Лист1.Cells(36, i)
Next i
Лист1.Cells(41, 11) = CInt(Лист1.Cells(37, 11))
Лист1.Cells(37, 22) = 0
For i = 13 To 21
    If Лист1.Cells(37, i).Interior.ColorIndex = 14 Then Лист1.Cells(36, i) = 0.5
    If Лист1.Cells(37, i).Interior.ColorIndex = 3 Then Лист1.Cells(36, i) = 0
    Лист1.Cells(37, 22) = Лист1.Cells(37, 22) + Лист1.Cells(36, i)
Next i
Лист1.Cells(41, 13) = CInt(Лист1.Cells(37, 22))
End Sub

@arskat5 · 03.05.2015, 11:02 **[ТС]**

Вот скриншот, с тем - что сейчас там не работает, и что нужно изменить:

@chumich · 03.05.2015, 12:38

Вот, держите. Я вам приляпал кнопку "Сделать прогноз" на листе около вывода счета. Откроете файл, нажмите ее - всё заполнится. При желании можно сделать кнопку очищающую поля, для ввода новых данных и нового расчета.

@arskat5 · 03.05.2015, 12:52 **[ТС]**

chumich,
Мир оказывается ещё не без добрых людей, огромное спасибо, очень помогли.
(написал в личку)

@arskat5 · 03.05.2015, 15:21 **[ТС]**

chumich,
Помогите пожалуйста ещё с кнопкой очистить.

@arskat5 · 03.05.2015, 15:31 **[ТС]**

chumich,
И последнее, если вдруг понадобиться поменять значения в ячейках, где заложено Больше 6,5 Меньше 6,5 (присваивается 0,5 очков), где именно я их смогу в будущем самостоятельно менять?

@chumich · 03.05.2015, 15:59

Сообщение от arskat5

Помогите пожалуйста ещё с кнопкой очистить.

Вроде всё исправил. Внешний вид кнопок сменил как на скрине. Если что, правой кнопкой по ним и меняете всё, что хотите, хоть размер, хоть фон.

@arskat5 · 03.05.2015, 16:06 **[ТС]**

chumich,
Всё отлично работает! Огромное спасибо!

Сообщение от arskat5

И последнее, если вдруг понадобиться поменять значения в ячейках, где заложено Больше 6,5 Меньше 6,5 (присваивается 0,5 очков), где именно я их смогу в будущем самостоятельно менять?

@chumich · 03.05.2015, 16:09

Сообщение от arskat5

где именно я их смогу в будущем самостоятельно менять?

Для каждой из 18-ти ячеек написан такой код:

Visual Basic

If Лист1.Cells(37, 2) <= 6.5 Then
    Лист1.Cells(37, 2).Interior.ColorIndex = 4
    Лист1.Cells(36, 2) = 0.5
Else
    Лист1.Cells(37, 2).Interior.ColorIndex = 3
    Лист1.Cells(36, 2) = 0
End If

где (37, 2) - координаты ячейки (№ строки, № столбца)
Interior.ColorIndex - это цвет ячейки (4 - зеленый, 3 - красный)
6.5 - это как раз те значения, которые вы собираетесь менять.
Где находится код, вы, насколько я понял, видели

@arskat5 · 03.05.2015, 16:12 **[ТС]**

chumich,
Спасибо за терпение! все вроде понял.

Округление и вывод суммы

Решение

Решение

Решение

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
		1
	Округление и вывод суммы 03.05.2015, 01:12. Показов 1235. Ответов 17 Метки нет (Все метки) Здравствуйте! Недавно на досуге собрал лёгкую таблицу, по выводу результата футбольного матча. Всё вроде сделал уже, осталось совсем ничего. 1) Нужно чтобы появлялись нужные цифры, и суммировалось то что появилось. 2) Сложенная сумма (итог), выводилось в округлённом виде, в другой ячейке. Может кто поможет: советом или хоть чем нибудь? Для Вас я думаю это не проблема, Вы тут делаете намного сложнее вещи. Миниатюры 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	03.05.2015, 01:19	2
	arskat5, чужие вещи всегда сложнее! Вы бы кроме картинки и саму вещь выложили. Сообщение от arskat5 В Эксели. 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 01:41 [ТС]	4
	Или может хотя бы скажете, как назначить какой либо ячейке, чтобы сумма если меньше 6,5 - то появлялось бы 0,5 а если больше 6,5 - чтобы появлялось 0. Тесть не мотодом сложения, а просто появлялось та цифра, которая конкретно нужна. Как сделать чтобы ячейки загорались, при больше/меньше какого то числа я сделал, но вот как сделать тоже самое, но чтобы число 0,5 то появлялось, то нет (при вводе больше или меньше)? 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 02:20 [ТС]	6
	В макросах ничего не понимаю, да и в Эксели я новичок, еле сделал эту таблицу по видеоурокам с Ютуба. Там в каждых ячейках загорается то зелёный, то красный, в зависимости от вводимых чисел. Например в первом если цифра меньше 6,5 загорается зелёным во втором если меньше 5,5 в третьем если больше 8,5 и т.д. нужно чтобы все зелёные, после ввода всех чисел, суммировались по 0,5 и выводились уже в графе сумма. Неважно откуда они будут суммироваться с самой таблицы или снизу по флажкам. Может подправите мне кто нибудь? помогите пожалуйста. 0

@chumich 2080 / 1238 / 464 Регистрация: 20.12.2014 Сообщений: 3,237
	03.05.2015, 02:32	7
	Сообщение от arskat5 Может подправите мне кто нибудь В том файле, который я вам послал, в принципе уже всё работает, но от цвета, и если вы собираетесь делать цвет условным форматированием, то нужно переделать на числа. Поэтому напишите условия по каждой ячейке, когда должен быть зеленый, когда красный. Только флажки уж сами делайте 1

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 02:45 [ТС]	8
	По строкам пишу: 1) Меньше 6,5 -зелёный, Больше 6,5 красный 2) Меньше 5,5 -зелёный, Больше 5,5 красный 3) Меньше 8,5 -красный, Больше 8,5 зелёный 4) Меньше 4,5 -зелёный, Больше 4,5 красный 5) Меньше 8,5 -красный, Больше 8,5 зелёный 6) Меньше 4,5 -зелёный, Больше 4,5 красный 7) Меньше 2,5 -красный, Больше 2,5 зелёный 8) Меньше 2,5 -красный, Больше 2,5 зелёный 9) Меньше 2,5 -красный, Больше 2,5 зелёный и слева и справа, что у домашней, что у гостевой команды. 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 11:02 [ТС]	10
	Вот скриншот, с тем - что сейчас там не работает, и что нужно изменить: Миниатюры 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 12:52 [ТС]	12
	chumich, Мир оказывается ещё не без добрых людей, огромное спасибо, очень помогли. (написал в личку) 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 15:31 [ТС]	14
	chumich, И последнее, если вдруг понадобиться поменять значения в ячейках, где заложено Больше 6,5 Меньше 6,5 (присваивается 0,5 очков), где именно я их смогу в будущем самостоятельно менять? 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 16:06 [ТС]	16
	chumich, Всё отлично работает! Огромное спасибо! Сообщение от arskat5 И последнее, если вдруг понадобиться поменять значения в ячейках, где заложено Больше 6,5 Меньше 6,5 (присваивается 0,5 очков), где именно я их смогу в будущем самостоятельно менять? 0

@arskat5 3 / 3 / 0 Регистрация: 18.06.2014 Сообщений: 31
	03.05.2015, 16:12 [ТС]	18
	chumich, Спасибо за терпение! все вроде понял. 1