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
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.