如何让单元格内显示为=D8-F9

hanq286274686 · 发表于 2018-7-20 23:55

自己写的第一段小代码Sub crh()
Dim qs%
qs = 8
If Cells(qs, 5).Value < 5 Then
Rows(qs & ":" & qs).Insert '选择8行
End If
Range("a" & qs & ":b" & qs).Merge '选择单元格
Cells(qs, 1) = Cells(qs - 1, 1) + 1
Range("c" & qs - 1 & ":f" & qs - 1).Copy Range("c" & qs)
Cells("e" & qs + 1).Formula = "=Round(Range("D" & qs) - Range("F" & qs), 3)"
End Sub

如何E9单元格内显示为=D8-F9

tswing · 发表于 2018-7-21 06:17

E9 设置为文本格式

山菊花 · 发表于 2018-7-21 09:14

Range("e" & qs + 1).Formula = "=Round(D" & qs & "-F" & qs + 1 & ",3)"

		自动登录	找回密码
密码			免费注册

[求助] 如何让单元格内显示为=D8-F9