перенос кода Visual Basic / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос кода Visual Basic

5 сообщений из 5, страница 1 из 1

перенос кода Visual Basic

#38777717

GerK3

Гость

подскажите пожалуйста что я делаю не правильно
вот макрос
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:01

| Ответить | Цитировать | Написать

перенос кода Visual Basic

#38777778

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Можно попробовать задать диапазон проверки в переменной, а 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:37

| Ответить | Цитировать | Написать

перенос кода Visual Basic

#38777798

GerK3

Гость

AndreTM,
я могу кинуть файл. Если можно подскажите что не так.
мне нужно в при изменении ячейки Ф.И.О, в ячейке время она ставилась автоматом. При помощи макроса вышло это сделать но не на все 40

...

Рейтинг:

0 / 0

15.10.2014, 17:46

| Ответить | Цитировать | Написать

перенос кода Visual Basic

#38777810

GerK3

Гость

GerK3AndreTM,
я могу кинуть файл. Если можно подскажите что не так.
мне нужно в при изменении ячейки Ф.И.О, в ячейке время она ставилась автоматом. При помощи макроса вышло это сделать но не на все 40

ПАС файла 123456qQ

...

Рейтинг:

0 / 0

15.10.2014, 17:51

| Ответить | Цитировать | Написать

перенос кода Visual Basic

#38778820

An12

Гость

"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

16.10.2014, 16:10

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перенос кода Visual Basic

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=60&tid=2156167]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	11ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	231ms

total:	359ms