Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ilnur009
0 / 0 / 0
Регистрация: 10.11.2015
Сообщений: 1
1

Вычеркнуть столбец с заданным номером. Вывести результирующую матрицу рядом с исходной

01.11.2016, 06:41. Просмотров 648. Ответов 2
Метки нет (Все метки)

Взять матрицу M x N. Вычеркнуть столбец с заданным номером. Вывести результирующую матрицу рядом с исходной. Вывести номер вычеркнутого столбца. M=6, N=7.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2016, 06:41
Ответы с готовыми решениями:

Вычеркнуть из матрицы столбец с заданным номером
Взять матрицу M x N. Вычеркнуть столбец с заданным номером. Вывести результирующую матрицу рядом с...

Взять матрицу M x N. Вычеркнуть строку с заданным номером
Задание: Взять матрицу M x N. Вычеркнуть строку с заданным номером. Вывести результирующую матрицу...

Удалить из матрицы столбец с заданным номером
Сформировать двумерный массив. Удалить из него столбец с заданным номером;

Сформировать двумерный массив.Удалить из него столбец с заданным номером
Сформировать двумерный массив.Удалить из него столбец с заданным номером

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером
Ребятаа,помогите пожалуйста хоть с чем-нибудь. 1.Сформировать двумерный массив. Добавить в него...

2
KoGG
5328 / 1394 / 330
Регистрация: 23.12.2010
Сообщений: 2,071
Записей в блоге: 1
01.11.2016, 15:56 2
Visual Basic
1
2
3
4
5
6
    Dim НомерУдаляемогоСтолбца%
    НомерУдаляемогоСтолбца = 3
    [I1:O6].Value = [A1:G6].Value
    Cells(1, 8 + НомерУдаляемогоСтолбца).EntireColumn.Delete
    [P1] = "Номер удаленного столбца"
    [Q1] = НомерУдаляемогоСтолбца
0
Владимир_Сар
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 17:24 3
Полный код
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
37
Sub Вывод()
Dim s(11) As Variant
Dim s1(11) As Variant
Dim A(6, 7) As Variant
Dim A1(6, 6) As Variant
 
    
    s(0) = ""
    st = ""
    For c = 0 To 5
        For r = 0 To 6
        A(c, r) = Int(200 * Rnd - 100)
        s(c) = s(c) & vbTab & A(c, r)
        Next r
        st = st & vbCrLf & vbNewLine & s(c)
    Next c
    
    stolbec = InputBox("Введите столбец для удаления")
    
    s1(0) = ""
    st1 = ""
    For c1 = 0 To 5
        For r1 = 0 To 5
            ri = r1
            If r1 >= stolbec - 1 Then
                ri = r1 + 1
            End If
            A1(c1, r1) = A(c1, ri)
            
            s1(c1) = s1(c1) & vbTab & A1(c1, r1)
        Next r1
        st1 = st1 & vbCrLf & vbNewLine & s1(c1)
    Next c1
    
    MsgBox "A()=" & st & vbCrLf & vbNewLine & "A1()=" & st1 & vbCrLf & vbNewLine & "Номер удаленного столбца №=" & stolbec
    
End Sub
Добавлено через 4 минуты
еще правда добавьте проверку вводимого значения от 1 до 7 иначе будет удалять либо первый либо последний столбец
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2016, 17:24

Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером
1.Сформировать двумерный массив. Добавить в него строку и столбец с заданным номером.Правила 4.4....

Транспонировать матрицу, поменять в ней 1й столбец на столбец с заданным номером
Помогите пожалуйста! Задать двумерный массив MxN Транспонировать матрицу, поменять в ней 1й...

Дана квадратная матрица порядка m. Преобразовать матрицу по правилу: строку с номером сделать столбцом с номером n, а столбец с номером n - строкой с
Дана квадратная матрица порядка m. Преобразовать матрицу по правилу: строку с номером сделать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.