如何让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
假设在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就显示为五星
假如在B1输入上面的公式,A1中你输入5,b 1就显示为五星
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