EXCEL操作_add工作表

第一篇：EXCEL操作_add工作表

方法：LPDISPATCH Add(VARIANT& Before, VARIANT& After, VARIANT& Count, VARIANT& Type);

Before Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。

AfterVariant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。

Count Variant 类型，可选。要新建的工作表的数目。默认值为 1。

Type Variant 类型，可选。指定工作表类型。可为以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。

说明 如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。

1、未指定参数1、2

CWorksheets ExcelSheets;

ExcelSheet.Add(vtMissing,vtMissing,_variant_t((long)1),vtMissing);//添加新的工作表

//Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。

2、指定参数2

CWorksheet Worksheet;

Worksheet=ExcelSheet.get_Item(COleVariant((long)1));

ExcelSheet.Add(vtMissing, _variant_t(Worksheet),_variant_t((long)1),vtMissing);

//添加新的工作表:位置在Worksheet即（Sheet1）后面

第二篇：11年最新操作表

二0一一县(区)综治暨平安建设检查考核操作表

（一）县区： 检查考核时间：2011年12月 日

单位 项目 检查内容、方法

1、综治和平安建设在党政综合考核总分不低于10％（查县区委正式文件，带回复印件）、两次以上专题研究综治和平安建设工作的常委会会议纪要（研究推动解决哪些问题，带回复印件），与乡镇（街道）、综治单位签综治责任书（必须为县区委书记与所有乡街和综治单位签订，看是否与所有乡镇签订），3分，有一项不合格的扣1分； 2、2011党政主要领导、分管领导以及综治成员单位分管领导抓综治和平安建设实绩档案（查建多少份档案，并带回县区主要领导、分管领导的实绩档案复印件）、组织部门在提拔任用干部书面征求综治部门意见（将所有书面征求意见的复印件带回）、党政领导干部表彰奖励征求综治部门意见（将所有征求意见复印件带回），3分；不合格的有一项扣1分；

3、综治办人员达3人、与创建办人员合计达6人（查办公桌、会议记录、工作记录，并将人员调整文件带回），1分。

1、创新社会管理做好群众工作的意见（查党委、政府正式文件）、社会管理工作方案（查综治委正式文件），将社会管理纳入十二五规划（将政府发文复印件带回），2分；

2、社会管理创新综合试点的意见、选取综合试点的单位、乡镇（街道）工作方案及工作成效（将试点文件带回），2分；

3、流动人口服务管理、预防青少年违法犯罪、校园周边治安综合治理、社区矫正、刑释解教等工作意见、总结，2分.检查结果（得分）组织领导（7分）综 社会管理 治 办（6分）责任落实

1、开展两次以上平安建设督查（查通知、实地检查记录、通报，将两次检查通报、警示、一票否决的文件带回），1分；，1分。（2分）

2、综治五部门联席会议、综治成员单位开展述职工作情况（查联席会会议记录和述职会议的通知、报告）

1、社会稳定风险评估工作（查推进风险评估的意见部署、具体评估的记录），1分；，1分； 维护稳定

2、加强国家安全防线工作、重大社情掌控平台试点工作（查意见方案，工作部署）

3、大调解工作（查司法部门牵头人民调解、法制部门牵头行政调解、人民法院牵头诉讼调解以及大调解对接机制的文件（5分）以及县区调处中心的组织机构和专门调处小组的文件），1分；

4、矛盾纠纷大排查（查排查文件、每月排查调处报表、每月社会稳定和社会治安分析情况报告），2分。30分 治安防控

1、防控体系建设（查计划、技防建设计划，将老小区和城中村防范设施改造列入政府规划的文件复印带回）,2分；

2、社会治安重点地区排查整治工作（查工作方案、排查出的突出问题、采取挂牌整治等举措和情况总结），1分；（5分）

3、巡防工作（查专职巡防大队人员花名册和工资发放表；群防群治红袖标工程建设意见、季度督查情况），2分。

1、等级化创建（查安全乡镇（街道）、村（社区）等级化创建活动的计划、安排以及等级评定和排名情况），2分；

2、系列平安创建（查意见方案及及平安校园、平安医院、平安电力、平安金融、平安畅通县区、平安文化娱乐场所、平基层基础 安企业、平安宗教场所、平安工地、平安市场或商场、平安机关、平安村（社区）、平安家庭创建意见方案、开展1，2分；（5分）次以上活动记录，上述活动缺一项扣0.5分）

