Как да оцветя клетка по дадено условие в Ексел?

3 одобрения 0 неодобрения
попитан 2016 декември 15 в Excel от ferrarko начинаещ (18 точки)
етикетиран отново 2016 декември 18 от ferrarko

Здравейте.

Имам нужда от помощ с оцветяване на клетки в Ексел и ще се радвам да ми помогнете!

В тази таблица искам в посочените колони, клетката с максимална стойност да се оцвети с фон (примерно жълто). 

https://drive.google.com/open?id=0B8b1qeNQS9T9QVV3SWdwdVhDWVU

EXCEL Таблица

Открих как да ми изкара максималната стойност в отделна клетка извън колоната, но ми трябва максималната стойност да се отличава в самата колона, като се оцвети и да стой в редът със съответният час.

Също ще ми бъде полезно ако ми дадете съвет, как да направя нещо като шаблон. Тоест да се направи една стартова таблица-документ, който като се отвори и започне да се въвежда информация, запаметяването да не става в същия документ и а да изисква създаването на нов. Идеята е да се защити таблицата и да е винаги налична за стартов шаблон !

С този файл ще се работи на Excel 2007 и Excell 2013, но основно ще се използва на Excell 2013 .

2 отговори

2 одобрения 0 неодобрения
отговорени 2016 декември 15 от Tormozko
избран 2016 декември 18 от ferrarko
 
Най-добър отговор
Оцветяването на клетки в ексел по зададено условие става чрез conditional formatting. Ако искаш да ти изкарва максималната стойност в дадена област:

1) Избираш колоната която искаш да се форматира, отиваш на Home
2) Conditional Formatting -> New rule...
3) Format only top or bottom ranked values

4) Format values that rank in the: Top 1
5) Format... - избираш как да се оцвети
1 одобрение 0 неодобрения
отговорени 2016 декември 15 от RoX0r

За шаблона - може да се създаде специална форма с помощта на VBA, в която да се въвеждат в полета данните (стига полетата да не са динамични - например да се въвеждат винаги 24 реда в 3 колони) и да има бутон "запамети" и при натискането му да се създава нов Екселски файл с въведено от потребителя име в предварително зададена папка. 

Може да използваш този код. Макрото проверява стойностите от колона А и оцветява най-голямата стойност. С малко натъманяване, би могло ти върши отлична работа:

Sub findmaxvalue()
Dim R As Range, cell As Range
Dim maxNum As Double

Set R = Range("A1:A100") 'find the max value in column A
maxNum = WorksheetFunction.max(R)

For Each cell In R
    If cell.Value = maxNum And maxNum <> 0
 Then
        cell.Interior.Color = RGB(0, 255, 0)
    End If
Next cell

End Sub

По-същия начин може да го направиш да проверява и в другите колони, като създадеш нов рейндж за колоните, в които искаш да проверява:

Set R = Range("B1:B100") 'find the max value in column B
maxNum = WorksheetFunction.max(R)
For Each cell In R
    If cell.Value = maxNum And maxNum <> 0 Then
        cell.Interior.Color = RGB(0, 255, 0)
    End If
Next cell

Set R = Range("C1:C100") 'find the max value in column C
maxNum = WorksheetFunction.max(R)
For Each cell In R
    If cell.Value = maxNum And maxNum <> 0 Then
        cell.Interior.Color = RGB(0, 255, 0)
    End If
Next cell

Успех и гласувай, ако ти е полезно! 

1 коментар

коментиран 2016 декември 18 от ferrarko начинаещ (18 точки)
показан отново 2016 декември 18 от BgExcelAdmin
Благодаря на Tormozko за отговора, беше полезен и се получи търсения резултат.
С VBA не съм запознат.
Но с бланката се справих в Excel 2013 по следният начин:
 Home->Експортиране->Промяна типа на файла-> Типове файлове за работни книги-> Шаблон(*.xltx)
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...