Позвольте пользователю выставить звездный рейтинг

Интересно, может ли кто-нибудь помочь мне с star rating определенной строки в Excel, не основанной на каком-либо номере или какой-либо информации, просто на основе идеи пользователя, что-то вроде того, что большинство веб-сайтов используют для сбора отзывов от своих клиентов. Затем пользователь мог поставить от одной до пяти звезд за письменный контент подряд.


excel vba rating
person Roshan    schedule 24.02.2016    source источник
comment
См. наборы значков   -  person Automate This    schedule 24.02.2016

Ответы (1)


arrow_upward
0
arrow_downward

Я сделал небольшой пример файла Excel, который прилагается. также немного кода.

См. Код ниже:

Option Explicit

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

См. Прикрепленный файл

person XsiSec    schedule 24.02.2016
comment
Спасибо, это работает так, как я хотел, теперь я работаю над этим, чтобы понять ваш код и посмотреть, могу ли я применить это и в Google Sheets. Еще раз спасибо. - person Roshan; 25.02.2016