+ Reply to Thread
Results 1 to 10 of 10

Add 5 Star Rating to cell

Hybrid View

  1. #1
    Forum Expert martindwilson's Avatar
    Join Date
    06-23-2007
    Location
    London,England
    MS-Off Ver
    office 97 ,2007
    Posts
    19,320

    Re: Add 5 Star Rating to cell

    what do you want to happen when "stars"clicked then?
    "Unless otherwise stated all my comments are directed at OP"

    Mojito connoisseur and now happily retired
    where does code go ?
    look here
    how to insert code

    how to enter array formula

    why use -- in sumproduct
    recommended reading
    wiki Mojito

    how to say no convincingly

    most important thing you need
    Martin Wilson: SPV
    and RSMBC

  2. #2
    Registered User
    Join Date
    05-20-2009
    Location
    Encino, CA
    MS-Off Ver
    Excel 2003
    Posts
    30

    Re: Add 5 Star Rating to cell

    If I were to click the 3rd star, i wanted to see 3 filled yellow stars, and two empty stars.

    If I clicked the 1st star I wanted to see 1 filled yellow star and 4 empty stars.

    Thanks alot for the help and consideration. I wanted one more complex than just using the wingdings font.
    ::I just found out that the brain is like a computer. If that's true, then there really aren't any stupid people. Just people running DOS.

  3. #3
    Forum Expert shg's Avatar
    Join Date
    06-20-2007
    Location
    The Great State of Texas
    MS-Off Ver
    2010, 2019
    Posts
    40,689

    Re: Add 5 Star Rating to cell

    You would have to use five separate cells and some VBA. There's no way to tell where you clicked in a cell, only that it was clicked.

    You could use shapes, but it would be messy.
    Entia non sunt multiplicanda sine necessitate

  4. #4
    Forum Moderator zbor's Avatar
    Join Date
    02-10-2009
    Location
    Croatia
    MS-Off Ver
    365 ProPlus
    Posts
    16,097

    Re: Add 5 Star Rating to cell

    How about something like this?

    Book1.xls

    Not stars but might be helpfull...

    Now shg only need make vba to change cell's when they are populated

    For example, third box (third cell become TRUE) need to make 1 and 2 TRUE and 4 and 5 false...

    You know that VBA things
    Last edited by zbor; 09-24-2009 at 03:04 AM.
    Never use Merged Cells in Excel

  5. #5
    Forum Guru Andy Pope's Avatar
    Join Date
    05-10-2004
    Location
    Essex, UK
    MS-Off Ver
    O365
    Posts
    20,485

    Re: Add 5 Star Rating to cell

    Click a star to select stars up to that point.

    Column G is used to remove star rating.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("H2:L8")) Is Nothing Then
            Range("H2:L8").Rows(Target.Row - 1).Font.ColorIndex = xlAutomatic
            Range("H2:H8").Rows(Target.Row - 1).Resize(1, Target.Column - Range("H2").Column + 1).Font.ColorIndex = 6
        ElseIf Not Intersect(Range("G2:G8"), Target) Is Nothing Then
            ' No stars
            Target.Offset(0, 1).Resize(1, 5).Font.ColorIndex = xlAutomatic
        End If
        
    End Sub
    Attached Files Attached Files
    Cheers
    Andy
    www.andypope.info

  6. #6
    Registered User
    Join Date
    10-10-2012
    Location
    South Africa
    MS-Off Ver
    Excel 2007
    Posts
    1

    Re: Add 5 Star Rating to cell

    Hi This is exactly what i need but have no idea where to insert this code.
    please advise i also want to have 6 stars.

    Your help would be greatly appreciated

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1