VBA操作备注

最新推荐文章于 2024-05-27 23:04:23 发布

zplovepkk

最新推荐文章于 2024-05-27 23:04:23 发布

阅读量1.1k

点赞数

本文链接：https://blog.csdn.net/zplovepkk/article/details/108839289

版权

Attribute VB_Name = "NewMacros"
Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2020/09/27
'

'   '定义字符串变量，修改表中日期上的错误信息

    s = "填表人（签字）： ***                                          　　　 　        填表时间：　　　2020年 9月26日                                "
    
    '打开工作表 附件3：.xlsx
    
    Workbooks.Open Filename:="F:\Delphi客户工程\excel例子\acm\BIN\附件3：.xlsx", AddToMru:=True
    
    '激活指定工作薄
    
    Windows("附件1：.xlsx").Activate

    '获取工作表的数量
    
    d = Worksheets.Count
    
    
    '循环
    
    For i = 1 To d
    
    '激活指定的工作表
    
     Sheets(i).Activate
     
     '激活指定的表格
     
     Range("A3").Select
     
     '指定的表格赋值
     
     Selection.Formula = s
     
     '替换指定表格字符串中的“-”为“至”
     
     Range("A3:I12").Replace "-", "至"
     
     '判断填充指定的表格
     If Sheets(1).[d8] = "无" Then
    
    '表格内容指定为空
    
        Sheets(1).[d8] = ""
        
     End If
     
     '激活指定工作薄
     
     Windows("附件1：.xlsx").Activate
     
     '工作表的身份证号码
     
     
    Next
    
    
End Sub