Immediate window ctrl g
Worksheets.Add
Range("A1:A4").Select
[A1:A4].Value = 55
Selection.ClearContents
ActiveCell.Select
?Selection.Address
$A$1:$A$4
Print ActiveWorkbook.Name
Book2
?Application.Name
Microsoft Excel
?12/3
4
?3+2:?12*8
5
96
m=1
n=2
sumtu
print sumtu
''working with worksheet cells and ranges
range("A2").Select
[a1].select
range("a6:a10").Select
[a6:a10].select
range("a1,b6,c3").Select
range("a11:d11, c12, d3").Select
cells(5,1).select
range(cells(6,1),cells(6,5)).Select
cells.Select
cells(5,2).select
cells(1,1).offset(1,3).select
cells(15,4).offset(-2,-1).select
activecell.Offset(-1).Select
''using the resize property
range("a5:a10").Select
selection.offset(2,2).select
selection.resize(2,4).select
range("a2").Select
activecell.FormulaR1C1="text"
cells(5,1).select
'select the last cell in any row
activecell.End(xlToRight).Select
'moving copying and deleting cells
cells(5,1).formulaR1c1="ciaone"
range("a5").cut
destination:=range("a1")
cells(5,1).copy
destination:=range("a1:a5")
cells(5,1).Clear
cells(5,1).clearcontents
cells(5,1).clearformats
cells(5,1).clearcomments
'entering data and formatting cells
activesheet.range(cells(4,1),cells(4,3)).value="= 4*25"
activesheet.range("a1:a4").formula="= 4*25"
cells(5,1).formula="amount due"
cells(21,4).value=123
cells(21,4).formula=123
cells(4,2).formula= "=d21*3"
?cells(4,2).value
369
?cells(4,2)
369
?cells(4,2).formula
=D21*3
range("a1").NumberFormat="$0.00"
?range("b4")
369
'working with workbooks and worksheets
workbooks.Add
?workbooks(1).Name
Book1
?workbooks.Count
workbooks(1).Activate
activeworkbook.SaveAs ciaoo..
workbooks(2).Closek;jshdqviuenhfiuve
activeworkbook.close savechanges...
workbooks.clos e
worksheets.Add
?worksheets(1).name
Sheet7
worksheets(3).select
worksheets(array(1,3,4)).select
worksheets("sheet5").select
worksheets("sheet5").move
before:=worksheets("sheet7")
worksheets("sheet7").name= "expenses"
worksheets("sheet5").delete
'The Select and Activate methods can be used interchangeably if only one worksheet is selected.
If you select a group of worksheets, the Activate method allows you to decide which one of the
selected worksheets is active. As you know, only one worksheet can be active at a time.
'excel objects, properties and methods
an OBJECT is a thing u can control with vba. workbook,worksheet,range..
objects are organized in a hierarchy. Excel is an application object. the application object contains
other objects, such as Workbooks or command bar.
a group of like objects is called a collection (workbooks colelction, worksheets collections)
a property let me change the look of the object
objects have method, each action I want the object to perform is called method
the most important method is add method
clearcontents method ecc..
workbooks("clajciaj").Close savechanges:=false
'activecell(object),offset(property)(3,2)(arguments)
'changing the property of an object
'object.property=value
'activecell.font.name="times new roman"
'activecell.font.bold=true
'returning the current value of the object property
'variable object property
'cellvalue=range("a4").value this instruction saves the current value of cell a4 in the variable
named cellvalue
'object method
'range("A2").clearcontents
'vba data types
'boolean true or false
'byte 0 to 255
'integer -32768 to 32767
'long integer
'longlong integer
'currency
'decimal
'date
'using variable
dim dateofbirth as Date
dim age as Integer
dim fullname as String
Sub agecalc()
Dim fullname As String
Dim dateofbirth As Date
Dim age As Integer
fullname = "ciao io "
dateofbirth = #1/3/1990#
age = Year(Now()) - Year(dateofbirth)
Debug.Print fullname & "is" & age & "years old"
dim fullname as String, dateofbirth as Date, ..
Sub numofrows()
Dim numofrow As long
numofrow = Rows.Count
MsgBox "the worksheet has " & numofrow
End Sub
'dim firstname$ means as a string
' integer % long& single! double# currency@ string$
sub calcost()
slsprice=35
slstax=0.085
cells(1,1).formula="cicici"
cells(1,2).formula=slsprice * slstax
cost= slsprice+(slsprice*slstax)
with range("b6")
.formula=Cost
.numberformat="0.00"
endwith
strMsg="skjdbvsdjn"&...
cells(8,1).formula=strMsg
end sub
'if i want use a costant within a single procedure, declare it at the procedure leve, just below the
'name of the procedure, so..const age as integer =24
'if I want use it in all the procedures I use private const diverletter as string = "c:"
I d like to work for ur company firstly because of the fact that It is one of the biggest company in the
real estate industry widley known all over the world. I would like to work for the brand that it is
recognizable and important in the market. This will enable me to have much more possibilities to
grow and to have a multicultural working environment.
