Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Присвоение комитетам баллов и подсчет в виде графика
 
#1
05.04.2015 12:49:45
Добрый день! Люди умные нужна помощь.

Цель: создать Excel файла для присвоения комитету баллов за их деятельность, для дальнейшего создания с собранных данных (ГРАФИК) для создания конкуренции в среди комитетов.

И так создал названия комитетов и есть классы D1 D2 D3 D4
За каждый класс деятельности присваивается определенный балл!

Суть в том что бы менеджер при учете просто нажимал на кнопку и число которое привязано кнопке выводилось в ячейке (сумма баллов) на против комитета.
При каждом нажатие что бы число + совалось допустим если нажал раз 10 на кнопку (10 баллов) то в ячейки (сумма баллов) число равнялось 100. И так при каждом нажатие число вырастало.
И после месяца надо будет вывести данные в график что у всех комитетов столько то баллов.

Надеюсь поможете решить данную задачу заранее всем спасибо!
 
 
 
#2
05.04.2015 12:57:57
Мне кажется, Ваш способ не сколько громоздок. Я бы сделал, чтобы при двойном щелчке по ячейке, ее значение увеличивалось, при правом щелчке - уменьшалось (в случае неправильного ввода). Этот код надо вставить в Исходный текст соответствующего листа. Как другой вариант, вместо кнопок использовать счетчики, которые привязать к соответствующим ячейкам
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:E44")) Is Nothing Then
Dim B As Long
Select Case Target.Column
Case 2: B = 10
Case 3: B = 5
Case 4: B = 2
Case 5: B = 20
End Select
Target = Target + B
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:E44")) Is Nothing Then
Dim B As Long
Select Case Target.Column
Case 2: B = 10
Case 3: B = 5
Case 4: B = 2
Case 5: B = 20
End Select
If Target > 0 Then Target = Target - B
End If
End Sub
 
 
 
#3
05.04.2015 13:37:33
спасибо!
Изменено: panzi - 05.04.2015 13:48:35
 
 
 
#4
05.04.2015 13:40:53
panzi, кнопка цитирования НЕ ДЛЯ ответа? Ну вот ЗАЧЕМ Вы  в данном случае процитировали, да ещё и всё целиком? Исправляйте.
 
 
 
#5
05.04.2015 13:47:24
МВТ, Спасибо разобрался вставил формулу все заработало, а как мне можно сделать график в конце месяца кто сколько балов набрал?
 
 
 
#6
05.04.2015 13:50:43
Не надо ничего привязывать на кнопки. Сделал для первой строки с данными (из остальных строк просто поудаляйте потом кнопки).
UPD: в ячейку F2 вставьте
Код
=сумм(B2:E2)
и растяните на весь интервал. Потом при помощи Ctrl выделите интервал с названиями комитетов и интервал с набранными баллами (Ctrl нужен так как диапазоны не смежные). Потом Вставка - График (ну там во вкладке уже сами разберетесь :))
UPD2: файл перезалил
Изменено: МВТ - 05.04.2015 14:08:10
 
 
 
#7
05.04.2015 16:43:32
Кстати, чтобы не мучиться с удалением кнопок "вручную", вот макрос, который при запуске на удалит их все сам (правда, если на листе будут вставлены и другие элементы, их он тоже удалит)
Код
Sub Удалить_кнопки()
    For Each B In ActiveSheet.Shapes
        B.Delete
    Next B
End Sub
 
 
 
Страницы: 1
Наверх