'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
'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
Post a Comment