简易电子章制作小模块(VBA)

最新推荐文章于 2023-04-18 17:22:16 发布

原创

最新推荐文章于 2023-04-18 17:22:16 发布 · 4k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#vba #sql #date #工作 #c

该博客介绍了一个使用VBA创建简易电子章的工作模块，通过输入部门名称、日期和姓名，自动生成并格式化电子章，包括椭圆形状、线条样式和文字设置，最后展示如何复制和缩放电子章。

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").Select: SQL = SQL1: sz = 15 If x = 2 Then Range("E14:F15").Select: SQL = sql2: sz = 12 If x