Excel - makro zwiększające odwołanie do komórki

Kwestia

Chcę, aby makro po otwarciu zwiększyło odwołanie do komórki o 11 za każdym razem, gdy książka zostanie otwarta, tj. Cell C18 ma = Arkusz2! H2. Następnie następnym razem, gdy się otworzy, chcę zmienić na = Arkusz2! H13, a następnie na następnym otwarciu = Arkusz2! H24 itd.

Rozwiązanie

Zakładając, że komórka, w której znajduje się wzór, to C18 (zmień kod, aby odzwierciedlić właściwą komórkę)

 Sub Auto_Open () Dim currentRow As String Dim sTemp As String sTemp = Zakres ("C18"). Wzór Do While (IsNumeric (Right (sTemp, 1))) currentRow = Right (sTemp, 1) i currentRow sTemp = Mid (sTemp, 1, Len (sTemp) - 1) Pętla currentRow = CLng (currentRow) + 11 zakres ("C18"). Formula = sTemp i prądRow End Sub