За шаблона - може да се създаде специална форма с помощта на 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
Успех и гласувай, ако ти е полезно!