1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| Public rSelectedRoom As Range
' Room selected when choosing a room at general check in.
Public bSelectARoomFinished As Boolean
' Indicating when the room selection is finished.
Public bIsLoopingSelectARoom As Boolean
' To know if the room selector is waiting for the user.
Public oCurrentInput As Object
' To know if we are writing in a box or in a cell.
Public bIsLoopingSearchWord As Boolean
' To know if the search engine is waiting for the user.
Public bSearchFinished As Boolean
' To know if we are finishing the search.
Public bNextResult As Boolean
' Jumping to the next result in the search engine.
Public Function rNoLock() As Range
' Defining the cells which should not be locked.
Set rNoLock = Union(Worksheets(1).Range( _
"R5:W15,U4:W4,Y5:AD15,AB4:AD4,U22:AD22,U28:AD28,U34:AD34,U40:AD40,U46:AD46,R37:S37,P43:Q43,P44:Q44,P45:Q45,G42:P42,G38:P38,G34:P34,G30:P30,M26:N26,B42:C42,D38:E38,B34:C34,D30:E30,B26:C26,D22:E22,B18:C18,D14:E14,B10:C10,D7:E7,B4:C4,H3:J3,L7:N7,I8:N10" _
), Worksheets(1).Range("I11:K11,I6:N6,I12:N12,I13:N21"))
End Function
Public Function rLinkedInventoryColumns() As Range
' Defining the columns of the database, for which rooms A and B must be linked.
' Ex : Inventory for a junior room is the same for A and B
Set rLinkedInventoryColumns = Worksheets(2).Range("N:AI,D:D")
End Function
Public Function rNotLinkedInventoryCCColumns() As Range
' Defining the room side columns, which must not be linked for crew change rooms.
Set rNotLinkedInventoryCCColumns = Worksheets(2).Range("N:X")
End Function
Public Function rRoomsOfCampView() As Range
' Defining precisely the range of cells which represent the rooms.
' If we want to add a new building, we need to change this.
Set rRoomsOfCampView = Worksheets(1).Range(Worksheets(1).Cells(1, 1).Value)
End Function
Public Function rRoomCodeLocation() As Range
' Searching "sRoom code" to define where the information about the room will
' be displayed. Actually, this zone can be moved if needed, the program will detect
' automatically the new zone, thanks to the "sRoom code" cell, at the top-left corner
' of the zone. You must not write "sRoom code" anywhere else in the "Camp view" sheet.
Set rRoomCodeLocation = Worksheets(1).Cells.Find("Room code", LookAt:=xlWhole)
End Function
Public Function rRoomSideLocation() As Range
' Searching "sRoom side" to define where the maintenance information about the room side will
' be displayed. Actually, this zone can be moved if needed, the program will detect
' automatically the new zone, thanks to the "sRoom side" cell, at the top-left corner
' of the zone. You must not write "sRoom side" anywhere else in the "Camp view" sheet.
Set rRoomSideLocation = Worksheets(1).Cells.Find("Room side", LookAt:=xlWhole)
End Function
Public Function rLavatorySideLocation() As Range
' Searching "Lavatory side" to define where the maintenance information about the room side will
' be displayed. Actually, this zone can be moved if needed, the program will detect
' automatically the new zone, thanks to the "Lavatory side" cell, at the top-left corner
' of the zone. You must not write "Lavatory side" anywhere else in the "Camp view" sheet.
Set rLavatorySideLocation = Worksheets(1).Cells.Find("Lavatory side", LookAt:=xlWhole)
End Function
Public Function lColorGreen() As Long
lColorGreen = Worksheets(1).Cells(43, 16).Interior.Color
' Defining the green color => Free room. It can be changed with Excel tools on the sheet if needed.
End Function
Public Function lColorOrange() As Long
lColorOrange = Worksheets(1).Cells(44, 16).Interior.Color
' Defining the orange color => Occupied room. It can be changed with Excel tools on the sheet if needed.
End Function
Public Function lColorRed() As Long
lColorRed = Worksheets(1).Cells(45, 16).Interior.Color
' Defining the red color => sRoom to repair. It can be changed with Excel tools on the sheet if needed.
End Function
Public Function rSearchInputLocation() As Range
Set rSearchInputLocation = Worksheets(1).Cells(3, 8)
' Defining where the search engine input is located. It can be changed if needed.
End Function |
