Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > За один цикл

Автор: Staruha 16.12.2004, 12:34

Первый цикл очищает нужные ячейки , второй идет по тем же ячейкам и делает расчет. Как сделать за один цикл?

Код


Private Sub CommandButton1_Click()
 Dim d As Integer
 Dim c As Integer

  d = UsedRange.Rows.Count
  c = UsedRange.Columns.Count
  For RwIndex = 4 To d
 For RwIn = 5 To c
              If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
   Range("D" & RwIndex).Value = ""

     End If
   Next RwIn
   Next RwIndex
 
    For RwIndex = 4 To d
       For RwIn = 5 To c
   If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
  Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)

End If

Next RwIn
Next RwIndex
End Sub

Автор: ~FoX~ 16.12.2004, 12:53

Псевдо код

Код


for c = 1 to n
  for r := 1 to m  
    if cells(c, r).Value = "NeedClear" then call Clear(c, r)
    else call Raschet (cells(c, r).Value)
    end if
  next r
next c

Автор: boevik 16.12.2004, 15:28

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer

 d = UsedRange.Rows.Count
 c = UsedRange.Columns.Count
 For RwIndex = 4 To d
For RwIn = 5 To c
             If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
  Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)


    End If
  Next RwIn
  Next RwIndex

  
End If

Next RwIn
Next RwIndex
End Sub

Автор: Staruha 16.12.2004, 21:08

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

Тот верхний код работает.Хотелось бы его облегчить.
Пойду смотреть код FoXа. smile

Автор: boevik 16.12.2004, 21:30

Попробуй такой

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer

 d = UsedRange.Rows.Count
 c = UsedRange.Columns.Count
 For RwIndex = 4 To d
   If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then Range("D" & RwIndex).Value = ""
      For RwIn = 5 To c
         If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
            Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)
         End If
     Next RwIn
  Next RwIndex
End Sub

Автор: Staruha 16.12.2004, 22:48

Код


 If Cells(RwIndex, RwIn).

Теперь RwIn начинается до запуска цикла

Код


    For RwIn = 5 To c

Вобщем ,если будут идеи заходи.Вопрос не проблемный.
~FoX~ налету не получается.
Нужно что-то вроде этого. Но вовремя выйти из цикла.

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer

 d = UsedRange.Rows.Count
 c = UsedRange.Columns.Count
 For RwIndex = 4 To d
For RwIn = 5 To c
             If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
  Range("D" & RwIndex).Value = ""
 Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)

   End If

Next RwIn
Next RwIndex
End Sub

Автор: boevik 16.12.2004, 22:53

Цитата

Нужно что-то вроде этого. Но вовремя выйти из цикла.

Когда надо выйти из цикла?
Для выхода из цикла команда Exit For.

Автор: Staruha 17.12.2004, 12:21

Нужно очистить ячейку
Range("D" & RwIndex).Value = "" выход из цикла
А потом ее заполнить
Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)

Если делаю вместе то стирается сумма и в результате остается последнее число

Автор: boevik 17.12.2004, 13:16

С использованием Exit For

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer

 d = UsedRange.Rows.Count
 c = UsedRange.Columns.Count
 For RwIndex = 4 To d
         For RwIn = 5 To c
             If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
                  Range("D" & RwIndex).Value = ""
                  exit for
             End If
         Next RwIn
  Next RwIndex

   For RwIndex = 4 To d
      For RwIn = 5 To c
  If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
 Range("D" & RwIndex).Value = Range("D" & RwIndex).Value + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)

End If

Next RwIn
Next RwIndex
End Sub

С использованием аккумулятора и один цикл

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer
Dim accumulator as Integer

 d = UsedRange.Rows.Count
 c = UsedRange.Columns.Count
 For RwIndex = 4 To d
         For RwIn = 5 To c
             If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
                  Range("D" & RwIndex).Value = ""
                  accumulator = accumulator + (Cells(3, RwIn).Value * Cell(RwIndex, RwIn).Value)
             End If
         Next RwIn
        if Range("D" & RwIndex).Value = "" then Range("D" & RwIndex).Value = accumulator 
  Next RwIndex
End Sub

Автор: Staruha 17.12.2004, 22:51

boevik !!! smile

Теперь отпала нужда чистить ячейки. Твой второй код совсем легкий получился.Мне еще нужно было найти среднее арифметическое в следующей строке ,так я тем же способом

Код


Private Sub CommandButton1_Click()
Dim d As Integer
Dim c As Integer
Dim accumulator As Double
Dim cumulator As Double

d = UsedRange.Rows.Count
c = UsedRange.Columns.Count
For RwIndex = 4 To d
        For RwIn = 5 To c
            If Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) > 0 Then
                 accumulator = accumulator + (Cells(3, RwIn).Value * Cells(RwIndex, RwIn).Value)
                 Range("D" & RwIndex).Value = accumulator
            ElseIf Cells(RwIndex, RwIn).Value > 0 And Range("A" & RwIndex) = 0 Then
            k = k + 1
            cumulator = cumulator + Cells(RwIndex, RwIn).Value
            Range("D" & RwIndex).Value = cumulator / k
            End If
        Next RwIn
       
 accumulator = 0
 cumulator = 0
 k = 0
 Next RwIndex

End Sub

Это все работает гораздо быстрее .