选择指定区域---要求模块

andymark

错了, 不是录制宏,  而是通过录制宏所得的代码修改成相应的代码

andymark

题目要求是按任意2个值来选定区域对吗
并不说对指定的区域进行加减乘除之类的统计

Pandy

不好说

欢欢

这个解决了，会了就简单，呵呵
Sub DDQY() '得到选择区域
Dim ra As Range
Set ra = Selection
startRow = ra.Row
endRow = ra.Row + ra.Rows.Count - 1
startColumn = Chr(ra.Column + 64)
endColumn = Chr(ra.Column + ra.Columns.Count - 1 + 64)
End Sub

liwen

用什么事件来运行这个代码呢？

欢欢

再提一下：为什么下面代码，颜色不完全显示
Sub JJ()
Cells.FormatConditions.Delete
    Application.ScreenUpdating = False
ActiveWorkbook.Names.Add Name:="HHHH", RefersToR1C1:="=Sheet3!R12C4:R23C7"
    ActiveWorkbook.Names("HHHH").RefersToRange.Select
    With Selection
.FormatConditions.Add Type:=xlExpression, Formula1:="=ROW()=CELL(""ROW"")"
.EntireColumn.FormatConditions.Add Type:=xlExpression, Formula1:="=ROW()=CELL(""ROW"")"
.FormatConditions(1).Interior.ColorIndex = 38

    End With
    Application.ScreenUpdating = True
End Sub

Jonathan.K

关键是选择区域的事件吧？

tanhong

用类模块,将表事件封装,这算不算用表事件

tanhong

欢欢提出的命题，不用表事件得出列，行首尾数，我用类封装表事件，不知道这样实现算不算。见如下实例：


实例样本：

欢欢

江版厉害，可是还是不能把数值掉用到模块中用，看来只有用我14楼的代码了，16楼的问题有兴趣的再作一下，大致意思是： 1.打开任何工作表工作簿中你选择区域区域可以填色，颜色可以在自己创建的窗体中手动选择 2.如果原有单元格区域有填充的颜色，不能更改 3.还应保留复制粘贴功能 4.如下图：我作出单列的单行的，就是没有1列以上或者1行以上选择区域是的变色没有能实现，看各位高手能把这个擂台攻下吗？