310-IT-2109 IT For Construction - Spreadsheet 2015 Final
310-IT-2109 IT For Construction - Spreadsheet 2015 Final
310-IT-2109 IT For Construction - Spreadsheet 2015 Final
spreadsheet
Information Technology for
Construction
:: Spreadsheet ::
1. Overview
2. Applications of spreadsheet
3. Advance spreadsheet programming
workbook
1. Overview
column
cell
row
Worksheet
tab
Component of worksheet
Copyright 2005 Vachara Peansupap. All Rights Reserved.
Horizontal scroll
bar
1. History of spreadsheet
programs
Quattro Pro
Spreadsheet functions
Microsoft Excel
2. Applications in
construction
Example of graph
2
1
2
Protect
Worksheet
1
Protect
Workbook
2
Uncheck
locked
Protect Workbook
Protect Workbook
(Window)
(Structure)
4. Database functions
Quiz
5. Multiple Sheet
Worksheet Functions
Function (argument1, argument2, )
Menu Formula
Functions in Excel
Characteristic of Formula
Number
Text Text or 5
Logical values i.e. True or False
Error value i.e. #N/A
Reference i.e. B5, $B5 or R[6]C[1]
Arrays i.e. {a,b,c,d}
Financial
Lookup & Reference
Text
Math & Trig
Database
Logical
Engineering
Date & Time
Statistical
Information
HLOOKUP, VLOOKUP
HLOOKUP -> search data from horizontal
in Table
VLOOKUP -> search data from vertical in
Table
COLUMN (Reference)
= Column (B3) = 2
VLOOKUP(B1,E2:G4,3)
TEXT functions
VBA Random
TEXT functions
=LEFT("Chulalongkorn University",5) =
Chula
=RIGHT("Chulalongkorn University",8) =
iversity
=MID("Chulalongkorn University", 6, 8)
=longkorn
Case study
Sub rndNo()
Dim str As String
For i = 1 To 10
str = str & CStr(Rnd) & vbCrLf
Next i
MsgBox str
End Sub
Macro
Macro
Example of Macro
Recording of macro
Example of macro
Example of macro
Visual Basic
Example of Future
Spreadsheet
Multiple Sheet
Cell
Multiplespreadsheet
Multiple Sheets
Collaboration
Cell
Collaboration
Multiplespreadsheet
Function
Application
Function
for
calculation
Exercise 01
Solutions:
IF(C2>=80,A", IF(C2>=70,B",
IF(C2>=60,C", IF(C2<60,D"))))
For i = 1 To 18
Example of bar-chart
Start_P = ""
Dur = Range("D" & 2 + i).Value
width_Bar = Dur * Width / (Total / 12)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, left_cum, top_1 + (i - 1) *
Cell_height, width_Bar, Bar_H).Select
Selection.Name = "Bar" & i
left_cum = left_cum + width_Bar
'Draw line
X2 = X1 + XL / 18
Y2 = Y1 - Dur * YL / Total
ActiveSheet.Shapes.AddLine(X1, Y1, X2, Y2).Select
Selection.Name = "Line" & i
X1 = X2
Y1 = Y2
Next i