Создать макрос в excel2003

@Mazik777 · Регистрация: 20.06.2014

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

Само задание выглядит так:
Взять матрицу M x N. Расставить по возрастанию элементы заданной строки. Вывести результирующую матрицу рядом с исходной. M=6, N=4.

На скриншоте видно как должно получится (выделено желтым), при вводе в ячейку 1D номер строки должно произойти сортировка только этой строчки

@Hugo121 · 20.04.2016, 20:56

Не по теме:

Не, бросай... Правильно люди говорят :)
Ещё и с английским вообще никак... В армию!

@Mazik777 · 20.04.2016, 21:16 **[ТС]**

форум юмора чтоли?

@Sasha_Smirnov · 20.04.2016, 21:51

Mazik777, не стесняйтесь, спрашивайте про каждую букву и значок.

Да, немного смешно — выполнять задание незнакомого человека (если сам почти всё делал сам!).

Hugo121 предложил не то, что вы написали, а вот так: заменить

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

Visual Basic
1
With r.Rows(2) 'допустим ввели такой номер строки

на

Visual Basic
1
With Range("D1") 'допустим ввели такой номер строки

Работает?

Добавлено через 24 минуты
За 25 минут могли бы уже и испытать.

@Mazik777 · 20.04.2016, 21:51 **[ТС]**

неа

@Hugo121 · 20.04.2016, 22:42

Не, не так я предлагал - там в D1 ведь указывается номер строки

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

With r.Rows(2) 'допустим ввели такой номер строки

значит если дословно выполнить

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

- вместо числа в коде напишите Range("D1")

то получится

Visual Basic
1
With r.Rows(Range("D1"))

Добавлено через 2 минуты
Насчёт английского - если не поняли что означает Rows(2), значит с английским туго...

@Sasha_Smirnov · 22.04.2016, 11:39

Казанский (Сделать так, чтобы при закрытии книги удалялась кнопка) и Апострофф (http://cyberforum.ru/vba/thread1559839.html#2), а также очень нелюбознательный ANDREY33¹ и безответный zargar² (дай бог ему здоровья) помогли мне в создании такой вот игрушки³.
________________________________________ _
¹

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

Квадратура.xls (70.0 Кб, 1 просмотр, при 334 просмотрах темы + 11 за 6 ч утром 22 апреля — и никому неинтересно!)

²

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

Апертура.xls (63.0 Кб, 0 просмотров, при 239 просмотрах темы + 10 за эти 6 ч)

³

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

Креатура.xls (63.0 Кб; 365 просмотров темы)

Не по теме:

А тем временем roma9595, неожиданно для себя, открыл мне 2-ю тыщу благодарностей (см. рис. 2 и 3)! Удачное начало дня рождения Ильича!

Mazik777, это просто импровизация на заданную тему; поставил ей 5 звёзд. И вам советую!

@Mazik777 · 23.04.2016, 13:13 **[ТС]**

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

Креатура.xls (63.0 Кб, 0 просмотров)

ошибки вылетают ничего не делается

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

то получится
Visual BasicВыделить код
1
With r.Rows(Range("D1"))

сейчас попробую,благодарю)

Добавлено через 8 минут
во,уже что то получается....меняются числа но сортировка происходит не правильно

Добавлено через 5 минут
всё разобрался,помогите еще сделать кнопку для выполнения этого макроса tt

Добавлено через 22 секунды
огромное спасибо всем)

Добавлено через 13 минут
почему то сортировка проходит только 3-х столбцов а не 5-и

@Hugo121 · 23.04.2016, 13:37

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

почему то сортировка проходит только 3-х столбцов а не 5-и

вероятно потому что указано сортировать 4 столбца (один на Вашем скрине скрыт, вероятно потому речь о трёх), а не пять

Вот тут:

Visual Basic
1
Set r = [k7:n12]

@Mazik777 · 23.04.2016, 13:56 **[ТС]**

на скрине 5 столбцов же...а какие цифры надо указать тогда для 5

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

k7:n12

?

@Hugo121 · 23.04.2016, 16:39

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

на скрине 5 столбцов же...а какие цифры надо указать тогда для 5

На скрине нет столбца K! Поэтому от диапазона k7:n12 остаётся только 3 столбца.
Хотя что там у Вас в файле - знаете только Вы, поэтому не спрашивайте меня.
Ну а для пяти логично что нужно указать пять столбцов.
Например A1:E10

И цифры тут не при чём, цифры относятся к строкам. На скрине ведь всё видно. Да и D1 уже обсуждали...

Не по теме:

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

@Sasha_Smirnov · 23.04.2016, 17:08

Не по теме:

Hugo121, автоматизация, как мы знаем, и у гуманитариев в чести!

Только они порой испытывают пред нею священный трепет; ну что ж, заслуженно!

Hugo 121-й, приём! Посмотрите, пожалуйста, какие там*

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

ошибки вылетают

Я отлаживал в двух Excel’ях, 2003 и 2007 (занимался этим часов 20) — не вылетало!
А кстати — часом не эта?

Visual Basic
1
    MsgBox "Worksheet_SelectionChange is running…"

______
*

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

Креатура.xls (63.0 Кб, 2 просмотров [на 111 посетителей темы (334→445)])

@Hugo121 · 23.04.2016, 17:09

Врёт статистика -= должно быть как минимум 2 (1 ведь уже было недавно

)

@Sasha_Smirnov · 23.04.2016, 23:10

Да она обновляется не сразу (я её опередил)! Об этом св. Няка Лайк* хорошо сказал.