3、综治组织（查政法综治中心实体化运作、乡村两级综治办规范化建设的意见，乡镇综治办专职副主任、综治专干化名册，看是否达到省定标准），1分。

二0一一县区综治暨平安建设检查考核操作表

（二）县区： 检查考核时间：2011年12月 日

单位 检查项目 检查内容、方法 检查结果（得分）

1、组织机构（查成立综治和平安建设领导领导小组和办公室的文件、有无专人负责综治和平安建设工作），1分；

2、阵地建设（查成立创建办的文件、创建办有无办公场所、是否挂牌），1分； 组织领导

3、专题研究综治和平安建设工作的党委会议记录（查会议次数、研究解决哪些（4分）实际问题），1分；

4、工作部署（查综治和平安建设工作意见、工作部署、工作总结），1分。城 管 局 15分 矛盾化解（5分）

1、门卫安全值守（查有几个门卫值守、门卫的年龄、看是否对进出人员进行询问登记），1分； 安全防范

2、技防建设（查是否安装技防监控、有几个技防探头），1分；（4分）

3、值守制度（查安全防范工作制度、值班表、值班记录是否健全完善），1分；

4、综治宣传（查有无综治和平安建设工作宣传宣传标语、横幅或图片），1分。

1、矛盾排查（查矛盾纠纷排查调处工作方案、工作机构、排查出哪些问题和苗头隐患、是否有不安定因素排查登记、落实哪些措施）1分；

2、定期分析研判（查每月社会治安和社会稳定分析研判报告）1分；

3、社会稳定风险评估评估工作（查社会稳定风险评估工作的贯彻落实意见和具体事项的风险评估记录），5分。

1、基层联系点平安结对共建工作（查工作方案和结对帮扶情况），1分；

2、开展平安机关创建（查工作意见、工作部署和开展情况），1分。机关创建（2分）

二0一一年乡镇（街道）综治和平安建设检查考核操作表

（三）县区： 乡镇（街道）： 时间：2011年12月 日

单位 检查项目 人员配备（3分）责任落实（4分）检查内容、方法

1、专职副主任（查姓名、任命文件、本人工作记录，将人员任命文件带回，兼职的一律扣分），1分；

2、综治专干（5万人口以下1-2名，5万—10万人口2名，10万人口以上3名，查姓名、任命文件、本人工作记录，将人员任命文件带回，与从事司法、组织、信访等工作的人员进行核对，兼职的一律扣分），2分。

1、综治责任书（查是否为党委书记签订，与村及派出所、司法所、信访办等单位的责任书），1分；

2、综治和平安建设工作在党政综治考核所占分值达10%以上（查乡镇目标考核的文件），1分；

3、每季度一次综治工作督查（查督查通知、方案、操作表、检查通报、整改情况），1分；

4、工作部署（查综治和平安建设实施意见、方案），1分。

1、社会管理工作（查计划方案、组织机构和工作开展情况）,1分；

2、矛盾纠纷排查化解（查大排查工作方案、排查出问题登记、落实的工作举措和每月社会治安和社会稳定分析研判报告），2分；

3、社会治安重点地区排查整治工作（查工作方案、突出问题排查登记、采取的整治措施、取得的工作成效），1分；

4、公众安全感建设（查提升公众安全感的工作方案、组织部署、影响公众安全感突出问题排查登记及整改等情况），2分。检查结果（得分）综 治 办 17分 重点工作开展情况（6分），2分 基层创建

1、开展乡镇（街道）等级化创建工作（工作方案、村等级评定排名等）

2、系列平安创建[查意见方案以及开展平安村(社区)、平安家庭、平安医院、平安校园等创建工作的（4分）工作方案、措施推进、工作成效]，2分。机制建设

1、阵地建设（查有无服务大厅、实行8个部门以上集中办公），2分；

2、值班值守（查中心是否明确每天带班领导、是否有值班表、中心人员是否在岗在位），1分；

3、制度规范（查中心职责任务、工作流程、组织机构规范明确、统一上墙），1分。政法综治中心 7分（4分），1分； 工作运转

1、工作例会（查每周组织召开中心组成部门工作例会的会议记录）

2、统筹督办（查矛盾纠纷联调、社会治安联防、突出问题联治、重点工作联动、平安建设联创、社（3分）会管理联抓等六联工作机制推进落实、联席会办督办的工作记录），2分。3

