Элементарная задача VBA

@EkaterinaTsi · Регистрация: 10.01.2016

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

Создать массив nxm, и заполнить данными.(все данные m,n и эллементы вводятся через input)
И главный вопрос: Почему не работает (проблема в 14 строчке)?

Visual Basic

Sub CreateTable()
    Dim A() As Long
    Dim n, m As Integer
    Dim i, j As Integer
    
    ReDim A(n, m)
    
    n = InputBox("Input row")
    m = InputBox("Input column")
        If n = m Then
            For j = 1 To m
                For i = 1 To n
                    A(i, j) = InputBox("Please, input an element " & i, j)
                    Next
                    n = n - 1
                    Next
        End If
  
     
    End Sub

~~Shersh~~ · 11.01.2016, 13:38

Visual Basic

Sub CreateTable()
    Dim A() As Long
    Dim n, m As Integer
    Dim i, j As Integer
    
    'ReDim A(n, m) - рано!
    
    n = InputBox("Input row")
    m = InputBox("Input column")
    
ReDim A(1to n, 1to m)
 
        'If n = m Then???
            For j = 1 To m
                For i = 1 To n
                    A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
                 Next
                    'n = n - 1???
            Next
        'End If???
  
     
    End Sub

@EkaterinaTsi · 11.01.2016, 13:44 **[ТС]**

Shersh, Спасибо за ответ!Оно заработало

if мне нужен т.к. это часть большой задачи (у меня будут 3 варианта массивов, когда кол-во строк=кол-ву столбцов, когда кол-во строк в 2 раза больше кол-ва столбцов и т.д.)

массив, код которого я написала, должен выглядеть как 1 на рис ниже, поэтому я добавила n=n-1 (т.к. каждый раз кол-во строк уменьшается)

Маленький вопрос: как правильно вывести на экран этот массив?

@Vlad999 · 11.01.2016, 13:55

при такой записи

Visual Basic

1 2	Dim n, m As Integer Dim i, j As Integer

n и i имеют тип Variant

как правильно вывести на экран этот массив?

на экран или на лист?
на лист так

Visual Basic

1	Range("A1").Resize(n, m) = A()

@EkaterinaTsi · 11.01.2016, 13:57 **[ТС]**

по заданию, на лист

но на экран тоже интересно посмотреть

P.s. m,j тоже, наверное, тип Variant?

@Vlad999 · 11.01.2016, 14:19

для первой таблицы, судя по скрину, по моему нужно так

Добавлено через 2 минуты

Visual Basic

1 2	For j = 1 To n For i = 1 To n + 1 - j

@EkaterinaTsi · 11.01.2016, 14:19 **[ТС]**

Vlad999, мне кажется, тогда программа будет работать до n-1, т.е. если n=5 , то таблица будет 4xm, поэтому я внесла в цикл n-1

@Vlad999 · 11.01.2016, 14:22

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

Visual Basic

1	Dim n As Integer, m As Integer

или с сокращением

Visual Basic

1	Dim n%, m%

