让用户给星级

Question

我想知道是否有人可以帮助我解决 Excel 中特定行的 star rating，而不是基于任何给定的数字或任何信息，只是基于用户的想法，最喜欢的东西网站用于收集客户的反馈。然后用户可以连续给一个书面内容打一到五颗星。

Answer 1

我制作了一个 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

见附件
Here is my Excelfile

祝你有愉快的一天

让用户给星级

Let the user to give star rating

excel

rating

vba