二0一一年乡镇（街道）综治暨平安建设检查考核操作表

（四）单位 检查项目 技防中心（2分）

县区： 乡镇（街道）： 时间：2011年12月 日 检查内容、方法

1、硬件建设（查技防中心是否达到农村8个、城区12个探头建设标准，记明有多少技防探头、正常运转的数量和监控记录保存时间），1分；

2、中心值守（查中心值班表和每日技防值守记录以及运用成果），1分； 检查结果（得分）派 出 所 10分 队伍建设（查专职保安、外来人口协管员的值班表、工资发放表、每日巡防记录、值班表、考勤记录等，看是否达到农村人口万分之八，城区人口万分之十；300—500流动人口1名协管员的配备标准，不达标的按比例扣分，扣完2分为止）。

1、公众安全感建设（查工作计划，特别是警民联系、入户宣传、巡防值守、群防群治、未破案件回，2分； 安全感建设 访等工作措施落实情况）

2、社会治安重点地区排查整治工作（查计划方案、排查出的突出问题和工作开展情况），1分；(5分)

3、群防群治工作（查工作方案、巡防记录、检查记录和群防群治人员化名册），1分；

4、破案打击（查1-11月份刑事发案数、破案数，看是否达到45%破案率），1分。保安辅警（2分）矛盾化解（1分）人员配备（1分）公调对接（查公调对接方案、组织、调处纠纷登记和设立公调对接室、配备两名专职调解员），1分。查司法所人员姓名、职务、任命文件、工作笔记、会议记录等，看是否达到3人标准。司 法 所 6分 安全感建设 加强安全感建设的工作计划以及开展法制宣传教育的工作计划、工作进展情况(1分)

1、调处中心（查人员在岗在位、配备2名专职调解员的聘书），1分； 矛盾化解

2、矛盾纠纷排查调处（查社会矛盾纠纷大排查工作方案、“三无”即无矛盾激化、无民转刑案件、无，1分；（3分）群体性上访创建方案，排查出哪些问题和每半月一次的矛盾纠纷排查调处报表和分析报告）

3、大调解机制建设（查公调对接、访调对接、劳资纠纷调处对接等工作意见、调处交接单），1分。特殊人群（1分）社区矫正（查工作计划、社区矫正人员的入矫记录、工作衔接审核报批记录、每周一次电话管控记录、每月组织一次见面管控记录等）4

二0一一年乡镇（街道）综治和平安建设检查操作表

（五）县区： 乡镇（街道）： 时间：2011年12月 日 单位 检查项目 检查内容、方法

1、组织机构（查综治办是否挂牌、是否有办公场所以及综治办职责、制度任务是否规范上墙，是否有工作计划安排），1分；

2、人员配备（查有人专抓综治工作的村干部、是否在岗在位），1分；

3、治保委、调解委（查治保委、调解委机构是否健全、是否有调解室），1分；

4、排查研判（查每周社会治安和社会稳定情况排查记录是否齐全规范），1分；

5、综治宣传（查有无综治和平安建设工作的宣传标语和横幅），1分；

6、群防群治（查红袖标义务巡防人员达到村不少于15人、社区不少于20人标准、通过调查走访和现场查看有无红袖标人员开展巡逻防范），1分。

1、人员配备（查是否配备社区（驻村）民警、专职保安是否达到社区2保安、村1名保安标准，查人员姓名、值班表、工作记录），1分；

2、日常工作（查每日巡逻记录、矛盾纠纷调解台帐、调处多少起矛盾纠纷），1分。

1、意见部署（查平安校园工作意见，有专人负责创建办是否挂牌），1分；

2、技防、设施防（查校园是否有技防监控设施、有几个探头；是否建立校园警务室或校园110建立，有无专职保安人员值守并记明人员数，是否配备安全防范设施），1分；

3、法制教育（查是否聘请法制副校长、看聘书，两次以上的法制教育，看讲稿、计划安排、法制教育计划、台账），1分；

4、综治宣传（查是否有综治和平安建设宣传标语、横幅）。走访县城和城区两个居民小区

1、创建氛围（查有无综治和平安建设宣传标语、横幅），1分。

2、巡逻防范（查有无专职保安人员值守、值班表和巡逻记录，是否对进出车辆和人员进行询问登记）

