選擇指定區(qū)域---要求模塊

andymark

錯了, 不是錄制宏,  而是通過錄制宏所得的代碼修改成相應(yīng)的代碼

andymark

題目要求是按任意2個值來選定區(qū)域?qū)��?br /> 并不說對指定的區(qū)域進行加減乘除之類的統(tǒng)計

Pandy

不好說

歡歡

這個解決了，會了就簡單，呵呵
Sub DDQY() '得到選擇區(qū)域
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

關(guān)鍵是選擇區(qū)域的事件吧？

tanhong

用類模塊,將表事件封裝,這算不算用表事件

tanhong

歡歡提出的命題，不用表事件得出列，行首尾數(shù)，我用類封裝表事件，不知道這樣實現(xiàn)算不算。見如下實例：


實例樣本：

歡歡

江版厲害，可是還是不能把數(shù)值掉用到模塊中用，看來只有用我14樓的代碼了，16樓的問題有興趣的再作一下，大致意思是： 1.打開任何工作表工作簿中你選擇區(qū)域區(qū)域可以填色，顏色可以在自己創(chuàng)建的窗體中手動選擇 2.如果原有單元格區(qū)域有填充的顏色，不能更改 3.還應(yīng)保留復(fù)制粘貼功能 4.如下圖：我作出單列的單行的，就是沒有1列以上或者1行以上選擇區(qū)域是的變色沒有能實現(xiàn)，看各位高手能把這個擂臺攻下嗎？