Двойной счётчик

[Артур Иваныч]

Здравствуйте ВСЕМ!
Ниже имеется файл. Мы добавляем через форму(приложение) темы и этапы, но у меня нет счётчика((
Помогите, пожалуйсто сделать счётчик. Он как бы двойной должен быть:
1) счётчик для тем, нумеруется так 1. , 2. , 3. и так далее
2) счётчик для этапов, который вначале считывает номер темы(1. , 2. , 3. и так далее то есть о том, что я писал выше под пунктом 1)),а потом прибавляет на 0.1, то есть, например, для темы 1. этапы нумеруется так 1.1. , 1.2. и так далее хоть до 1.1000, а для, например, темы 3. этапы нумеруется так 3.1. , 3.2. и так далее, вобщем всё по такой логике!

P.S. ещё есть одна проблема в этом файле, если Вы посмотрите код и обратите внимание сюда:
.Value = Array("1.", "№ ИП", Me.TtBox1, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")

этот код для доавляемой темы(!), то есть вместо "1." должен быть тот самый счётчик, котором я писал, а вот после Me.TtBox1 у меня возникает "гемморой"
Дело в том что в таблице между столбцами Валюта и ПИП может быть хоть 100 столбцов, а может и только один столбец, и их количество постоянно меняется...а мне нужно чтобы при каждом добавлении темы и этапов вместо "", "", "", "", "") было предпредпоследний столбец "Основание", предпоследний "Примечание", а последний столбец формула =СУММ(), которая суммировала бы значение этапов в этой теме. Учитывайте, что количество строк и столбцов в этом файле постоянно меняются, добавляются, удаляются и т.д.

Спасибо заранее за помощь!

[IgorGO]

Артур Иванович, вы меня огорчили...
вам вручен был счетчик, который считает (добавляет 1) к любой группе цифр, пользуйтесь...

Function NextNum(s As String, n As Integer, Optional c As Integer = 1, Optional sep = ".") As String
's - строка с числами разделеными каким-то разделителем на группы
'n - какую группу изменить
'c - на сколько увеличить-уменьшить значение (по умолчанию на +1)
'sep - разделитель (по умолчанию ".")
  On Error Resume Next
  For i = 0 To UBound(Split(s, sep))
    res = res & IIf(i = n - 1, Trim(Str(Val(Split(s, sep)(i)) + c)), Split(s, sep)(i)) & sep
  Next
  NextNum = res
End Function

[Артур Иваныч]

Я помню Вы давали счётчик))
но это для конкретно доавлении этапов...спасибо Вам!
но у меня не получается внедрить его для добавления Темы с этапами!
там два счётчика надо:
1) для темы(1. 2. 3. 4. и так далее хоть до 100.)
2) для этапов( 1.1. 1.2. 1.3. и так далее)

[Артур Иваныч]

Ваш код, который Вы выше мне написали, но
1) нумерация этапов идёт как-то странно(1.1... 1.2.... и тд. позади с лишними точками)
2) нумерация ТЕМ(!) не идёт((

[IgorGO]

а для нумерации тем дайте вторым параметром 1. а первым параметром - предыдущую тему

[Артур Иваныч]

хм...как именно чёт я не догоняю...((
а как насчёт нумерации этапов
там ненужные точки появляются((

[IgorGO]

код-то открытый...
кода 6 строк, можно все лишнее убрать...
Будете в Киеве - милости просим, все доделаем...

[Артур Иваныч]

спасибо большое!

жаль что на примере не показали(

ещё есть одна проблема в этом файле, если Вы посмотрите код и обратите внимание сюда:
.Value = Array("1.", "№ ИП", Me.TtBox1, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")

этот код для доавляемой темы(!), то есть вместо "1." должен быть тот самый счётчик, котором я писал, а вот после Me.TtBox1 у меня возникает "гемморой"
Дело в том что в таблице между столбцами Валюта и ПИП может быть хоть 100 столбцов, а может и только один столбец, и их количество постоянно меняется...а мне нужно чтобы при каждом добавлении темы и этапов вместо "", "", "", "", "") было предпредпоследний столбец "Основание", предпоследний "Примечание", а последний столбец формула =СУММ(), которая суммировала бы значение этапов в этой теме. Учитывайте, что количество строк и столбцов в этом файле постоянно меняются, добавляются, удаляются и т.д.