3、技防、设施防（查有无安装技防设施、有无全覆盖,有无防范攀爬等设施），1分。检查结果（得分）村(社区)8分 综治办（6分）警务室（2分）学 校 4分 学校创建（4分）居民 小区 3分 治安防范（3分）5

第三篇：建立Excel 2000工作表及其操作教案

教案主题：Excel 2000数据输入及函

数和公式的使用

系科：数学与计算机科学学院

专业班级：计算机科学与技术六班

姓名：朝阳

学号：

任课教师：

二〇〇八年五月二十一日 Excel 2000数据输入及函数和公式的使用教案

作者名：朝阳

科目：计算机文化概论

课题：Excel 2000数据输入及函数和公式的使用 课型及课时安排：新授课 一课时 教学对象分析：高中生 教学目标分析：

（一）知识目标：

1．熟练掌握Excel的基本操作、数据输入 2．使用EXCEL中简单的数据计算功能

（二）能力目标：

1．培养学生收集、处理数据的能力； 3．培养自主学习，自主探索，合作交流能力。教学重点分析：数据输入、函数和公式的使用 教学难点分析：函数和公式的使用

教学关键点分析：注意数字文本的输入，同学不容易区分函

数和公式，要帮助他们区分开；还要详细讲解一些常用函数以及函数的分类。

教学方法选择：讲授+PPT、任务驱动+探究性学习、范例教

学法

教学媒体选择：多媒体、计算机、PPT 教学进程：

一、数据输入（15分钟）

第 1 页（共 6 页）

在单元格中可以输入两种数据——常量和公式，对于基本的数据，可以通过键盘输入，有规律的数据，可以采用自动输入，通过填充功能，可快捷的输入等差数列、等比数列或日期等规律变化的数据。利用公式，可以完成各种复杂计算，并将计算结果放在指定的单元格中。

1、数据的输入形式（7分钟）

① 选定单元格。

② 在编辑栏中输入内容。

③ 按Enter或√或在其它单元格内单击或输入文本

默认左对齐。

输入数字文本时，数前加“ ” 如0001或者输入数字前加’号 如‘8844134

硬回车：Alt＋Enter

输入数字：默认右对齐。

输入分数时，为了与日期区别。数前加“0 ”如0 1/2

允许出现的合法字符：0～9，＋，－，/，（），$，％，Ｅ，e

输入日期和时间：

年－月－日，年/月/日；时：分：秒

默认以数字处理，右对齐，可运算。

同一单元格输入日期与时间，中间需加空格。

第 2 页（共 6 页）

所有内容的对齐方式可通过格式操作进行更改。

日期、时间格式也可更改。

同时对多个单元格输入相同的数据：

选择要输入数据的单元格→输入数据→按Ctrl＋Enter结束输入

2、数据填充（8分种）（1）自动数据填充

① 若初始数值是纯字符或纯数字，填充相当于数据复制操作。

② 若初始数值是文字和数字的混合体，填充文字不变，最右边的数字递增。

③ 若初始值是预先设定的自动填充序列中的成员，将按

预设序列进行填充。单击菜单“工具”的“选项”中的“自定义序列”命令，可以添加自定义序列。④ 如果连续的单元格数据之间有等比、等差关系，可以

通过“序列”对话框进行填充。编辑/填充/序列

（2）特别的自动填充

如果要进行简单的复制，在进行填充的同时按住Ctrl键，则不管选择任何单元或区域，填充只是数据的复制。注意：注意区分以上填充操作在直接填充与填充时同时按住Ctrl键的区别。

二、函数和公式的使用（25分钟）

Excel具有强大的数据处理功能，主要体现在其

第 3 页（共 6 页）

对公式和函数的使用上，灵活地运用可以实现数据处理的自动化与高效化。

1、公式的使用（5分钟）

公式是以“=”开头的，由常量、单元格引用、函数和运算符组成。

（1）常见的运算符

① 数学运算符：+，-，*（乘），/（除）

② 比较运算符：=，>,<,>=（大于等于）,<=（小于等于）。如果比较运算成立用TRUE表示，否则用FALSE表示。③ 文字连接符&，可将两个文本连接起来，也可连接带引号的文字，还可以连接单元格地址。（2）运算符的优先级

① 数学运算符优先级从高到低为：%，*和/，+和-，同级运算符按从左到右的顺序计算。

② 比较运算符优先级相同，按从左到右进行顺序计算。③ 三类运算符之间，数学运算符优先级最高，文字运算符其次，比较运算符优先级最低。④ 使用括号可以改变运算符的优先级。2．公式的输入（6分钟）（1）输入公式