Добавлено через 1 минуту
EkaterinaTsi, смотрите последний исправленный вариант (пост #6) предыдущий был не правильный.

@EkaterinaTsi · 11.01.2016, 14:25 **[ТС]**

Vlad999, интересный подход! а, мое n=n-1 совсем не правильно использовать?

да, почему-то вторая часть не хочет работать вообще (2 часть- это 2 таблица на рисунке)

Visual Basic

If 2 * n = m Then
            For j = 1 To m Step 2
                For i = 1 To n
                A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
                Next
                    For k = 1 To n
                    A(i, j + 1) = InputBox("Please, input an element a(" & i & ", " & j + 1 & ")")
 
                    Next
            Next
        End If

@Vlad999 · 11.01.2016, 14:36

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

мое n=n-1 совсем не правильно использовать?

по логике можно и так. Сразу как то в ваш вариант и не вникал.

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

@EkaterinaTsi · 11.01.2016, 14:44 **[ТС]**

Vlad999, В принципе, алгоритм есть и по логике он правильный, просто он не работает

если кол-во строк в два раза меньше кол-ва столбцов,
то пробег по парам столбцов
1 столбец пробег до последней строчки
2 столбец пробег до последней строчки
затем, следующая пара- пробег обейх до n-1
и т.д.

на QBasic работает, а здесь почему-то нет

Visual Basic

If 2 * n = m Then
            For j = 1 To m Step 2
                For i = 1 To n
                A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
                Next
                    For k = 1 To n
                    A(i, j + 1) = InputBox("Please, input an element a(" & i & ", " & j + 1 & ")")
 
                    Next
            Next
        End If

~~Shersh~~ · 11.01.2016, 14:50

Visual Basic

If 2 * n = m Then
         For i = 1 To n
            For j = 1 To 2*I 'Step 2
                A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
            Next
                    'For k = 1 To n
                    'A(i, j + 1) = InputBox("Please, input an element a(" & i & ", " & j + 1 & ")")
 
                    'Next
          Next
End If

@EkaterinaTsi · 11.01.2016, 14:51 **[ТС]**

Vlad999, скрипт внезапно заработал!

Что-то я не смогла разобраться с выводом массива на лист, не могли бы вы мне помочь?

~~Shersh~~ · 11.01.2016, 14:53

это третья строка кода из того (Элементарная задача VBA) сообщения

Visual Basic

1	For j = 1 To m-2*I 'Step 2

(не успел исправить)

@EkaterinaTsi · 11.01.2016, 14:56 **[ТС]**

Shersh,
2*I это кто такой?

~~Shersh~~ · 11.01.2016, 14:59

это 2 умножить на i

Добавлено через 2 минуты

Visual Basic

1	For j = 1 To m-2*I+2

ещё одна правка

@Vlad999 · 11.01.2016, 15:06

вариант

Visual Basic

If 2 * n = m Then
k = n
    For j = 1 To m
          For i = 1 To k
              A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
           Next
       If (j Mod 2) = 0 Then k = k - 1
    Next
End If

не могли бы вы мне помочь?

с 4 поста строчка не работает? покажите как вы выводите.

@EkaterinaTsi · 11.01.2016, 15:14 **[ТС]**

Добавлено через 19 секунд
Vlad999, Ваш код работает!!Спасибо огромное!!!

~~Shersh~~ · 11.01.2016, 15:26

Visual Basic

If 2 * n = m Then
         For i = 1 To n
            For j = 1 To m- 2 * I + 2 'или +1 для третьего варианта
                A(i, j) = InputBox("Please, input an element a(" & i & ", " & j & ")")
            Next
        Next
End If

А массив А() лучше объявить как вариант для подавления лишних нулей

Visual Basic

1	Dim A() 'As Long

@EkaterinaTsi · 11.01.2016, 16:11 **[ТС]**

Vlad999, по поводу вывода на лист

Visual Basic

For i = 1 To n
            For j = 1 To m
            Cells(i, j) = A(i, j)
            Next
Next

Это не правильно?(естественно, если его запихнуть в цикл if)

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 15:14 [ТС]	18
	Сообщение было отмечено Sasha_Smirnov как решение Решение Добавлено через 19 секунд Vlad999, Ваш код работает!!Спасибо огромное!!! 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 13:44 [ТС]	3
	Shersh, Спасибо за ответ!Оно заработало if мне нужен т.к. это часть большой задачи (у меня будут 3 варианта массивов, когда кол-во строк=кол-ву столбцов, когда кол-во строк в 2 раза больше кол-ва столбцов и т.д.) массив, код которого я написала, должен выглядеть как 1 на рис ниже, поэтому я добавила n=n-1 (т.к. каждый раз кол-во строк уменьшается) Маленький вопрос: как правильно вывести на экран этот массив? Миниатюры 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 13:57 [ТС]	5
	по заданию, на лист но на экран тоже интересно посмотреть P.s. m,j тоже, наверное, тип Variant? 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 14:19 [ТС]	7
	Vlad999, мне кажется, тогда программа будет работать до n-1, т.е. если n=5 , то таблица будет 4xm, поэтому я внесла в цикл n-1 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,123
	11.01.2016, 14:36	10
	Сообщение от EkaterinaTsi мое n=n-1 совсем не правильно использовать? по логике можно и так. Сразу как то в ваш вариант и не вникал. для второй таблицы нужно алгоритм придумывать, пока времени нет думать. может у бывалых есть наработки. с наскоку вариант использовать MOD для определения уменьшения строки на -1. 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 14:51 [ТС]	13
	Vlad999, скрипт внезапно заработал! Что-то я не смогла разобраться с выводом массива на лист, не могли бы вы мне помочь? 0

@EkaterinaTsi 0 / 0 / 1 Регистрация: 10.01.2016 Сообщений: 31
	11.01.2016, 14:56 [ТС]	15
	Shersh, 2*I это кто такой? 0

Элементарная задача VBA

Решение

Решение

Решение