Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Krool
0 / 0 / 0
Регистрация: 19.03.2015
Сообщений: 16
1

Построчная проверка и журнал учета операций

09.12.2015, 10:07. Просмотров 311. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста, не могу разобраться с двумя нюансами. Пример во вложении.

1) Построчная проверка
Делаю проверку через событие Worksheet_change по аргументу Target.row, изначально я запрещал пользователю растягивать ячейки или удалять диапазон ячеек через if target.count >1 then exit sub, но столкнулся с целой пачкой организационных моментов, поэтому мне нужно разрешить пользователю это делать, но возникает другая ситуация: если на листе "Таблица" я выделю данные второго и третьего столбца и удалю, или же попытаюсь растянуть далее, то проверка произойдет только первой строки. Как нужно переделать чтобы он проверял каждую строку?
И от сюда возникает следующий вопрос, если такое сделать возможно, чтобы он проверил строку каждого аргумента, то как избавиться от повторной проверки одной и той же строки? То есть в идеале, я выделяю данные 2 и 3 столбца (32 ячейки) а он делал проверку только только 16 строк (Ибо если пользователь решит очистить строку в которой 50 столбцов, то слабенькие пеньки четвертые умрут, просто код который делает проверку гораздо больше,больше условий, а по типу одинаковые)

2)Журнал учета
Собственно проблема вытекла по той же причине, запрещал пользователю изменять больше 1 ячейки, и журнал записывал всё идеально, но если сейчас я снова позволю растягивать и удалять диапазоны, журнал ничего не вносит, единственное что у меня получилось это указать диапазон...но проверяет этот журнал человек, которому нужно знать название столбца, и № строки...можно ли оформить сообщение вида:
"Столбцы с "3" по "4", строки с "3" по "5" были изменены"
Я так понимаю, что пытаться указать в журнале каждое изменение каждой ячейки это жестоко, и что через VBA нельзя отследить диапазон был удален, или растянут? Если можно то как.
0
Вложения
Тип файла: rar Тест.rar (22.2 Кб, 2 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2015, 10:07
Ответы с готовыми решениями:

Excel. Журнал учета операций в книге
Друзья, начальство поставило нехилую задачку, обращаюсь к Вам за помощью. Существует книга,...

Журнал учета переработки
Доброго времени суток. Делаю журнал учета переработки и у меня появилась проблема в создании...

Журнал учета бланков
Добрый день. Уже пару часов сижу думаю и никак не могу сообразить. Есть таблица организаций к...

sql построчная проверка
Ребят помогите пожалуйста уже не знаю что делать! Есть у меня табличка mssql!я ввожу допустим в...

1
Krool
0 / 0 / 0
Регистрация: 19.03.2015
Сообщений: 16
09.12.2015, 12:23  [ТС] 2
Вопрос закрыт, похимичил и нашел способ.

1)
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
For Each zn In Target.Rows
tr = zn.Row
 
Код проверки
 
Next
End Sub
2)
Visual Basic
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
If Target.Count > 1 Then
 
tr1 = Target.Row
For Each tr In Target.Rows
x = x + 1
Next
tr2 = tr1 + x - 1
 
tc1 = Target.Column
For Each tc In Target.Columns
y = y + 1
Next
tc2 = tc1 + y - 1
 
 
If Not tr1 = tr2 And Not tc1 = tc2 Then
MsgBox ("Изменение диапазона: " & vbCrLf & "Столбцы с """ & tc1 & """ по """ & tc2 & """" & vbCrLf & "Строки с """ & tr1 & """ по """ & tr2 & """")
 
ElseIf tr1 = tr2 Then
MsgBox ("Изменение диапазона: " & vbCrLf & "Строка """ & tr1 & """" & vbCrLf & "Столбцы с """ & tc1 & """ по """ & tc2 & """")
 
ElseIf tc1 = tc2 Then
MsgBox ("Изменение диапазона: " & vbCrLf & "Столбец """ & tc1 & """" & vbCrLf & "Строки с """ & tr1 & """ по """ & tr2 & """")
End If
End if
Добавлено через 4 минуты
Остается одна тонкость, есть ли возможность проверить, данные были удалены или растянуты?
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2015, 12:23

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

Построчная проверка на вхождение
Здравствуйте уважаемые форумчане! Получаю посредством CMD список ранее подключаемых сетей и передаю...

журнал операций
при нажатии на сумму в журнале операций открывается документ а надо чтоб просто можно...

Создание БД журнал учета учебных занятий
Доброго времени суток, уважаемые! Срочно необходима помощь светлых и просвещенных голов с созданием...

Журнал операций на управляемых формах
Привет. Вопрос: есть ли возможность создать журнал документов на управляемых формах, чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.