Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Help me! Как запустить макрос... / 6 сообщений из 6, страница 1 из 1
21.02.2007, 08:55:43
    #34345737
pseregap
pseregap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
Всем привет!
Случайно никто не знает, как реализовать следующую операцию:
в ячейке А1 мы вводим какое-то значение после этого нажимаем на клавишу ‘Enter’
или перемещаем указатель мышки на другую ячейку с последующим нажатием на эту ячейку… ТАК ВОТ! ...меня интересует можно ли после этого запустить макрос, т.е. после нажатия на клавишу или смены активной ячейки отличной от ячейки А1???
Заранее благодарю всех, кто откликнется на моё HELP!!!
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2007, 09:16:18
    #34345783
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
Код: 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:27:45
    #34345810
-=ALEX=-
-=ALEX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
вот тебе уже вариант использования - но значению в конкретной ячейке устанавливается название листа
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:57
    #34345812
pseregap
pseregap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
Большое спасибо, vkodor!!!
P.S. В мире еще остались добрые люди :)
...правда их мало, но все же они есть!
:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2007, 09:28:50
    #34345814
-=ALEX=-
-=ALEX=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
сорри, не вся процедура
Код: 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:29:33
    #34345817
pseregap
pseregap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Help me! Как запустить макрос...
Вас -=ALEX=- это тоже касается!

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

:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Help me! Как запустить макрос... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 283ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183403]:
 0ms
get settings:
 4ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 189ms
total:  283ms
x
x
Закрыть


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