Такие правила сделал потому что данные беру из онлайн результатов Гемотеста
и анализ м**и содержит разные значения для выделений, а универсальное правило для всех строк не смог написать.
К тому же  online версия с какими то ограничениями на форматирование

Приветствую всех.

Вот решил выложить файл, которым пользуюсь я сам и родные
Для врача удобней смотреть динамику и оперативно анализы. Я использую Microsoft Excel Android и Microsoft Excel Online на компьютере, что позволяет видит информацию нужным людям.
Макросов нет. Все что смог - сделал. Примеры в файле приведены, но вы понимаете, что вбить можно что угодно. Ячейки красятся в синий если содержит знаки "минус" и в красный, если символы "плюс". Еще реагирует на определенные слова.

Пишите если возникнут идеи.

P.s. не ругайтесь (если что нарушил - удаляйте)

Есть небольшая необходимость сжать расчет в одну ячейку.
Есть такая возможность функциями  типа СУММЕСЛИМН ??
Т.е. какая формула только в колонке U без промежуточных желтых колонок.
Для чего это надо? ну например:
Добавил столбцы в зеленую зону, а синий итоговый уже пересчитал.    

вот тут увидел скриншот
как такое возможно?

_Igor_61, спасибо

и скобки тоже

хороший код
а как сделать что он удалял все содержимое скобок < >
а вместо них ставил пробел

можно и так

Переменную Row я сам вычисляю. Дело не в ней.
А вот проблема именно в колонках. Если колонки не скрыты то считает что колонка A = номер один
а если скрыть столбцы A:E то для  Workbooks(NameB1).Sheets("Personal").Cells(iRow, 4).Text считает первой колонкой уже столбец F
Причем если поставить прерывание на этой строке то дебагер показывает "" а если открыть столбцы то дебагер показывает уже "3"
Я конечно пока макрос работает колонки открыл, но это как то не спортивно..
Первый раз с такой фишкой столкнулся

Добрый день.
Есть скрытые столбцы A:E
почему то не работает код
Do While Workbooks(NameB1).Sheets("Personal").Cells(iRow, 4).Text <> ""
он начинает считать с первого видимого столбца
а там пустые ячейки - и цикл сразу заканчивается
Если открыть столбцы то все начинает работать.

У нас в компании к сожалению только сейчас установили это апдейт. поэтому так поздно и написал.
но совет по удалению exd  помог...
жаль что когда в сети 2000 компьютеров и профиль пользователя на диске D надо все это делать руками.  

Добрый день.
Сегодня обнаружил что перестали работать кнопки для вызова макроса.
Есть старые версии файла - в них кнопки работают
а в последних они стали мертвые..
Что то типа http://www.excelworld.ru/forum/10-9107-1
ни кто не сталкивался?

прикрепил файл

Есть контрольная по excel.  
Я ее сделал, но есть чувство, что некоторые решения можно усугубить, углубить и улучшить.  
Особенно интересует задание 1.7 можно ли сделать в виде формулы в одной ячейке? у меня есть решение но длина формулы слишком велика и 2003 ругается

{quote}{login=EducatedFool}{date=18.01.2010 05:20}{thema=}{post}Может, прикрепите к сообщению простенький пример?  
 
А то задача простейшая (одна строка кода), а про что идет речь - не могу сообразить...{/post}{/quote}  
а как собственно создать такой список без макроса? чего то не нашел в элементах правления

{quote}{login=Hugo}{date=29.04.2010 01:03}{thema=}{post}Ну так вот же:  
Sub tt()  
'файл сохранив свои измененния  
ActiveWorkbook.Save  
'Макрос сам делает копию этого активного файла  
ActiveWorkbook.SaveAs Filename:="C:\testwithoutpass", FileFormat:=xlNormal, Password:="", WriteResPassword:=""  
End Sub  
 
Добавить "пользователь закрывает файл"{/post}{/quote} Это я понимаю.  
Вот в чем собственно проблема.  
Вот пользователь открывает файл. Вводит пароль. Работает в книге. Нажимает кнопку «оправит файл по почте»    
Макрос по кнопке делает    
Запоминает firstname = ActiveWorkbook.FullName  
 
 
Сохраняет изменения, что пользователь уже сделал ActiveWorkbook.Save  
 
Потом делает копию без пароля    
 
ActiveWorkbook.SaveAs Filename:="C:\testwithoutpass.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:=""  
 
Потом отправляет по почте эту копию  testwithoutpass.xls  
 
При этом активная книга уже имеет имя  testwithoutpass.xls  и она без пароля  
 
По идее, если бы я знал пароль на открытие, я бы повторно применил  ActiveWorkbook.SaveAs с именем firstname Password:="*******"  но вот пароль я не знаю и пользователь бы не узнал что была создана копия

{quote}{login=Hugo}{date=28.04.2010 04:52}{thema=}{post}Что-то я не понял, так не годится что-ли?  
 
Sub tt()  
ActiveWorkbook.SaveAs Filename:="C:\testwithoutpass", FileFormat:=xlNormal, Password:="", WriteResPassword:=""  
End Sub{/post}{/quote}это не то. потому что это не копия файла а оригинальная книга и пароль сбрасывается и не знаю как его востановить.  
ActiveWorkbook.SaveCopyAs  -тоже не помогает - т.к. делает копию с паролем.. а я не могу потом открыть эту копию без пароля,т.к. макрос не знает его

{quote}{login=KuklP}{date=28.04.2010 04:47}{thema=}{post}Наберите в поиске:"копирование листов в новую книгу".  
И будет Вам счастье.{/post}{/quote}не работает .на все листы в книге навешано  
Private Sub Worksheet_Activate() поэто возникает ошибка

сценарий такой:  
Есть файл с паролем на открытие.  
пользователь открывает файл, вводит пароль на открытие книги.  
что то изменяет в файле и кнопкой запускает макрос  
макрос должен сделать копию этой книги без пароля в определенной папке  
при этом не сбрасывать пароль текущей книги

Есть ли возможность правильно определить дату последнего изменения активной книги    
Код fileLastDateChange = CStr(FileDateTime(ActiveWorkbook.FullName))  выдает не дату изменения книги  а дату(время) открытия книги