Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

More documents

Recommendations

Info

'Sjekker om utfasingen eksisterer If Cells(intRadTeller, intKolonneteller).Value "" Then 'Sletter utfasingen Cells(intRadTeller, intKolonneteller).Value = "" Cells(intRadTeller, intKolonneteller + 1).Value = "" Range("B" & intRadTeller).Comment.Delete Range("B" & intRadTeller).Interior.Pattern = xlSolid Else 'If Cells(intRadTeller, intKolonneteller).Value "" Then MsgBox "Den valgt avdelingen har ingen utfasing registrert. Utfasingen kan ikke slettes", vbInformation, "MORSK - Utfasing" End If 'If Cells(intRadTeller, intKolonneteller).Value "" Then Else 'If chkFjern.Value = True Then If CInt(cmbUtStart.Value)
Unload Me 'Finner siste operative avdeling intRadTeller = 5 Do Until Cells(intRadTeller, 2).Value = "" intRadTeller = intRadTeller + 1 Loop 'Beskytter alle cellene i arket untatt de hvor data skal tastes inn Cells.Select Selection.Locked = True Selection.FormulaHidden = True strRad = "B5:B" & intRadTeller - 1 Range(strRad).Select Selection.Locked = False Range(Cells(5, 49), Cells(intRadTeller - 1, 50)).Locked = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Range("B5").Select A.7.2.3 Prosedyren UserForm_Activate() 'Prosedyren kjøres når skjemaet åpnes 'Hensikten med prosedyren er å hente inn alle operative avdelinger og årstall 'Deklarerer variabler Dim intRadTeller As Integer Dim intKolonneteller As Integer 'Initsierer variabler intRadTeller = 5 intKolonneteller = 1 'Looper gjennom alle operative byggeklosser i den aktuelle grenen og legger disse inn i kombinasjonsboksen i skjemaet Do Until Cells(intRadTeller, intKolonneteller).Value = "" cmbAvdeling.AddItem Cells(intRadTeller, intKolonneteller).Value intRadTeller = intRadTeller + 1 Loop 41 'Dersom intRadTeller fortsatt er 5 etter at alle avdelingene er lagt inn i skjemaet betyr det at det ikke er registrert noen 'operative byggeklosser på denne grenen. Utfasing er da ikke mulig, noe brukeren får beskjed om gjennom en feilmelding. Videre 'lukkes skjemaet If intRadTeller = 5 Then MsgBox "Det finnes ingen operative avdelinger for denne Forsvarsgrenen. Utfasing er ikke mulig", vbOKOnly, "MORSK - Utfasing"
Page 1: FFI RAPPORT MORSK (Modell for Raske
Page 5: FORSVARETS FORSKNINGSINSTITUTT (FFI
Page 8 and 9: A.5.2.1 Prosedyren cmdAvbryt_Click(
Page 11 and 12: MORSK (Modell for Raske Strukturkos
Page 13 and 14: 2 BRUKERVEILEDNING 11 MORSK baserer
Page 15 and 16: de aktuelle årene. Denne mulighete
Page 17 and 18: 15 I dette skjemaet kan brukeren ve
Page 19 and 20: 17 navnet til den korresponderende
Page 21 and 22: Morsk navn KOSTMOD navn Divisjonsfa
Page 23 and 24: 21 byggeklossene. Hvor stor endring
Page 25 and 26: kan bruke mer av tiden analysere re
Page 27 and 28: strInnlogget = "" A.1.2.2 Prosedyre
Page 29 and 30: Sheets("Forsvaret").Activate A.2.2.
Page 31 and 32: 29 brukeren MsgBox "Du må oppgi et
Page 33 and 34: intKolonneteller = 4 ElseIf cmbGren
Page 35 and 36: Figur A.5 Skjemaet frmSlett i MORSK
Page 37 and 38: A.6.2.2 Prosedyren cmdOK_Click() 35
Page 39 and 40: txtGrunnPD.Text, txtMarginalPD.Text
Page 41: A.7.2 Kildekode A.7.2.1 Prosedyren
Page 45 and 46: Figur A.8 Skjemaet frmBeskrivelse i
Page 47 and 48: A.9.2 Innledende deklareringer 45 '
Page 49 and 50: 'Aktivere arbeidsboken som innehold
Page 51 and 52: 49 If strGren = "Sjø" Then strKort
Page 53 and 54: 51 'Henter inn EBA-driften for det
Page 55 and 56: 53 intMaks = 0 DKVPers = Sheets("Mo
Page 57 and 58: intRadTeller2 = 4 'Finner frem til
Page 59 and 60: 57 Cells(intRadTeller2 + 3, 3).Valu
Page 61 and 62: 59 With Cells(intRadTeller2, 2).Val
Page 63 and 64: A.9.8 Prosedyren Importer_Basisstru
Page 65 and 66: Select Case Cells(dumpRekke, 4).Val
Page 67 and 68: A.9.12.2 Kildekode 65 Sub Open_NyAv
Page 69 and 70: strFunnet1 = "" strFunnet2 = "" Do
Page 71 and 72: 69 avdelingsnavnet skal stå. Avdel
Page 73 and 74: 71 If UCase(Cells(intAvdOppsettTell
Page 75 and 76: Range("Y" & intTeller & ":Z" & intT
Page 77 and 78: 'Lager Advarselsfunksjon i d-kolonn
Page 79 and 80: 77 Sheets("Avdelingsoppsett").Activ
Page 81 and 82: strGlobalAvbryt = "JA" Exit Sub End
Page 83 and 84: 81 Windows(Mid(strFilnavn, InStrRev
Page 85 and 86: 83 OperativStrukturRad = 5 Do Until
Page 87 and 88: 85 Cells(rekke, 1).Value = StotteAv
Page 89 and 90: 'Initsierer variabler strAvdeling =
Page 91 and 92: intTeller = intTeller + 1 Loop 'Bes
Page 93 and 94:
91 If Cells(rekke, 1).Value = Stott
Page 95 and 96:
de skjulte arkene i modellen, vises
Page 97:
Litteratur (1) STEDER Frank B (2001
show all

Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?