Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать координаты нажатой кнопки? / 16 сообщений из 16, страница 1 из 1
20.05.2007, 18:31:55
    #34538264
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Кнопки в экселе "привязку" к ячейкам имеют?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2007, 20:23:38
    #34538355
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
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
    #34538356
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Код: 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, 22:14:26
    #34538441
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
"Привязка" не случайно взято в кавычки!
Мне не кнопка "по форме ячейки" нужна, а "координаты" существующей кнопки (которая копируется вместе с набором заполняемых ячеек) в "терминах" CELL.ADRESS
Т.е. хочется очищать ячейки относительно кнопки (копирование возможно с заполненными ячейками, которые необходимо очистить).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 08:05:01
    #34538643
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
неужели это сложно сделать? все свойства для этого в примере есть...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 09:43:23
    #34538777
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Что-то типа

Код: 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, 13:17:35
    #34539403
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Фишка в том, что имя кнопки меняется :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 13:35:24
    #34539460
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Дмитрий-(сколько-же-нас?)Фишка в том, что имя кнопки меняется :(

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

Как вариант переписать так
Код: 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, 14:25:29
    #34539677
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Спасибо!
В общем - "засада"...
Придется подумать над другими вариантами.
Еще раз - огромное спасибо за уделенное внимание!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 14:34:16
    #34539707
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Дмитрий-(сколько-же-нас?)Спасибо!
В общем - "засада"...
Придется подумать над другими вариантами.
Еще раз - огромное спасибо за уделенное внимание!

:-)
Какая засада чего происходит???
Ты же так не разу толком и не объяснил.
Хотя бы сказал что тебе нужно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 14:55:43
    #34539791
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Нет возможности для каждой кнопки писать функцию...
Предполагалось, что кнопка копируется вместе с набором ячеек (копируется диапазон строк и добавляется далее вниз) и позволяет очистить заполненные ячейки во вновь скопированном диапазоне.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 15:07:25
    #34539839
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Дмитрий-(сколько-же-нас?)Нет возможности для каждой кнопки писать функцию...
Предполагалось, что кнопка копируется вместе с набором ячеек (копируется диапазон строк и добавляется далее вниз) и позволяет очистить заполненные ячейки во вновь скопированном диапазоне.

Чертовщина какая-то, наверное и правда с другой стороны тебе зайти надо!
Я бы мог сказать что нужна ещё информация, что опять непонятно, но мне некогда разбираться! А если хочешь чтобы другие помогли выложи файл и опиши что ты хочешь. Если просто очистить диапазон, тогда зачем кнопка!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 20:00:11
    #34540703
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Приаттачил скриншотик...
Надо иметь только ввиду, что форма на 80 строк и ячеек 100 в них нужно очистить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 20:22:49
    #34540731
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Дмитрий-(сколько-же-нас?)Приаттачил скриншотик...
Надо иметь только ввиду, что форма на 80 строк и ячеек 100 в них нужно очистить.Вот и еще один предпочитает надевать трусы через голову....
Займись изучением MS Access.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 21:08:30
    #34540793
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Спасибо за совет :)
Аксесс я давно знаю...
"Пользователи" "п-лоховаты" ;) а организация не выстроена!
Чуть попозже доделаю вариант на PHP+MySQL, а пока - Эксель!!!
Просто, жизнь сотрудникам хочется немного облегчить, да ошибок поубавить...
Но свои трудозатраты тоже соизмеряю, поэтому - пусть "подчищают" вручную!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 22:12:27
    #34540890
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать координаты нажатой кнопки?
Собственно, формочка...
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать координаты нажатой кнопки? / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 317ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182931]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 192ms
total:  317ms
x
x
Закрыть


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