精华内容
下载资源
问答
  • Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内 Dim sn, path As String, j% sn = ActiveSheet.name path = "C:\Lx\all\" For j = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes...
    Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内
    Dim sn, path As String, j%
    sn = ActiveSheet.Name
    path = "E:\家具图片"       '修改为以当前sheet命名文件夹的上一层文件夹路径
    For j = 1 To ActiveSheet.Shapes.Count
    ActiveSheet.Shapes(j).Select
    If ActiveSheet.Shapes(j).Type = 13 Then
    Selection.CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
    .Paste
    .Export path & "\" & sn & "\" & sn & j & ".jpg", "jpg"   '图片保存并命名为sheet名加上序号
    .Parent.Delete
    End With
    End If
    Next
    End Sub
    展开全文
  • VBA研究】统计Excel 工作表数量

    千次阅读 2015-02-26 09:23:05
    作者:iamlaosong VBA编程中如果对每一个工作表循环处理,就...这当前工作簿就是VBA程序所在的工作簿,那么其它工作簿中工作表的数量如何统计呢? 2、活动工作簿中工作表数量 Windows(datfile).Activate num = A

    作者:iamlaosong

    VBA编程中如果对每一个工作表循环处理,就需要知道工作表的数量,常见的方法如下:

    1、当前工作簿中工作表数量

    num = ThisWorkbook.Sheets.Count

    这当前工作簿就是VBA程序所在的工作簿,那么其它工作簿中工作表的数量如何统计呢?

    2、活动工作簿中工作表数量

    Windows(datfile).Activate

    num = ActiveWorkbook.Sheets.Count

    3、知道文件名的工作簿中工作表数量

        datfile = Cells(1, 5)
        datFullName = ThisWorkbook.Path & "\" & datfile
        If Dir(datFullName, vbNormal) <> vbNullString Then
            Workbooks.Open Filename:=datFullName        '打开订单文件
        Else
            MsgBox datfile & "不存在!", vbOKOnly, "iamlaosong"
            Exit Sub
        End If
        num = Workbooks(datfile).Sheets.Count
    


    展开全文
  • VBA

    2017-07-06 16:12:06
    打开工作簿自动运行宏 ...worksheets是指你当前非活动表,而sheets是当前活动表,每个是Sheet是一个工作簿,各个sheet就构成了 sheets,也就是工作表了。如果你同时打开book1和book2,但你对book1进

    打开工作簿自动运行宏

    Sub Auto_Open()

        MsgBox ("欢迎使用Excel 2007!")

    End Sub

     

    worksheets 与sheets 区别

    worksheets是指你当前非活动表,而sheets是当前活动表,每个是Sheet是一个工作簿,各个sheet就构成了 sheets,也就是工作表了。如果你同时打开book1和book2,但你对book1进行操作的时候,book1所属的就可以写sheets,而book2就是worksheets。


    VBA中Mid函数的用法
    示例:
    Dim MyString, FirstWord, LastWord, MidWords
    MyString = "Mid Function Demo"    建立一个字符串。
    FirstWord = Mid(MyString, 1, 3)    ' 返回 "Mid"。
    LastWord = Mid(MyString, 14, 4)    ' 返回 "Demo"。
    MidWords = Mid(MyString, 5)    ' 返回 "Funcion Demo"。

    mid是用来从文本中的第几位开始取几个字符的函数,其他相关的有left()和right(),
    mid(string,start[,length])        
    string:字符串对象        
    start:是个数子,从左数的第几个数字开始        
    length:也是个数子,你要取几个字符,可不填,默认为全部
    vba if等逻辑判断不会短路
    vba 没有三则运算
    vba 定义变量时不能初始化

    展开全文
  • VBA小常识(15)—...1. application.cells当前处于激活状态的工作表,即“活动工作表”的单元格。此时applications可以省略。2. application.activeworkbook当前正处于激活状态的工作簿对象,即活动工作簿。...

    8d2e7acddc7582a096535ed541d56058.png

    VBA小常识(15)—Application对象

    学习自杨洋老师《全民一起学VBA》

    Application是位于最顶端的对象,代表excel程序本身,所有对象都属于它。

    1. application.cells当前处于激活状态的工作表,即“活动工作表”的单元格。此时applications可以省略。

    2. application.activeworkbook当前正处于激活状态的工作簿对象,即活动工作簿。Application.activeworksheet当正处于激活状态的工作表对象,即活动工作表。

    3. application.worksheetfunction.公式名称。可以在vba代码中直接调用excel表格公式。一个代码示例r = Application.WorksheetFunction.Max(Range("B4:J8")),求取B4:J8单元格范围内的最大值,并赋值给r。

    有一些公式没有被包含在Application.WorksheetFunction中,因为vba已经提供了类似的系统函数。比如cos。

    4. application.displayalerts是否显示警告框。如果设置为false,则不再弹出任何警告框。

    5. application.quit程序退出

    展开全文
  • VBA 常用基础

    2014-07-10 21:40:45
    VBA常用 F8 调试 光标放在要...如果没有指明工作表,默认为当前活动工作表(一般要指定) 定义常量 Const Sub 常量定义() Const pi = 3.1415926 End Sub 变量 Dim 格式: Dim 变量 As 变量类型 Dim ...
  • VBA常用技巧

    2014-12-21 16:39:28
    21-4 使用ActiveSheet属性引用活动工作表 12 技巧22 选择工作表的方法 12 技巧23 遍历工作表的方法 12 23-1 使用For...Next 语句 12 23-2 使用For Each...Next 语句 12 技巧24 在工作表中上下翻页 12 技巧25 工作表...
  • vba常用英文

    2014-10-26 17:02:30
    vba语句 (1) Option Explicit '强制对模块内所有变量进行声明 (2) Option Base 1 '指定数组的第一个下标为1 (3) On Error Resume Next '忽略错误继续...(14) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表
  • VBA入门的基础语句

    万次阅读 多人点赞 2017-06-02 18:12:53
     选择当前活动的工作簿:  ThisWorkbook.Activate  如果选择其他工作簿,注意该工作簿一定是打开的,并且不要忘记加上后缀“.xls” ,例如:  Windows("Totol.xls").Activate  选择一个工作表: ...
  • 在代码中用format函数取现在的时间,VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    21-4 使用ActiveSheet属性引用活动工作表 66 技巧22 选择工作表的方法 67 技巧23 遍历工作表的方法 68 23-1 使用For...Next 语句 68 23-2 使用For Each...Next 语句 70 技巧24 在工作表中上下翻页 71 技巧25 工作表...
  • VBA基础语句

    2011-09-17 11:59:07
    '1,VBA注释'A,Rem第一种注释方式(只能用于行收)'B,'单引号为第二种注释方式'例如:Rem定义一个字符串变量DimwksNameAsStringWksName=ActiveSheet.Name'获取当前活动工作表名称'2,GoTo语句'书上建议不要使用...
  • 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前活动工作表; 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏,然后选择本EXCEL文件中的宏InsertPic3); 4.然后会出现文件夹选择...
  • 03004引用当前活动工作表 03005引用第一个工作表 03006引用最后一个工作表 03007引用所有的工作表 03008引用指定的多个工作表 03009引用新建的工作表 03010引用包含特定单元格的工作表 03011引用工作表名称中包含...
  • VBA技术技巧收集(一)

    千次阅读 2007-01-26 13:58:00
    VBA技术技巧收集(一)分类:ExcelVBA>>技术技巧[001]在工作表中插入图片使用Insert方法,例如,下面的代码将从Web网上相应的地址中获取图片并在当前工作表中以活动单元格为起点放置图片。Sub InsertPicture()...
  • VBA操作Excel代码收集

    千次阅读 2010-11-29 23:17:00
    false  2、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值  3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话,就增加一张名为kk的工作表,并将其排在工作表从左至右...
  • http://www.vba123.cn/read.php/9.htm1、 ActiveCell.CurrentRegion.Select或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select选择当前活动单元格所包含的范围,上下左右无空行2、 Cells.Select ‘选定...
  • Excel中有数百个对象,我们先学习一些常用的工作簿、工作表和单元格。工作簿属性和方法:1.活动的工作薄:MsgBox"活动工作簿名字为:" & ActiveWorkbook.NameActiveWorkbook代表的是当前激活(打开最前端)的文档...
  • 选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿,注意该工作簿一定是打开的,并且不要忘记加上后缀“.xls” ,例如:Windows("Totol.xls").Activate选择一个工作表:Sheets("Balance").Activate....
  • 100.选取当前工作表中公式出错的单元格﹐关返回出错个数 101.将工作表中最后一列作为页脚打印在每一面页尾 102.获取vbproject引用项目 103.移除Excel工作表中的外部数据连接 104.将选择定单元格作成镜像图片 105.反...
  • 函数作用:选取当前工作表中公式出错的单元格﹐关返回出错个数...............................................101 '101.函数作用:将工作表中最后一列作为页脚打印在每一面页尾101 '102.函数作用:获取vbproject引用...
  • MsgBox ("使用前请先查看路径是否需要变更,另外文件列表会写入当前活动工作表的第一列,确认请按Enter按键,取消请按Ctrl + PauseBaeak") mypath = "F:\每月例行-利润核算\" '最后要加一个反斜杠,不然会认为是一...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    vba functions.xlsm:一个包含用于工作表公式的VBA函数的工作簿。 Chapter 41 change case.xlsm:使用UserForm以让用户进行选择的VBA宏。 show message.xlsm:一个包含显示信息的UserForm的工作簿。 Chapter 42 ...
  • 工作表批量命名】对活动工作簿中所有工作表进行批量地改名 【打印当前页】仅仅打印当前鼠标所在页,忽略其它数据 【双面打印】打印双面小册子专用 【打印底端标题】将最后几行做为底端标题进行打印,弥补Excel只有...
  • 13.2.2 自动中断不活动的连接 225 13.3 改变系统外观 226 13.3.1 自定义登录窗口的内容 226 13.3.2 设置界面风格 227 13.4 系统服务 229 13.5 设置系统操作时间间隔 230 13.6 设置每个应用系统的最高并发用户数 231 ...
  • │ │ 技巧269 生成除当前工作表外的工作表名称.xls │ │ 技巧270 对文本进行排序.xls │ │ 技巧271 MMULT函数应用.xls │ │ │ └─第27章-循环引用 │ 技巧273 记录单元格操作时间.xls │ 技巧274 产生...
  • 11.4 管理当前活动------....149 11.5 安全策略------............150 第 12章、 企业版填报网站------.........153 12.1 企业版安装------........153 12.2 远程填报------............156 12.2.1 客户端...

空空如也

空空如也

1 2
收藏数 37
精华内容 14
关键字:

vba当前活动工作表