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

欢欢

小妖是理解我的意思了， 通过录制宏？你鼠标选择哪里，录制后才知道的
循环更不可思忆，没有结果，你循环哪里，有结果的地址，我就不要提这个问题了。。。。。。希望高人指点

欢欢

小妖，你的师傅也这样，，，，咳！，你们就根据题意解题把！原因一下说不清楚哦！还提录制宏。。。。。

欢欢

这个解决了，会了就简单，呵呵
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

欢欢

再提一下：为什么下面代码，颜色不完全显示
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

欢欢

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

欢欢

很感谢398，，     但是我想用vba'模块作出来，还有方法吗

欢欢

两点的距离问题都出来了，假如中间隔条深的河，小狗是不是也要去绕桥呢？  对这个问题，我不在深入了，只有小妖mm和江版gg知道我的问题的缘由，谢谢各位的支持！！-------欢乐小爪

欢欢

我在学作andysky工具箱,你可以对比一下图片,还是有区别的,谢谢你的再次关心该题目!!