AbbatRusso
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Воспользуйся событием
Private Sub SpreadSheet1_SheetChange(ByVal Sh As OWC10.Worksheet, ByVal Target As OWC10.Range)
AndVGri
А можно поподробнее )))
У меня уже написан код для одного из обработчиков SpreadSheet, следующего содержания:
Private Sub Spreadsheet1_SelectionChanging(ByVal Range As OWC10.Range)
Dim СтрокаN As String
Dim Счетчик As Integer
For Счетчик = НачалоОбласти To КонецОбласти
СтрокаN = Счетчик
With Spreadsheet1.Sheets(1)
'вычисление дня недели ДатаН и заполнение столбца A
If .Range("B" + СтрокаN).Value = "" _
Then .Range("A" + СтрокаN).Formula = "" _
Else: _
.Range("A" + СтрокаN).Formula = _
ДеньНеделиСтр(Weekday(.Range("B" + СтрокаN).Value, 2))
'вычисление ДатыОкончания смены и заполнение столбца K
If .Range("B" + СтрокаN).Value = "" _
Then .Range("K" + СтрокаN).Formula = "" _
Else: _
.Range("K" + СтрокаN).Formula = _
ДатаОкончания(.Range("B" + СтрокаN).Value, _
.Range("E" + СтрокаN).Value, _
.Range("F" + СтрокаN).Value, _
.Range("G" + СтрокаN).Value, _
.Range("H" + СтрокаN).Value)
'вычисление дня недели ДатаН и заполнение столбца L
If .Range("B" + СтрокаN).Value = "" _
Then .Range("L" + СтрокаN).Formula = "" _
Else: _
.Range("L" + СтрокаN).Formula = _
ДеньНеделиСтр(Weekday(.Range("B" + СтрокаN).Value, 2))
'вычисление дня недели ДатаО и заполнение столбца M
If .Range("K" + СтрокаN).Value = "" _
Then .Range("M" + СтрокаN).Formula = "" _
Else: _
.Range("M" + СтрокаN).Formula = _
ДеньНеделиСтр(Weekday(.Range("K" + СтрокаN).Value, 2))
'вычисление отработанных часов и заполнение столбца I
If .Range("B" + СтрокаN).Value = "" _
Then .Range("I" + СтрокаN).Formula = "" _
Else: _
.Range("I" + СтрокаN).Formula = _
Отработанных(.Range("D" + СтрокаN).Value, _
.Range("B" + СтрокаN).Value, _
.Range("K" + СтрокаN).Value, _
.Range("E" + СтрокаN).Value, _
.Range("F" + СтрокаN).Value, _
.Range("G" + СтрокаN).Value, _
.Range("H" + СтрокаN).Value)
End With
Next
End Sub
Мне необходимо контролировать ввод данных с столбцы E и G (значения от 0 до 24),
F и H (значения от 0 до 59) и стобец D (выбор из списка значений: "Час подачи", "Час обед", "Час подачи/Час обед", "") |
, добавь 