По примеру данной задачи нужно выполнить другую задачу, у самой не выходит

@Алена1993 · Регистрация: 29.05.2011

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

Пример:

Visual Basic

Type Spisok
LastName As String
FirstName As String
PapaName As String
Age As Byte
End Type
Private Function sortByLastName(massive() As Spisok, massiveSize As Integer, key As Boolean) As Spisok()
' key = true - по возрастанию
' key = false - по убыванию
    Dim sI As Integer, sJ As Integer, buf As Spisok
    
    For sI = 1 To massiveSize - 1
        For sJ = 1 To massiveSize - sI
            If (key) Then
                If (massive(sJ).LastName > massive(sJ + 1).LastName) Then
                    buf = massive(sJ)
                    massive(sJ) = massive(sJ + 1)
                    massive(sJ + 1) = buf
                End If
            Else
                If (massive(sJ).LastName < massive(sJ + 1).LastName) Then
                    buf = massive(sJ)
                    massive(sJ) = massive(sJ + 1)
                    massive(sJ + 1) = buf
                End If
            End If
        Next sJ
    Next sI

Условие моей задачи:

В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. Причем в первых трех столбцах рабочего листа записаны: фамилия, имя и отчество. Необходимо написать программу, делающую выборку сотрудников по введенным с клавиатуры имени сотрудника и его возрасту. Имена полей и их содержимое придумать самостоятельно. Полученную выборку отсортировать по возрасту и вывести на второй рабочий лист.

Скрипт · 28.05.2013, 11:48

Алена1993, сформируйте Excel-книгу, связанную с этим заданием, выложите эту книгу на Форуме и на основе этой книге напишите, что нужно сделать.

@Алена1993 · 28.05.2013, 11:56 **[ТС]**

В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. Причем в первых трех столбцах рабочего листа записаны: фамилия, имя и отчество. Необходимо написать программу, делающую выборку сотрудников по введенным с клавиатуры имени сотрудника и его возрасту. Имена полей и их содержимое придумать самостоятельно. Полученную выборку отсортировать по возрасту и вывести на второй рабочий лист.

На основе данных которые находятся в приложенном файле.

Скрипт · 28.05.2013, 12:22

Сообщение от Алена1993

В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы.

в выложенном книге всего 4 столбца с данными.

Исправьте описание задачи в соответствии с выложенной книгой.

@Алена1993 · 28.05.2013, 12:39 **[ТС]**

Теперь кол-во столбцов соответствует заданию.

Скрипт · 28.05.2013, 12:47

Сообщение от Алена1993

Имена полей и их содержимое придумать самостоятельно.

а что за поля? Где их можно посмотреть у вас?

Сообщение от Алена1993

Полученную выборку отсортировать по возрасту

сортировать нужно VBA-средствами или можно VBA-Excel-средствами?

Какой алгоритм работы кода?

пользователь нажимает на кнопку на панели инструментов;
запускается макрос;
а дальше что должно произойти?

@Алена1993 · 28.05.2013, 13:47 **[ТС]**

Поля я написала, в приложенном файле. Сортировать VBA-средствами.
Алгоритм:
1. пользователь нажимает на кнопку на панели инструментов;
2. запускается макрос;
3. появляется окно в котором мы должны написать имя
4. появляется окно в котором мы должны написать возраст
5. на Листе 2 он отображает сотрудников с введенным именем и возрастом, а так же этот список сортирует по возрасту (от мин к макс)

Скрипт · 28.05.2013, 13:52

Сообщение от Алена1993

Поля я написала, в приложенном файле.

в данном случае под полями вы подразумеваете столбцы на Excel-листе?

@Алена1993 · 28.05.2013, 14:16 **[ТС]**

Именно =)

Скрипт · 28.05.2013, 14:17

Алена1993, а на второй лист какие столбцы должны перенестись из первого листа?

@Алена1993 · 28.05.2013, 14:41 **[ТС]**

Столбцы должны перенестись все, только данные тех сотрудников которые были введены с клавиатуры (имя, возраст), и сортировка по возрасту.

Скрипт · 28.05.2013, 14:43

Сообщение от Алена1993

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

если предполагается сортировка по возрасту, значит нужно несколько возрастов ввести? Как вы это представляете: появляется окно "InputBox" и как туда ввести несколько возрастов?