Mazik777, а что там с "вылетом"? Как он вобще выглядит? Он таков же, как и в проекте

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

Апертура.xls (63.0 Кб, 0 просмотров),

или это что-то новенькое?

У меня, как я ни крутил, Креатура** сортирует строку k (назначенную в коде) как надо (см. 2 скрина внизу).
____________
*

Сообщение от Святой НякаЛайк

*маленький принц*

**

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

Креатура.xls (63.0 Кб, 5 просмотров) — неужели придётся ждать сакрального "21 просмотров"?!

@Mazik777 · 24.04.2016, 00:56 **[ТС]**

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

Ну а для пяти логично что нужно указать пять столбцов.
Например A1:E10
И цифры тут не при чём, цифры относятся к строкам. На скрине ведь всё видно. Да и D1 уже обсуждали...

Спасибо,вспомнил тему))

@Mazik777 · 24.04.2016, 00:59 **[ТС]**

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

Mazik777, а что там с "вылетом"? Как он вобще выглядит? Он таков же, как и в проекте

Вот такие ошибки по мышке понятно нажимал или нет

@Sasha_Smirnov · 24.04.2016, 04:22

Ясно: надпись на Button1 не изменилась при запуске Excel.

Mazik777, попробуйте удерживать клавишу Shift, открывая этот документ. Что будет?

По сути, возникает режим конструктора (design). Испытайте, пожалуйста, аналог без него:

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

Квадратура.xls (70.0 Кб, 2 просмотра)

Этот — работает?

(Из 6 испытаний только 1 отзыв — а кто ещё открывал, да не открыл, не молчите.)

Отключил подпрограмму

Visual Basic
1
Sub Workbook_Open() 'выполнялась при открытии этой книги

Если моя интерпретация «вылета» верна, то вот это сработает у всех имеющих Excel и VBA:

@Святой НякаЛайк · 01.05.2016, 15:59

Кроме маленького принца здесь носится красная шапочка, только носит она пирожки по одному, где хочется корзиной их наблюдать. Вот например из-за большого числа правок одного сообщения я получаю 14 оповещений о по-сути одном и том же упоминании моего забавного ник-нейма:
14 правок одного комментария?
Социологи отмечали, кажется, что увлечение смс-сообщениями сказывается на мышлении. Перенесём теорию на программирование? Опытный программист, предположим, создает текст комментария или допустим публичное высказывание так же, как пишет программный код: набрал-отправил в среду, затестил, вернулся - доработал, подкорректировал, опять отправил - затестил. Результат всегда радует: тексты мсье Смирнова лично мне очень интересно читать - изящная игра слов, высокая смысловая плотность (не дай мне бог до конца понять, что это значит!). Проще говоря - ёмко, кратко, сильно!
Я так не умею, думал другим от природы дано, а теперь палево возникло: Вёрстка!!! (полтора дофига раз

)

@Sasha_Smirnov · 04.05.2016, 04:50

Да вряд ли

Сообщение от Святой НякаЛайк

никнейма:

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

св. Няка Лайк!

Там «корзинка» маленьких прицев (цитат)!

Тупость роботов достойна отдельного эпоса, а здесь желательно о решениях (Креатурах).

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Mazik777 3 / 3 / 0 Регистрация: 20.06.2014 Сообщений: 70

	Создать макрос в excel2003 04.04.2016, 20:15. Показов 3857. Ответов 37 Метки нет (Все метки) Само задание выглядит так: Взять матрицу M x N. Расставить по возрастанию элементы заданной строки. Вывести результирующую матрицу рядом с исходной. M=6, N=4. На скриншоте видно как должно получится (выделено желтым), при вводе в ячейку 1D номер строки должно произойти сортировка только этой строчки Миниатюры 0

@Hugo121
	20.04.2016, 20:56
	Не по теме: Не, бросай... Правильно люди говорят :) Ещё и с английским вообще никак... В армию! 0

@Mazik777 3 / 3 / 0 Регистрация: 20.06.2014 Сообщений: 70
	20.04.2016, 21:16 [ТС]
	форум юмора чтоли? 0

@Mazik777 3 / 3 / 0 Регистрация: 20.06.2014 Сообщений: 70
	20.04.2016, 21:51 [ТС]
	неа Миниатюры 1

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	23.04.2016, 17:09
	Врёт статистика -= должно быть как минимум 2 (1 ведь уже было недавно ) 0

@Святой НякаЛайк 655 / 247 / 89 Регистрация: 28.10.2015 Сообщений: 526
	01.05.2016, 15:59
	Сообщение было отмечено Sasha_Smirnov как решение Решение Кроме маленького принца здесь носится красная шапочка, только носит она пирожки по одному, где хочется корзиной их наблюдать. Вот например из-за большого числа правок одного сообщения я получаю 14 оповещений о по-сути одном и том же упоминании моего забавного ник-нейма: 14 правок одного комментария? Социологи отмечали, кажется, что увлечение смс-сообщениями сказывается на мышлении. Перенесём теорию на программирование? Опытный программист, предположим, создает текст комментария или допустим публичное высказывание так же, как пишет программный код: набрал-отправил в среду, затестил, вернулся - доработал, подкорректировал, опять отправил - затестил. Результат всегда радует: тексты мсье Смирнова лично мне очень интересно читать - изящная игра слов, высокая смысловая плотность (не дай мне бог до конца понять, что это значит!). Проще говоря - ёмко, кратко, сильно! Я так не умею, думал другим от природы дано, а теперь палево возникло: Вёрстка!!! (полтора дофига раз ) Миниатюры 1

Создать макрос в excel2003

Решение