Добавление строки в таблицу при помощи макроса и гиперссылки

Автор GrAnat, 02.08.2013, 09:28

« назад - далее »

GrAnat

Добрый день.
Подскажите пожалуйста, может кто то сталкивался с решением такой задачи.
Как назначить макрос добавления строки для гиперссылки?
Например, есть таблица, и в нее нужно добавлять новые строки.
макрос добавления строки - это просто,
однако как сделать так, чтобы в последней строке таблицы была гиперссылка "добавить строку", при клике на которую добавлялась бы строка выше (запускался макрос)?!
Как связать макрос и гиперссылку?
Я такое видел, но как сделано понять сам не смог.
Помогите, пожалуйста.

kuklp

Здравствуйте.
Используйте событие листа Worksheet_FollowHyperlink или книги Workbook_SheetFollowHyperlink. Только зачем такой изврат? Лучше Worksheet_BeforeDoubleClick.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

GrAnat

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

GrAnat

С гиперссылкой работает, она в одном месте и соответственно добавление тоже в одном месте.
Спасибо за подсказку!!!

kuklp

Использовать метод Intersect. А еще лучше, прочесть правила форума и выложить пример. Иначе тема растянется.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

GrAnat

Вот сделал с гиперрсылкой, однако результат неудовлетворительный...
Гиперрсылка добавляет строку допустим в первой таблице, а в другой таблице, гиперрсылка добавляет строку опять таки в первую таблицу.... или же надо в каждой таблице делать гиперссылку на ячейки с разными именами, что не очень удобно если таблиц много...
Как сделать проще?

_Boroda_

а так?
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.EntireRow.Insert
Target.Range.Select
End Sub
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

kuklp

Или так(удалить гиперссылки):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Value = "Добавить строку" Then
            .EntireRow.Insert
            .Select
            Cancel = -1
        End If
    End With
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

GrAnat