Consulting

Results 1 to 3 of 3

Thread: vba add

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Banned VBAX Regular
    Joined
    Jul 2018
    Posts
    9
    Location

    vba add

    Sub phoenixmoto()
        With UserForm1
           .wow.Value = True
            With .comb
                .AddItem "addition"
                .AddItem "subtraction"
            End With
                .comb.Value = "subtraction"
                
                .TextBox1.Value = 10
                .TextBox2.Value = 20
                .TextBox3.Value = 30
                .Show
        End With
    Unload UserForm1
    End Sub
    
    
    
    Private Sub cancel_Click()
    hide
    End Sub
    
    
    Private Sub ok_Click()
        Dim a As Variant, b As Variant, c As Variant
        If TextBox1.Value = "" Then
        MsgBox "a field is empty"
        Exit Sub
        End If
        If TextBox2.Value = "" Then
        MsgBox "b field is empty"
        Exit Sub
        End If
        If TextBox3.Value = "" Then
        MsgBox "c field is empty"
        Exit Sub
        End If
        
        a = TextBox1.Value
        b = TextBox2.Value
        c = TextBox3.Value
        
        If wow.Value = True Then
        Select Case comb
            Case "addition"
                Call ad(a, b, c)
            Case "subtraction"
                Call minus(a, b, c)
        End Select
        End If
    hide
    End Sub
    
    
    Sub ad(a As Variant, b As Variant, c As Variant)
    ThisDocument.TextBox10.Value = amrit(a, b, c)
    End Sub
    Sub minus(a As Variant, b As Variant, c As Variant)
    ThisDocument.TextBox10.Value = sam(a, b, c)
    End Sub
    Public Function amrit(a As Variant, b As Variant, c As Variant) As Variant
    amrit = (a + b + c)
    End Function
    Public Function sam(a As Variant, b As Variant, c As Variant) As Variant
    sam = (a - b - c)
    End Function
    here in this code function sam works fine and delivers -40 as answer but function amrit does concatination(102030) instead of sum(i.e 60)
    how + symbol is working like &
    Last edited by Aussiebear; 12-13-2018 at 11:48 PM. Reason: Wrapped code with tags

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •