Вывести данные о том, сколько среди вкладчиков служащих, рабочих и колхозников

@Makcim2288 · Регистрация: 15.04.2019

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

Помогите с заданием, пожалуйста. Не могу понять как его делать(
спасибо♥

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

@aequit · 31.01.2020, 13:15

Хоть книжку какую почитайте, если учитесь: задание элементарное, на одну формулу (или Вы не умеете внятно ставить задачу).

@Hugo121 · 31.01.2020, 13:26

Я не увидел ничего про Эксель.

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

Дана информация

может быть просто в тексте, ну или устно

@Makcim2288 · 06.02.2020, 10:15 **[ТС]**

мне нужно в vba это сделать

@yutrans · 06.02.2020, 10:33

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

мне нужно в vba это сделать

А в этой теме в чем нужно сделать?
Телефонная книга: внести в начало списка информацию о четырех новых знакомых

@Makcim2288 · 07.02.2020, 11:20 **[ТС]**

там тоже vba)))
уже сам сделал
а это не могу

@yutrans · 07.02.2020, 12:37

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

а это не могу

Что не получается? Приложите файл.

@Dinoxromniy · 09.02.2020, 10:12

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

мне нужно в vba это сделать

Решение для VBA в Autocad. Таблица должна быть выполнена как объект автокада в соответствии с описанием в вашем первом посте. Результат вставляется в пространстве модели в начале координат(0,0,0) в виде текста.

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
27
28
Sub Table_Social()
    Dim i As Integer, n As Integer, m As Integer, k As Integer
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    Dim sstext As AcadSelectionSet
  
    Set sstext = ThisDrawing.SelectionSets.Add("S1")
    sstext.SelectOnScreen
    For i = 2 To sstext.Item(0).Rows
   
    Select Case sstext.Item(0).GetCellValue(i, 2)
        Case "колхозник"
        n = n + 1
        Case "служащий"
        m = m + 1
        Case "рабочий"
        k = k + 1
    End Select
    insertionPoint(0) = 0: insertionPoint(1) = 0: insertionPoint(2) = 0
    height = 0.5
    Next i
 
    
    ThisDrawing.ModelSpace.AddText n & " колхозников, " & m & " служащих, " & k & " рабочих", insertionPoint, height
    
    sstext.Delete
    Set sstext = Nothing
End Sub

@Reall · 13.11.2021, 08:22

А на С+ может кто-то пожалуйста программу написать полностью?

@yutrans · 13.11.2021, 17:50

обратитесь в соответствующий раздел

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Makcim2288 0 / 0 / 0 Регистрация: 15.04.2019 Сообщений: 69

	Вывести данные о том, сколько среди вкладчиков служащих, рабочих и колхозников 31.01.2020, 08:41. Показов 2095. Ответов 9 Метки vba, vba excel (Все метки) Помогите с заданием, пожалуйста. Не могу понять как его делать( спасибо♥ Дана информация о шести вкладчиках в сберкассы. Запись имеет вид: фамилия, район, социальное положение, величина вклада. Вывести данные о том, сколько среди вкладчиков служащих, рабочих и колхозников 0

@Makcim2288 0 / 0 / 0 Регистрация: 15.04.2019 Сообщений: 69
	06.02.2020, 10:15 [ТС]
	мне нужно в vba это сделать 0

@Makcim2288 0 / 0 / 0 Регистрация: 15.04.2019 Сообщений: 69
	07.02.2020, 11:20 [ТС]
	там тоже vba))) уже сам сделал а это не могу 0

@Reall 0 / 0 / 0 Регистрация: 11.11.2021 Сообщений: 3
	13.11.2021, 08:22
	А на С+ может кто-то пожалуйста программу написать полностью? 0

@yutrans 142 / 125 / 50 Регистрация: 10.11.2011 Сообщений: 622
	13.11.2021, 17:50
	обратитесь в соответствующий раздел 0