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

答案:2 悬赏:0 手机版

解决时间 2021-02-09 10:01

提问者网友：自食苦果
2021-02-09 02:47

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

最佳答案

五星知识达人网友：舍身薄凉客
2021-02-09 04:18

那只能用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

全部回答

1楼网友：轻雾山林
2021-02-09 04:59

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息