'=========================================================
'==            Visual Basic Sample Code From            ==
'==     Microsoft Excel/Visual Basic for Windows 95     ==
'==                  Programmer's Guide                 ==
'==                      Chapter 5                      ==
'=========================================================

' DISCLAIMER OF WARRANTY

' THIS FILE CONTAINS UNDOCUMENTED SAMPLE CODE. THIS SAMPLE CODE IS 
' PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT FURTHER
' DISCLAIMS ALL IMPLIED WARRANTIES INCLUDING WITHOUT LIMITATION ANY
' IMPLIED WARRANTIES OF MERCHANTABILITY OR OF FITNESS FOR A PARTICULAR
' PURPOSE. THE ENTIRE RISK ARISING OUT OF THE USE OR PERFORMANCE OF THE
' SAMPLE CODE REMAINS WITH YOU.

' IN NO EVENT SHALL MICROSOFT OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES
' WHATSOEVER (INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF
' BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION,
' OR OTHER PECUNIARY LOSS) ARISING OUT OF THE USE OF OR INABILITY TO USE
' THIS SAMPLE CODE, EVEN IF MICROSOFT HAS BEEN ADVISED OF THE POSSIBILITY
' OF SUCH DAMAGES. BECAUSE SOME STATES DO NOT ALLOW THE EXCLUSION OR
' LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE
' ABOVE LIMITATION MAY NOT APPLY TO YOU.






'=========================================================
'==                    From Page 96                     ==
'=========================================================

Workbooks(1).Sheets(1).Range("c5").Value = 10
Workbooks(1).Sheets(1).Range("d10").Value = 12

'-------------------------------------------------

Set sheet = Workbooks(1).Sheets(1)
sheet.Range("c5").Value = 10
sheet.Range("d10").Value = 12

'-------------------------------------------------

With Workbooks(1).Sheets(1)
	.Range("c5").Value = 10
	.Range("d10").Value = 12
End With





'=========================================================
'==                    From Page 97                     ==
'=========================================================

Set r = Worksheets(1).Range("a1:a200")
For i = 1 To r.Rows.Count
	Set thisRow = r.Rows(i)
	If thisRow.Cells(1, 1).Value < 0 Then
		thisRow.Font.Color = RGB(255, 0, 0)
	End If
Next

'-------------------------------------------------

For Each thisRow In Worksheets(1).Range("a1:a200").Rows
	If thisRow.Cells(1, 1).Value < 0 Then
		thisRow.Font.Color = RGB(255, 0, 0)
	End If
Next

'-------------------------------------------------

For iLoop = 2 To 200
	Cells(iLoop, 1).Value = Cells(1, 1).Value
Next I

'-------------------------------------------------

cv = Cells(1, 1).Value
For iLoop = 2 To 200
	Cells(iLoop, 1).Value = cv
Next i

'-------------------------------------------------

For c = 1 To 1000
	ActiveWorkbook.Sheets(1).Cells(c, 1) = c
Next




'=========================================================
'==                    From Page 98                     ==
'=========================================================

With ActiveWorkbook.Sheets(1)
	For c = 1 To 1000
		.Cells(c, 1) = c
	Next
End With

'-------------------------------------------------

Worksheets("sheet1").Delete
Worksheets("sheet2").Delete
Worksheets("sheet4").Delete

'-------------------------------------------------

Worksheets(Array("sheet1", "sheet2", "sheet4")).Delete





'=========================================================
'==                    From Page 99                     ==
'=========================================================

Sheets("Sheet5").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RAND()"
Selection.AutoFill Destination:=Range("C1:C20"), Type:=xlFillDefault
Range("C1:C20").Select

'-------------------------------------------------

With Sheets("Sheet5")
	.Range("C1").FormulaR1C1 = "=RAND()"
	.Range("C1").AutoFill Destination:=.Range("C1:C20"), _
		Type:=xlFillDefault
End With

'-------------------------------------------------

Sheets("Sheet5").Range("C1:C20").Formula = "=RAND()"





'=========================================================
'==                    From Page 100                    ==
'=========================================================

Range("B2:B14").Select
With Selection.Font
	.Name = "Arial"
	.FontStyle = "Bold"
	.Size = 10
	.Strikethrough = False
	.Superscript = False
	.Subscript = False
	.OutlineFont = False
	.Shadow = False
	.Underline = xlNone
	.ColorIndex = xlAutomatic
End With

'-------------------------------------------------

Range("B2:B14").FontStyle = "Bold"

'-------------------------------------------------

Range("B2:B14").Font.Bold = True





'=========================================================
'==                    From Page 102                    ==
'=========================================================

For Each c In Worksheets(1).Range("A1:A200")
	totVal = totVal + c.Value
Next

'-------------------------------------------------

totVal = Application.Sum(Worksheets(1).Range("a1:a200"))

'-------------------------------------------------

For Each c In Worksheets(1).Range("a1:a200").Cells
	If c.Value = 4 Then c.Value = 4.5
Next

'-------------------------------------------------

Worksheets(1).Range("a1:a200").Replace "4", "4.5"





'=========================================================
'==                    From Page 103                    ==
'=========================================================

For Each c In Worksheets(1).Range("a1:a500").Cells
	If c.Value = 4 Then
		With Worksheets(1).Ovals.Add(c.Left, c.Top, c.Width, c.Height)
			.Interior.Pattern = xlNone
			.Border.ColorIndex = 5
		End With
	End If
Next

'-------------------------------------------------

With Worksheets(1).Range("a1:a500")
	Set c = .Find(4)
	If Not c Is Nothing Then
		firstAddress = c.Address
		Do
			With Worksheets(1).Ovals.Add(c.Left, c.Top, _
					c.Width, c.Height)
				.Interior.Pattern = xlNone
				.Border.ColorIndex = 5
			End With
			Set c = .FindNext(c)
		Loop While Not c Is Nothing And c.Address <> firstAddress
	End If
End With

'-------------------------------------------------

Application.ScreenUpdating = False


