【第22期】观点:IT 行业加班,到底有没有价值?

从零开始学习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(中)

4.1 代码存在的位置:模块   VBA代码必须存放在某个位置,这个地方就是模块。有两种基本类型的模块:标准模块和类模块。模块中的每个过程或者是函数过程,或者是子程序概念.本课的最后部分将讨论函数过程...
  • gxiyv
  • gxiyv
  • 2007-04-20 20:48
  • 1611

《从零开始学Swift》学习笔记(Day 64)——Cocoa Touch设计模式及应用之目标与动作

原创文章,欢迎转载。转载请注明:关东升的博客   <p class="MsoNormal" style="text-indent: 19.0p

程序员升职加薪指南!还缺一个“证”!

CSDN出品,立即查看!

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

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

《从零开始学Swift》学习笔记(Day 68)——Cocoa Touch设计模式及应用之响应者链与触摸事件

原创文章,欢迎转载。转载请注明:关东升的博客   

从来没见过这么多的资源~~好好找找吧,一定有你需要的

从来没见过这么多的资源~~好好找找吧,一定有你需要的
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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