Найдите количество каждого из чисел исходного массива

@чертенок · Регистрация: 04.12.2010

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

Здравствуйте, помогите пожалуйста!Вот задание :Д. Найдите количество каждого из чисел исходного массива и результат запишите в соответствующие ячейки (соответствующая процедура), например:
Было:
10
20
10
8
10
20
10
9
9
10
10
Результат:
10 20 8 9
6 2 1 2
Я никак не пойму как пробежать все цифры....

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
Sub zad1()
Range("A1:A50").Clear
  '  Selection.ClearContents
'Sum = 0
't = 0
r = Int(Rnd * 36) + 3
MsgBox r
For j = 3 To r
z = Int(100 * Rnd) - 50
Cells(j, 1) = z
Next
End Sub
Sub zad6()
Call zad1
Range("D4").Clear
Range("E1:E50").Clear
Range("C2:AB2").Clear
p = 0
For j = 3 To r
z = Cells(j, 1)
k = Cells(j, 1)
If k = Cells(j, 1) Then
p = p + 1
End If
Next
MsgBox p
End Sub

Вот я тока с первым сравнила все числа

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

@kuklp · 18.12.2011, 06:44

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub zad6()
    Dim c
    With CreateObject("Scripting.Dictionary")
        For Each c In [a3].CurrentRegion.Value
            If .Exists(c) Then .Item(c) = .Item(c) + 1 Else .Add c, 1
        Next
        [a65536].End(xlUp).Offset(2).Resize(, .Count).Value = .keys
        [a65536].End(xlUp).Offset(1).Resize(, .Count).Value = .items
    End With
End Sub

Ну и:

Visual Basic
1
2
3
4
5
6
7
Sub zad1()
    Dim j&
    Cells.Clear
    For j = 3 To Int(Rnd * 36) + 3
        Cells(j, 1) = Int(100 * Rnd) - 50
    Next
End Sub

@чертенок · 19.12.2011, 19:38 **[ТС]**

А можете пояснить , что делают эти строки.

Visual Basic
1
2
3
4
5
6
With CreateObject("scripting.dictionary") 'создается новый объект
        For Each c In [a3].CurrentRegion.Value 
            If .Exists(c) Then .Item(c) = .Item(c) + 1 Else .Add c, 1
        Next
        [a34].End(xlUp).Offset(2).Resize(, .Count).Value = .keys
        [a34].End(xlUp).Offset(1).Resize(, .Count).Value = .items

Что такое CurrentRegion.Value
.Exists(c)
.End(xlUp)
Мы не пользуемся такими словами, буду рада если поясните

.Спасибо!

@kuklp · 19.12.2011, 19:52

Сообщение от чертенок

А можете пояснить , что делают эти строки.

Visual Basic
1
2
3
4
5
6
With CreateObject("scripting.dictionary") 'создается новый объект [B]словарь[/B]
        For Each c In [a3].CurrentRegion.Value 
            If .Exists(c) Then .Item(c) = .Item(c) + 1 Else .Add c, 1
        Next
        [a34].End(xlUp).Offset(2).Resize(, .Count).Value = .keys - у меня было [a65536].End(xlUp)
        [a34].End(xlUp).Offset(1).Resize(, .Count).Value = .items

Что такое CurrentRegion.Value - текущий массив ограниченный пустыми столбцами и строками;
If .Exists(c) - если такой ключ в словаре уже существует...;
.End(xlUp) - определение последней заполненной ячейки.

@чертенок · 19.12.2011, 22:01 **[ТС]**

А как очистку написать для этого кусочка

Visual Basic
1
2
3
4
5
6
7
 With CreateObject("scripting.dictionary")
        For Each c In [a3].CurrentRegion.Value
            If .Exists(c) Then .Item(c) = .Item(c) + 1 Else .Add c, 1
        Next
        [a65536].End(xlUp).Offset(2).Resize(, .Count).Value = .keys
        [a65536].End(xlUp).Offset(1).Resize(, .Count).Value = .items
    End With

Подскажите пожалуйста

@kuklp · 19.12.2011, 22:13

Visual Basic
1
[a65536].End(xlUp).currentregion.clear

@чертенок · 19.12.2011, 22:40 **[ТС]**

Простите,но у меня опять вопрос

. У меня задание было большое и я его теперь по кусочкам помещаю в кнопки.

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
29
30
31
32
33
34
35
36
Private Sub CommandButton6_Click() 'процедура, которая создает копию исходного массива и из него удаляет все минимальные и максимальные значения. 
Range("E1:E50").Clear
max = Cells(3, 1)
min = Cells(3, 1)
For j = 3 To r
z = Cells(j, 1)
'MsgBox z
Next
Range(Cells(3, 1), Cells(r, 1)).Copy
Range("E3").Insert
'Cells(n, 5).Delete
'Cells(m, 5).Delete
Call CommandButton5_Click
Range("D4").Clear
For j = 3 To r
If Cells(j, 5) = n Then
Cells(j, 5).Delete
End If
If Cells(j, 5) = m Then
Cells(j, 5).Delete
End If
Next
End Sub
 
Private Sub CommandButton7_Click()
 Dim c
 'Range("E1:E50").Clear
    'Call zad1
       With CreateObject("scripting.dictionary")
        For Each c In [a3].CurrentRegion.Value
            If .Exists(c) Then .Item(c) = .Item(c) + 1 Else .Add c, 1
        Next
        [a65536].End(xlUp).Offset(2).Resize(, .Count).Value = .keys
        [a65536].End(xlUp).Offset(1).Resize(, .Count).Value = .items
    End With
End Sub

И вот если сперва выполнить CommandButton7_Click, а потом CommandButton6_Click, то там косяк получается

Если можете скажите что мне сделать...

@kuklp · 19.12.2011, 22:53

Вы бы свой файл выложили. Так я не понимаю, что такое r, CommandButton5_Click и какой "косяк получается".

@чертенок · 19.12.2011, 23:06 **[ТС]**

Я попробовола вложить файл не знаю отправится ли он на форум, никогда не отправляла

@kuklp · 19.12.2011, 23:50

Посмотрите.

@чертенок · 20.12.2011, 00:20 **[ТС]**

Спасибо ,Вам, большое!!!

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	19.12.2011, 22:53
	Вы бы свой файл выложили. Так я не понимаю, что такое r, CommandButton5_Click и какой "косяк получается". 0

@чертенок 18 / 18 / 1 Регистрация: 04.12.2010 Сообщений: 60
	20.12.2011, 00:20 [ТС]
	Спасибо ,Вам, большое!!! 0