Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перемещение кнопки по столбцу в зависимости от активной ячейки
 
#1
08.01.2017 16:11:26
Здравствуйте!)
Есть таблица(прайс), в которой много строк. Есть кнопка, расположенная в столбце В,  которая добавляет новые строки.
Подскажите пожалуйста, как изменить макрос чтобы кнопка передвигалась по столбцу в зависимости от активной ячейки
Допустим активная ячейка С9, то кнопка в ячейке В9, если активная ячейка С6, то кнопка в ячейке В6
Код
Sub добавить_строку()
Application.ScreenUpdating = False
ActiveCell.Resize(1).EntireRow.Insert
Application.ScreenUpdating = True
End Sub
Изменено: Просто Ledi - 08.01.2017 16:19:15
 
 
 
#2
08.01.2017 16:39:46
Просто Ledi, этот макрос менять не надо. В модуль листа (правый клик по ярлычку листа - Исходный текст)
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Shapes("Button 1").Top = ActiveCell.Top
End Sub
 
 
 
#3
08.01.2017 16:46:41
спасибо Вам большое)) :)
 
 
 
#4
08.01.2017 17:01:48
Цитата
Казанский написал: этот макрос менять не надо
Как же не надо?
Зачем переопределять диапазон, чтобы получить ту же ячейку (Resize(1))?
Зачем для вставки 1 строки отключать обновление экрана?
Итого
Код
Sub добавить_строку()
ActiveCell.EntireRow.Insert
End Sub

:)
 
 
 
#5
08.01.2017 17:10:54
Казанский,  а можно еще вариант для крайней ячейки выделяемого диапазона.  то есть выделил я ячейку D2 лкм и тяну диапазон до D40. выделенная ячейка D2, а крайняя D40. кнопке надо быть возле D40.
 
 
 
#6
08.01.2017 17:18:13
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Shapes("Button 1").Top = Target.Offset(Target.Rows.Count).Top
  Shapes("Button 1").Left = Target.Offset(Target.Columns.Count).Left
End Sub
 
 
 
#7
08.01.2017 17:58:47
RAN, не могли бы усмирить кнопку. чтобы она перемещалась только по столбцу B. а то она за курсором, как кошка за мышкой.
 
 
 
#8
08.01.2017 18:03:04
Я вам русским языком аглицкими буквами написал аглицкие слова Top и Left.  :)
Не надо вверх-вниз, уберите строку, где Top.
Не надо вправо-влево - уберите Left.
 
 
 
#9
08.01.2017 18:10:31
ok. спасибо.
 
 
 
#10
08.01.2017 18:19:22
спасибочки)) все просто супер) :)
 
 
 
Страницы: 1
Наверх