Ручное редактирование Макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Ручное редактирование Макросом (Ручное редактирование Макросом)

Ручное редактирование Макросом

Иварунька

Дата: Вторник, 20.11.2012, 01:26 | Сообщение № 1

Группа: Гости

Всем привет!
Вожусь с этим второй день, однако безуспешно..Задача следующая. В Екселе записать/созлать голый макрос и его подредактировать вручную кодиком))
И вот несколько условий.
Всем большое пасибо кто вникнет.
1. В ячейку можно вводить данные только в том случае если (по определённому адресу) ячейка заполнена.
2. В ячейку можно прописать данные только в том случае если в предыдущей ячейки точно такие же данные.
3. В ячейку можно прописать данные только в том случае если в следующая ячейки пуста.
4. В ячейку можно прописать данные только в том случае если в предыдущей строке иметься какая то определённо заполненная колонка.
4. В ячейку можно прописать данные только в том случае если в этойже строке иметься какая то определённая колонка(например E) которая пуста.
Ну и тип если эти условия не выполняются выскакивает предупреждение.

Ответить

Serge_007

Дата: Вторник, 20.11.2012, 01:31 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Иварунька)

созлать голый макрос

Что такое "голый макрос"?

Quote (Иварунька)

его подредактировать вручную кодиком

Как можно "кодиком" подредактировать вручную?!

ЮMoney:41001419691823 | WMR:126292472390

Ответить

AlexM

Дата: Вторник, 20.11.2012, 08:48 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Не уверен, что предлагаю голый макрос, который вам надо. wink

[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Range("H2") = "" Or Target.Value <> Target.Offset(0, -1).Value _
Or Target.Offset(0, 1) <> "" Or Range("H" & Target.Offset(-1, 0).Row) = "" _
Or Range("E" & Target.Row) <> "" Then
MsgBox "Нарушены условия ввода данных", vbOKOnly, "Ошибка ввода"
End If
End Sub

[/vba]

К сообщению приложен файл: 1320451.xls (24.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Ручное редактирование Макросом (Ручное редактирование Макросом)

Страница 1 из 1
1