Help w/ Battleship Multimedia Project

**SSA_111** · 11-13-2006, 05:30 PM

Hey all.

This seems like a great place to find some answers to my question. I am an Excel noob and have tried to use google to find what I need but it was to no avail.

A friend and I are making a VERY simple version of Battleship for our multimedia class and need some help with functions/ VBA stuff. Could anyone give me a few pointers as to how I could accomplish the following?-

1. The player has a 10x10 game board on sheet 1. When they click on a certain cell in sheet 1 on the game board (ex. B2), that particular cell turns white if the corresponding cell in sheet 2 ("B2" in the ex.) equals "0" and turns red if the corresponding cell in sheet 2 equals "1".

This seems rather complicated and I cannot find a way to accomplish this. My teacher has no clue how to do it either but I would rather spend the time to accomplish this than do a half-*** project on a more generic topic, ie. football stats. Thank you very much in advance for any help you may be able to give and I hope that what I what to do is actually possible...

-Pat

**dominicb** · 11-13-2006, 05:56 PM

Good evening SSA_111

Welcome to the forum!

What's wrong with football stats?

OK, two sheets, Sheet1 and Sheet2. the code below will check the corresponding cell of Sheet2 when you click on a cell in Sheet1. Won't do the whole project for you but it should give you a shove in the right direction.
BTW, it's based on event procedures so you need to put it in the code module for Sheet1, not a regular module :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Sheet2").Range(ActiveCell.Address).Value = 1 Then
ActiveCell.Interior.ColorIndex = 6
End If
End Sub

HTH

DominicB

**SSA_111** · 11-13-2006, 06:38 PM

Thank you for your help! You mentioned that "BTW, it's based on event procedures so you need to put it in the code module for Sheet1, not a regular module :"- What would that be in layman's terms? The project will only require simple coding as the majority of the points will be awarded by using "the design process, etc" and not really based on thorough knowledge of Excel.

**dominicb** · 11-13-2006, 06:47 PM

Hi

OK. An event procedure is simply a procedure that occurs when a predifined event takes place. There is a double click event, ie we can fire a macro off when the user double clicks the mouse, but not a single click, so this code works around this by firing when the selection changes (ie when a different cell is clicked) - look at the first line of the macro, "Selection_Change"

Where do you put it? Well, right click on the tab for Sheet1, select "View code" and copy the code into the big blank window that opens. Close the window and away you go.

HTH

DominicB