Sub UseFunction()
    Dim myRange As Range
    Set myRange = Worksheets("Sheet1").Range("G1:G10")
    answer = Application.WorksheetFunction.Min(myRange)
End Sub
这个是对EXCEL找最小值的功能,现在能正确找出最小值,可是我想让它找出最小值
后能选择这个值所在的单元格,并将这个值变为红色.怎么写啊 ?
另外如果我在EXCEL中启用VB写的这个宏,怎么能让所有的EXCEL一打开都加入这个宏了?谢谢

解决方案 »

  1.   

    先回答第二个问题,将宏保存到个人宏工作簿啊。存放在C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART的personal.xls中。这样每次打开excel该文件都回启动,就相当于windows系统中的启动。
      

  2.   

    第一个问题你可以用excel录制一个宏分析一下就明白了
      

  3.   

    谢谢
    问题一: 录制宏只是人为手动的做了些事情啊,找最大最小值不一定是出现在那一行阿.
    比如 Worksheets("Sheet1").Cells(1, 3).Value = counter 
      表明了1行3例的值是counter ,可是怎么找出任何一个值所在的行列数阿