将所选区域统一减去指定值
(您认为本文值几颗星)
Loading ...程序功能：用户可以指定一个值，所选区域各单元格中的数值将统一减去该值，并返回结果。
程序用途：有时，用户可能想对某些单元格减去相同的值。使用本程序，将一次对所选区域减去指定的值。
程序代码：
Sub psSubtract()
Dim y As Integer ‘用户定义用于增减的值
Dim x As Range ‘为变量准备的单元格
Dim z As Range ‘处理的区域
Set z = Selection
y = Application.InputBox(”输入从选区中减去的数量:”, _
Title:=”从所选区域中减去”, Default:=10, Type:=1)
Set x = Range(”A65536″).End(xlUp).Offset(1)
If y = 0 Then Exit Sub ‘取消按钮= 0,因此退出
If x <> “” Then
Exit Sub
Else
x.Value = y
x.Copy
z.PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract
Application.CutCopyMode = False ‘取消复制模式
End If
x.ClearContents ‘恢复正常
End Sub
程序使用：选择所要减去相同值的单元格区域，运行程序，在消息框中输入值(默认为10)，单击“确定”后，所选区域中所有单元格将减少所输入的值。
程序说明：本程序使用了选择性粘贴中的“减”功能。
示例下载：http://www.drexcel.cn/article.asp?id=30
发表评论