Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Интересные вопросы по VBA, Продолжение темы со "старой" планеты.
 
#1
17.03.2016 09:07:14
Напоминаю, старый адрес этой темы располагется здесь:
Интересные вопросы по VBA
Счастливым обладателям 2013 предлагается файл для препарирования. Выяснилось, что в 2003, 2007, 2010 работает, а в 2013 кнопка при смещении отказывается менять значение TopLeftCell. Сия фича вяснилась в теме "О вставке строк"Если кому интересно прошу комментариев и рецептов :)
Я сам - дурнее всякого примера! ...
 
 
 
#2
17.03.2016 10:17:29
Гарантированно работает сдвиг кнопки после нажатия.
Код
    With Shapes(Application.Caller)
    .Left = .Left - 1
    End With
Видимо, обновляются свойства у контрола.
 
 
 
#3
17.03.2016 11:23:37
Привет тезка.
А у меня не правильный 2013,работает кнопка.
Возможно потому,что установлены версии 2003,10,13
 
 
 
#4
17.03.2016 11:46:46
Doober, Попробуй на "Кнопку 1" нажать 4 раза, а лучше 5. А уж потом на "Кнопку 2". У тебя "Итого:" не опустилось на стартовую позицию "кнопки 2"
 
 
 
#5
17.03.2016 13:36:22
13 счас нет, проверил в 16.
Кнопки 4 и 5 работают неправильно.
 
 
 
#6
17.03.2016 18:19:34
А так
Код
Public Sub www()
    Dim c As Range
    Set c = Shapes(Application.Caller).TopLeftCell
    Set c = Range("a:a").Find("Итого:", Cells(c.Row, 1), xlValues, xlWhole)
    If Not c Is Nothing Then c.EntireRow.Insert
End Sub
?
ТС, в теме, не оговаривал, что сдвиг только в столбцах A:E.
 
 
 
#7
17.03.2016 18:43:48
Саш, а так работает в 13? В принципе как костыль пойдет. Но правильно я на 13-й не перехожу. Новые фантики - новые баги. Мож лет через пять долечат... :D
Я сам - дурнее всякого примера! ...
 
 
 
#8
17.03.2016 19:28:19
Цитата
kuklp написал: Мож лет через
О, сколько нам ошибок открытий чудных vbCrLf Готовят просвещенья дух vbCrLf (с)  :)
 
 
 
#9
17.03.2016 19:35:10
Цитата
Doober написал:А у меня не правильный 2013,работает кнопка
аналогично
Цитата
Doober написал:Возможно потому,что установлены версии 2003,10,13
у меня только 13
 
 
 
#10
17.03.2016 21:18:35
Ну раз тема "интересные вопросы...".. из недавно замеченного: в 2013 и 2016 excel union работает ровно в 2 раза дольше чем в 2010 (проверял на больших массивах). Может это у меня так?
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
Страницы: 1
Наверх