10. marts 2014 - 13:39Der er
3 kommentarer og 1 løsning
If sætninger i Excel 2010 - decimaltal fra combobox
Nedenstående fungerer fint med decimaltal "ContainerstørrelseMaling", hvis de tastes direkte ind, men hvis de kommer fra en combobox med rowsource i en given kolonne, virker det kun med hele tal ikke decimal??? Hvad er det jeg har overset?
Private Sub ComboBox1_Change() ContainerstørrelseMaling.Value = ComboBox1.Value
End Sub
Private Sub ContainerstørrelseMaling_Change() beregnTekstboks3 End Sub
Private Sub ÅrstalMaling_Change() beregnTekstboks3 End Sub
Private Sub beregnTekstboks3() Dim v1 As Double
If IsNumeric(Me.ContainerstørrelseMaling) = True And _ IsNumeric(Me.ÅrstalMaling) = True Then
Select Case v1 Case 14, 14.5, 11.5, 13.5, 17 ÅrstalDerMales.Value = ÅrstalMaling.Value + 2
Case 21, 24, 30, 32, 33, 34, 36, 25, 26, 27, 29, 37, 40.5 ÅrstalDerMales.Value = ÅrstalMaling.Value + 4 Case Else ÅrstalDerMales.Value = "" End Select Else ÅrstalDerMales.Value = "" End If End Sub
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub ComboBox1_Change() ContainerstørrelseMaling.Value = ComboBox1.Value End Sub Private Sub ContainerstørrelseMaling_Change() Me.ContainerstørrelseMaling.Value = Replace(Me.ContainerstørrelseMaling.Value, ",", ".") beregnTekstboks3 End Sub Private Sub ÅrstalMaling_Change() beregnTekstboks3 End Sub Private Sub beregnTekstboks3() Dim v1, v2
If IsNumeric(Me.ContainerstørrelseMaling) = True And _ IsNumeric(Me.ÅrstalMaling) = True Then
Select Case CStr(v1) Case "14", "14.5", "11.5", "13.5", "17" ÅrstalDerMales.Value = ÅrstalMaling.Value + 2
Case "21", "24", "30", "32", "33", "34", "36", "25", "26", "27", "29", "37", "40.5" ÅrstalDerMales.Value = ÅrstalMaling.Value + 4 Case Else ÅrstalDerMales.Value = "" End Select Else ÅrstalDerMales.Value = "" End If 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.