|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
有大神帮我看看我的吗?我不想输出公式,想直接输去结果怎么操作呀
Private Sub 操作信息_Click()
Range("AA7").Select
Selection.Formula = "=IF(AG7="""","""",u7)"
Range("AB7").Select
Selection.Formula = "=IF(AG7="""","""",--w7)"
Range("AC7").Select
Selection.Formula = "=IF(AG7="""","""",d7)"
Range("AG7").Select
Selection.Formula = "=IF(c7="""","""",c7)"
Range("AA7:Ag7").Select
Selection.AutoFill Destination:=Range("AA7:Ag1000"), Type:=xlFillDefault
Range("AA7:Ag1000").Select
Range("AB7:AB1000").Select '指定范围的格式
Selection.NumberFormatLocal = "hh:mm:ss;@"
Range("Ag7:Ag1000").Interior.Color = RGB(169, 208, 142) '填充为浅绿色
End Sub |
|