#1
|
|||
|
|||
vba add and subtract code
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 & |
#2
|
||||
|
||||
You should know by now that code MUST be wrapped with code tags to make it easier to read and copy.
Edit your first post,select your code and click the #button Thank you
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#3
|
||||
|
||||
Also post in the correct subforum in the future ( VBA Word)
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#4
|
|||
|
|||
i did not understand your reply . please provide answer
|
#5
|
||||
|
||||
Please read and comply with post #2 Thank you
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post |
#6
|
||||
|
||||
Change all the Variant variables to Long variables and it will work as you intend.
It would also have been preferable to have added your further question to your earlier post rather than start a new one. To add code tags, select Go Advanced select the code and use the # button. It is advisable to use Option Explicit to start your modules as this forces you to declare variables and makes errors easier to spot. You can set the VBA editor options to do this automatically.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#7
|
||||
|
||||
Cross-posted at: http://www.vbaexpress.com/forum/show...?64008-vba-add
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184 phoenixmoto: You have persistently cross-posted and duplicated posted you various discussions, ignoring all reminders of the expected etiquette here and the rules at VBA Express. Accordingly, I am terminating your account here.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
subtract date and time and convert to decimal hours ? | DBenz | Excel | 5 | 01-26-2017 05:38 AM |
Subtract value if cell contains X term | Jue92 | Excel | 4 | 11-01-2016 01:45 AM |
Subtract value from one cell into another | otuatail | Excel | 3 | 02-01-2016 03:21 AM |
Use a numerical merge field to subtract that number of months | MichaelSpedding | Mail Merge | 8 | 11-11-2015 01:11 PM |
How to Subtract value in table, based on two different conditions | nitemath2 | Excel | 1 | 06-19-2015 01:28 AM |