Как для 1 этажа определить квартиру, в которой проживает наибольшее число жильцов?

@Boberp · Регистрация: 26.05.2018

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

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

@Ципихович Эндрю · 29.05.2018, 19:02

наибольшее число жильцов = 0
если в квартира 1 число жильцов больше чем наибольшее число жильцов, тогда наибольшее число жильцов = число жильцов квартиры 1

и так далее в цикле по количеству квартир

@Boberp · 29.05.2018, 20:08 **[ТС]**

Спасибо, а когда нашел наибольшее число жителей среди этой строки, как теперь вывести так что например они в первой квартире
например:1этаж-Первая квартира

Visual Basic
1
2
3
4
5
6
7
8
Dim z,j  As Integer
z = 0
For j = 1 To 3
If Cells(3, j + 1) > z Then
z = Cells(3, j + 1)
End If
Next j
Cells(8, 2) = z

@Ципихович Эндрю · 29.05.2018, 22:10

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

когда нашел наибольшее число жителей среди этой строки, как теперь вывести так что например они в первой квартире

ну так вот же - куда захотели туда и выводите

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

Cells(8, 2) = z

@Boberp · 29.05.2018, 22:15 **[ТС]**

В этот диапазон выведется число z(те наибольшее которое мы нашли), а мне нужно что бы туда вывелась квартира

@Ципихович Эндрю · 29.05.2018, 22:20

так тогда
переменную квартира заведите

Visual Basic
1
2
3
4
If Cells(3, j + 1) > z Then
z = Cells(3, j + 1)
квартира = j + 1
End If

@Казанский · 30.05.2018, 00:31

Boberp,

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

например:1этаж-Первая квартира

Code
1
=A3&"-"&ИНДЕКС(B2:D2;ПОИСКПОЗ(МАКС(B3:D3);B3:D3;))

или на VBA

Visual Basic
1
2
3
4
  With Cells(8, 2)
    .Formula = "=A3&""-""&INDEX(B2:D2,MATCH(MAX(B3:D3),B3:D3,))"
    .Value = .Value
  End With

@Boberp · 30.05.2018, 01:01 **[ТС]**

А возможно реализовать это не через макрос для большей таблицы?

@Boberp · 30.05.2018, 01:02 **[ТС]**

вот такой например

@Казанский · 30.05.2018, 10:26

Boberp,

Visual Basic
1
2
3
4
  With range("F3:F" & cells(rows.count,1).end(xlup).row)
    .Formula = "=A3&""-""&INDEX(B$2:D$2,MATCH(MAX(B3:D3),B3:D3,))"
    .Value = .Value
  End With

Не проверял - с картинкой макрос не работает, а файла Excel нет.

Добавлено через 3 минуты

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

не через макрос для большей таблицы?

Формулу по столбцу протяните

Code
1
=A3&"-"&ИНДЕКС(B$2:D$2;ПОИСКПОЗ(МАКС(B3:D3);B3:D3;))

@Boberp · 30.05.2018, 10:32 **[ТС]**

А если будет в каждой квартире одинаковое кол'во жителей, он выведет только одну квартиру из них, возможно все?

@Vlad999 · 30.05.2018, 13:26

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

возможно все?

Возможно с помощью UDF. на форуме было. СЦЕПИТЬЕСЛИ поищите.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Boberp 0 / 0 / 0 Регистрация: 26.05.2018 Сообщений: 71

	Как для 1 этажа определить квартиру, в которой проживает наибольшее число жильцов? 29.05.2018, 18:37. Показов 1382. Ответов 11 Метки нет (Все метки) Подскажите пожайлуста как для 1 этажа определить квартиру, в которой проживает наибольшее число жильцов. Данные изначально даны.Код можно не писать, а помочь с тем как это реализовать. Миниатюры 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,328
	29.05.2018, 19:02
	наибольшее число жильцов = 0 если в квартира 1 число жильцов больше чем наибольшее число жильцов, тогда наибольшее число жильцов = число жильцов квартиры 1 и так далее в цикле по количеству квартир 0

@Boberp 0 / 0 / 0 Регистрация: 26.05.2018 Сообщений: 71
	29.05.2018, 22:15 [ТС]
	В этот диапазон выведется число z(те наибольшее которое мы нашли), а мне нужно что бы туда вывелась квартира Изображения 0

@Boberp 0 / 0 / 0 Регистрация: 26.05.2018 Сообщений: 71
	30.05.2018, 01:01 [ТС]
	А возможно реализовать это не через макрос для большей таблицы? 0

@Boberp 0 / 0 / 0 Регистрация: 26.05.2018 Сообщений: 71
	30.05.2018, 01:02 [ТС]
	вот такой например Миниатюры 0

@Boberp 0 / 0 / 0 Регистрация: 26.05.2018 Сообщений: 71
	30.05.2018, 10:32 [ТС]
	А если будет в каждой квартире одинаковое кол'во жителей, он выведет только одну квартиру из них, возможно все? 0

Как для 1 этажа определить квартиру, в которой проживает наибольшее число жильцов?

Решение