Ustvarite nov Microsoft Office Excel dokument in v celico A1 vpišite številko 1.
Celico A1 tudi označite.
|
|||||
 |
|||||
|
|||||
Pritisnite tipki ALT + F11.
Odprlo se je okno Visual Basic. Označite List1 (List1). |
|||||
|
|||||
Kliknite zgoraj na Insert in izberite Module ...
Odpre se novo okno Zvezek1 - Module1 (Code), ki ga lahko tudi zaprete. Na levi strani pa v oknu Properties vpišite v polje Name poljubno ime za formulo. Jaz sem vpisal moja formula in pritisnil tipko ENTER. |
|||||
|
|||||
V polju VBAProject (glej sliko) se ustvari mapa Modules in znotraj nje modul, ki ste ga prej ustvarili.
V mojem primeru je to mojaforumla. Kliknite dvakrat na ustvarjen modul. |
|||||
|
|
|
|||||
Odpre se okno za vpisovanje VB kode.
Vpišite naslednjo kodo: Sub Auto_Open() Dim celica As String celica = "a1" Dim stevila stevila = Split(Range(celica).Value, "-") stevila(UBound(stevila)) = stevila(UBound(stevila)) + 1 Range(celica).Value = Join(stevila, "-") End Sub |
|||||
|
|||||
Potrebno bo shraniti datoteko.
Ko boste vpisali kodo, kliknite na ikono Save (glej sliko). Jaz sem jo shranil pod imenom povečaj za eno. |
|||||
|
|||||
Zaprite okno Visual Basic ali pa se premaknite na Excel dokument.
V celici A1 se nahaja še vedno številka 1. |
|||||
|
|||||
Po vsej verjetnosti koda ne bo delovala, ker je zaradi varnosti Makro izklopljen.
Kliknite na Orodja, Makro in izberite Varnost ... Odpre se okno Varnost. V zavihku Stopnja varnosti označite Srednja in kliknite na gumb V redu. |
|||||
|
|||||
Sedaj pa shranite dokument in popolnoma zaprite Excel.
Sedaj pa ponovno odprite dokument, ki ste ga shranili. Če se pojavi okno Varnostno opozorilo, kliknite na gumb Omogoči makre. V celici A1 se je vrednost povečala za eno. |
|||||
