Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос кода Visual Basic / 5 сообщений из 5, страница 1 из 1
15.10.2014, 17:01
    #38777717
GerK3
GerK3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос кода Visual Basic
подскажите пожалуйста что я делаю не правильно
вот макрос
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell <> "" Then
If Not Intersect(cell, Range("E3:E151,H3:H151,K3:K151,N3:N151,Q3:Q151,T3:T151,W3:W151,Z3:Z151,AC3:AC151,AF3:AF151,AI3:AI151,AL3:AL151,AO3:AO151,AR3:AR151,AU3:AU151,AX3:AX151,BA3:BA151,BD3:BD151,BG3:BG151,BJ3:BJ151,BM3:BM151,BP3:BP151,BS3:BS151,BV3:BV151,BY3:BY151,CB3:CB151,CE3:CE151") ) Is Nothing Then
With cell.Offset(0, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End If
Next cell
End Sub

В строку "If Not Intersect(cell, Range" вставив еще пару столбико выскакивает ошибка, и строка выделяться жёлтым
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2014, 17:37
    #38777778
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос кода Visual Basic
Можно попробовать задать диапазон проверки в переменной, а Intersect применить уже к нему:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
dim r as range
set r = Range ("E3:E151")
set r = Application.Union(r,"H3:H151")
set r = Application.Union(r,"K3:K151")
...
with cell in r.offset(,2).cells
    if cell <> "" then cells = Now
end qith


Можно попробовать задать ячейки диапазона прямо кодом:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
dim r as range
set r = Range ("E3:E151")
with ActiveSHeet
    set r = Union(r, Intersect(.columns(5), r.rows.entirerow))
    set r = Union(r, Intersect(.columns(9), r.rows.entirerow))
    ...
end with

Но Union тоже имеет ограничение на количество Areas...

Можно вообще переписать алгоритм. У вас ведь задача в чём? - "проставить текущую дату в нужные ячейки". Вот её и надо решать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2014, 17:46
    #38777798
GerK3
GerK3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос кода Visual Basic
AndreTM,
я могу кинуть файл. Если можно подскажите что не так.
мне нужно в при изменении ячейки Ф.И.О, в ячейке время она ставилась автоматом. При помощи макроса вышло это сделать но не на все 40
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2014, 17:51
    #38777810
GerK3
GerK3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос кода Visual Basic
GerK3AndreTM,
я могу кинуть файл. Если можно подскажите что не так.
мне нужно в при изменении ячейки Ф.И.О, в ячейке время она ставилась автоматом. При помощи макроса вышло это сделать но не на все 40

ПАС файла 123456qQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2014, 16:10
    #38778820
An12
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос кода Visual Basic
"E3:E151,H3:H151,K3:K151,N3:N151,Q3:Q151,T3:T151,W3:W151,Z3:Z151,AC3:AC151,AF3:AF151,AI3:AI151,AL3:AL151,AO3:AO151,AR3:AR151,AU3:AU151,AX3:AX151,BA3:BA151,BD3:BD151,BG3:BG151,BJ3:BJ151,BM3:BM151,BP3:BP151,BS3:BS151,BV3:BV151,BY3:BY151,CB3:CB151,CE3:CE151"

перепиши в

"E3:E151,H3:H151,K3:K151,N3:N151,Q3:Q151,T3:T151,W3:W151,Z3:Z151,AC3:AC151,AF3:AF151," & "AI3:AI151,AL3:AL151,AO3:AO151,AR3:AR151,AU3:AU151,AX3:AX151,BA3:BA151,BD3:BD151,"
& "BG3:BG151,BJ3:BJ151,BM3:BM151,BP3:BP151,BS3:BS151,BV3:BV151,BY3:BY151,CB3:CB151,CE3:CE151"

и т.д. сколько хочешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос кода Visual Basic / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 139ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156167]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 11ms
total:  139ms
x
x
Закрыть


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