Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
'Lukker skjemaet<br />
Unload Me<br />
End If<br />
'Slår på skjermoppdateringen<br />
Application.ScreenUpdating = True<br />
A.3.2.3 Prosedyren UserForm_Activate()<br />
'Denne prosedyren kjøres når skjemaet aktiveres, og legger inn standardverdiene i<br />
kombinasjonsboksene i skjemaet<br />
'Legger inn verdiene i kombinasjonsboksene<br />
cmbMorsk.AddItem "JA"<br />
cmbMorsk.AddItem "NEI"<br />
cmbGren.AddItem "Hær"<br />
cmbGren.AddItem "Sjø"<br />
cmbGren.AddItem "Luft"<br />
cmbGren.AddItem "Felles"<br />
cmbGren.AddItem "HV"<br />
cmbGren.AddItem "KVRT"<br />
30<br />
A.3.2.4 Prosedyren cmbGren_AfterUpdate()<br />
'Prosedyren brukes til å oppdatere listeboksen med de KOSTMOD avdelingene som finnes i den<br />
forsvarsgrenene som er valgt i kombinasjonsboksen cmbGren<br />
'Deklarere variabler<br />
Dim intRadTeller, intKolonneteller As Integer<br />
'Henter inn KOSTMOD avdelinger som finnnes i regnearket KOSTMODNAVN<br />
'Slår av skjermoppdateringen<br />
Application.ScreenUpdating = False<br />
'Aktiverer arket KOSTMODNAVN<br />
Sheets("KOSTMODNAVN").Activate<br />
'initsierer variabler<br />
intRadTeller = 2<br />
'Sjekker hvilken gren som er valgt. Dette er avgjørende for hvilken kolonne data skal hentes fra.<br />
If cmbGren.Value = "Hær" Then<br />
intKolonneteller = 1<br />
ElseIf cmbGren.Value = "Sjø" Then<br />
intKolonneteller = 2<br />
ElseIf cmbGren.Value = "Luft" Then<br />
intKolonneteller = 3<br />
ElseIf cmbGren.Value = "HV" Then