如何在EXCEL表里做进度条?
玩过魔兽的朋友都知道,界面里有个经验条(或者声望),可以很清楚的知道自己差多少经验可以升级我现在在EXCEL表,我有销售的计划数据,有当前完成的数据,就想做成那样,这样就...
玩过魔兽的朋友都知道,界面里有个经验条(或者声望),可以很清楚的知道自己差多少经验可以升级
我现在在EXCEL表,我有销售的计划数据,有当前完成的数据,就想做成那样,这样就可以很清楚的明白,销售计划完成了多少 展开
我现在在EXCEL表,我有销售的计划数据,有当前完成的数据,就想做成那样,这样就可以很清楚的明白,销售计划完成了多少 展开
11个回答
展开全部
添加两个标签label1 label2
设置两个标签为不同颜色
设置label1 于顶层 label2为底层
设A1单元格为现在的数值 A2为总的数值
在sheet1中添加以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
l_top = 10
l_left = 10
l_width = 100
l_height = 15
Label1.BackStyle = 0
Label1.Top = l_top
Label2.Top = l_top
Label1.Width = l_width
Label2.Width = 0
Label1.Height = l_height
Label2.Height = l_height
a = Cells(1, 1)
b = Cells(1, 2)
Label2.Width = l_width * a / b
End Sub
设置两个标签为不同颜色
设置label1 于顶层 label2为底层
设A1单元格为现在的数值 A2为总的数值
在sheet1中添加以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
l_top = 10
l_left = 10
l_width = 100
l_height = 15
Label1.BackStyle = 0
Label1.Top = l_top
Label2.Top = l_top
Label1.Width = l_width
Label2.Width = 0
Label1.Height = l_height
Label2.Height = l_height
a = Cells(1, 1)
b = Cells(1, 2)
Label2.Width = l_width * a / b
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询