工作表中如果某一单元格的数据需要由其它单元格的值计算而来，在这个单元格中就可以输入公式，同时

第 4 页（共 6 页）在公式中插入函数。单击要存放结果的单元格，在编辑栏或该单元格直接输入公式，按回车键结束，结果即可显示在该单元格。（2）编辑公式

如果要修改单元格内的公式，可激活该单元格，然后将光标定位到编辑栏中直接修改，注意不要删除最前面的等号。（3）公式的复制

工作表中的公式是可以复制的，复制的方法跟数据填充的方法相似，只需要拖动填充句柄填充存放结果的单元格，前提是该区域使用相同的计算方法。

3、函数的使用（8分钟）

Excel提供了功能强大的函数，单击常用工具栏上的“粘贴函数”按钮出现“粘贴函数”对话框，有很多类函数，每类下又有很多对应的函数。

使用：选择存放结果的单元格，函数的使用有两种方式：

（1）、单击“插入”菜单的“函数”命令或相应的工具栏按钮，在粘贴函数对话框选择合适的函数，“确定”。

（2）、单击编辑栏上的“=”，从编辑栏的左侧选择合适的函数。

4、常见函数介绍（6分钟）（1）求和（SUM）函数

第 5 页（共 6 页）（2）条件判断（IF）函数（3）统计（COUNT）函数（4）条件统计（COUNTIF）函数 作业：（5分钟）

１、认真复习今天所讲的内容，并且亲自上机实践

２、完成“货物销售表”的建立

３、将班上此次考试的成绩建立成 Excel表，充分发挥你们的想象以及对知识的掌握，使得成绩表清楚明了 教学评价：通过这堂课的学习，我们学会了EXCEL中工作表的建立方法及其操作，掌握了公式和函数的使用方法，并能把所学的知识应用到现实生活中。因为采取了任务驱动+探究性学习、范例教学法等方法，学生学得积极认真，基本达到了教学要求，但是准备不够充分,对内容不是很熟悉,不够大方。以后会吸取别人的长处,提高自己，达到更好的效果。

授课日期：2008年6月11日 授课者姓名：朝阳

第 6 页（共 6 页）

第四篇：Oracle05表操作和约束（范文模版）

一、DDL数据定义语言 1.创建表：create table 表名要求：

1.必须以字母开头

2.必须在1-30个字符之间

3.必须只能包含A-Z,a-z,0-9,$,_,# 4.必须不能和用户定义的其他对象重名 5.必须不能是Oracle的保留字 例如： 方式一：

