Программа, которая заменит третью строку на первый столбец и закрасит их

@qwiin · Регистрация: 23.12.2012

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

У меня есть программа которая создает таблицу 5х5, помогите написать
1) Программу, которая заменит третью строку на первый столбец и закрасит их
2)

Комментарий модератора

Один вопрос - одна тема! Правила, пп. 4.4, 5.16. Предупреждение

@Казанский · 03.05.2013, 14:28

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

У меня есть программа которая создает таблицу 5х5

И где она?

@qwiin · 03.05.2013, 14:33 **[ТС]**

Visual Basic

Sub Task2()
    Dim n, mat As Range, b, c
    Set mat = Range("algus")
    m = mat.CurrentRegion.Columns.Count + 2
    
   
    n = Val(InputBox("sisestage ridade ja veergude arv", , 5))
    b = Val(InputBox("Sisestage arvude ulemine piir", , -100))
    c = Val(InputBox("Sisestage arvude ulemine piir", , 100))
    ReDim a(1 To n, 1 To n)
    genmat a(), n, b, c
    lehele a(), n, mat
 
End Sub
 
 
Sub genmat(a(), n, b, c)
Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int((c - b) * Rnd + b)
        Next j
    Next i
End Sub
 
 
 
Sub lehele(a(), n, mat)
    For i = 1 To n
        For j = 1 To n
            mat.Cells(i, j) = a(i, j)
        Next j
    Next i
End Sub

@Igor_Tr · 03.05.2013, 14:41

Вытягиваете первый столбец в массив (напр. arr1). Указываете ячейку с адресом третьей строки и вставляете. Например Cells(3,1).resize(1,ubound(arr1)).value=Application.transpose(arr1)

@qwiin · 03.05.2013, 14:47 **[ТС]**

не могли бы вы написать как будет выглядеть полностью массив, а то у меня проблемы с ними

@Igor_Tr · 03.05.2013, 14:53

Почти то-же самое, что и ниже (см. выше). Указываете первую ячейку первого столбца....
Например, arr1=Range(cells(1,1), cells(1,1).end(xldown)).value - и у Вас уже все в массиве arr1.

Добавлено через 1 минуту
Я могу написать. А Вам нужно понять?, или показать?...

Oй! Не забудьте обьявить массив arr1. Вот так Dim arr1()

@qwiin · 03.05.2013, 14:59 **[ТС]**

лучше написать, а там разберусь

@Igor_Tr · 03.05.2013, 15:05

Я Вам уже все написал. Осталось оформить (sub...(), переменные..., указанные действия...., end sub). Ну и еще закрасить. Почти тоже.
Где-то вот так:

Union(Range(cells(1,1), cells(1,1).end(xldown)), _ range(cells(3,1),cells(3,1).end(xltoright))).interior.colorindex=34

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	03.05.2013, 14:28	2
	Сообщение от qwiin У меня есть программа которая создает таблицу 5х5 И где она? 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	03.05.2013, 14:41	4
	Вытягиваете первый столбец в массив (напр. arr1). Указываете ячейку с адресом третьей строки и вставляете. Например Cells(3,1).resize(1,ubound(arr1)).value=Application.transpose(arr1) 1

@qwiin 1 / 1 / 0 Регистрация: 23.12.2012 Сообщений: 62
	03.05.2013, 14:47 [ТС]	5
	не могли бы вы написать как будет выглядеть полностью массив, а то у меня проблемы с ними 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	03.05.2013, 14:53	6
	Почти то-же самое, что и ниже (см. выше). Указываете первую ячейку первого столбца.... Например, arr1=Range(cells(1,1), cells(1,1).end(xldown)).value - и у Вас уже все в массиве arr1. Добавлено через 1 минуту Я могу написать. А Вам нужно понять?, или показать?... Oй! Не забудьте обьявить массив arr1. Вот так Dim arr1() 0

@qwiin 1 / 1 / 0 Регистрация: 23.12.2012 Сообщений: 62
	03.05.2013, 14:59 [ТС]	7
	лучше написать, а там разберусь 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	03.05.2013, 15:05	8
	Я Вам уже все написал. Осталось оформить (sub...(), переменные..., указанные действия...., end sub). Ну и еще закрасить. Почти тоже. Где-то вот так: Union(Range(cells(1,1), cells(1,1).end(xldown)), _ range(cells(3,1),cells(3,1).end(xltoright))).interior.colorindex=34 1