вопрос по написанию действий при работе с ячейками / Visual Basic

ReSQL.ru

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

Гость

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

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

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

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

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

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

вопрос по написанию действий при работе с ячейками

#37781692

martinezo

Гость

Уважаемые форумчане, прошу помочь разобраться в следующей задаче:
: есть ячейка G2 если она не заполнена, то должны быть пустыми ячейки K2:P2 (то есть их можно или заблокировать или стирать все чтобы в них не писали), и так дальше: если ячейка G3 не заполнена, то должны быть пустыми ячейки K3:P3
При этом если ячейка G2 заполнена, то должно выходить сообщение после ее заполнения «Заполните комментарий » после чего курсор должен спозиционироваться на ячейке P2 и так дальше: если ячейка G3 заполнена, то должно выходить сообщение после ее заполнения «Заполните комментарий » после чего курсор должен спозиционироваться на ячейке P3
Как это реализовать по отдельности с помощью инструмента Работа с данными я знаю, но можно ли наложить сразу два условия на одну и туже ячейку не знаю, скорей всего нет, поэтому пишу макрос но знаний мало пока осилил вот, что:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Private Sub Worksheet_Change(ByVal Target As Range)
'V = Range("A2:B2").Value

K = Target.Column    '&#238;&#239;&#240;&#229;&#228;&#229;&#235;&#229;&#237;&#232;&#229; &#237;&#238;&#236;&#229;&#240;&#224; &#234;&#238;&#235;&#238;&#237;&#234;&#232; &#226;&#226;&#238;&#228;&#232;&#236;&#238;&#227;&#238; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#255;
R = Target.Row    '&#238;&#239;&#240;&#229;&#228;&#229;&#235;&#229;&#237;&#232;&#229; &#237;&#238;&#236;&#229;&#240;&#224; &#240;&#255;&#228;&#224; &#226;&#226;&#238;&#228;&#232;&#236;&#238;&#227;&#238; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#255;
'ADDR = "G" & K
'Addr2 = "G" & R & ":" & "L" & R            ' &#238;&#239;&#240;&#229;&#228;&#229;&#235;&#229;&#237;&#232;&#229; &#228;&#232;&#224;&#239;&#224;&#231;&#238;&#237;&#224; &#255;&#247;&#229;&#229;&#234;, &#234;&#238;&#242;. &#237;&#224;&#228;&#238; &#243;&#228;&#224;&#235;&#255;&#242;&#252; &#226; &#228;&#224;&#235;&#252;&#248;&#229;&#233;&#248;&#229;&#236;
'alb = "abcdefghj"
    If Range("B" & R).Value <> 0 Then
    
        If Range("B" & R).Value = 0 Then
        Range("G" & R & ":" & "L" & R).Select
        Selection.ClearContents
        Else: Exit Sub
        End If
    
    End If
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

прошу помочь решить эту задачу. Заранее спасибо

...

Рейтинг:

0 / 0

04.05.2012, 11:02

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

вопрос по написанию действий при работе с ячейками

#37781742

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.

If Range("B" & R).Value <> 0 Then
        If Range("B" & R).Value = 0 Then

два взаимоисключающих условия, то есть то, что внутри условия, никогда не будет выполнено

...

Рейтинг:

0 / 0

04.05.2012, 11:19

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

вопрос по написанию действий при работе с ячейками

#37781783

martinezo

Гость

вот, на всякий случай файлик вкладываю

...

Рейтинг:

0 / 0

04.05.2012, 11:34

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&fpage=79&tid=2157821]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	39ms
get topic data:	12ms
get forum data:	3ms
get page messages:	69ms
get tp. blocked users:	1ms
others:	14ms

total:	168ms