VBNet - Форум - Как отнять один массив от другого

Вопрос: Как отнять один массив от другого Добавлено: 07.05.07 13:50

Автор вопроса: Andrew_nik

Есть два массива начала и конца работ - они содержат время в формате mm:ss.
Надо найти разницу двух массивов в минутах - т.е. время выполнения кажой операции и поместить эти значения в столбец D.

Public Sub Подсчет_минут()
Dim Works_start As Range
Dim Works_end As Range
Dim i As Integer
Dim j As Integer

Works_start = Application.InputBox("Begin of the work", Type:=8)
Works_end = Application.InputBox("End of the works", Type:=8)

    For j = 2 To 7
      For i = 2 To 7
         If Cells(i, 1) > 0 Then
         Range("d(i)") = Cells(i, 1).Value - Cells(j, 2).Value
         End If
      Next i
   Next j

End Sub

Как правильно можно привязать циклы к массивам?
Заранее благодарен.
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #1	Добавлено: 07.05.07 21:18
	Я бы воспользовался одним вводом, это уменьшит вероятность ошибки: Public Sub Podschet_Minut() Dim rgWorks As Range, i As Long Set rgWorks = Application.InputBox("Begin of the work and End of the works", Type:=8) For i = 1 To rgWorks.Rows.Count If rgWorks.Cells(i, 1).Value > 0 Then rgWorks.Cells(i, 1).Offset(0, 5) = rgWorks.Cells(i, 1) - rgWorks.Cells(i, 2) End If Next End Sub Столбцы могут быть несмежные, в Offset(0, 5)-замени 5 на требуемое положение вычисляемого столбца. Ответить

Номер ответа: 2 Автор ответа: Andrew_nik Вопросов: 15 Ответов: 30	Профиль \| \| #2	Добавлено: 08.05.07 10:18
	Спасибо за помощь!!! Ответить

Номер ответа: 3 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111	Профиль \| \| #3	Добавлено: 11.05.07 17:46
	All right! Ответить

Страница: 1 |