各位大大，可以试试用VBA写写看喔！

Excel VBA试题四：59分自动进位成60

档案名称 : proj5-4.xls
　　请利用Excel VBA 陈述式，判断 ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

因该不难吧~~

Sub Test()
Dim I As Integer

I = 1
Do Until Cells(I, 2) = ""
Select Case Cells(I, 2)
  Case Is = 59
    Cells(I, 2) = Cells(I, 2) + 1
  Case Is < 59
    Cells(I, 2).Font.ColorIndex = 3
  End Select
  I = I + 1
Loop
End Sub

是很简单没有错，不过大大忘了做另外一个按钮了
我是这样写的
==============
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/5/2007 by sivs_ja
'

'
  Sheets("Sheet3").Select
  Range("B2:B22").Select
  Selection.Copy
  Sheets("自动加分").Select
  Range("B2").Select
  ActiveSheet.Paste
End Sub
==============
Option Explicit
Private Sub Command1_Click()

Macro1

End Sub

Private Sub hand_auto_add_Click()
Dim a As Integer
Dim b As Integer

  For a = 2 To 22
    If Sheets("自动加分").Cells(a, 2).Value = "59" Then
        Sheets("自动加分").Cells(a, 2).Value = "60"
   
    ElseIf Sheets("自动加分").Cells(a, 2).Value < "60" Then
        Sheets("自动加分").Cells(a, 2).Font.ColorIndex = 3
    End If
  Next a
End Sub

恩~~ 的确也能达目的~
但有几个可进步的空间
1.Select用的太多 (没猜错 因该是用录的)
此缺点会影响数度(写得越大 越明显)
2.用FOR回圈 不能动态判断
例如 新增三个成绩 就要改程式才可用
对于维护程式者 是个负担
3.按键 可直接指定 对于单一程序
可不用都宣告个案件给他 (直接指定即可)

优点: 你的撰写比小弟写的完整 小弟早已习惯不写父层噜~

要将小于60的改变颜色不用这样麻烦
Excel有一个功能为格式化条件
设定小于60为红色即可
会比用 回圈来的有效率.......
可以自己用2003录录看
底下是用 Excel 2007 录的再稍微修改的.....参考一下

"2007还是不太会用,偏偏2003砍了.....XD"

Columns("B:B").Select
  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=60"
  Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  Selection.FormatConditions(1).Font.Color = -16383844

因为这些东西只是练习的其中的一个最简单部分，我只是把它拆开了
各位大大言之由理，Excel有些题目方法不只有一种方法可以解
所以只是解题的快慢或是习惯问题