VBA excel，運行后，首先需要用戶選擇幾個單元格（可能連續也可能分散，但都在同一列），用戶確定后，高亮出最大、最小值所在行。找了很多資源，代碼還是不會寫。求大家幫幫忙，本人實習生，這個對我很重要，謝謝大家了！
uj5u.com熱心網友回復：
VB6可視化程式設計(無錫職業技術學院)http://download.csdn.net/detail/zhao4zhong1/6824713uj5u.com熱心網友回復：
在Excel 2003中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
給你一段代碼參考。具體的應用中，自己參照著修改：打開VBE，添加入一個（或使用現有的）標準模塊，粘貼下面的這段代碼。
然后，按你說的“在一列中選定多個單元格（可以是“分散”的）”，
再按“ Alt + F8 ”，選定 FindMaxMin程序，執行它，看看效果。
Public Sub FindMaxMin()
Dim objCMax As Range
Dim objCMin As Range
Dim i&, u As Long
Dim dMax As Double
Dim dMin As Double
Dim dVal As Double
u = Selection.Cells.Count
If (u < 2&) Then
MsgBox "請選定多個單元格后執行！", 48
Exit Sub
End If
Set objCMax = Selection.Cells(1, 1)
Set objCMin = objCMax
dMax = Val(objCMax.Value)
dMin = dMax
For i = 2& To u
dVal = Val(Selection.Cells(i, 1).Value)
If (dVal > dMax) Then
dMax = dVal
Set objCMax = Selection.Cells(i, 1)
ElseIf (dVal < dMin) Then
dMin = dVal
Set objCMin = Selection.Cells(i, 1)
End If
Next
With ActiveSheet.Rows(objCMin.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
End With
With ActiveSheet.Rows(objCMax.Row).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Set objCMax = Nothing
Set objCMin = Nothing
End Sub
uj5u.com熱心網友回復：
錄制宏，不是是萬能的。 有一些東西是“錄不下來的”！！！
uj5u.com熱心網友回復：
這個用條件格式即可（可以靜態/動態設定）：Option Explicit
Sub test()
'''測驗代碼
SetMaxAndMinHighLight Sheet1.Range("b1:b18")
End Sub
Sub SetMaxAndMinHighLight(Rng As Excel.Range)
''''這段代碼只需要執行一次即可
On Error Resume Next
With Rng.FormatConditions
.Delete
.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=MAX(" & Rng.Address & ")"
.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=MIN(" & Rng.Address & ")"
End With
With Rng.FormatConditions(1)
.Font.Bold = True ''''''''''粗體
.Font.Color = vbWhite ''''''白色
.Interior.Color = vbRed ''''背景色---紅色
End With
With Rng.FormatConditions(2)
.Font.Bold = True ''''''''''粗體
.Font.Color = vbWhite ''''''藍色
.Interior.Color = vbBlue '''背景色---藍色
End With
End Sub
'
如果單元格區域不確定可以做成動態的.......
uj5u.com熱心網友回復：
不怕錄不下來，就怕明明能手動做，就是不能改為用VBA做。
專指Office2007之后微軟悍然冒天下之大不韙去掉了錄制宏功能。
uj5u.com熱心網友回復：
誰說2007之后就去掉了錄制宏的功能？（難怪你還強調要用2003版）
你安裝的是“超強閹割版”的 Office？
至少，我安裝的2007、2010專業版，這個功能還存在。
（我暫時還沒使用過更高版本的）
uj5u.com熱心網友回復：
怪我沒說清楚。不是不能錄制宏，是錄制宏后看不了對應VBA代碼。
uj5u.com熱心網友回復：
office某個高版本之后就不行了。uj5u.com熱心網友回復：
你的是多高的版本啊！！！
我的2007、2010，可以錄制宏，能錄制自然就能看到代碼。
不會是你這老麻雀，居然連Office都不會用了吧。
uj5u.com熱心網友回復：
試試office365？
不過我也沒試過。
看來我也有打臉的時候：
不要迷信書、考題、老師、回帖；
要迷信CPU、編譯器、除錯器、運行結果。
并請結合“盲人摸太陽”和“駕船出海時一定只帶一個指南針。”加以理解。
任何理論、權威、傳說、真理、標準、解釋、想象、知識……都比不上擺在眼前的事實！
uj5u.com熱心網友回復：
剛試了一下，Word 2007和Excel 2007都可以錄制并查看宏對應的VBA代碼。PowerPoint 2007好象不能錄制宏。
uj5u.com熱心網友回復：
這個到底是什么情況。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69938.html
標籤：VBA