create table student(stu_no number(11), name varchar(32), gender char(5), age number(3)default 19//为字段设置默认值);Create table test1(ID char(11), Name carchar2(24), Age number(3)default 19);方式二：子查询建表

Create table user_info As

select first_name,salary,dept_id From s_emp;2.删除表：drop table 例如，drop table studentzxf;3.修改表：alter table Create table tal(Stu_no number(11), Name varchar2(32));1.增加一列

Alter table tal add age number(3);2.增加多列

Alter table tal add(address varchar2(32),birthday date);3.删除一列

Alter table tal drop column address(列名);4.删除多列

Alter table tal drop(age,birthday);5.逻辑删除列

Alter table tal set unused column name;Alter talbe tal drop unused columns;//在数据库不繁忙的时候用 Oracle在设计的时候，没有考虑可逆性 6.修改一列

Alter table tal modify stu_no number(20);//将原来的长度为11 修改为长度为20 修改列时注意：

考虑现有数据的安全性（包括数据的类型，长度），修改长度是 只能往大改 如果表中有数据，不可以修改类型，只有当表中没数据了才能修改类型 修改多列

Alter tabale tal modify(stu_no number(11)not null,name char(20));7.重命名列

Alter table tal rename column stu_no to s_no;8.更改约束

Alter table tal add constraint tal_pk primary key(s_no);9.删掉约束

Alter table test4 drop constraint tal_pk;10.重命名表名

Rename tal to 新表名 11.添加外键约束

ALTER TABLE tal ADD CONSTRAINT STUDENT_FK FOREIGN KEY(dept_no)REFERENCES dept(dept_no);

二、DML数据操纵语言

1.插入数据：insert 例如: insert into Student values（1，’Jack’）;//按表中的自然顺序逐个插入数据

insert into student(stu_no,name)values(1,’Jack’);//指定字段插入值 2.删除数据：delete from[tablename]where… 例如: delete from testdefault where age = 19;3.修改数据：update[tablename]set a = exp1 where b = exp2 如果没有限定条件，则会修改整张表中的数据,即修改整列。例如: update Student set age = 24 where name = ‘jack’;也可一次性写入多条insert语句一次执行完毕。也可加载脚本（.sql文件）命令@+路径/...sql 4.truncate截断表

delete删除时会产生日志信息的。

truncate删除数据时不生成日志信息，所以效率快，但也不可逆。truncate截断后会释放表空间，而delete并不释放表空间。

三、约束

考虑数据库的完整性约束 三方面：1.实体完整性

2.参照完整性

3.用户自定义完整性 5种约束：

Not null 非空约束

(nk)例:Create table stu_info(S_no char(11)not null, S_name varchar2(24)not null, S_age number(3));Unique 唯一约束(uk)(只保证唯一，不保证不为空，多条记录的值都可以为空,因为Null和null是不相等的，不会提示违反了唯一性)方式一：（列级约束）例:Create table stu_info(S_no char(11)unique not null, S_name varchar2(24)not null, S_age number(3));方式二：（表级约束）例:Create table stu_info(S_no char(11)not null, S_name varchar2(24)not null, S_age number(3), Constraint stu_info_uk unique(S_no,S_name));//约束名为stu_info_uk Primary key 主键约束（pk）唯一且非空 方式一：（列级约束）例：create table test2(C1 number(3)constraint test2_pk primary key, C2 number(3));方式二：（表级约束）例：create table test2(C1 number(3), C2 number(3), Primary key(c1,c2))；c1 , c2 组合起来是唯一的,c1,c2单独看不一定是唯一的 Atler table tablename add constraint 主键名称primay key

表级约束可以约束很多列，可以定义联合主键，而列级约束是做不到的。

Foreign key 外键约束（fk）

要求引用另一张表中已存在的值（主键、唯一键）

例：create table parent(C1 number(3)primary key, C2 number(3));Create table child(C1 number(3)primary key, C2 number(3)references parent(c1));先建父表再建子表。

不能随便删除，删除时只能先删子表记录再删父表；删除表时同理。插入数据时先给父表插，再给子表插。

Drop table parent cascade cinstraint;//删除表时，如果想先删除父表，子表不变 例：create table parent(C1 number(3)primary key, C2 number(3));Create table child(C1 number(3)primary key, C2 number(3)references parent(c1)on delete cascade);//删除记录时切断关系，删除了子表中的记录再删除父表

级联删除：世纪是先删除子表的记录，再删除父表的记录。表都存在。学生表：学号 姓名 性别

成绩表：成绩编号 学号 成绩 课程编号 课程表：课程编号 课程名称

外键：

成绩表里面学号应该是学生表

成绩表里面的课程编号应该是课程表里面的课程编号

Create table student(sno number primary key, name varchar2(10),sex varchar2(2))Create table score(scno number primary key,sno number not null,sco number(5,2),cno number not null references course(cno))Create table course(cno number primary key,name varchar2(20));Alter table score add constrain fk_stuandscore foreign key(sno)references student(sno);Check 检查约束（ck）方式一：（列级约束）

例：create table test3(C1 number(3)check(c1<150), C2 number(3)check(c2 is not null));方式二：（表级约束）

例：Create table test3(C1 number(3), C2 number(3), Check(c1 = c2));

第五篇：EXCEL VBA工作表操作全能方法小结

EXCEL VBA工作表操作全能方法小结

[示例04-01]增加工作表(Add方法)Sub AddWorksheet()MsgBox “在当前工作簿中添加一个工作表” Worksheets.Add MsgBox “在当前工作簿中的工作表sheet2之前添加一个工作表” Worksheets.Add before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中的工作表sheet2之后添加一个工作表” Worksheets.Add after:=Worksheets(“sheet2”)MsgBox “在当前工作簿中添加3个工作表” Worksheets.Add Count:=3 End Sub 示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。

------------------[示例04-02]复制工作表(Copy方法)Sub CopyWorksheet()MsgBox “在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).Copy Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).Copy After:=Worksheets(“sheet3”)End Sub 示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。

