1、重复优化了VBA编程素材中折扣函数的操作步骤，在工作表中激活VB后，光标选中编辑区后插入模块，选择函数类，填写相关代码，添加的模块名称不能与函数名称相同，否则工作表内函数无法实现，出现#NAME?错误。



代码如下：

Public Function 折扣(x As Double)
If x >= 100000 Then
折扣 = x * 0.8
Else
折扣 = x
End If
End Function


2、九九乘法表，知识点是先声明I, J变量的格式，使用DIM，再使用for语句循环


代码如下：
Sub 九九乘法表()
    Dim i As Integer, j As Integer
    For i = 1 To 9
        For j = 1 To 9
            Cells(i, j).Value = i * j
        Next j
    Next i
End Sub


聚光灯焦距代码，在工作表Worksheet对象中，选择Selectionchange声明，代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub


3、子程序-显示当前日期


开发工具，插入，activeX按钮，点击设计模式，查看代码，F4，重新命名模块名称为显示当前日期，caption重命名显示当前日期，输入函数
Private Sub 显示当前日期_Click()
    ActiveCell.Value = Date    '选中单元格的格式为日期
    ActiveCell.NumberFormat = "mmmm d,yyyy"    '选中单元格数字格式为MMMM D,YYYY
    ActiveCell.Font.Bold = True    '选中单元格字体加粗格式为1
    ActiveCell.Font.Color = vbWhite    '选中单元格字体颜色为白色
    ActiveCell.Interior.Color = vbBlack    '选中单元格填充色为黑色
End Sub


4、用户窗体-打开消息框，知识点：插入用户窗体，使Excel里实现窗口弹出
步骤：
1、当前工作表下，打开VB，插入，用户窗体
2、添加控件：文本框，按钮，标签
3、用户在按钮控件右键，查看代码，输入以下代码：    '查看代码后，VB编辑区直接激活窗体中按钮控件的编辑区

Private Sub CommandButton2_Click()    'CommandButton2_Click()操作为编辑区内窗体中按钮控件的的操作
    MsgBox "你是谁：" & TextBox2    'TextBox2为窗体中文本控件的名称重命名的
End Sub


4、该窗体中插入子程序，程序名称可自定义，但声明的.Show函数必须指定窗体的名称！
Public Sub showuserform()
    你是谁.Show
End Sub

5、在当前工作表中建立activex按钮控件，查看代码，输入如下代码：
Private Sub CommandButton2_Click()    '此CommandButton2_click为新建的第二个按钮控件
    你是谁.Show    '显示名称为你是谁的窗体
End Sub

///////////////////////3，4，5应该可以倒序来过