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

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

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

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

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

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

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

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

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

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


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