Access编程交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • 学籍管理中自动生成年龄
  • 怎样才能在Excel中求得..
  • 使用自定义序列排序
  • 小丸子学 Excel200..
  • 查找+格式刷的妙用
  • 用Excel 97制作网页..

最新文章

  • 在 Excel中 打开Ac..
  • 为选择的区域添加边框
  • 如何在Excel中使用文件..
  • 用快捷键实现相对引用和绝对..
  • 【技巧】Excel控制特定..
  • Excel技巧集锦

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > Excel技巧 > Excel应用与操作
Excel应用与操作

Excel 97/VBA技术讲座之三

   添加数据后的K线图 2. 创建分解的宏    根据分解后的简单工作,按照上一节介绍的工作步骤,采用录制宏的方法创建三个宏:Import_Data、Copy_Data和Update_Chart。由于篇幅所限,不一一介绍具体录制宏的具体操作。以下给出录制、编辑后的VBA宏。
   
Sub Import_Data()
' 导入股票行情数据
' 快捷键: Ctrl+Shift+I
    Workbooks.Open FileName:="F:\EXCEL\ST1.XLS"
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="沈阳万利"
    Range("A1:K9").Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    Range("A:C,H:J").Select
    Range("C1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A2:E2").Select
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlAll, _
        Operation:=xlNone, SkipBlanks:=False, _
        Transpose:=True
End Sub
Sub Copy_Data()
' 复制股票行情数据
' 快捷键: Ctrl+Shift+C
    Windows("ST1.XLS").Activate
    Range("A3:A7").Select
    Selection.Copy
    Windows("ST2.XLS").Activate
    Range("A2").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveSheet.Paste
End Sub
Sub Update_Chart()
' 更新K线图
' 快捷键: Ctrl+Shift+U
    Sheets("K线图").Select
    ActiveChart.SeriesCollection.Extend _
        Source:=Sheets("沈阳万利").Range("CS2:CS6"),_
        Rowcol:=xlRows, CategoryLabels:=False
End Sub
    请注意,Import_Data宏中的文件名、路径名会因操作的环境不同,后半部分主要是关于工作表行列转置的操作的宏语句,具体操作方法可以参见联机帮助中“转置行与列”。Copy_Data宏中的Selection.End(xlToRight).Select语句表示选定当前行的最后一个包含数据的单元格(操作时按Ctrl+→键)。语句ActiveCell.Offset(0, 1).Range("A1").Select中的Offset属性表示相对引用,这里表示选定当前单元格同一行右边相临的单元格,其中的Range("A1")是虚拟单元格,并不表示实际的A1单元格。这样就保证了该宏的通用性。可以每次将数据都复制到指定工作表的最后一列。当需要使用相对引用时,在录制相应操作前单击“停止录制”按钮access数据库右边的“相对引用”按钮access数据库即可。
    3. 装配宏
现在已有了完成各个步骤的宏:
    Import_Data:导入股票行情数据。
    Copy_Data:将股票行情数据复制到个股数据工作表。
    Update_Chart:更新K线图。
    下面的工作是将其装配在一起。最简单的方法仍然是使用宏记录器,只是这次要录制的是运行其它宏的宏。首先单击“录制宏”按钮,键入宏的名称“Auto_Add”,单击“确定”。然后单击“运行宏”按钮,逐个运行Import_Data、Copy_Data、Update_Chart宏。最后单击“停止录制”按钮。录制的宏如下:
   
Sub Auto_Add( )
    Application.Run “ST2.xls!Import_Data”
    Application.Run “ST2.xls!Copy_Data
    Application.Run “ST2.xls!Update_Chart
End Sub
实际上宏名称前面的“Application.Run “ST2.xls!”可以简化掉,而不影响宏的运行。

发布人:admin-Excel Home  
分享到:
点击次数:  更新时间:2005-02-24 12:26:23  【打印此页】  【关闭】
上一条:Excel 97/VBA技术讲座之四  下一条:Excel 97/VBA技术讲座之二



相关文章

  • • 在 Excel中 打开Access窗体或者报表的错误原因及解决办法
  • • 为选择的区域添加边框
  • • 如何在Excel中使用文件对话框
  • • 用快捷键实现相对引用和绝对引用快速来回切换
  • • 【技巧】Excel控制特定单元格输入文本的长度
  • • Excel技巧集锦
  • • Excel技巧大汇总
  • • 在word中输出数学符号

热门文章

  • [2005-02-24] 小丸子学 Excel2000 之一access数据库
  • [2006-10-23] 查找+格式刷的妙用access数据库
  • [2005-02-24] Excel 97/VBA技术讲座之五access数据库
  • [2005-02-24] 小丸子学 Excel2000简介access数据库
  • [2005-02-12] 微软首次揭开Office11神秘面纱access数据库
  • [2005-04-12] Excel 2000自定义函数access数据库

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2023 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn