Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Событие на левую кнопку мыши
 
#1
24.10.2012 14:59:27
Привет, Уважаемые Форумчане!  
На форуме не нашел решения поэтому спрошу!  
Нужен код, который при x=1 And "Событие1" запускал бы macros1.  
"Событие1"- это нажатие левой кнопки мыши на области любой ячейки,а точнее нажатие и именно отпускание нажатия. Таким образом Если x=1 и был отпуск клика на любой ячейки, то срабатывает Call Module1.macros1.  
Помогите пожалуйста, скачал книгу с вашего сайта  
"Профессиональное программирование на VBA в Excel" Автор: Уокенбах Джон.  
Может быть в ней есть то, что нужно но я не знаю "что" должен искать!
 
 
 
#2
24.10.2012 15:03:07
countervector, Вы упорно не желаете читать правила форума.
Я сам - дурнее всякого примера! ...
 
 
 
#3
24.10.2012 15:48:29
Укажите, пожалуйста, какой из 5 пунктов я нарушил.Я учту это и впредь постараюсь не нарушать.
 
 
 
#4
24.10.2012 16:05:12
{quote}{login=countervector}{date=24.10.2012 03:48}{thema=}{post}Укажите, пожалуйста, какой из 5 пунктов я нарушил.Я учту это и впредь постараюсь не нарушать.{/post}{/quote}  
1. >>>старайтесь давать теме название, отражающее хотя бы часть решаемой проблемы.  
3. >>>Всегда старайтесь приложить файл-пример, когда это возможно.
 
 
 
#5
24.10.2012 16:35:06
Моя тема "Click". Поменяйте название темы пожалуйста на "Левая кнопка мыши".  
Вот файл, где я пытался объяснить суть дела!
 
 
 
#6
24.10.2012 17:14:53
countervector, я название поменял, но неужели Вы сами не в состоянии информативно назвать тему?
 
 
 
#7
24.10.2012 17:21:22
Извините, Юрий М., Постараюсь точнее излагать свои мысли!
 
 
 
#8
24.10.2012 17:49:08
В модуль листа  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim x  
x = 1  
If Intersect(Target, Range("A1:H8")) Is Nothing Then Exit Sub  
If x = 1 Then Call macros1  
End Sub
 
 
 
#9
24.10.2012 18:46:07
Дорогой, Михаил С.  
Я перетаскиваю ячейки за рамку на другие ячейки, но Module1.macros1 не срабатывает! Скажите, что я не так делаю!Нужно,чтобы я двигал фигуры и при перетаскивании фигур "за рамку" срабатывал бы Module1.macros1
 
 
 
#10
24.10.2012 18:52:11
Пардон, мисье, не заметил файл.  
Файл рабочий, а какой у него код?
 
 
 
#11
24.10.2012 18:57:12
Спасибо, Михаил С. Я выяснил, что такое модуль листа.  
 
Но мне надо только при перетаскивании, а не выделении ячейки.А так то-что надо!
 
 
 
#12
24.10.2012 19:48:49
Уважаемый, Михаил С.  
Вы всё сделали как надо!Огромное спасибо!Я немного изменю код и всё заработает!Можно закрывать тему.
 
 
 
#13
24.10.2012 21:10:28
Как-то так. Не понятно, зачем нужен Макрос1
 
 
 
#14
25.10.2012 13:45:57
Спасибо!!!  
Уважаемый Михаил С., Module1.macros1 нужен для активации хода компьютера и учета, какой по счету ход.
 
 
 
#15
25.10.2012 13:51:16
Какой по ход считается в    
Private Sub Worksheet_Change(ByVal Target As Range)  
x = 0  
If Intersect(Target, Range("A1:H8")) Is Nothing Then Exit Sub  
Application.EnableEvents = False  
If Target.Address <> x1 Then [i2] = [i2] + 1: x = x + 1
Application.EnableEvents = True  
End Sub  
конкретно здесь  
If Target.Address <> x1 Then [i2] = [i2] + 1: x = x + 1
 
макрос1 я не использовал
 
 
 
#16
25.10.2012 13:56:08
Если вы делаете шахматы - то это менее 5% работы. там еще кучу всяких проверок нужно делать, на корректность хода.
 
 
 
#17
25.10.2012 15:01:21
Я делаю "уголки", но прислал Вам пример с шахматной доской!
 
 
 
Страницы: 1
Читают тему
Наверх