счётчик (цикл в цикле) - Microsoft Office Excel

PARTOS · 25.10.2010, 13:58

Здравствуйте
Помогите сделать счётчик (цикл в цикле):
Дано:
есть один простой счётчик, который при запуске макроса прогоняет все числа от заданного числа Х до заданного числа У
Необходимо:
При запуске макроса начинается отсчёт ПЯТИ счётчиков в ячейках, причём, каждый счётчик считает количество итераций предыдущего счётчика

Более подробно в прикреплённом файле

IgorGO · 25.10.2010, 18:29

Код:

Option Explicit

Sub ShowValue()
  S5 2
End Sub

Sub S5(c As Long)
  Dim n As Long
  Cells(4, c) = Cells(1, c) - 1
  For n = Cells(1, c) To Cells(2, c)
    Cells(4, c) = Cells(4, c) + 1
    If c = 6 Then Application.Calculate Else S5 (c + 1)
  Next
End Sub

EugeneS · 25.10.2010, 18:30

если все правильно понял, то можно, например, так, см. вложение

PARTOS · 26.10.2010, 21:13

Спасибо за подсказки. Взял себе вариант:

Sub ShowValue()
For sch1 = Cells(1, 2) To Cells(2, 2)
For sch2 = Cells(1, 3) To Cells(2, 3)
For sch3 = Cells(1, 4) To Cells(2, 4)
For sch4 = Cells(1, 5) To Cells(2, 5)
For sch5 = Cells(1, 6) To Cells(2, 6)
Cells(4, 2) = sch1: Cells(4, 3) = sch2: Cells(4, 4) = sch3
Cells(4, 5) = sch4: Cells(4, 6) = sch5
Next sch5, sch4, sch3, sch2, sch1
End Sub

25.10.2010, 18:29	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Option Explicit Sub ShowValue() S5 2 End Sub Sub S5(c As Long) Dim n As Long Cells(4, c) = Cells(1, c) - 1 For n = Cells(1, c) To Cells(2, c) Cells(4, c) = Cells(4, c) + 1 If c = 6 Then Application.Calculate Else S5 (c + 1) Next End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 25.10.2010 в 18:32.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
цикл в цикле Delphi	warma2d	Помощь студентам	14	31.10.2010 21:44
Цикл в цикле	SkyL1ne	Помощь студентам	7	02.04.2010 07:36
цикл в цикле (Си++)	ConChita	Помощь студентам	2	11.03.2010 09:13
Цикл в цикле...	Davlet M	Помощь студентам	6	25.01.2010 01:42

26.10.2010, 21:13	#4
PARTOS Пользователь Регистрация: 24.10.2009 Сообщений: 87	Спасибо за подсказки. Взял себе вариант: Sub ShowValue() For sch1 = Cells(1, 2) To Cells(2, 2) For sch2 = Cells(1, 3) To Cells(2, 3) For sch3 = Cells(1, 4) To Cells(2, 4) For sch4 = Cells(1, 5) To Cells(2, 5) For sch5 = Cells(1, 6) To Cells(2, 6) Cells(4, 2) = sch1: Cells(4, 3) = sch2: Cells(4, 4) = sch3 Cells(4, 5) = sch4: Cells(4, 6) = sch5 Next sch5, sch4, sch3, sch2, sch1 End Sub