Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("G1:G10")
answer = Application.WorksheetFunction.Min(myRange)
End Sub
这个是对EXCEL找最小值的功能,现在能正确找出最小值,可是我想让它找出最小值
后能选择这个值所在的单元格,并将这个值变为红色.怎么写啊 ?
另外如果我在EXCEL中启用VB写的这个宏,怎么能让所有的EXCEL一打开都加入这个宏了?谢谢
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("G1:G10")
answer = Application.WorksheetFunction.Min(myRange)
End Sub
这个是对EXCEL找最小值的功能,现在能正确找出最小值,可是我想让它找出最小值
后能选择这个值所在的单元格,并将这个值变为红色.怎么写啊 ?
另外如果我在EXCEL中启用VB写的这个宏,怎么能让所有的EXCEL一打开都加入这个宏了?谢谢
问题一: 录制宏只是人为手动的做了些事情啊,找最大最小值不一定是出现在那一行阿.
比如 Worksheets("Sheet1").Cells(1, 3).Value = counter
表明了1行3例的值是counter ,可是怎么找出任何一个值所在的行列数阿