Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
反向选择单元格
作者:罗刚君 | 来源:Excel吧 | 时间:2008-07-15 | 阅读权限:游客 | 会员币:0 | 【

在Excel中,没有反向选择单元格的功能,有时需要这样的操作就很麻烦,罗兄借助VBA,插入一个新的工作表,再原使用区域(UsedRange)中设定公式,而在原选择单元格的区域中设定数值,然后再选择包含公式的区域,而获得反向选择的区域,用手工操作看起来很麻烦,而用VBA来完成速度还是非常快的,原代码如下:

Sub fanxiangs() '反向选择
    If ActiveSheet.ProtectContents Then
        MsgBox "工作表已保护,本程序拒绝执行!", 64, "提示 - http://www.excelba.com"
        Exit Sub
    ElseIf TypeName(Selection) <> "Range" Then
        MsgBox "选择的对象不是单元格,本程序拒绝执行!", 64, "提示 - http://www.excelba.com"
        Exit Sub
    End If
   
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim raddress As String, taddress As String
    raddress = Selection.Address
    taddress = ActiveSheet.UsedRange.Address
    With Sheets.Add
        .Range(taddress) = 0
        .Range(raddress) = "=0"
        raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address
        .Delete
    End With
    ActiveSheet.Range(raddress).Select
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口