如何让excel中输入5时显示5颗星星

发布网友 发布时间：2022-04-23 03:46

我来回答

共2个回答

热心网友 时间：2023-09-05 08:49

那只能用VBA，可以在另一个单元格显示，方法比较简单：

假设在A列输入数字B列显示星星，A1输入5，B1输入公式

=REPT("★",A1)

公式下拉，结果如下图所示：

用VBA的方法如下：

1、按Alt+F11，打开VBA编辑器，粘贴下面的代码，再关闭VBA编辑器，如下图：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 1 Then Exit Sub '如果输入的数据不在A列就退出过程
    If Target.Count > 1 Then Exit Sub '如果同时输入多个单元格数据就退出过程
    If Not IsNumeric(Target.Value) Then Exit Sub '如果输入的不是数字就退出过程
    Application.EnableEvents = False '关闭事件触发程序，避免触发连锁事件
    Target.Value = Application.WorksheetFunction.Rept("★", Target.Value)
    Application.EnableEvents = True
End Sub

热心网友 时间：2023-09-05 08:49

=REPT("★",A1)
假如在B1输入上面的公式，A1中你输入5，b 1就显示为五星