第1个回答 2020-06-12
添加两个标签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