Перестановка первого и последнего столбца матрицы

@fk_Q63 · Регистрация: 16.10.2011

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

Есть матрица 3х4 и нужно поменять первый и последний столбец местами через VBA. Может кто нибудь помочь?
Заранее спасибо

@gaw · 26.10.2011, 00:02

Visual Basic
1
2
3
4
5
for i=1 to 3
t=a(i,1)
a(i,1)=a(i,4)
a(i,4)=t
next

@fk_Q63 · 29.10.2011, 15:26 **[ТС]**

Спасибо, а можете написать с выводом поменянной матрицы на рабочий лист Exсel?

@Казанский · 29.10.2011, 19:17

Универсальный способ вывода двумерного массива на лист:

Visual Basic
1
Range("A1").Resize(UBound(a), UBound(a, 2)).Value = a

Предполагается, что нумерация элементов массива начинается с 1.
А1 - первая ячейка диапазона.

@Казанский · 31.10.2011, 12:35

По просьбе ТС делаю через Cells

Visual Basic
1
2
3
4
5
for i=1 to ubound(a,1) 'или просто ubound(a)
    for j=1 to ubound(a,2)
        cells(i,j)=a(i,j)
    next
next

Однако, вывод или считывание массива целиком работает в ~50 раз быстрее.

@all_angarsk · 31.10.2011, 17:31

Сообщение от Казанский

Универсальный способ вывода двумерного массива на лист:

Visual Basic
1
Range("A1").Resize(UBound(a), UBound(a, 2)).Value = a

Предполагается, что нумерация элементов массива начинается с 1.
А1 - первая ячейка диапазона.

Не получается с выводом. См. рис

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
......................
For i = 1 To n
For j = 1 To k
M(i, j) = 100 * Rnd - 50
Cells(i, j) = M(i, j)
Next
Next
 
For i = 1 To n
t = M(i, 4)
M(i, 4) = M(i, 1)
M(i, 1) = t
Next
Range("A10").Resize(UBound(M), UBound(M, 2)).Value = M
...................

@Казанский · 31.10.2011, 17:46

Сообщение от Казанский

Предполагается, что нумерация элементов массива начинается с 1.

Я недаром это написал. Где объявление массива? Можно явно задать

Visual Basic
1
ReDim M(1 to n, 1 to k)

или

Visual Basic
1
2
3
4
5
'в заголовке модуля
Option Base 1
 
'в процедуре
ReDim M(n, k)

Первый способ предпочтительнее.

@all_angarsk · 01.11.2011, 02:00

Запись вывода всего массива мне понравилась. Жаль что есть такие ограничения.

@Казанский · 01.11.2011, 10:43

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

Запись вывода всего массива мне понравилась. Жаль что есть такие ограничения.

Нет никаких ограничений

Я просто подстраивался под решение gaw

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub bb()
Dim i, j, M(-3 To 2, 10 To 15)
For i = LBound(M) To UBound(M)
    For j = LBound(M, 2) To UBound(M, 2)
        M(i, j) = i & ", " & j
    Next
Next
 
[Лист2!B4].Resize(UBound(M) - LBound(M) + 1, UBound(M, 2) - LBound(M, 2) + 1) = M
End Sub

@all_angarsk · 01.11.2011, 15:39

У меня все работает. добавил указанную запись и все заработало. Все три варианта. мой и два Ваших.Обязательно проверю последнюю запись.

Новые блоги и статьи Все статьи Все блоги /
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 Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@fk_Q63 0 / 0 / 0 Регистрация: 16.10.2011 Сообщений: 5

	Перестановка первого и последнего столбца матрицы 25.10.2011, 23:35. Показов 2792. Ответов 9 Метки нет (Все метки) Есть матрица 3х4 и нужно поменять первый и последний столбец местами через VBA. Может кто нибудь помочь? Заранее спасибо 0

@fk_Q63 0 / 0 / 0 Регистрация: 16.10.2011 Сообщений: 5
	29.10.2011, 15:26 [ТС]
	Спасибо, а можете написать с выводом поменянной матрицы на рабочий лист Exсel? 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	01.11.2011, 02:00
	Запись вывода всего массива мне понравилась. Жаль что есть такие ограничения. 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	01.11.2011, 15:39
	У меня все работает. добавил указанную запись и все заработало. Все три варианта. мой и два Ваших.Обязательно проверю последнюю запись. 0