Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Помогите плз в EXCEL


Автор: AlexTT 20.2.2006, 23:54
Помогите пожалуйста как решить данную задачу,

Есть ряд чисел больше тысячи /например 12, 1, 1, 1, 25, 2, 4, 5, 5, 8, 9, 2, 2..... / мне нужно как то вывести сколько раз повторялось событие. Типа 2 раза было по 5, два раза было по 2, три раза было по еденице.

Помогите пожалуйста

Алексей

Автор: Staruha 21.2.2006, 00:21
Данный массив расположен по ячейкам в столбце или в одной?

Автор: AlexTT 21.2.2006, 00:31
Цитата(Staruha @ 21.2.2006, 00:21)
Данный массив расположен по ячейкам в столбце или в одной?

да да по ячейкам в столбце

Автор: Staruha 21.2.2006, 01:01
Массив должен быть отсортирован
Код

 Private Sub CommandButton1_Click()
Dim C As String
Dim n As Integer
Dim i As Integer
i = 1

C = Cells(1, 1)
For x = 1 To 100

  If Cells(x, 1) = C Then
  n = n + 1
  Cells(i, 2) = C & " - " & n
  Else
  n = 1
  C = Cells(x, 1)
  i = i + 1
  End If
  Next
End Sub

Автор: AlexTT 21.2.2006, 01:19
Цитата(Staruha @ 21.2.2006, 01:01)
Массив должен быть отсортирован
Код

 Private Sub CommandButton1_Click()
Dim C As String
Dim n As Integer
Dim i As Integer
i = 1

C = Cells(1, 1)
For x = 1 To 100

  If Cells(x, 1) = C Then
  n = n + 1
  Cells(i, 2) = C & " - " & n
  Else
  n = 1
  C = Cells(x, 1)
  i = i + 1
  End If
  Next
End Sub

спасибо!

если не получится можно с вами связаться по аське или мылом?

Автор: AsIs 3.3.2006, 11:17
Сводные таблицы позволяют получить нужный результат.

Автор: Staruha 3.3.2006, 22:26
Да,только это уже не считается программированием и должно находится в разделе Работа с MOffice Хотя вещь сильная и в любой момент выручит. smile И голову ломать не надо

Автор: AsIs 4.3.2006, 11:34
Цитата(Staruha @ 3.3.2006, 22:26)
Да,только это уже не считается программированием и должно находится в разделе Работа с MOffice Хотя вещь сильная и в любой момент выручит. smile И голову ломать не надо

Согласен. smile
Но вдруг человек не знал, что можно без макросов обойтись, вот и спросил здесь... smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)