从零开始学习VBA(日记)

原创 2015年07月07日 09:36:19

最近项目中经常遇到批量修改文档的情况,故尝试开始学习VBA

Sub documentsSet()
'    On Error GoTo Error
    Dim MyFile As String
    Dim Arr(1000) As String
    Dim count As Integer
    ERRORCOUNT = 0
    MyFile = Dir("C:\Users\liuhl\Desktop\新しいフォルダー\" & "*.xls")    '批量修改文件所存在的文件夹地址
    count = count + 1
    Arr(count) = MyFile

    Do While MyFile <> ""
        MyFile = Dir
        If MyFile = "" Then
            Exit Do
        End If
        count = count + 1
        Arr(count) = MyFile         '将文件的名字存在数组中
    Loop
    For I = 99 To 150
        Workbooks.Open Filename:="C:\Users\liuhl\Desktop\新しいフォルダー\" & Arr(I)  '循环打开Excel文件
        Sheets("画面項目").Select
        For J = 12 To Sheets("画面項目").Range("A170").End(xlUp).Row
           If Trim(Sheets("画面項目").Cells(J, 1)) = "特記" Then  '将特定值以上的所有行目选中
              lineCount = J - 1
              Range("AD12:BG" & lineCount).Select
              With Selection.Font                       '更改字体
                .Name = "MS UI Gothic"
                .Size = 10
                .Strikethrough = False
                .Superscript = False
                .Subscript = False
                .OutlineFont = False
                .Shadow = False
                .Underline = xlUnderlineStyleNone
                .ThemeColor = xlThemeColorLight1
                .TintAndShade = 0
                .ThemeFont = xlThemeFontNone
              End With
              Range("A1:D1").Select
              Sheets("レビュー指摘一覧").Select
              ActiveWindow.Zoom = 70
              Range("A1").Select
           End If
        Next J
        ActiveWorkbook.Close savechanges:=True        '保存打开的文件

    Next
'Error:
'    Windows("新規 Microsoft Office Excel ワークシート.xlsx").Activate
'    Sheets("Sheet2").Select
'    Sheets("Sheet2").Cells(1 + 1, 1) = "誤りフェーイル:" & ERRORCOUNT
End Sub



版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

从零开始学习VBA

  • 2012-06-11 23:50
  • 13.44MB
  • 下载

sqli-labs从零开始学习日记(二)

嗯,这次有个很好用的东西SQLMAP,主要是我看的视频里面他们用的是其他的软件
  • shzm0
  • shzm0
  • 2014-05-08 23:52
  • 1461

[从零开始学Excel.VBA]

  • 2014-09-04 08:51
  • 57KB
  • 下载

(4)从零开始的操作系统开发日记

lab1的代码量在1.5K左右,想要一天看完还要熟悉工具链了解相关姿势做完练习果然还是不太科学orzLab1相关笔记: ucore用页机制实现分段 练习一中sign为签名工具,编译时带标准库,在开发环...

[从零开始学Excel.VBA

  • 2016-05-26 23:42
  • 49.99MB
  • 下载

从零开始学execl.VBA

  • 2015-10-18 22:59
  • 49.99MB
  • 下载

(6)从零开始的操作系统开发日记

(听说这是个叫做日yue记geng的系列)前言:因为各种各样怠惰的原因,博客一直没更,不是我懒啦,是因为后面的课程发现一节课下来记录的东西并不多,想要存起来一口气写,结果拖到了现在,嗯,肯定不是我偷懒...

从零开始学Excel.VBA

  • 2014-03-11 09:08
  • 49.99MB
  • 下载

ym——Android从零开始(5)(文件操作+日记+单元测试)(新)

文件相关操作文件的操作模式 Android系统文件目录                 system:        系统目录,放置android运行核心库   &...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)