VPF::Работа с циклами VBA Excel - Форум программистов

aleksandrfnsv1

Дата 16.12.2008, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет

Пожалуйста помогите с циклом мне надо чтобы просмотр шел для каждой ячейки, но начался бы со второй ячейки, т.к. у меня функция moth не понимает строку первой ячейки, т.к. там не дата, а заголовок таблички
в этом коде

Код


For Each oCell In ThisWorkbook.Worksheets("Доходы").Columns("A").Cells
 
  str5 = Worksheets("Доходы").Cells(i, 1)
  
   
   If ((Month(str5)) = CInt(TextBox2.Text)) Then
     MsgBox (str5)
     
   
     End If
  Next i

aleksandrfnsv1

Дата 16.12.2008, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 5.4.2008

Репутация: нет
Всего: нет

дА не могли бы посмотреть и вот этот фрагментик
ошибка в нем for control variable already in use и выделяет For Each oCell In после If ((Month(str5)) = CInt(TextBox2.Text)) Then

Код


For Each oCell In ThisWorkbook.Worksheets("Äîõîäû").Columns("A").Cells(i, 1)
 
  str5 = ThisWorkbook.Worksheets("Äîõîäû").Columns("A").Cells(oCell.Row).Text
     
   If ((Month(str5)) = CInt(TextBox2.Text)) Then
      For Each oCell In ThisWorkbook.Worksheets("Äîõîäû").Columns("B").Cells(i, 2)
        If (oCell.Value = TextBox1.Text) Then
            str = str + vbCrLf + oCell.Value + "    " + ThisWorkbook.Worksheets("Äîõîäû").Columns("E").Cells(oCell.Row).Text
            str2 = ThisWorkbook.Worksheets("Äîõîäû").Columns("E").Cells(oCell.Row).Text
            a = a + CInt(str2)
        End If
      Next
     
   End If
  Next

kapbepucm

Дата 17.12.2008, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: 3
Всего: 12

Цитата(aleksandrfnsv1 @ 16.12.2008, 21:09

)

помогите с циклом

просто пропускай первую сроку:

Код

Sub test()
  Dim oCell As Object
  For Each oCell In ThisWorkbook.Worksheets("Доходы").Columns("A").Cells
    If (oCell.Row <> 1) And (oCell <> "") Then
      'здесь твой код
      MsgBox Month(oCell)
    End If
  Next oCell
End Sub

--------------------

(С) kapbepucm

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »