grbdv
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Private rRngOld As Range, rRngNew As Range
Private lEx&(1 To 2)
Private bDirtyR As Boolean
Sub Form_Ini()
set rRngOld = Range("A1:FD1") ' source data for form row 1
set rRngNew = Range("A111:FD111") ' temporary range on row 111
If rRngOld.Cells.Count <> rRngNew.Cells.Count Then Stop
lEx(1) = 5 ' cells excluded from comparing
lEx(2) = 9 '
End Sub
Sub sb_Compare()
Dim i&
Dim bDirtyC As Boolean
For i = 1 To rRngNew.Cells.Count
Select Case i
Case lExcl(1), lExcl(2)
bDirtyC = ??? ' see p.2
' do nothing
Case Else
bDirtyC = (rRngOld.Cells(i).Value <> rRngNew.Cells(i).Value)
If bDirtyC Then Call sb_Msg ' call message procedure
bDirtyR = bDirtyR Or bDirtyC
End Select
Next
If bDirtyR Then Call sb_RecNew ' add new or edit existed record
rRngNew.Clear
End Sub
|
Всего записей: 1163 | Зарегистр. 20-08-2011 | Отправлено: 13:33 28-10-2011 | Исправлено: grbdv, 13:35 28-10-2011 |
|
