Всем привет! корпел корпел над файлом, и вот сегодня выяснил что вписал баг в него. Если файл открыт и в это время открыть другой excel файл то Excel внезапно падает. или же этот файл открывая из Outlook также вызывает его падение. Казалось бы не критично но неприятно, тем более что его также будут отрывать другие с Outlook. Методом тыка выяснил что если в функции countcolor отключить Application.Volatile то падения прекращаются и само собой перестает работать выделение цветом ячеек по клику мыши. вероятно что я перемудрил со всеми Application. Выручайте братцы и сестры...
ЗЫ. не могу прицепить, даже в архиве весит 140 кб причем оставил только самое важное. что делать?
Всем привет! корпел корпел над файлом, и вот сегодня выяснил что вписал баг в него. Если файл открыт и в это время открыть другой excel файл то Excel внезапно падает. или же этот файл открывая из Outlook также вызывает его падение. Казалось бы не критично но неприятно, тем более что его также будут отрывать другие с Outlook. Методом тыка выяснил что если в функции countcolor отключить Application.Volatile то падения прекращаются и само собой перестает работать выделение цветом ячеек по клику мыши. вероятно что я перемудрил со всеми Application. Выручайте братцы и сестры...
ЗЫ. не могу прицепить, даже в архиве весит 140 кб причем оставил только самое важное. что делать?Sancho
на листе "предметы" выбираются заливкой ячеек в столбце G нужные строки с этого листа формулой переносятся данные столбцов C и F на лист "балл". На листе "балл" макрос по столбцу AH скрывает строки "32:231" со значением в ячейках 0. на этом листе также отмечаются заливкой цветом ячейки по которым происходят дальнейшие вычисления
пересохранил в xlsb
на листе "предметы" выбираются заливкой ячеек в столбце G нужные строки с этого листа формулой переносятся данные столбцов C и F на лист "балл". На листе "балл" макрос по столбцу AH скрывает строки "32:231" со значением в ячейках 0. на этом листе также отмечаются заливкой цветом ячейки по которым происходят дальнейшие вычисленияSancho
Я бы вообще как-то ушел от расчета по закраске ячеек. Как? Нужно Ваше описание процесса. Что-то, конечно, вспоминается по прошлым Вашим темам, но не все.
Я бы вообще как-то ушел от расчета по закраске ячеек. Как? Нужно Ваше описание процесса. Что-то, конечно, вспоминается по прошлым Вашим темам, но не все._Boroda_
SLAVICK, попробовал работает и даже по-шустрей, по поводу падений из Outlook смогу сказать только завтра, дома 2013 офис без оутлука. Спасибо Вам
SLAVICK, попробовал работает и даже по-шустрей, по поводу падений из Outlook смогу сказать только завтра, дома 2013 офис без оутлука. Спасибо ВамSancho
_Boroda_, я думал раньше об этом почему бы от заливки не уйти совсем, но боюсь руководству не совсем понравится данное решение Скорее всего залитая цветом ячейка явно бросается в глаза чем какой либо символ.
_Boroda_, я думал раньше об этом почему бы от заливки не уйти совсем, но боюсь руководству не совсем понравится данное решение Скорее всего залитая цветом ячейка явно бросается в глаза чем какой либо символ.Sancho
А кто мешает ставить символ и считать по символу, а для наглядности этот символ скрыть форматом или условным форматированием и тем же УФ покрасить эту ячейку?
А кто мешает ставить символ и считать по символу, а для наглядности этот символ скрыть форматом или условным форматированием и тем же УФ покрасить эту ячейку?_Boroda_
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AB25:AF28,AB32:AF231,AB235:AF242,AB246:AF256")) Is Nothing Then Range(Cells(Target.Row, 28), Cells(Target.Row, 32)).Value = "" Target.Value = 1 End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("AB25:AF28,AB32:AF231,AB235:AF242,AB246:AF256")) Is Nothing Then Range(Cells(Target.Row, 28), Cells(Target.Row, 32)).Value = "" Target.Value = 1 End If