|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub zl(S_rng As Range, T_rng As Range, 运算符%, V_vaule)
- '运算符%: 2加 3减 4乘 5除
- Select Case 运算符
- Case 2, 3, 4, 5
- S_rng.Copy T_rng(1)
- [iv1] = V_vaule
- [iv1].Copy
- T_rng(1).Resize(S_rng.Rows.Count, S_rng.Columns.Count).PasteSpecial Paste:=xlPasteAll, Operation:=运算符
- [iv1].Delete
- Case Else
- S_rng.Copy T_rng(1)
- End Select
- End Sub
- Sub zldccmx() '举例
- Application.EnableEvents = False
- Call zl([E7:H18], [l2], 6, 0.5)
- Application.EnableEvents = True
- End Sub
复制代码 |
|