Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
как вставить строчку
 
#1
19.01.2010 11:47:39
Уважаемые знатоки!  
Имеется большая таблица, более 30000 строк и множество столбцов, фрагмент - tabl.xls  
Для анализа необходимы только строчки с рассчитанной DELTA - tabl1.xls  
Т.е. строчки, не закрашенные зелёненьким цветом.  
Вопрос: как исхитриться, чтобы при выборе позиции, где есть DELTA, появлялась строчка, закрашенная зелёненьким цветом и относящаяся к данному наименованию, т.е. следующая за выбранной.  
Желаемый результат - tabl_2.xls для наименования "Штрих".
 
 
 
#2
19.01.2010 11:58:53
Можно использовать простейший макрос:  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Target.Column <> 7 Or Target.Cells.Count > 1 Or Target.Row < 3 Then Exit Sub  
   If Target.Offset(1).EntireRow.Hidden Then Target.Offset(1).EntireRow.Hidden = False  
End Sub  
 
 
Пример в файле: http://excelvba.ru/XL_Files/Sample__19-01-2010__13-45-18.zip  
 
Пощелкайте на ячейках в 7-м столбце.  
Принцип действия прост - при выделении ячейки в этом столбце отображается строка, расположенная ниже.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
19.01.2010 13:33:29
Специалистом по ВБА не являюсь, прошу показать, как бороться с появлением формулы в 7 (седьмом) столбце при двойном клике?  
СПАСИБО!
 
 
 
#4
19.01.2010 14:15:09
К примеру, можно при двойном клике на ячейке автоматически заменять формулу значением:  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Target.Column <> 7 Or Target.Row < 3 Then Exit Sub  
   If Target.HasFormula Then Target.Value = Target.Value  
End Sub  
 
Пример файла: http://excelvba.ru/XL_Files/Sample__19-01-2010__16-16-32.zip
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
19.01.2010 14:42:38
Но хотелось бы, что-бы для 7 столбца по двойному клику вообще ничего не происходило!  
СПАСИБО!
 
 
 
#6
19.01.2010 16:15:31
В этом случае ещё проще:  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Target.Column = 7 And Target.Row > 2 Then Cancel = True  
End Sub  
 
 
Пример файла: http://excelvba.ru/XL_Files/Sample__19-01-2010__18-15-56.zip  
 
PS: А зачем Вы выполняете ДВОЙНОЙ ЩЕЛЧОК в этих ячейках?  
Уж не для того ли, чтобы отобразить зеленую строку?  
Достаточно ведь просто выделить ячейку одинарным щелчком...
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
19.01.2010 20:58:32
Лично я стараюсь выполнять одинарный клик или добираться до ячейки стрелочками.  
Но тот, кто работает с большими таблицами машинально иногда и непроизвольно кликает более одного раза и, как следствие, велика вероятность искажения формулы.Так что любезно реализованный Вами механизм - простенькая защита от "дураков".  
СПАСИБО!
 
 
 
#8
21.01.2010 08:32:32
Как скрыть отображённую зелёненькую строчку кликом по соответствующей DELTA при нажатой CTRL (из-за соображений защиты).  
СПАСИБО!
 
 
 
Страницы: 1
Читают тему
Наверх