Создание списка с повторяющимися параметрами

@zLegendary · Регистрация: 24.10.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане. Сразу хочу поблагодарить тех, кто решит мне помочь.
Сейчас прохожу практику и с VBA столкнулся в первый раз. Дали задание, облазил у вас все в поисках решения, но не нашел решение проблемы.

Суть такова: На первом листе находится список манометров, у каждого манометра есть определённые характеристики. Манометров может быть 1000, а то и более.
На втором листе есть кнопка, при нажатии которой, программа смотрит список на первом листе, и создает так скажем список учета. То есть, манометры,абсолютно одинаковые по всем характеристикам он складывает и пишет их количество, а те которые отличаются хотя бы одним параметром записывает заново. Нужные параметры я выделил синим цветом. На втором листе я привел пример, как должен выглядеть итог.

Подскажите кто-нибудь, как можно это организовать?

Еще раз спасибо, всем тем кто зашел, прочитал или решил мне помочь.

@Апострофф · 27.10.2014, 08:18

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub main()
ActiveSheet.Copy
Dim rn As Range
Set rn = Range([a3], [p65536])
Dim a()
a = Array(2, 3, 5, 7, 8, 9, 14, 15, 16)
rn.Sort [n3], , [o3], , , [p3], , xlNo
rn.Sort [g3], , [h3], , , [i3], , xlNo
rn.Sort [b3], , [c3], , , [e3], , xlNo
Dim r As Long, c As Long
Dim cnt As Long, cc As Long
For r = ActiveSheet.UsedRange.Rows.Count To 3 Step -1
  For cc = 0 To 8
    If Cells(r, a(cc)) <> Cells(r - 1, a(cc)) Then Exit For
  Next cc
  If cc = 9 Then
    cnt = cnt + 1
    Rows(r).Delete
  Else
    Cells(r, 17) = cnt + 1
    cnt = 0
  End If
Next r
End Sub

@zLegendary · 27.10.2014, 08:27 **[ТС]**

Я не понял. Когда выполняю, создается новая книга, и копируется туда лист 2.

@Апострофф · 27.10.2014, 08:30

Сделайте активным Лист1.

@zLegendary · 27.10.2014, 08:37 **[ТС]**

Большое спасибо, а можно сделать так, чтобы результат выводился на другой лист?
Нужно чтобы этот список не изменялся, то есть, у человека есть список всех манометров, он нажал кнопку, и на другом листе ему вывело: сколько каких манометров есть.

@Апострофф · 27.10.2014, 08:40

Сообщение от zLegendary

чтобы результат выводился на другой лист?

Он и так на другом листе (даже в другой книге).

@zLegendary · 27.10.2014, 08:47 **[ТС]**

У меня в новой книге появляется копия первоначального списка. А редактируется основная таблица.

@Апострофф · 27.10.2014, 08:51

zLegendary, Вы что то путаете.

Сообщение от Апострофф

Visual Basic
1
ActiveSheet.Copy

создает копию активного (исходного) листа и делает её (копию) активной.
Вся дальнейшая работа макроса идет с активным листом, т.е. с копией.

@zLegendary · 27.10.2014, 08:59 **[ТС]**

Вот на скринах видно, может я что то не так сделал?
Вот как я вставил ваш код:

Кликните здесь для просмотра всего текста

запускаю через макрос

Создание списка с повторяющимися параметрами

@Апострофф · 27.10.2014, 09:10

Тяжелый случай

Вставьте код в отдельный модуль основной книги.

@zLegendary · 27.10.2014, 09:29 **[ТС]**

Сообщение от Апострофф

Тяжелый случай Вставьте код в отдельный модуль основной книги.

Спасибо, в отдельном модуле все правильно работает.
Сколько уже сталкивался с трудностями, всегда ваши ответы помогали. Еще раз спасибо.

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@zLegendary 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 44
	27.10.2014, 08:27 [ТС]
	Я не понял. Когда выполняю, создается новая книга, и копируется туда лист 2. 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	27.10.2014, 08:30
	Сделайте активным Лист1. 1

@zLegendary 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 44
	27.10.2014, 08:37 [ТС]
	Большое спасибо, а можно сделать так, чтобы результат выводился на другой лист? Нужно чтобы этот список не изменялся, то есть, у человека есть список всех манометров, он нажал кнопку, и на другом листе ему вывело: сколько каких манометров есть. 0

@zLegendary 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 44
	27.10.2014, 08:47 [ТС]
	У меня в новой книге появляется копия первоначального списка. А редактируется основная таблица. 0

@zLegendary 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 44
	27.10.2014, 08:59 [ТС]
	Вот на скринах видно, может я что то не так сделал? Вот как я вставил ваш код: Кликните здесь для просмотра всего текста запускаю через макрос Миниатюры 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	27.10.2014, 09:10
	Тяжелый случай Вставьте код в отдельный модуль основной книги. Миниатюры 1

Создание списка с повторяющимися параметрами

Решение