------------------[示例04-03]移动工作表(Move方法)Sub MoveWorksheet()MsgBox “在当前工作簿中将工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).Move Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中将工作表sheet1移至最后” Worksheets(“sheet1”).Move After:=Worksheets(Worksheets.Count)End Sub 示例说明：Move方法与Copy方法的参数相同，作用也一样。

------------------[示例04-04]隐藏和显示工作表(Visible属性)[示例04-04-01] Sub testHide()MsgBox “第一次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = False MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第二次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第三次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible MsgBox “第四隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第五隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible End Sub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。

------------------[示例04-04-02] Sub ShowAllSheets()MsgBox “使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)” Dim ws As Worksheet For Each ws In Sheets ws.Visible = True Next ws End Sub

------------------[示例04-05]获取工作表数(Count属性)[示例04-05-01] Sub WorksheetNum()Dim i As Long i = Worksheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub

------------------[示例04-05-02] Sub WorksheetNum()Dim i As Long i = Sheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub 示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。

------------------[示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01] Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).Name MsgBox “当前工作簿中第2个工作表的名字为：” & sName sChangeName = “我的工作表” MsgBox “将当前工作簿中的第3个工作表名改为：” & sChangeName Worksheets(3).Name = sChangeName End Sub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。

------------------[示例04-06-02]重命名工作表 Sub ReNameSheet()Dim xStr As String Retry: Err.Clear xStr = InputBox(“请输入工作表的新名称:” _ , “重命名工作表”, ActiveSheet.Name)If xStr = “" Then Exit Sub On Error Resume Next ActiveSheet.Name = xStr If Err.Number <> 0 Then MsgBox Err.Number & ” “ & Err.Description Err.Clear GoTo Retry End If On Error GoTo 0 '.........End Sub

------------------[NextPage][示例04-07]激活/选择工作表(Activate方法和Select方法)[示例04-07-01] Sub SelectWorksheet()MsgBox ”激活当前工作簿中的工作表sheet2“ Worksheets(”sheet2“).Activate MsgBox ”激活当前工作簿中的工作表sheet3“ Worksheets(”sheet3“).Select MsgBox ”同时选择工作簿中的工作表sheet2和sheet3“ Worksheets(Array(”sheet2“, ”sheet3“)).Select End Sub 示例说明：Activate方法只能激活一个工作表，而Select方法可以同时选择多个工作表。

------------------[示例04-07-02] Sub SelectManySheet()MsgBox ”选取第一个和第三个工作表.“ Worksheets(1).Select Worksheets(3).Select False End Sub

------------------[示例04-08]获取当前工作表的索引号(Index属性)Sub GetSheetIndex()Dim i As Long i = ActiveSheet.Index MsgBox ”您正使用的工作表索引号为“ & i End Sub

------------------[示例04-09]选取前一个工作表(Previous属性)Sub PreviousSheet()If ActiveSheet.Index <> 1 Then MsgBox ”选取当前工作簿中当前工作表的前一个工作表“ ActiveSheet.Previous.Activate Else MsgBox ”已到第一个工作表“ End If End Sub 示例说明：如果当前工作表是第一个工作表，则使用Previous属性会出错。

------------------[示例04-10]选取下一个工作表(Next属性)Sub NextSheet()If ActiveSheet.Index <> Worksheets.Count Then MsgBox ”选取当前工作簿中当前工作表的下一个工作表“ ActiveSheet.Next.Activate Else MsgBox “已到最后一个工作表” End If End Sub 示例说明：如果当前工作表是最后一个工作表，则使用Next属性会出错。

------------------[示例04-11]工作表行和列的操作 [示例04-11-01]隐藏行 Sub HideRow()Dim iRow As Long MsgBox ”隐藏当前单元格所在的行“ iRow = ActiveCell.Row ActiveSheet.Rows(iRow).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Rows(iRow).Hidden = False End Sub

------------------[示例04-11-02]隐藏列 Sub HideColumn()Dim iColumn As Long MsgBox ”隐藏当前单元格所在列“ iColumn = ActiveCell.Column ActiveSheet.Columns(iColumn).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Columns(iColumn).Hidden = False End Sub

------------------[示例04-11-03]插入行 Sub InsertRow()Dim rRow As Long MsgBox ”在当前单元格上方插入一行“ rRow = Selection.Row ActiveSheet.Rows(rRow).Insert End Sub

