Two workbooks (minipops_quiz.xls and LOGOQUIZ.xls) reached this office this
afternoon and occupied almost everyone's attention until I came up with the
following:

To show all correct answers, paste the following code into the respective
workbook's Sheet1 class. What to do next is left as an exercise for the
reader.

For minipops_quiz.xls
---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow As Long, nCol As Long
For nRow = 6 To 82 Step 4
For nCol = 2 To 6
Worksheets("minipops").Cells(nRow, nCol) = _
Worksheets("answers").Cells(nRow, nCol)
Next nCol
Next nRow
End Sub

For LOGOQUIZ.xls
----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSheet As Long, nRow As Long, nCol As Long, i As Long
i = 0
For nSheet = 3 To 7
For nRow = 8 To 26 Step 9
For nCol = 2 To 16 Step 2
i = i + 1
Worksheets(nSheet).Cells(nRow, nCol) = _
Worksheets("answers").Cells(i, 2)
Next nCol
Next nRow
Next nSheet
End Sub

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

This MAY be interesting but it is a tad unfair to NOT post
the two workbooks to which you refer. ;-)

Can you send them to me please.

Chrissy.


Michael Bednarek wrote
Two workbooks (minipops_quiz.xls and LOGOQUIZ.xls) reached this office this
afternoon and occupied almost everyone's attention until I came up with the
following:

To show all correct answers, paste the following code into the respective
workbook's Sheet1 class. What to do next is left as an exercise for the
reader.

For minipops_quiz.xls
---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow As Long, nCol As Long
For nRow = 6 To 82 Step 4
For nCol = 2 To 6
Worksheets("minipops").Cells(nRow, nCol) = _
Worksheets("answers").Cells(nRow, nCol)
Next nCol
Next nRow
End Sub

For LOGOQUIZ.xls
----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSheet As Long, nRow As Long, nCol As Long, i As Long
i = 0
For nSheet = 3 To 7
For nRow = 8 To 26 Step 9
For nCol = 2 To 16 Step 2
i = i + 1
Worksheets(nSheet).Cells(nRow, nCol) = _
Worksheets("answers").Cells(i, 2)
Next nCol
Next nRow
Next nSheet
End Sub

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

http://www.chesskit.com/web/quiz.xls

Try that one.

Chrissy.



"Chrissy" wrote in message ...
This MAY be interesting but it is a tad unfair to NOT post
the two workbooks to which you refer. ;-)

Can you send them to me please.

Chrissy.


Michael Bednarek wrote
Two workbooks (minipops_quiz.xls and LOGOQUIZ.xls) reached this office this
afternoon and occupied almost everyone's attention until I came up with the
following:

To show all correct answers, paste the following code into the respective
workbook's Sheet1 class. What to do next is left as an exercise for the
reader.

For minipops_quiz.xls
---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow As Long, nCol As Long
For nRow = 6 To 82 Step 4
For nCol = 2 To 6
Worksheets("minipops").Cells(nRow, nCol) = _
Worksheets("answers").Cells(nRow, nCol)
Next nCol
Next nRow
End Sub

For LOGOQUIZ.xls
----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSheet As Long, nRow As Long, nCol As Long, i As Long
i = 0
For nSheet = 3 To 7
For nRow = 8 To 26 Step 9
For nCol = 2 To 16 Step 2
i = i + 1
Worksheets(nSheet).Cells(nRow, nCol) = _
Worksheets("answers").Cells(i, 2)
Next nCol
Next nRow
Next nSheet
End Sub

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

On Fri, 24 Oct 2003 22:42:31 +1300, "Chrissy" wrote in
microsoft.public.excel.programming:

http://www.chesskit.com/web/quiz.xls

Try that one.

Enter =AJ<rownumber for each answer, i.e. in D8 enter =AJ8 through to in
D40 enter =AJ40

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

Michael Bednarek wrote
Chrissy wrote in
microsoft.public.excel.programming:

http://www.chesskit.com/web/quiz.xls

Try that one.

Enter =AJ<rownumber for each answer, i.e. in D8 enter =AJ8 through to in
D40 enter =AJ40

I meant to try to DO it legitimately - not to do it with formulas.

Chrissy.

On Sat, 25 Oct 2003 01:04:47 +1300, "Chrissy" wrote in
microsoft.public.excel.programming:

Michael Bednarek wrote
Chrissy wrote in
microsoft.public.excel.programming:

http://www.chesskit.com/web/quiz.xls

Try that one.

Enter =AJ<rownumber for each answer, i.e. in D8 enter =AJ8 through to in
D40 enter =AJ40

I meant to try to DO it legitimately - not to do it with formulas.

Nahh; to answer the questions correctly takes just knowledge - to write
code to defeat the author takes ingenuity.

