Макрос

[Chancy]

Добрый день
Есть такая задача:
Значение ячейки *060000*, как можно сделать так что бы при печати значение увеличивалось на 1 единицу, то есть *060001*, *060002*
заранее благодарен
Спасибо

[IgorGO]

для значения расположенного в С1, в модуль книги вот это:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  [c1] = "*" & Format(Application.Evaluate("1" & [c1] & "1+1"), "000000") & "*"
End Sub

[Chancy]

Спасибо, буду пробывать

[Скрипт]

Код никуда результат не выводит, только показан принцип:

Sub Макрос2()

    Dim sString As String
    Dim lNumber As Long
    
    sString = "*060000*"
    
    lNumber = CLng(Replace(sString, "*", ""))
    
    lNumber = lNumber + 1
    
    sString = "*" & Format(lNumber, "000000") & "*"
    
End Sub