@Алена1993 · 28.05.2013, 16:06 **[ТС]**

В списках есть несколько сотрудников которым 21 год.

Скрипт · 28.05.2013, 16:10

Алена1993, допустим вы ввели:
Мария
21

Макрос двигается по столбцу "B", если есть имя "Мария", то смотрит столбец "D", если 21, значит эта наша строка.
Макрос собрал такие строки, только зачем их сортировать потом, если в них данные одинаковые по имени и возрасту?

Вы не можете сформулировать задачу.

@Алена1993 · 29.05.2013, 07:49 **[ТС]**

Это условие задачи я не сама сочиняла, мне такая досталась.. поэтому и сделать никак не могу, есть только пример.

Скрипт · 29.05.2013, 08:17

Алена1993, напишите алгоритм на Форуме. Может быть вам кто-нибудь поможет. Пока не понятно, как должен работать код.

@Алена1993 · 29.05.2013, 08:19 **[ТС]**

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

Скрипт · 29.05.2013, 08:24

Алена1993, у преподавателя узнайте, как должна работать программа.

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	29.05.2013, 07:49 [ТС]	15
	Это условие задачи я не сама сочиняла, мне такая досталась.. поэтому и сделать никак не могу, есть только пример. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	29.05.2013, 08:24	18
	Алена1993, у преподавателя узнайте, как должна работать программа. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 11:48	2
	Алена1993, сформируйте Excel-книгу, связанную с этим заданием, выложите эту книгу на Форуме и на основе этой книге напишите, что нужно сделать. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 12:22	4
	Сообщение от Алена1993 В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. в выложенном книге всего 4 столбца с данными. Исправьте описание задачи в соответствии с выложенной книгой. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 12:47	6
	Сообщение от Алена1993 Имена полей и их содержимое придумать самостоятельно. а что за поля? Где их можно посмотреть у вас? Сообщение от Алена1993 Полученную выборку отсортировать по возрасту сортировать нужно VBA-средствами или можно VBA-Excel-средствами? Какой алгоритм работы кода? пользователь нажимает на кнопку на панели инструментов; запускается макрос; а дальше что должно произойти? 0

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	28.05.2013, 13:47 [ТС]	7
	Поля я написала, в приложенном файле. Сортировать VBA-средствами. Алгоритм: 1. пользователь нажимает на кнопку на панели инструментов; 2. запускается макрос; 3. появляется окно в котором мы должны написать имя 4. появляется окно в котором мы должны написать возраст 5. на Листе 2 он отображает сотрудников с введенным именем и возрастом, а так же этот список сортирует по возрасту (от мин к макс) 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 13:52	8
	Сообщение от Алена1993 Поля я написала, в приложенном файле. в данном случае под полями вы подразумеваете столбцы на Excel-листе? 0

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	28.05.2013, 14:16 [ТС]	9
	Именно =) 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 14:17	10
	Алена1993, а на второй лист какие столбцы должны перенестись из первого листа? 0

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	28.05.2013, 14:41 [ТС]	11
	Столбцы должны перенестись все, только данные тех сотрудников которые были введены с клавиатуры (имя, возраст), и сортировка по возрасту. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 14:43	12
	Сообщение от Алена1993 появляется окно в котором мы должны написать возраст если предполагается сортировка по возрасту, значит нужно несколько возрастов ввести? Как вы это представляете: появляется окно "InputBox" и как туда ввести несколько возрастов? 0

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	28.05.2013, 16:06 [ТС]	13
	В списках есть несколько сотрудников которым 21 год. 0

Опции темы

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	28.05.2013, 16:10	14
	Алена1993, допустим вы ввели: Мария 21 Макрос двигается по столбцу "B", если есть имя "Мария", то смотрит столбец "D", если 21, значит эта наша строка. Макрос собрал такие строки, только зачем их сортировать потом, если в них данные одинаковые по имени и возрасту? Вы не можете сформулировать задачу. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	29.05.2013, 08:17	16
	Алена1993, напишите алгоритм на Форуме. Может быть вам кто-нибудь поможет. Пока не понятно, как должен работать код. 0

@Алена1993 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 19
	29.05.2013, 08:19 [ТС]	17
	может только выборку сделать, а сортировать нет необходимости 0