-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Coloring Different Cells by Selecting Another Cell
- Thread starter Multi
- Start date
Von Pookie
MrExcel MVP
- Joined
- Feb 17, 2002
- Messages
- 13,686
It can be done, but you'll have to give some specifics.
What cells do you want colored when a cell is selected? Does the range and/or color depend on the selected cell?
What cells do you want colored when a cell is selected? Does the range and/or color depend on the selected cell?
Upvote
0
Thanks for your response. What I want to do is select a cell by clicking on it with my mouse. Then a different part of the document lights up. Something close to this effect is fine. Bold, highligh, buttons....whatever. The effect I am trying to represent is selecting a certain cell, then a different cell or two will light up.
Thanks for your help
Thanks for your help
Upvote
0
chiello
Well-known Member
- Joined
- Jan 18, 2005
- Messages
- 848
Possible solution:
1) On the Tools menu in Microsoft Excel, point to Macro, and then click Visual Basic Editor.
2) d-click on the ThisWorkbook object in the left hand window (looks like explorer tree)
3) Type or copy the code below into the right hand code window.
4) Post into window and close the VBE (File|Close)
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>VBAProject_Foglio1.htm</title>
<style type=text/css>
<!--
body {background-color: #ffffff; color: #000000; font-family: "Courier New"; font-size: 10pt}
.keyword {background-color: #ffffff; color: #000080}
.comment {background-color: #ffffff; color: #008000}
-->
</style>
</head>
<body>
<nobr>
<div> <span class="keyword">Private Sub</span> Worksheet_SelectionChange(<span class="keyword">ByVal</span> Target <span class="keyword">As</span> Range)</div>
<div> <span class="keyword">Dim</span> MyCellAddr <span class="keyword">As String</span>, DifferentPartAddr <span class="keyword">As String</span></div>
<div> </div>
<div> <span class="comment">'Insert the address of the cell you want to select (I suppose A1)</span></div>
<div>MyCellAddr = "$A$1"</div>
<div> <span class="comment">'Insert the address of the range you want to highlight (suppose B2:D4)</span></div>
<div>DifferentPartAddr = "B2:D4"</div>
<div> </div>
<div> <span class="keyword">If</span> Target.Address = MyCellAddr <span class="keyword">Then</span></div>
<div> <span class="comment">'MyCell selected: apply format</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = 35</div>
<div> <span class="keyword">Else</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = xlNone</div>
<div> <span class="keyword">End If</span></div>
<div> <span class="keyword">End Sub</span></div>
</nobr>
</body></html>
Ciao
1) On the Tools menu in Microsoft Excel, point to Macro, and then click Visual Basic Editor.
2) d-click on the ThisWorkbook object in the left hand window (looks like explorer tree)
3) Type or copy the code below into the right hand code window.
4) Post into window and close the VBE (File|Close)
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>VBAProject_Foglio1.htm</title>
<style type=text/css>
<!--
body {background-color: #ffffff; color: #000000; font-family: "Courier New"; font-size: 10pt}
.keyword {background-color: #ffffff; color: #000080}
.comment {background-color: #ffffff; color: #008000}
-->
</style>
</head>
<body>
<nobr>
<div> <span class="keyword">Private Sub</span> Worksheet_SelectionChange(<span class="keyword">ByVal</span> Target <span class="keyword">As</span> Range)</div>
<div> <span class="keyword">Dim</span> MyCellAddr <span class="keyword">As String</span>, DifferentPartAddr <span class="keyword">As String</span></div>
<div> </div>
<div> <span class="comment">'Insert the address of the cell you want to select (I suppose A1)</span></div>
<div>MyCellAddr = "$A$1"</div>
<div> <span class="comment">'Insert the address of the range you want to highlight (suppose B2:D4)</span></div>
<div>DifferentPartAddr = "B2:D4"</div>
<div> </div>
<div> <span class="keyword">If</span> Target.Address = MyCellAddr <span class="keyword">Then</span></div>
<div> <span class="comment">'MyCell selected: apply format</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = 35</div>
<div> <span class="keyword">Else</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = xlNone</div>
<div> <span class="keyword">End If</span></div>
<div> <span class="keyword">End Sub</span></div>
</nobr>
</body></html>
Ciao
Upvote
0
chiello
Well-known Member
- Joined
- Jan 18, 2005
- Messages
- 848
wrong step 2)
Substitute: 2) d-click on the ThisWorkbook object in the left hand window (looks like explorer tree)
with: 2) d-click on the Sheet1(Sheet1) object in the left hand window (looks like explorer tree)
P.S. I supposed you want to select a cell inSheet1
Upvote
0
Similar threads
- Question