--
Michael Bednarek
http://mcmbednarek.tripod.com/ "POST NO BILLS"

Michael Bednarek wrote
Chrissy wrote
Michael Bednarek wrote
Chrissy wrote

http://www.chesskit.com/web/quiz.xls

Try that one.

Enter =AJ<rownumber for each answer, i.e. in D8 enter =AJ8 through to in
D40 enter =AJ40

I meant to try to DO it legitimately - not to do it with formulas.

Nahh; to answer the questions correctly takes just knowledge - to write
code to defeat the author takes ingenuity.

To write code takes only a little knowledge - code writing, in any language,
is just a simple step-by-step task. To work out those answers requires
powers of reasoning which are far beyond any which are required for
programming.

Chrissy.

Can you please send me the logoquiz - I want to check to see if it's
the same as I have. Some of my answers do not work and I'm 100%
certain I have them correct.

MM

Michael Bednarek wrote in message . ..
Two workbooks (minipops_quiz.xls and LOGOQUIZ.xls) reached this office this
afternoon and occupied almost everyone's attention until I came up with the
following:

To show all correct answers, paste the following code into the respective
workbook's Sheet1 class. What to do next is left as an exercise for the
reader.

For minipops_quiz.xls
---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow As Long, nCol As Long
For nRow = 6 To 82 Step 4
For nCol = 2 To 6
Worksheets("minipops").Cells(nRow, nCol) = _
Worksheets("answers").Cells(nRow, nCol)
Next nCol
Next nRow
End Sub

For LOGOQUIZ.xls
----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSheet As Long, nRow As Long, nCol As Long, i As Long
i = 0
For nSheet = 3 To 7
For nRow = 8 To 26 Step 9
For nCol = 2 To 16 Step 2
i = i + 1
Worksheets(nSheet).Cells(nRow, nCol) = _
Worksheets("answers").Cells(i, 2)
Next nCol
Next nRow
Next nSheet
End Sub

As found through Google
http://www.peel.edu.on.ca/rickhansen...s/Logoquiz.xls

That will download it.

Chrissy.



Michelle wrote
Can you please send me the logoquiz - I want to check to see if it's
the same as I have. Some of my answers do not work and I'm 100%
certain I have them correct.

For LOGOQUIZ.xls
----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nSheet As Long, nRow As Long, nCol As Long, i As Long
i = 0
For nSheet = 3 To 7
For nRow = 8 To 26 Step 9
For nCol = 2 To 16 Step 2
i = i + 1
Worksheets(nSheet).Cells(nRow, nCol) = _
Worksheets("answers").Cells(i, 2)
Next nCol
Next nRow
Next nSheet
End Sub

On 28 Oct 2003 20:04:39 -0800, (Michelle) wrote
in microsoft.public.excel.programming:

Can you please send me the logoquiz - I want to check to see if it's
the same as I have. Some of my answers do not work and I'm 100%
certain I have them correct.

MM

I noticed there's an error in sheet '1-24' cell Q8 (Air Ukraine); it is
empty but it should probably contain:
=IF(P8="","",IF(P8=Answers!$B$8,"J","L"))

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

On Wed, 29 Oct 2003 20:17:31 +1300, "Chrissy" wrote
in microsoft.public.excel.programming:

As found through Google
http://www.peel.edu.on.ca/rickhansen...s/Logoquiz.xls

That will download it.

Sorry, I wasn't aware there are two of the same name. I was referring to
a different one which lists Martin Grund as author. I can't locate that
one on the Internet, so now I've put that one up at
<http://mcmbednarek.tripod.com/logoquiz.zip; beware, it's 456KB.

The solution to the one you refer to above is
g n
c
b
i
e
j
d o
f
k
l
m
h
p
a

--
Michael Bednarek, Brisbane, Australia
http://mcmbednarek.tripod.com/ "POST NO BILLS"

Hi Michael,

I have the quiz you have!!
Sheet 49-72 I have glaxosmithkline for Picture 29, 73-96 lion nathan
for Picture 29 and philip morris for pic 59, 97-120 I have telekom for
pic 45.
These all come up wrong - any help.

By the way, I cannot decipher your instructions on how to get answers
as I know nothi ng about excel.



Michael Bednarek wrote in message . ..
On 28 Oct 2003 20:04:39 -0800, (Michelle) wrote
in microsoft.public.excel.programming:

Can you please send me the logoquiz - I want to check to see if it's
the same as I have. Some of my answers do not work and I'm 100%
certain I have them correct.

MM

I noticed there's an error in sheet '1-24' cell Q8 (Air Ukraine); it is
empty but it should probably contain:
=IF(P8="","",IF(P8=Answers!$B$8,"J","L"))