'Macro Program to VBA Properties

Sub properties()
'Macro Program to VBA Properties
'Range("A8").Activate
'Range("A8") = 48
'Range("A8").Value = 48
'Range("A8").Value = "Sample Text"
'Sheets("Sheet1").Range("A8").Value = "Sample text"
'Sheets(1).Range("A8").Value = "Sample text"
'Workbooks("Properties.xlsm").Sheets("Sheet1").Range("A8").Value = "Sample Text"
'Range("A2:A4").ClearContents
'Range("A5:A10").Font.Size = 18
'Range("A5:A10").Font.Bold = True
'Range("A5:A10").Font.Bold = False
'Range("A5:A10").Font.Italic = True
'Range("A5:A10").Font.Underline = True
'Range("A5:A10").Font.Name = "Arial"
'Range("A5:A10").Borders.Value = 1
'Range("A5:A10").Borders.Value = 0
'Selection.Borders.Value = 1
'Sheets("Sheet3").Visible = 0
'Sheets("Sheet3").Visible = 1
'Range("A7") = Range("A9")
'Range("A7").Value = Range("A9").Value
'Range("A7").Font.Size = Range("A9").Font.Size
'Range("B2") = Range("C2") + 1
'Range("B2") = Range("B2") + 1

'Beginning of instructions using command: WITH
'   With ActiveCell
'        .Borders.Weight = 3
'        .Font.Bold = True
'        .Font.Size = 18
'        .Font.Italic = True
'        .Font.Name = "Arial"
'   'End of instructions using command: END WITH
'   End With

'We could avoid repeating .Font, too, which would look like this :
'    With ActiveCell
'        .Borders.Weight = 3
'        With .Font
'            .Bold = True
'            .Size = 18
'            .Italic = True
'            .Name = "Arial"
'        End With
'    End With

End Sub

Comments

Popular posts from this blog

TDS Calculation System

VBA - Additional Controls Dialog Box "MISSING"

Loan EMI Calculator Dashboard