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

度过愉快的一天

让用户给出星级评分

1 个答案: