使用範圍。挑選
範圍(" a5") = "最大"
maxzhi =應用程序。WorksheetFunction.Max(使用範圍)
Set c = UsedRange。Find(maxzhi,LookIn:=xlValues)
如果不是,那麽c什麽都不是
c.室內。Color = RGB(255,0,0)
如果…就會結束
maxzhi = maxzhi - 1
Set c = UsedRange。Find(maxzhi,LookIn:=xlValues)
如果不是,那麽c什麽都不是
c.Interior.Color = RGB(255,255,0)
如果…就會結束
maxzhi =應用程序。WorksheetFunction.Min(使用範圍)
Set c = UsedRange。Find(maxzhi,Lookat:=xlWhole)
如果不是,那麽c什麽都不是
c.室內。Color = RGB(0,255,0)
如果…就會結束
maxzhi = maxzhi + 1
Set c = UsedRange。Find(maxzhi,Lookat:=xlWhole)
如果不是,那麽c什麽都不是
c.室內。顏色= RGB(0,255,255)
如果…就會結束
末端接頭