使用VBA代码在工作表中将数字显示为七段显示,如下图1所示。
?
图1
在单元格C9中输入四位及四位以内的数字,在单元格区域B2:P6中会像电子显示屏一样以七段形式显示这个数字。...'顺序是上/左上/右上/中/左下/右下/下
aDigits(0) = Array(lON, lON, lON, lOFF,lON, lON, lON)
aDigits(1) = Array...'设置四个角的颜色
If aDigits(CLng(Mid$(sValue, i,1)))(j) = lON Then
'对于水平段,...rSeg.Offset(0,1).Interior.Color = lON
Else
'对于垂直段,...Interior.Color = lON
End If
End If
Next j
Next i
End Sub
在数字所在的工作表模块中,