25. april 2008 - 13:30Der er
8 kommentarer og 2 løsninger
Excel. beregne en værdi med 2 decimaler
Har fået svar på et indlæg og dette fungerer som det skal.. mit eneste spørgsmål er bare hvordan man ændrer const sats2 = 50 til eksempelvis 49,47.. Den melser fefl når jeg kører dette..
På forhånd tak
Claus
Se kode nedenstående, linie 3
Dim antalRæk Const sats1 = 100 'kan ændres efter behov Const sats2 = 50 '-"- Public Sub beregning() Application.ScreenUpdating = False
Rem find antal rækker antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
Rem gennemløb at rækker - find om TOTAL i kolonne A For ræk = 1 To antalRæk indhold = Cells(ræk, 1) Rem findes ordet "total" i cellen If InStr(LCase(indhold), "total") > 0 Then Rem indsæt formel i kolonne G (7) & I (9) Cells(ræk, 7).Formula = "=F" & CStr(ræk) & "*" & CStr(sats1) Cells(ræk, 9).Formula = "=H" & CStr(ræk) & "*" & CStr(sats2) End If Next ræk
Rem Tilpas kolonne-bredde Columns.AutoFit
Application.ScreenUpdating = True
MsgBox ("Beregning afsluttet") End Sub Private Sub CommandButton1_Click() beregning End Sub
Dim antalRæk Const sats1 As Integer = 100 'kan ændres efter behov Const sats2 As Double = 49.47 '-"-
Public Sub beregning() Application.ScreenUpdating = False
Rem find antal rækker antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
Rem gennemløb at rækker - find om TOTAL i kolonne A For ræk = 1 To antalRæk indhold = Cells(ræk, 1) Rem findes ordet "total" i cellen If InStr(LCase(indhold), "total") > 0 Then Rem indsæt formel i kolonne G (7) & I (9) Cells(ræk, 7).Formula = "=F" & CStr(ræk) & "*" & sats1 Cells(ræk, 9).Formula = "=H" & CStr(ræk) & "*" & sats2 End If Next ræk
Rem Tilpas kolonne-bredde Columns.AutoFit
Application.ScreenUpdating = True
MsgBox ("Beregning afsluttet") End Sub Private Sub CommandButton1_Click() beregning End Sub
lav et nyt spørgsmål i samme kategori, kald den "Point til Kabbak" og sæt link til dette spørgsmål.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.