excel如何自动生成表格？

Question

如题所述

Answer 1

1、首先打开需要编辑的Excel表格，进入到编辑页面中，鼠标右键单击左下角工作表，选择打开查看代码。

2、然后在弹出来的窗口中，点击选择左侧Excel 对象中的“ThisWorkbook”选项。

3、然后在弹出来的窗口中，点击打开“通用”，选择“workbook”。

4、然后打开后面的选项栏，选择“open”选项。

5、然后点击下方的编辑框，输入下方的代码：

Private Sub Workbook_Open()

   Dim v, s, n As Date

    v = Application.WorksheetFunction.Max(Range("C2:C15"))  'C2:C15为要审查的单元格

     For Each s In Range("C2:C15")

        n = Date   '获取当前日期

        If s > n And s < n + 60 Then    ' 设置到期60天时提醒

            If v > s Then

                v = s

            End If

        End If

     Next          

   If v < Application.WorksheetFunction.Max(Range("C2:C15")) Then

        Dim T As String

        Dim R As Integer

        Set C = Range("C2:C15").Find(v)

        If Not C Is Nothing Then

            R = C.Row  '返回行

        End If

        T = Sheet1.Cells(R, 2).Value

        MsgBox T & "将于" & v & "到期，请及时核定！"

    End If

End Sub

6、然后单击左上角的保存按钮。

7、然后重新打开Excel表格，到了时间就会弹出窗口提示了。