Excel - макрос для увеличения ссылки на ячейку

вопрос

Я хочу макрос, который при открытии будет увеличивать ссылку на ячейку в ячейке на 11 каждый раз, когда открывается книга, т.е. ячейка C18 имеет = Sheet2! H2. Затем в следующий раз, когда он открывается, я хочу изменить его на = Sheet2! H13, затем при следующем открытии = Sheet2! H24 и т. Д.

Решение

Предполагая, что ячейка, в которой формула C18 (измените код, чтобы отразить правильную ячейку)

 Sub Auto_Open () Dim currentRow As String Dim sTemp As String sTemp = Range ("C18"). Формула Do While (IsNumeric (Right (sTemp, 1))) currentRow = Right (sTemp, 1) & currentRow sTemp = Mid (sTemp), 1, Len (sTemp) - 1) Цикл currentRow = CLng (currentRow) + 11 Range ("C18"). Formula = sTemp & currentRow End Sub