在VBA里面,允许我们自定义一个过程,然后通过代码调用,这相当于,构造一个自定义函数,然后对其进行调用,下面为大家介绍。
  一、功能代码
  Private Sub CommandButton1_Click()
     Select Case Sheets("成绩登记表").Cells(3, 7).Value
      Case "物理"
          physics
      Case "化学"
          chemistry
      Case "生物"
          biology
    End Select
  End Sub
  二、过程的函数代码
  Sub physics() '物理
     Dim Boot
     Boot = 4
      For i = 4 To 27 '清理原来数据
          Sheets("成绩登记表").Cells(i, 1).Value = ""
          Sheets("成绩登记表").Cells(i, 2).Value = ""
          Sheets("成绩登记表").Cells(i, 3).Value = ""
      Next i
  End Sub
  不知道您注意到了没有,上面红色的字符,就是调用过程及过程函数名,直接输入Sub的名称就行了,相当简单,勿需质疑。