Autonumerowanie w arkuszu Excel'a


(Jacelo) #1

Witam uprzejmie!

Czy można wewnątrz dokumentu Excel'a stworzyć następujący algorytm:

"Po otwarciu dokumentu do liczby umieszczonej w komórce A1 dodaj wartość 1 i tak obliczoną liczbę umieść w komórce A1".

Chodzi o to, żeby po każdym otwarciu dokumentu wartość liczbowa umieszczona w określonej komórce była automatycznie zwiększana o 1.

Czy coś takiego jest w ogóle możliwe?


(Wojtek Moto) #2

Na 99% nie.


(Jharla) #3

:arrow: wejdź w Edytor Visual Basic i dopisz w sekcji ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ThisWorkbook.Save

End Sub

Private Sub Workbook_Open()

    Sheets("Arkusz1").Range("A1") = Sheets("Arkusz1").Range("A1") + 1

End Sub

pierwsza część sama zapisuje dokument gdy chcesz go zamknać

druga oczywiście zwiększa komórkę A1 o 1 nazwa arkusza według upodobań

(ale powinna być) ... no i żeby to wszystko działało muszą być włączone makra

:smiley: Kolego WojtekJ da się na 100 % minus twoje 99% jesteś mi winny 1%

przekaż go gdy będziesz rozliczał PIT'a na jakaś organizację społeczną


(Wojtek Moto) #4

Moj blad - nie sadzilem, ze da sie w Excelu wprowadzic takie rozwiazanie - przyznaje sie do winy i rozpoczynam samobiczowanie :slight_smile:


(Jacelo) #5

Drogi WojtekJ! Błagam - nie samookaleczaj się! Rzeczą ludzką jest popełniać błędy; gdybyś nie zainteresował się tematem i siedział sobie z założonymi rękami, to oczywiście nie popełniłbyś żadnej pomyłki. Ale też nie zagościłbyś na stałe w moim sercu! Samo przyznanie się całkowicie Cię zrehabilitowało - bicz doprawdy nie jest potrzebny!

Kolego YaSam - ktoś, kto ma taką wiedzę jak Ty, z pewnością będzie miał gdzieś podziękowania takiego laika jak ja - mimo to, pozwól mi to wykrzyczeć: JESTEŚ WIELKI!!!

Na prawdę z całego serca dziękuję obu kolegom za zainteresowanie i za pomoc!

Jestem Waszym niewypłacalnym dłużnikiem!