------------------[示例04-11-04]插入列 Sub InsertColumn()Dim cColumn As Long MsgBox ”在当前单元格所在行的左边插入一行“ cColumn = Selection.Column ActiveSheet.Columns(cColumn).Insert End Sub

------------------[示例04-11-05]插入多行 Sub InsertManyRow()MsgBox ”在当前单元格所在行上方插入三行“ Dim rRow As Long, i As Long For i = 1 To 3 rRow = Selection.Row ActiveSheet.Rows(rRow).Insert Next i End Sub

------------------[示例04-11-06]设置行高 Sub SetRowHeight()MsgBox ”将当前单元格所在的行高设置为25“ Dim rRow As Long, iRow As Long rRow = ActiveCell.Row iRow = ActiveSheet.Rows(rRow).RowHeight ActiveSheet.Rows(rRow).RowHeight = 25 MsgBox ”恢复到原来的行高“ ActiveSheet.Rows(rRow).RowHeight = iRow End Sub

------------------[示例04-11-07]设置列宽 Sub SetColumnWidth()MsgBox ”将当前单元格所在列的列宽设置为20“ Dim cColumn As Long, iColumn As Long cColumn = ActiveCell.Column iColumn = ActiveSheet.Columns(cColumn).ColumnWidth ActiveSheet.Columns(cColumn).ColumnWidth = 20 MsgBox ”恢复至原来的列宽“ ActiveSheet.Columns(cColumn).ColumnWidth = iColumn End Sub

------------------[示例04-11-08]恢复行高列宽至标准值 Sub ReSetRowHeightAndColumnWidth()MsgBox ”将当前单元格所在的行高和列宽恢复为标准值“ Selection.UseStandardHeight = True Selection.UseStandardWidth = True End Sub

------------------[示例04-12]工作表标签

[示例04-12-01] 设置工作表标签的颜色 Sub SetSheetTabColor()MsgBox ”设置当前工作表标签的颜色“ ActiveSheet.Tab.ColorIndex = 7 End Sub

------------------[示例04-12-01]恢复工作表标签颜色 Sub SetSheetTabColorDefault()MsgBox ”将当前工作表标签颜色设置为默认值“ ActiveSheet.Tab.ColorIndex =-4142 End Sub

------------------[示例04-12-03]交替隐藏或显示工作表标签 Sub HideOrShowSheetTab()MsgBox ”隐藏/显示工作表标签“ ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub------------------[NextPage][示例04-13]确定打印的页数(HPageBreaks属性与VPageBreaks属性)Sub PageCount()Dim i As Long i =(ActiveSheet.HPageBreaks.Count + 1)*(ActiveSheet.VPageBreaks.Count + 1)MsgBox ”当前工作表共“ & i & ”页.“ End Sub

------------------[示例04-14]保护/撤销保护工作表 [示例04-14-01] Sub ProtectSheet()MsgBox ”保护当前工作表并设定密码“ ActiveSheet.Protect Password:=”fanjy“ End Sub 示例说明：运行代码后，当前工作表中将不允许编辑，除非撤销工作表保护。

------------------[示例04-14-02] Sub UnprotectSheet()MsgBox ”撤销当前工作表保护“ ActiveSheet.Unprotect End Sub 示例说明：运行代码后，如果原保护的工作表设置有密码，则要求输入密码。

------------------[示例04-14-03]保护当前工作簿中的所有工作表 Sub ProtectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表明无密码)“ & vbCrLf & vbCrLf & _ ”确保您没有忘记密码！“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Protect(myPassword)Next ws End Sub

------------------[示例04-14-04]撤销对当前工作簿中所有工作表的保护 Sub UnprotectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表示无密码)“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Unprotect(myPassword)Next ws End Sub

------------------[示例04-14-05]仅能编辑未锁定的单元格 Sub OnlyEditUnlockedCells()Sheets(”Sheet1“).EnableSelection = xlUnlockedCells ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub 示例说明：运行本代码后，在当前工作表中将只能对未锁定的单元格进行编辑，而其它单元格将不能编辑。未锁定的单元格是指在选择菜单“格式——单元格”命令后所弹出的对话框中的“保护”选项卡中，未选中“锁定”复选框的单元格或单元格区域。

------------------[示例04-15]删除工作表(Delete方法)Sub DeleteWorksheet()MsgBox ”删除当前工作簿中的工作表sheet2“ Application.DisplayAlerts = False Worksheets(”sheet2").Delete Application.DisplayAlerts = True End Sub