ak787Shamanusak787лично у меня метод doubleclick не срабатывает на листе, нужно вызывать из книги
да и зачем тебе показывать тот лист, раз ты сам все делаешь?
такчто отменяй действие и сам делай что хош...
ak787да забыл в коде имя листа
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Лист4" Then
If Target.Row = 29 And Target.Column < 4 Then
Cancel = True
'твои штучки дрючки
End If
End If
End Sub
ну если лист нужен ончень, то вот так
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Лист4" Then
If Target.Row = 29 And Target.Column < 4 Then
Cancel = True
Application.ScreenUpdating = False
Selection.ShowDetail = True
'твои штучки дрючки
End If
End If
End Sub
Эта схема работает, лист не создается.
Просто тут косяк есть. Мои штуки дрюки это ключ к запросу по детализации сводной.
Ну т.е. например в сводной есть дата-магазин.
Дабл клик покажет все исходные данные для расчета величины на пересечении. Например все отделы этого магазина.
Если дабл клик по сводной не даст листа детализации будет весьма сложно вытащить а какие именно отделы есть, чтобы создать ключ к запросу в базу. Т.е. придется придумывать залепы типа таблиц ассоциаций.
Но Ваш вариант очень интересный, если ничего не получится наверно буду рыть сюда.
чтото я напутал с порядком сообщений...
короче, вот....
ну если лист нужен ончень, то вот так
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Лист4" Then
If Target.Row = 29 And Target.Column < 4 Then
Cancel = True
Application.ScreenUpdating = False
Selection.ShowDetail = True
'твои штучки дрючки
End If
End If
End Sub
