12. november 2004 - 09:06Der er
9 kommentarer og 2 løsninger
Hvad er galt med denne makro
Sub Beregn() ' ' Beregn Makro ' Makro indspillet 12-11-2004 af Århus Amt '
' Dim Counter As Integer For Counter = 3 To 200 strTemp = Worksheets("Rådata").Cells(Counter, 12).Value Worksheets("Beregningsark").Cells(1, 1).Value = strTemp If strTemp > 0 Then tempval = 1 For i = 12 To 28 If i = 12 Then valueStr = 5 ElseIf i = 13 Then valueStr = 11.5 ElseIf i = 14 Then valueStr = 13.75 ElseIf i = 15 Then valueStr = 16.5 ElseIf i = 16 Then valueStr = 18.75 ElseIf i = 17 Then valueStr = 21.5 ElseIf i = 18 Then valueStr = 23.75 ElseIf i = 19 Then valueStr = 26.5 ElseIf i = 20 Then valueStr = 28.75 ElseIf i = 21 Then valueStr = 31.5 ElseIf i = 22 Then valueStr = 33.75 ElseIf i = 23 Then valueStr = 36.5 ElseIf i = 24 Then valueStr = 38.75 ElseIf i = 25 Then valueStr = 41.5 ElseIf i = 26 Then valueStr = 43.75 ElseIf i = 27 Then valueStr = 46.5 ElseIf i = 27 Then valueStr = 48.75 End If strTemp2 = Worksheets("Rådata").Cells(Counter, i).Value If strTemp2 > 0 Then For n = tempval To (tempval + strTemp2) Worksheets("Beregningsark").Cells(n, i + 25).Value = valueStr Next n tempval = (tempval + strTemp2) End If Next i End If Next Counter End Sub
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Tilgengæld giver det her problemer: Sub Beregn() ' ' Beregn Makro ' Makro indspillet 12-11-2004 af Århus Amt '
' Dim Counter As Integer For Counter = 3 To 200 strTemp = Worksheets("Rådata").Cells(Counter, 16).Value Worksheets("Beregningsark").Cells(1, 1).Value = strTemp If strTemp > 0 Then tempFormListe = "" tempval = 1 For i = 17 To 33 If i = 17 Then valueStr = 5 ElseIf i = 18 Then valueStr = 11.5 ElseIf i = 19 Then valueStr = 13.75 ElseIf i = 20 Then valueStr = 16.5 ElseIf i = 21 Then valueStr = 18.75 ElseIf i = 22 Then valueStr = 21.5 ElseIf i = 23 Then valueStr = 23.75 ElseIf i = 24 Then valueStr = 26.5 ElseIf i = 25 Then valueStr = 28.75 ElseIf i = 26 Then valueStr = 31.5 ElseIf i = 27 Then valueStr = 33.75 ElseIf i = 28 Then valueStr = 36.5 ElseIf i = 29 Then valueStr = 38.75 ElseIf i = 30 Then valueStr = 41.5 ElseIf i = 31 Then valueStr = 43.75 ElseIf i = 32 Then valueStr = 46.5 ElseIf i = 33 Then valueStr = 48.75 End If strTemp2 = Worksheets("Rådata").Cells(Counter, i).Value If strTemp2 > 0 Then For n = tempval To (tempval + strTemp2) If tempFormListe = "" Then tempFormListe = valueStr Else tempFormListe = tempFormListe & ";" & valueStr End If Next n tempval = (tempval + strTemp2) End If Next i If tempFormListe <> "" Then Worksheets("Data, individniveau").Cells(Counter + 1, 16).Formula = "=MIDDEL(" & tempFormListe & ")" End If End If Next Counter End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
