Как узнать координаты нажатой кнопки? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать координаты нажатой кнопки?

16 сообщений из 16, страница 1 из 1

Как узнать координаты нажатой кнопки?

#34538264

Дмитрий-(сколько-же-нас?)

Гость

Кнопки в экселе "привязку" к ячейкам имеют?

...

Рейтинг:

0 / 0

20.05.2007, 18:31:55

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34538355

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

Sub Butest()
ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=Range("A1:F10").Width, _
Top:=Range("A1:F10").Height, _
Width:=Range("G11").Width, _
Height:=Range("G11").Height _
).Select
End Sub

...

Рейтинг:

0 / 0

20.05.2007, 20:23:38

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34538356

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub Butest()
    ActiveSheet.OLEObjects.Add( _
        ClassType:="Forms.CommandButton.1", _
        Link:=False, _
        DisplayAsIcon:=False, _
        Left:=Range("A1:F10").Width, _
        Top:=Range("A1:F10").Height, _
        Width:=Range("G11").Width, _
        Height:=Range("G11").Height _
        ).Select
End Sub

...

Рейтинг:

0 / 0

20.05.2007, 20:24:05

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34538441

Дмитрий-(сколько-же-нас?)

Гость

"Привязка" не случайно взято в кавычки!
Мне не кнопка "по форме ячейки" нужна, а "координаты" существующей кнопки (которая копируется вместе с набором заполняемых ячеек) в "терминах" CELL.ADRESS
Т.е. хочется очищать ячейки относительно кнопки (копирование возможно с заполненными ячейками, которые необходимо очистить).

...

Рейтинг:

0 / 0

20.05.2007, 22:14:26

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34538643

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

неужели это сложно сделать? все свойства для этого в примере есть...

...

Рейтинг:

0 / 0

21.05.2007, 08:05:01

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34538777

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Что-то типа

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.

Private Sub CommandButton1_Click()

x1 = CommandButton1.Left
n =  0 
Do
n = n +  1 
nCol = n
Loop While Range("A1", Cells( 1 , n).Address).Width < x1


y1 = CommandButton1.Top
m =  0 
Do
m = m +  1 
mRow = m
Loop While Range("A1", Cells(m,  1 ).Address).Height < y1
  
x2 = CommandButton1.Width
i =  0 
Do
i = i +  1 
iCol = i
Loop While Range("A1", Cells( 1 , i).Address).Width < x2 + x1

y2 = CommandButton1.Height
j =  0 
Do
j = j +  1 
jRow = j
Loop While Range("A1", Cells(j,  1 ).Address).Height < y2 + y1
 
Set myRange = Range(Cells(mRow, nCol), Cells(jRow, iCol))
MsgBox myRange.Address( 0 ,  0 )

End Sub

...

Рейтинг:

0 / 0

21.05.2007, 09:43:23

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539403

Дмитрий-(сколько-же-нас?)

Гость

Фишка в том, что имя кнопки меняется :(

...

Рейтинг:

0 / 0

21.05.2007, 13:17:35

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539460

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Дмитрий-(сколько-же-нас?)Фишка в том, что имя кнопки меняется :(

Фишка в том что об этом нужно говорить сразу.

Как вариант переписать так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.

Public Sub FindButt(Butt As CommandButton)

x1 = Butt.Left
n =  0 
Do
n = n +  1 
nCol = n
Loop While Range("A1", Cells( 1 , n).Address).Width < x1


y1 = Butt.Top
m =  0 
Do
m = m +  1 
mRow = m
Loop While Range("A1", Cells(m,  1 ).Address).Height < y1
  
x2 = Butt.Width
i =  0 
Do
i = i +  1 
iCol = i
Loop While Range("A1", Cells( 1 , i).Address).Width < x2 + x1

y2 = Butt.Height
j =  0 
Do
j = j +  1 
jRow = j
Loop While Range("A1", Cells(j,  1 ).Address).Height < y2 + y1
 
Set myRange = Range(Cells(mRow, nCol), Cells(jRow, iCol))
MsgBox myRange.Address( 0 ,  0 )
myRange.Select
End Sub

Но под каждую кнопку всё равно вешать действие типа

Код: plaintext

1.
2.

Private Sub CommandButton1_Click()
FindButt CommandButton1
End Sub

...

Рейтинг:

0 / 0

21.05.2007, 13:35:24

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539677

Дмитрий-(сколько-же-нас?)

Гость

Спасибо!
В общем - "засада"...
Придется подумать над другими вариантами.
Еще раз - огромное спасибо за уделенное внимание!

...

Рейтинг:

0 / 0

21.05.2007, 14:25:29

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539707

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

Дмитрий-(сколько-же-нас?)Спасибо!
В общем - "засада"...
Придется подумать над другими вариантами.
Еще раз - огромное спасибо за уделенное внимание!

:-)
Какая засада чего происходит???
Ты же так не разу толком и не объяснил.
Хотя бы сказал что тебе нужно!

...

Рейтинг:

0 / 0

21.05.2007, 14:34:16

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539791

Дмитрий-(сколько-же-нас?)

Гость

Нет возможности для каждой кнопки писать функцию...
Предполагалось, что кнопка копируется вместе с набором ячеек (копируется диапазон строк и добавляется далее вниз) и позволяет очистить заполненные ячейки во вновь скопированном диапазоне.

...

Рейтинг:

0 / 0

21.05.2007, 14:55:43

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34539839

Deggasad

Участник

Откуда: Воронеж

Сообщения: 3 509

Рейтинг: 0 / 0

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

Чертовщина какая-то, наверное и правда с другой стороны тебе зайти надо!
Я бы мог сказать что нужна ещё информация, что опять непонятно, но мне некогда разбираться! А если хочешь чтобы другие помогли выложи файл и опиши что ты хочешь. Если просто очистить диапазон, тогда зачем кнопка!

...

Рейтинг:

0 / 0

21.05.2007, 15:07:25

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34540703

Дмитрий-(сколько-же-нас?)

Гость

Приаттачил скриншотик...
Надо иметь только ввиду, что форма на 80 строк и ячеек 100 в них нужно очистить.

...

Рейтинг:

0 / 0

21.05.2007, 20:00:11

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34540731

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Дмитрий-(сколько-же-нас?)Приаттачил скриншотик...
Надо иметь только ввиду, что форма на 80 строк и ячеек 100 в них нужно очистить.Вот и еще один предпочитает надевать трусы через голову....
Займись изучением MS Access.

...

Рейтинг:

0 / 0

21.05.2007, 20:22:49

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34540793

Дмитрий-(сколько-же-нас?)

Гость

Спасибо за совет :)
Аксесс я давно знаю...
"Пользователи" "п-лоховаты" ;) а организация не выстроена!
Чуть попозже доделаю вариант на PHP+MySQL, а пока - Эксель!!!
Просто, жизнь сотрудникам хочется немного облегчить, да ошибок поубавить...
Но свои трудозатраты тоже соизмеряю, поэтому - пусть "подчищают" вручную!

...

Рейтинг:

0 / 0

21.05.2007, 21:08:30

| Ответить | Цитировать | Написать

Как узнать координаты нажатой кнопки?

#34540890

Дмитрий-(сколько-же-нас?)

Гость

Собственно, формочка...
:)

...

Рейтинг:

0 / 0

21.05.2007, 22:12:27

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать координаты нажатой кнопки?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tid=2182931]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	58ms
get topic data:	7ms
get forum data:	2ms
get page messages:	31ms
get tp. blocked users:	1ms
others:	197ms

total:	324ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы