ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Help me! Как запустить макрос...
6 сообщений из 6, страница 1 из 1
Help me! Как запустить макрос...
    #34345737
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
Всем привет!
Случайно никто не знает, как реализовать следующую операцию:
в ячейке А1 мы вводим какое-то значение после этого нажимаем на клавишу ‘Enter’
или перемещаем указатель мышки на другую ячейку с последующим нажатием на эту ячейку… ТАК ВОТ! ...меня интересует можно ли после этого запустить макрос, т.е. после нажатия на клавишу или смены активной ячейки отличной от ячейки А1???
Заранее благодарю всех, кто откликнется на моё HELP!!!
:)
...
Рейтинг: 0 / 0
21.02.2007, 08:55:43
| Ответить | Цитировать | Написать  
Help me! Как запустить макрос...
    #34345783
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub
тебя спасут
...
Рейтинг: 0 / 0
21.02.2007, 09:16:18
| Ответить | Цитировать | Написать  
Help me! Как запустить макрос...
    #34345810
Фотография -=ALEX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=ALEX=-
Участник
вот тебе уже вариант использования - но значению в конкретной ячейке устанавливается название листа
Private Sub Worksheet_Change(ByVal Target As Range)

Код: 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.
If (Target.Row =  2 ) And (Target.Column =  5 ) Then
    
    Dim v As String
    
    v = Cells(Target.Row, Target.Column).Value
    
    If v = "" Then
        ActiveSheet.Name = " "
    Else
    
        i =  1 
        While i <= Sheets.Count
            
            If (Sheets(i).Name = v) And (Not (Sheets(i).Name = ActiveSheet.Name)) Then
                v = v + "+"
                i =  1 
            Else
                i = i +  1 
            End If
        Wend
        
        ActiveSheet.Name = v
    End If

End If

End Sub
...
Рейтинг: 0 / 0
21.02.2007, 09:27:45
| Ответить | Цитировать | Написать  
Help me! Как запустить макрос...
    #34345812
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
Большое спасибо, vkodor!!!
P.S. В мире еще остались добрые люди :)
...правда их мало, но все же они есть!
:)
...
Рейтинг: 0 / 0
21.02.2007, 09:27:57
| Ответить | Цитировать | Написать  
Help me! Как запустить макрос...
    #34345814
Фотография -=ALEX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=ALEX=-
Участник
сорри, не вся процедура
Код: 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.
Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Row =  2 ) And (Target.Column =  5 ) Then
    
    Dim v As String
    
    v = Cells(Target.Row, Target.Column).Value
    
    If v = "" Then
        ActiveSheet.Name = " "
    Else
    
        i =  1 
        While i <= Sheets.Count
            
            If (Sheets(i).Name = v) And (Not (Sheets(i).Name = ActiveSheet.Name)) Then
                v = v + "+"
                i =  1 
            Else
                i = i +  1 
            End If
        Wend
        
        ActiveSheet.Name = v
    End If

End If

End Sub
...
Рейтинг: 0 / 0
21.02.2007, 09:28:50
| Ответить | Цитировать | Написать  
Help me! Как запустить макрос...
    #34345817
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
Вас -=ALEX=- это тоже касается!

Ещё раз СПАСИБО!!!

:)
...
Рейтинг: 0 / 0
21.02.2007, 09:29:33
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Help me! Как запустить макрос...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34345814&tid=2183403]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 101ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 234ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


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