Макрос: определить элементы матрицы, сумма индексов которых кратна трем

@Just777 · Регистрация: 06.04.2017

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

Взять матрицу M x N.
Определить элементы, сумма индексов которых кратна трем.
Выделить их цветом. M=4, N=7.

~~Остап Бонд~~ · 12.12.2018, 21:46

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

Взять матрицу M x N

Возьмите.

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

Определить элементы, сумма индексов которых кратна трем

Visual Basic

1	if ((r+c)mod 3)=0 then

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

Выделить их цветом

Visual Basic

1	cells(r,c).interior.color=vbred

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

M=4, N=7

Это тоже за Вас сделать?

@Just777 · 12.12.2018, 21:49 **[ТС]**

Остап Бонд, нет, просто уточнение того, что матрица 4х7

~~Остап Бонд~~ · 12.12.2018, 21:58

Just777, т.е. больше вопросов Вы не имеете?
Рад за Вас!

@Just777 · 12.12.2018, 22:07 **[ТС]**

Остап Бонд, вы ошибаетесь. Просто показалось, что вы немного грубы. Я новичок в этом деле и немного потерялась. У меня есть код, который работает,но увы и не так... Если Вам не сложно, то может толкнете на правильное мышление?

Visual Basic

Sub Procedure_1()
    
    
    Dim n As Long, m As Long
    Dim i As Long, j As Long
    
    n = InputBox("n=")
    m = InputBox("m=")
    
    ReDim A(1 To n, 1 To m)
 
     For i = 1 To n Step 1
        For j = 1 To m Step 1
           Cells(i, j) = Int(Rnd * 100)
        Next j
    Next i
     For i = 1 To n Step 1
        For j = 1 To m Step 1
             If ((i + j) Mod 3) = 0 Then Cells(i, j).Interior.Color = vbBlue
      Next j
    Next i
     
End Sub

~~Остап Бонд~~ · 12.12.2018, 22:22

Just777, простите, не хотел ни в коей мере Вас обидеть!
А в чем ошибка?
У меня Ваш код отработал всё как просили.

@Just777 · 12.12.2018, 22:31 **[ТС]**

Остап Бонд, увы, но мне кажется он не правильно рассчитывает. Либо я просто не так поняла условия задачи..

~~Остап Бонд~~ · 12.12.2018, 22:35

А что не так?
Берите любой посиневший элемент, считайте сумму индексов. Кратно трём?
По моему - кратно, где косяк?

@Just777 · 12.12.2018, 22:40 **[ТС]**

Остап Бонд, извиняюсь за свою глупость, но правильно ли я поняла, что значения в ячейках никакую роль не играют? Следовательно, надо использовать лишь индекс, тип А(1;2)?? Блин, надо больше спать

~~Остап Бонд~~ · 12.12.2018, 22:46

Ну ещё раз радуюсь тому, что не всё потеряно...
В задаче ничего про значения не было, только про индексы.

@Just777 · 12.12.2018, 22:51 **[ТС]**

Остап Бонд, Разобралась! Кстати, вы случаем не знаете,как с помощью VBA подсчитать количество букв в тексте(это уже макросы в Word)?

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

создайте отдельную тему

~~Остап Бонд~~ · 12.12.2018, 22:54

Just777, загляните в правила - https://www.cyberforum.ru/announcement.php?a=3
Там и про названия тем, и про количество вопросов в теме есть ответы.

@Just777 0 / 0 / 0 Регистрация: 06.04.2017 Сообщений: 66
		1
	Макрос: определить элементы матрицы, сумма индексов которых кратна трем 12.12.2018, 21:35. Показов 1201. Ответов 11 Метки нет (Все метки) Взять матрицу M x N. Определить элементы, сумма индексов которых кратна трем. Выделить их цветом. M=4, N=7. 0

@Just777 0 / 0 / 0 Регистрация: 06.04.2017 Сообщений: 66
	12.12.2018, 21:49 [ТС]	3
	Остап Бонд, нет, просто уточнение того, что матрица 4х7 0

~~Остап Бонд~~ Заблокирован
	12.12.2018, 21:58	4
	Just777, т.е. больше вопросов Вы не имеете? Рад за Вас! 0

~~Остап Бонд~~ Заблокирован
	12.12.2018, 22:22	6
	Just777, простите, не хотел ни в коей мере Вас обидеть! А в чем ошибка? У меня Ваш код отработал всё как просили. Изображения 0

@Just777 0 / 0 / 0 Регистрация: 06.04.2017 Сообщений: 66
	12.12.2018, 22:31 [ТС]	7
	Остап Бонд, увы, но мне кажется он не правильно рассчитывает. Либо я просто не так поняла условия задачи.. 0

~~Остап Бонд~~ Заблокирован
	12.12.2018, 22:35	8
	А что не так? Берите любой посиневший элемент, считайте сумму индексов. Кратно трём? По моему - кратно, где косяк? 0

@Just777 0 / 0 / 0 Регистрация: 06.04.2017 Сообщений: 66
	12.12.2018, 22:40 [ТС]	9
	Остап Бонд, извиняюсь за свою глупость, но правильно ли я поняла, что значения в ячейках никакую роль не играют? Следовательно, надо использовать лишь индекс, тип А(1;2)?? Блин, надо больше спать 0

~~Остап Бонд~~ Заблокирован
	12.12.2018, 22:46	10
	Ну ещё раз радуюсь тому, что не всё потеряно... В задаче ничего про значения не было, только про индексы. 1

~~Остап Бонд~~ Заблокирован
	12.12.2018, 22:54	12
	Just777, загляните в правила - https://www.cyberforum.ru/announcement.php?a=3 Там и про названия тем, и про количество вопросов в теме есть ответы. 0