讓用戶給予星級評分

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

有一個愉快的一天