Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите плз в EXCEL 
:(
    Опции темы
AlexTT
Дата 20.2.2006, 23:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Помогите пожалуйста как решить данную задачу,

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

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

Алексей
PM MAIL   Вверх
Staruha
Дата 21.2.2006, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Данный массив расположен по ячейкам в столбце или в одной?


--------------------
Возмездие настигнет
PM MAIL   Вверх
AlexTT
Дата 21.2.2006, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

да да по ячейкам в столбце
PM MAIL   Вверх
Staruha
Дата 21.2.2006, 01:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27
Массив должен быть отсортирован
Код

 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


Это сообщение отредактировал(а) Staruha - 21.2.2006, 01:02

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  _________________.rar 8,51 Kb


--------------------
Возмездие настигнет
PM MAIL   Вверх
AlexTT
Дата 21.2.2006, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(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

спасибо!

если не получится можно с вами связаться по аське или мылом?
PM MAIL   Вверх
AsIs
Дата 3.3.2006, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 17
Сводные таблицы позволяют получить нужный результат.


--------------------
<avalon> - чтобы знать...
PM MAIL ICQ   Вверх
Staruha
Дата 3.3.2006, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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


--------------------
Возмездие настигнет
PM MAIL   Вверх
AsIs
Дата 4.3.2006, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

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


--------------------
<avalon> - чтобы знать...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0875 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.