Textboxlarda (%) toplama

[sirkülasyon]

Textbox22, Textbox23, TextBox24 içerisinde % değerler var (1%, 15%, Gibi)
Textboxları döngüye alarak toplayıp sonucu TextBox25' e aktarabilir miyiz?
Teşekkür ederim

 

[Muzaffer Ali]

Merhaba

Private Sub CommandButton1_Click()
    Dim Topla As Double
    Dim txt As Variant
    For Each txt In Array(TextBox22, TextBox23, TextBox24)
        Topla = Topla + Replace(txt, "%", "")
    Next
    MsgBox Topla
End Sub

 

[sirkülasyon]

teşekkür ederim