从零开始学习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
  • 1927

从零开始学VBA(下)

第五课" 利用VBA设置工作表使用权限 Excel Home 一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令,有时这尚嫌不足,比如一些机密文件根本要让某些使用者无法看到,但又需要他来操作工...
  • gxiyv
  • gxiyv
  • 2007年04月20日 20:50
  • 1118

跟一个从零开始学excel vba的新手的对话过程(简单程序实例)

 请教编写vba程序要用到函数吗?函数和程序是姐妹关系,在程序中经常用到函数来实现某些功能能举个例子说明吗?比如:if [a1].value="编程太难"  then msgbox "a1单元格是“编...
  • gxiyv
  • gxiyv
  • 2007年04月19日 23:59
  • 3387

学习日记-html5

已掌握:学习并使用过HTML, CSS, 但并不熟练,特别是css常用效果了解但对于不常用的能实现的效果不清晰,html的各种标签除常用部分,其他在使用时需要去查询. 今日学习:html5 发展,与...
  • trch1989
  • trch1989
  • 2017年02月06日 16:50
  • 177

linux学习日记!!

一,用户的理解 在系统中用户储存为若干字符串+若干个系统配置文件 联系到的配置文件: /etc/passwd        用户信息 /etc/shadow        用户认证信息 /e...
  • SjmMx1314aini
  • SjmMx1314aini
  • 2017年02月13日 00:04
  • 140

2016年寒假学习日记

svn配置管理 mock server 创建测试服务 junit测试 eclipse 插件开发 osgi框架 java bean和oracle type:公司实现,type编程http://blog....
  • xdyzyh
  • xdyzyh
  • 2017年02月20日 21:12
  • 171

从零开始学习nginx

首先搭建环境:安装ubuntu,然后安装vmware tools,安装vmware tools的时候要先在虚拟机某个地方新建一个目录,然后把所以tools的文件复制过去,然后解压安装。直接解压会提示r...
  • THEANARKH
  • THEANARKH
  • 2016年06月25日 17:05
  • 395

从零开始学习cocoStudio(2)--GUI学习

一、UI 框架的使用方法以及常用接口介绍 1.cocos2d-x 使用UI框架的步骤:     1)cocos2d-x 导入cocoStudio的UI编辑器文件(json)   ...
  • my183100521
  • my183100521
  • 2014年01月16日 14:49
  • 6073

从零开始学Vue(零)开天辟地

一、什么是Vue Vue:是一套构建用户界面的渐进式框架。 那么该如何理解渐进式框架呢?这里的框架是指MVVM框架,关于渐进式是指与其他框架想比更少的主张。也就是足够的optional,但并不主张...
  • riddle1981
  • riddle1981
  • 2017年08月06日 21:51
  • 218

从零开始学习JSP

 一个普通的错误是把JSP当作简化的Java。它不是,(事实上, JSP 是简化的 servlets 。)程序员通常试着没有学习要求的支持技巧而直接学习 JSP 。JSP 是一个衔接技术,并且成功地连...
  • hebopolo
  • hebopolo
  • 2008年04月12日 00:13
  • 473
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:从零开始学习VBA(日记)
举报原因:
原因补充:

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