Sub 图章() Application.DisplayAlerts = False Application.ScreenUpdating = False On Error Resume Next Application.Worksheets.Add Cells.ColumnWidth = 8.4 Cells.RowHeight = 14.2 ActiveSheet.Shapes.AddShape(msoShapeOval, 220, 150, 100, 100). _ Select Selection.ShapeRange.Fill.Visible = msoFalse ActiveSheet.Shapes("Oval 1").Select Selection.ShapeRange.LINE.ForeColor.SchemeColor = 10 SQL1 = InputBox("请输入部门名称", , "财务部") sql2 = InputBox("请输入日期", , CStr(Format(Date, "yyyy-mm-dd"))) sql3 = InputBox("请输入姓名", , "王贺") Range("E14").NumberFormatLocal = "yyyy-mm-dd" For x = 1 To 3 If x = 1 Then Range("E12:F13&