VBA MOD01 Passing Arguments to sub procedures (ByRef , By Val)

 


Private Sub myCalc(Getvalue As Double, myPercent)

    

    Getvalue = Getvalue * myPercent

    MsgBox Getvalue

    

End Sub


Public Sub GetMyValue()

    Dim myValue As Double

    Dim p As Variant

    'assign value and percentage from cell

    myValue = Range("A8").Value

    p = Range("B8").Value

    Call myCalc(myValue, p)

    MsgBox myValue

    

End Sub




=========================================================================
Private Sub myCalc(Getvalue As Double, myPercent)
    
    Getvalue = Getvalue * myPercent
    MsgBox Getvalue
    
End Sub

Public Sub GetMyValue()
    Dim myValue As Double
    Dim p As Variant
    'assign value and percentage from cell
    myValue = Range("A8").Value
    p = Range("B8").Value
    If Excel.WorksheetFunction.IsNumber(p) Then
        Call myCalc(myValue, p)
     Else
        myCalc myValue, 1
     End If
    MsgBox myValue
    
End Sub














Comments

Post a Comment

Popular posts from this blog

PY MOD01 Lecture 01

 Coding Room ID -- rk.180497@gmail.com Pass - Ritesh@1804 https://app.codingrooms.com/management/courses/join-by-code/4J6slZE6 https://app.codingrooms.com/management/courses/6387/classes/8480/assignments https://replit.com/account ID - RiteshKumar144 ,  rk.180497@gmail.com Pass -  ================================================================== 1 0 0 D A Y S O F C O D E SYLLABUS BASIC Variables in Python String Manipulation Input and Print Functions Variable Naming Rules Mathematical Operations in Python DataTypes Converting types Conditionals IF/ELIF/ELSE Logical Operators Randomisation Error Handling Functions For Loops Code blocks and Indentation While Loops Flowchart Programming Positional and Keyword Arguments Python Dictionaries and Lists Nested Collections Returning Functions Return vs. Print Doc Strings vs. Comments Scope and Local/Global Variables Debugging Techniques     INTERMEDIATE       Local Development Environment Setup Py...
Read more

VBA MOD 01 nested loop - Loop through each cell value and each row

Image
Option Explicit Const startrow As Byte = 10 Dim lastrow As Long Public Sub For_Next_loop_in_text()     Dim i As Long 'for looping inside each cell     Dim numfound As Long     Dim textfound As String     Dim myValue As String     Dim r As Long 'looping through each rows lastrow = Range("A" & Rows.Count).End(xlUp).Row        For r = startrow To lastrow     myValue = Range("A" & r).Value     For i = 1 To VBA.Len(myValue)        If IsNumeric(VBA.Mid(myValue, i, 1)) Then        numfound = numfound & VBA.Mid(myValue, i, 1)                ElseIf Not IsNumeric(VBA.Mid(myValue, i, 1)) Then        textfound = textfound & VBA.Mid(myValue, i, 1)        End If             Next i     Range("H" & r).Value = numfound     Range...
Read more