VBA 01 Methods to debug Code



Comments

Post a Comment

Popular posts from this blog

Day 02 Python - data types , Numbers , Operations , Type Conversions , f-Strings

https://repl.it/@appbrewery/ day-2-start  LEC 18 - Intro of todays goals  ================================================================== LEC 19 - Data Type 1 - Strings    Any thing Written in " "  (double Quotes) and ' ' (Single Quotes)   -----------------------------------------------------------------------------------------------------------------------  2 - Integers          # Any Whole number in programming is known as INTEGERS ------------------------------------------------------------------------------------------------------------------------ 3 - Float            3.145   ------------------------------------------------------------------------------------------------------------------------- 4 - Boolean  True False  #  First Letter should be capital -------------------------------------------------------------------------------------------------------------...
Read more

VBA MOD01 Simple Input Box

Image
 Adding Title - input box Sub Simple_InputBox() Dim myinp As String myinp = VBA.Interaction. _ InputBox(prompt:="Please input Subtitle", Title:="Subtitle please ") If myinp = "" Then Exit Sub Range("A2").Value = Excel.WorksheetFunction.Proper(myinp) End Sub Input Box to add name in new line Sub VBA_InputBox() Dim Cname As String Dim NextRow As Long Cname = InputBox("CustomerName", "Name Please..") NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Range("A" & NextRow).Value = Cname Debug.Print NextRow End Sub
Read more

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

Image
  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.WorksheetF...
Read more