Сортировка массива, данные которого помещены в одну ячейку

@E_X_E · Регистрация: 06.10.2014

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

Подскажите что я делаю не так. Требуется чтобы программа отсортировала массив который задается в ячейке например 1,1 и показала результат в виде окна уведомления.
Проблема в том что когда я запускаю программу, комп предлагает мне создать новый массив , а когда я закрываю ексель сохранив с поддержкой макросов. При повторном запуске макроса ваще не бывает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Laba5var10(A() As Double)
A() = Cells(i, 1)
n% = UBound(A, 1)
q% = 0
    For i% = 1 To n - 1
        If A(i) > A(i + 1) Then
        q% = -1
        tmp% = A(i%)
              A(i%) = A(i% + 1)
              A(i% + 1) = tmp%
        End If
    Next i%
        If q% = 0 Then Exit For
        MsgBox "A()"
    Loop
End Sub

@Alex77755 · 31.10.2014, 11:59

массив который задается в ячейке например 1,1

В принципе массив можно записать и в одну ячейку.
Но это будет всего лишь текст.
И просто считав его массива не получится.
Да и не делают так.
В екселе массив записывают располагая каждый элемент в отдельной ячейке

Visual Basic
1
 A() = Cells(i, 1)

В данном случае i глобальная переменная? Чему равна?

@E_X_E · 31.10.2014, 21:12 **[ТС]**

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

Добавлено через 8 минут
А точнее он код компилирует а программу не запускает

@E_X_E · 31.10.2014, 21:24 **[ТС]**

https://www.cyberforum.ru/atta... 1414779841
Это происходит при нажатии на плей

@Alex77755 · 31.10.2014, 21:34

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

Может быть...

@Hugo121 · 02.11.2014, 01:06

Макрос не пропадает - просто это не исполняемый таким образом макрос. Это процедура, которая должна вызываться из другого макроса, указав параметр (вот этот самый несчастный массив А(), с которым непонятно что происходит).

@Alex77755 · 02.11.2014, 09:00

Зачет тогда считывать в переманную А значение если массив передан как аргумент?

Visual Basic
1
A() = Cells(i, 1)

@E_X_E · 02.11.2014, 10:35 **[ТС]**

Я не до конца вас понимаю объясните по лучше как это сделать, и что нам это даст? Пожалуйста не говорите загадками

@Alex77755 · 02.11.2014, 12:18

Какие ж загадки. проанализируй каждую строку:

Visual Basic
1
Sub Laba5var10(A() As Double)

На начало процедуры в А находится массив, который передан вызывающей процедурой в качестве аргумента

Visual Basic
1
A() = Cells(i, 1)

В переменную А считали содержимое ячейки Cells(i, 1) активного листа. Тем самым затерев массив.
Что не понятно?
Непонятно только нужна ли в этой процедуре глобальная переменная?
Почему глобальная? По тому, что в этой процедуре она не объявляется и не назначается.
И в лудшем случае (вернее в худшем) если не установлена Option Explicit в этой процедуре значение i будет пустым и вызовет ошибку
Просто удали строку

Visual Basic
1
A() = Cells(i, 1)

@Hugo121 · 02.11.2014, 17:13

Ну вообще такое может иногда быть нужно - передаём процедуре массив (не важно какой, может с данными, а может пустой), процедура его заполняет и возвращает, далее делаем с ним что угодно.
А вообще - был бы к коду приложен файл, всё было бы понятнее. Я вот пока вообще не пойму, что за массив в ячейке, да и что должно быть показано "в виде окна уведомления" - тоже.

@E_X_E · 03.11.2014, 13:16 **[ТС]**

В ячейке любой массив не отсортированный , а в окне тот же массив только сортированный

Добавлено через 11 минут
Короче вот задание. У меня даже массив отсортировать не получается...

Дан массив вещественных чисел A[20]. Определить количество различных элементов в массиве, повторяющиеся элементы считать один раз.

@Hugo121 · 03.11.2014, 14:15

Зачем "массив в ячейке"? Да и как это вообще будет выглядеть?
Зачем его сортировать?

Ну а задачу я бы делал используя коллекцию, или словарь. Но Вы вероятно это ещё не изучали... Или уже?

Добавлено через 11 минут
С коллекцией примерно так:

Visual Basic
1
2
3
4
5
6
    On Error Resume Next
    For Each el In a
        col.Add el, CStr(el)
    Next
    On Error GoTo 0
    MsgBox col.Count

@Alex77755 · 03.11.2014, 14:46

У меня даже массив отсортировать

А разве в задании такое есть?

@Alex77755 · 03.11.2014, 15:04

См. вложение

@Alex77755 · 03.11.2014, 15:07

Дан массив вещественных чисел A[20]

Это вовсе не значит, чтомассив в одной ячейке.
Обычно пишется так: Дан массив вещественных чисел A(20)

@E_X_E · 03.11.2014, 16:25 **[ТС]**

Спасибо, извиняюсь за ту фигню которую нес,)) буду разбираться в коде)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

Сортировка массива, данные которого помещены в одну ячейку

Решение

Решение

@E_X_E 1 / 1 / 0 Регистрация: 06.10.2014 Сообщений: 94
	31.10.2014, 21:12 [ТС]
	Ок, а вот что на счет того что при перезапуске екселя макрос куда то пропадает. Добавлено через 8 минут А точнее он код компилирует а программу не запускает 0

@E_X_E 1 / 1 / 0 Регистрация: 06.10.2014 Сообщений: 94
	31.10.2014, 21:24 [ТС]
	https://www.cyberforum.ru/atta... 1414779841 Это происходит при нажатии на плей Миниатюры 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	02.11.2014, 01:06
	Макрос не пропадает - просто это не исполняемый таким образом макрос. Это процедура, которая должна вызываться из другого макроса, указав параметр (вот этот самый несчастный массив А(), с которым непонятно что происходит). 1

@E_X_E 1 / 1 / 0 Регистрация: 06.10.2014 Сообщений: 94
	02.11.2014, 10:35 [ТС]
	Я не до конца вас понимаю объясните по лучше как это сделать, и что нам это даст? Пожалуйста не говорите загадками 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	02.11.2014, 17:13
	Ну вообще такое может иногда быть нужно - передаём процедуре массив (не важно какой, может с данными, а может пустой), процедура его заполняет и возвращает, далее делаем с ним что угодно. А вообще - был бы к коду приложен файл, всё было бы понятнее. Я вот пока вообще не пойму, что за массив в ячейке, да и что должно быть показано "в виде окна уведомления" - тоже. 1

@E_X_E 1 / 1 / 0 Регистрация: 06.10.2014 Сообщений: 94
	03.11.2014, 13:16 [ТС]
	В ячейке любой массив не отсортированный , а в окне тот же массив только сортированный Добавлено через 11 минут Короче вот задание. У меня даже массив отсортировать не получается... Дан массив вещественных чисел A[20]. Определить количество различных элементов в массиве, повторяющиеся элементы считать один раз. 0

@E_X_E 1 / 1 / 0 Регистрация: 06.10.2014 Сообщений: 94
	03.11.2014, 16:25 [ТС]
	Спасибо, извиняюсь за ту фигню которую нес,)) буду разбираться в коде) 0