Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кнопки в Excel / 12 сообщений из 12, страница 1 из 1
23.01.2017, 18:29
    #39389758
Tauri
Tauri
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Здравствуйте. Как с помощью VBA закрепить кнопку в правом нижнем углу таблицы на листе Excel. Число строк в таблице постоянно растёт, а перемещать кнопку вручную вниз таблицы неудобно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2017, 18:51
    #39389777
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Tauri,

наверное, лучше через UserForm или свое меню.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2017, 20:21
    #39389836
Tauri
Tauri
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
by-pass,

Мне надо, чтобы при изменении числа строк в таблице, кнопка автоматически перемещалась в позицию чуть ниже последней строки. Как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2017, 20:36
    #39389851
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Tauri,

в таких случаях кнопку не перемещают, а наоборот - помещают её в закрепленную область, чтобы не "плавала". У Вас первая строка закреплена. Так и поместите в неё кнопку. Строку для этого можно чуть расширить. И не нужны будут танцы с бубнами. И кнопка всегда на виду и ничего не надо вычубучивать.
А если уж хочется лишних проблем - то не вопрос. На каждый чих в таблице вешаете макрос, который будет определять последнюю строку и после неё вставлять кнопку. Вроде такого:
Код: vbnet
1.
2.
3.
4.
5.
Sub ttt()
dim lr as long
lr = Cells(Rows.count,1).end(xlup).row
Activesheet.Shapes(1).Top = cells(lr+2,1).Top
End Sub


можете поэкспериментировать - поместить код выше в модуль листа данных(правая кнопка мыши -Исходный текст), а так же добавить туда такой код:
Код: vbnet
1.
2.
3.
Private Sub Worksheet_Change(ByVal Target As Range)
ttt
End Sub


при каждом ручном изменении на листе кнопка будет перемещаться на две строки ниже последней заполненной ячейки столбца А.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2017, 09:52
    #39390051
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Tauri,

плавающие, прыгающие, пропадающие/возникающие кнопки и другие элементы - не "user friendly".
Учитесь делать правильно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2017, 18:09
    #39390535
Tauri
Tauri
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
The_Prist,

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2017, 18:09
    #39390536
Tauri
Tauri
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
by-pass,

а как правильно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2017, 18:42
    #39390574
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Tauri,

я Вам выше написал, как правильно. Располагайте там, где до них всегда будет доступ без изменения их координат. В частности - в закрепленной шапке таблицы. Еще вариант - создать кнопку на панели, она тогда всегда будет доступна из этого файла на вкладке Надстройки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2017, 20:20
    #39390633
Tauri
Tauri
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
The_Prist,

Понял. Спасибо. Попробую создать кнопку на панели инструментов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2017, 10:15
    #39546545
k.rinat
k.rinat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Добрый день.

Кнопки закрепил "Разделением экрана".
Но на разных компьютерах они "скачут" кто на что горазд. Причем закрепление кнопки через "Left" вообще не помогает.
Подскажите, пожалуйста, как при открытии файла ставить их на свои места (координаты).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2017, 12:27
    #39546641
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
k.rinat,

в модуль ЭтаКнига (ThisWorkbook)
Код: vbnet
1.
2.
3.
4.
Private Sub Workbook_Open()
  On Error Resume Next
  ttt 'вызов процедуры перемещения кнопки на активном листе
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2017, 14:38
    #39553566
Guest1
Guest1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кнопки в Excel
Tauri,
создайте кнопку на Панели быстрого доступа , правда она будет видна из любого файла excel, открытого на вашем компе, но всегда будет на одном и том же месте.
В вашем первом сообщении эта панель есть - на ней у вас дискета "Cохранить" размещена.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / кнопки в Excel / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 491ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155164]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 323ms
total:  491ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]