第一篇：EXCEL操作_add工作表

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

Before Variant 類型，可選。指定工作表對象，新建的工作表將置于此工作表之前。

AfterVariant 類型，可選。指定工作表對象，新建的工作表將置于此工作表之后。

Count Variant 類型，可選。要新建的工作表的數(shù)目。默認值為 1。

Type Variant 類型，可選。指定工作表類型。可為以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默認值為 xlWorksheet。

說明 如果 Before 和 After 兩者均省略，則新建的工作表將插入到活動工作表之前。

1、未指定參數(shù)1、2

CWorksheets ExcelSheets;

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

//Before 和 After 兩者均省略，則新建的工作表將插入到活動工作表之前。

2、指定參數(shù)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一一縣(區(qū))綜治暨平安建設(shè)檢查考核操作表

（一）縣區(qū)： 檢查考核時間：2011年12月 日

單位 項目 檢查內(nèi)容、方法

1、綜治和平安建設(shè)在黨政綜合考核總分不低于10％（查縣區(qū)委正式文件，帶回復(fù)印件）、兩次以上專題研究綜治和平安建設(shè)工作的常委會會議紀要（研究推動解決哪些問題，帶回復(fù)印件），與鄉(xiāng)鎮(zhèn)（街道）、綜治單位簽綜治責任書（必須為縣區(qū)委書記與所有鄉(xiāng)街和綜治單位簽訂，看是否與所有鄉(xiāng)鎮(zhèn)簽訂），3分，有一項不合格的扣1分； 2、2011黨政主要領(lǐng)導(dǎo)、分管領(lǐng)導(dǎo)以及綜治成員單位分管領(lǐng)導(dǎo)抓綜治和平安建設(shè)實績檔案（查建多少份檔案，并帶回縣區(qū)主要領(lǐng)導(dǎo)、分管領(lǐng)導(dǎo)的實績檔案復(fù)印件）、組織部門在提拔任用干部書面征求綜治部門意見（將所有書面征求意見的復(fù)印件帶回）、黨政領(lǐng)導(dǎo)干部表彰獎勵征求綜治部門意見（將所有征求意見復(fù)印件帶回），3分；不合格的有一項扣1分；

3、綜治辦人員達3人、與創(chuàng)建辦人員合計達6人（查辦公桌、會議記錄、工作記錄，并將人員調(diào)整文件帶回），1分。

1、創(chuàng)新社會管理做好群眾工作的意見（查黨委、政府正式文件）、社會管理工作方案（查綜治委正式文件），將社會管理納入十二五規(guī)劃（將政府發(fā)文復(fù)印件帶回），2分；

2、社會管理創(chuàng)新綜合試點的意見、選取綜合試點的單位、鄉(xiāng)鎮(zhèn)（街道）工作方案及工作成效（將試點文件帶回），2分；

3、流動人口服務(wù)管理、預(yù)防青少年違法犯罪、校園周邊治安綜合治理、社區(qū)矯正、刑釋解教等工作意見、總結(jié)，2分.檢查結(jié)果（得分）組織領(lǐng)導(dǎo)（7分）綜 社會管理 治 辦（6分）責任落實

1、開展兩次以上平安建設(shè)督查（查通知、實地檢查記錄、通報，將兩次檢查通報、警示、一票否決的文件帶回），1分；，1分。（2分）

2、綜治五部門聯(lián)席會議、綜治成員單位開展述職工作情況（查聯(lián)席會會議記錄和述職會議的通知、報告）

1、社會穩(wěn)定風險評估工作（查推進風險評估的意見部署、具體評估的記錄），1分；，1分； 維護穩(wěn)定

2、加強國家安全防線工作、重大社情掌控平臺試點工作（查意見方案，工作部署）

3、大調(diào)解工作（查司法部門牽頭人民調(diào)解、法制部門牽頭行政調(diào)解、人民法院牽頭訴訟調(diào)解以及大調(diào)解對接機制的文件（5分）以及縣區(qū)調(diào)處中心的組織機構(gòu)和專門調(diào)處小組的文件），1分；

4、矛盾糾紛大排查（查排查文件、每月排查調(diào)處報表、每月社會穩(wěn)定和社會治安分析情況報告），2分。30分 治安防控

1、防控體系建設(shè)（查計劃、技防建設(shè)計劃，將老小區(qū)和城中村防范設(shè)施改造列入政府規(guī)劃的文件復(fù)印帶回）,2分；

2、社會治安重點地區(qū)排查整治工作（查工作方案、排查出的突出問題、采取掛牌整治等舉措和情況總結(jié)），1分；（5分）

3、巡防工作（查專職巡防大隊人員花名冊和工資發(fā)放表；群防群治紅袖標工程建設(shè)意見、季度督查情況），2分。

1、等級化創(chuàng)建（查安全鄉(xiāng)鎮(zhèn)（街道）、村（社區(qū)）等級化創(chuàng)建活動的計劃、安排以及等級評定和排名情況），2分；

2、系列平安創(chuàng)建（查意見方案及及平安校園、平安醫(yī)院、平安電力、平安金融、平安暢通縣區(qū)、平安文化娛樂場所、平基層基礎(chǔ) 安企業(yè)、平安宗教場所、平安工地、平安市場或商場、平安機關(guān)、平安村（社區(qū)）、平安家庭創(chuàng)建意見方案、開展1，2分；（5分）次以上活動記錄，上述活動缺一項扣0.5分）

3、綜治組織（查政法綜治中心實體化運作、鄉(xiāng)村兩級綜治辦規(guī)范化建設(shè)的意見，鄉(xiāng)鎮(zhèn)綜治辦專職副主任、綜治專干化名冊，看是否達到省定標準），1分。

二0一一縣區(qū)綜治暨平安建設(shè)檢查考核操作表

（二）縣區(qū)： 檢查考核時間：2011年12月 日

單位 檢查項目 檢查內(nèi)容、方法 檢查結(jié)果（得分）

1、組織機構(gòu)（查成立綜治和平安建設(shè)領(lǐng)導(dǎo)領(lǐng)導(dǎo)小組和辦公室的文件、有無專人負責綜治和平安建設(shè)工作），1分；

2、陣地建設(shè)（查成立創(chuàng)建辦的文件、創(chuàng)建辦有無辦公場所、是否掛牌），1分； 組織領(lǐng)導(dǎo)

3、專題研究綜治和平安建設(shè)工作的黨委會議記錄（查會議次數(shù)、研究解決哪些（4分）實際問題），1分；

4、工作部署（查綜治和平安建設(shè)工作意見、工作部署、工作總結(jié)），1分。城 管 局 15分 矛盾化解（5分）

1、門衛(wèi)安全值守（查有幾個門衛(wèi)值守、門衛(wèi)的年齡、看是否對進出人員進行詢問登記），1分； 安全防范

2、技防建設(shè)（查是否安裝技防監(jiān)控、有幾個技防探頭），1分；（4分）

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

4、綜治宣傳（查有無綜治和平安建設(shè)工作宣傳宣傳標語、橫幅或圖片），1分。

1、矛盾排查（查矛盾糾紛排查調(diào)處工作方案、工作機構(gòu)、排查出哪些問題和苗頭隱患、是否有不安定因素排查登記、落實哪些措施）1分；

2、定期分析研判（查每月社會治安和社會穩(wěn)定分析研判報告）1分；

3、社會穩(wěn)定風險評估評估工作（查社會穩(wěn)定風險評估工作的貫徹落實意見和具體事項的風險評估記錄），5分。

1、基層聯(lián)系點平安結(jié)對共建工作（查工作方案和結(jié)對幫扶情況），1分；

2、開展平安機關(guān)創(chuàng)建（查工作意見、工作部署和開展情況），1分。機關(guān)創(chuàng)建（2分）

二0一一年鄉(xiāng)鎮(zhèn)（街道）綜治和平安建設(shè)檢查考核操作表

（三）縣區(qū)： 鄉(xiāng)鎮(zhèn)（街道）： 時間：2011年12月 日

單位 檢查項目 人員配備（3分）責任落實（4分）檢查內(nèi)容、方法

1、專職副主任（查姓名、任命文件、本人工作記錄，將人員任命文件帶回，兼職的一律扣分），1分；

2、綜治專干（5萬人口以下1-2名，5萬—10萬人口2名，10萬人口以上3名，查姓名、任命文件、本人工作記錄，將人員任命文件帶回，與從事司法、組織、信訪等工作的人員進行核對，兼職的一律扣分），2分。

1、綜治責任書（查是否為黨委書記簽訂，與村及派出所、司法所、信訪辦等單位的責任書），1分；

2、綜治和平安建設(shè)工作在黨政綜治考核所占分值達10%以上（查鄉(xiāng)鎮(zhèn)目標考核的文件），1分；

3、每季度一次綜治工作督查（查督查通知、方案、操作表、檢查通報、整改情況），1分；

4、工作部署（查綜治和平安建設(shè)實施意見、方案），1分。

1、社會管理工作（查計劃方案、組織機構(gòu)和工作開展情況）,1分；

2、矛盾糾紛排查化解（查大排查工作方案、排查出問題登記、落實的工作舉措和每月社會治安和社會穩(wěn)定分析研判報告），2分；

3、社會治安重點地區(qū)排查整治工作（查工作方案、突出問題排查登記、采取的整治措施、取得的工作成效），1分；

4、公眾安全感建設(shè)（查提升公眾安全感的工作方案、組織部署、影響公眾安全感突出問題排查登記及整改等情況），2分。檢查結(jié)果（得分）綜 治 辦 17分 重點工作開展情況（6分），2分 基層創(chuàng)建

1、開展鄉(xiāng)鎮(zhèn)（街道）等級化創(chuàng)建工作（工作方案、村等級評定排名等）

2、系列平安創(chuàng)建[查意見方案以及開展平安村(社區(qū))、平安家庭、平安醫(yī)院、平安校園等創(chuàng)建工作的（4分）工作方案、措施推進、工作成效]，2分。機制建設(shè)

1、陣地建設(shè)（查有無服務(wù)大廳、實行8個部門以上集中辦公），2分；

2、值班值守（查中心是否明確每天帶班領(lǐng)導(dǎo)、是否有值班表、中心人員是否在崗在位），1分；

3、制度規(guī)范（查中心職責任務(wù)、工作流程、組織機構(gòu)規(guī)范明確、統(tǒng)一上墻），1分。政法綜治中心 7分（4分），1分； 工作運轉(zhuǎn)

1、工作例會（查每周組織召開中心組成部門工作例會的會議記錄）

2、統(tǒng)籌督辦（查矛盾糾紛聯(lián)調(diào)、社會治安聯(lián)防、突出問題聯(lián)治、重點工作聯(lián)動、平安建設(shè)聯(lián)創(chuàng)、社（3分）會管理聯(lián)抓等六聯(lián)工作機制推進落實、聯(lián)席會辦督辦的工作記錄），2分。3

二0一一年鄉(xiāng)鎮(zhèn)（街道）綜治暨平安建設(shè)檢查考核操作表

（四）單位 檢查項目 技防中心（2分）

縣區(qū)： 鄉(xiāng)鎮(zhèn)（街道）： 時間：2011年12月 日 檢查內(nèi)容、方法

1、硬件建設(shè)（查技防中心是否達到農(nóng)村8個、城區(qū)12個探頭建設(shè)標準，記明有多少技防探頭、正常運轉(zhuǎn)的數(shù)量和監(jiān)控記錄保存時間），1分；

2、中心值守（查中心值班表和每日技防值守記錄以及運用成果），1分； 檢查結(jié)果（得分）派 出 所 10分 隊伍建設(shè)（查專職保安、外來人口協(xié)管員的值班表、工資發(fā)放表、每日巡防記錄、值班表、考勤記錄等，看是否達到農(nóng)村人口萬分之八，城區(qū)人口萬分之十；300—500流動人口1名協(xié)管員的配備標準，不達標的按比例扣分，扣完2分為止）。

1、公眾安全感建設(shè)（查工作計劃，特別是警民聯(lián)系、入戶宣傳、巡防值守、群防群治、未破案件回，2分； 安全感建設(shè) 訪等工作措施落實情況）

2、社會治安重點地區(qū)排查整治工作（查計劃方案、排查出的突出問題和工作開展情況），1分；(5分)

3、群防群治工作（查工作方案、巡防記錄、檢查記錄和群防群治人員化名冊），1分；

4、破案打擊（查1-11月份刑事發(fā)案數(shù)、破案數(shù)，看是否達到45%破案率），1分。保安輔警（2分）矛盾化解（1分）人員配備（1分）公調(diào)對接（查公調(diào)對接方案、組織、調(diào)處糾紛登記和設(shè)立公調(diào)對接室、配備兩名專職調(diào)解員），1分。查司法所人員姓名、職務(wù)、任命文件、工作筆記、會議記錄等，看是否達到3人標準。司 法 所 6分 安全感建設(shè) 加強安全感建設(shè)的工作計劃以及開展法制宣傳教育的工作計劃、工作進展情況(1分)

1、調(diào)處中心（查人員在崗在位、配備2名專職調(diào)解員的聘書），1分； 矛盾化解

2、矛盾糾紛排查調(diào)處（查社會矛盾糾紛大排查工作方案、“三無”即無矛盾激化、無民轉(zhuǎn)刑案件、無，1分；（3分）群體性上訪創(chuàng)建方案，排查出哪些問題和每半月一次的矛盾糾紛排查調(diào)處報表和分析報告）

3、大調(diào)解機制建設(shè)（查公調(diào)對接、訪調(diào)對接、勞資糾紛調(diào)處對接等工作意見、調(diào)處交接單），1分。特殊人群（1分）社區(qū)矯正（查工作計劃、社區(qū)矯正人員的入矯記錄、工作銜接審核報批記錄、每周一次電話管控記錄、每月組織一次見面管控記錄等）4

二0一一年鄉(xiāng)鎮(zhèn)（街道）綜治和平安建設(shè)檢查操作表

（五）縣區(qū)： 鄉(xiāng)鎮(zhèn)（街道）： 時間：2011年12月 日 單位 檢查項目 檢查內(nèi)容、方法

1、組織機構(gòu)（查綜治辦是否掛牌、是否有辦公場所以及綜治辦職責、制度任務(wù)是否規(guī)范上墻，是否有工作計劃安排），1分；

2、人員配備（查有人專抓綜治工作的村干部、是否在崗在位），1分；

3、治保委、調(diào)解委（查治保委、調(diào)解委機構(gòu)是否健全、是否有調(diào)解室），1分；

4、排查研判（查每周社會治安和社會穩(wěn)定情況排查記錄是否齊全規(guī)范），1分；

5、綜治宣傳（查有無綜治和平安建設(shè)工作的宣傳標語和橫幅），1分；

6、群防群治（查紅袖標義務(wù)巡防人員達到村不少于15人、社區(qū)不少于20人標準、通過調(diào)查走訪和現(xiàn)場查看有無紅袖標人員開展巡邏防范），1分。

1、人員配備（查是否配備社區(qū)（駐村）民警、專職保安是否達到社區(qū)2保安、村1名保安標準，查人員姓名、值班表、工作記錄），1分；

2、日常工作（查每日巡邏記錄、矛盾糾紛調(diào)解臺帳、調(diào)處多少起矛盾糾紛），1分。

1、意見部署（查平安校園工作意見，有專人負責創(chuàng)建辦是否掛牌），1分；

2、技防、設(shè)施防（查校園是否有技防監(jiān)控設(shè)施、有幾個探頭；是否建立校園警務(wù)室或校園110建立，有無專職保安人員值守并記明人員數(shù)，是否配備安全防范設(shè)施），1分；

3、法制教育（查是否聘請法制副校長、看聘書，兩次以上的法制教育，看講稿、計劃安排、法制教育計劃、臺賬），1分；

4、綜治宣傳（查是否有綜治和平安建設(shè)宣傳標語、橫幅）。走訪縣城和城區(qū)兩個居民小區(qū)

1、創(chuàng)建氛圍（查有無綜治和平安建設(shè)宣傳標語、橫幅），1分。

2、巡邏防范（查有無專職保安人員值守、值班表和巡邏記錄，是否對進出車輛和人員進行詢問登記）

3、技防、設(shè)施防（查有無安裝技防設(shè)施、有無全覆蓋,有無防范攀爬等設(shè)施），1分。檢查結(jié)果（得分）村(社區(qū))8分 綜治辦（6分）警務(wù)室（2分）學(xué) 校 4分 學(xué)校創(chuàng)建（4分）居民 小區(qū) 3分 治安防范（3分）5

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

教案主題：Excel 2000數(shù)據(jù)輸入及函

數(shù)和公式的使用

系科：數(shù)學(xué)與計算機科學(xué)學(xué)院

專業(yè)班級：計算機科學(xué)與技術(shù)六班

姓名：朝陽

學(xué)號：

任課教師：

二〇〇八年五月二十一日 Excel 2000數(shù)據(jù)輸入及函數(shù)和公式的使用教案

作者名：朝陽

科目：計算機文化概論

課題：Excel 2000數(shù)據(jù)輸入及函數(shù)和公式的使用 課型及課時安排：新授課 一課時 教學(xué)對象分析：高中生 教學(xué)目標分析：

（一）知識目標：

1．熟練掌握Excel的基本操作、數(shù)據(jù)輸入 2．使用EXCEL中簡單的數(shù)據(jù)計算功能

（二）能力目標：

1．培養(yǎng)學(xué)生收集、處理數(shù)據(jù)的能力； 3．培養(yǎng)自主學(xué)習，自主探索，合作交流能力。教學(xué)重點分析：數(shù)據(jù)輸入、函數(shù)和公式的使用 教學(xué)難點分析：函數(shù)和公式的使用

教學(xué)關(guān)鍵點分析：注意數(shù)字文本的輸入，同學(xué)不容易區(qū)分函

數(shù)和公式，要幫助他們區(qū)分開；還要詳細講解一些常用函數(shù)以及函數(shù)的分類。

教學(xué)方法選擇：講授+PPT、任務(wù)驅(qū)動+探究性學(xué)習、范例教

學(xué)法

教學(xué)媒體選擇：多媒體、計算機、PPT 教學(xué)進程：

一、數(shù)據(jù)輸入（15分鐘）

第 1 頁（共 6 頁）

在單元格中可以輸入兩種數(shù)據(jù)——常量和公式，對于基本的數(shù)據(jù)，可以通過鍵盤輸入，有規(guī)律的數(shù)據(jù)，可以采用自動輸入，通過填充功能，可快捷的輸入等差數(shù)列、等比數(shù)列或日期等規(guī)律變化的數(shù)據(jù)。利用公式，可以完成各種復(fù)雜計算，并將計算結(jié)果放在指定的單元格中。

1、數(shù)據(jù)的輸入形式（7分鐘）

① 選定單元格。

② 在編輯欄中輸入內(nèi)容。

③ 按Enter或√或在其它單元格內(nèi)單擊或輸入文本

默認左對齊。

輸入數(shù)字文本時，數(shù)前加“ ” 如0001或者輸入數(shù)字前加’號 如‘8844134

硬回車：Alt＋Enter

輸入數(shù)字：默認右對齊。

輸入分數(shù)時，為了與日期區(qū)別。數(shù)前加“0 ”如0 1/2

允許出現(xiàn)的合法字符：0～9，＋，－，/，（），$，％，Ｅ，e

輸入日期和時間：

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

默認以數(shù)字處理，右對齊，可運算。

同一單元格輸入日期與時間，中間需加空格。

第 2 頁（共 6 頁）

所有內(nèi)容的對齊方式可通過格式操作進行更改。

日期、時間格式也可更改。

同時對多個單元格輸入相同的數(shù)據(jù)：

選擇要輸入數(shù)據(jù)的單元格→輸入數(shù)據(jù)→按Ctrl＋Enter結(jié)束輸入

2、數(shù)據(jù)填充（8分種）（1）自動數(shù)據(jù)填充

① 若初始數(shù)值是純字符或純數(shù)字，填充相當于數(shù)據(jù)復(fù)制操作。

② 若初始數(shù)值是文字和數(shù)字的混合體，填充文字不變，最右邊的數(shù)字遞增。

③ 若初始值是預(yù)先設(shè)定的自動填充序列中的成員，將按

預(yù)設(shè)序列進行填充。單擊菜單“工具”的“選項”中的“自定義序列”命令，可以添加自定義序列。④ 如果連續(xù)的單元格數(shù)據(jù)之間有等比、等差關(guān)系，可以

通過“序列”對話框進行填充。編輯/填充/序列

（2）特別的自動填充

如果要進行簡單的復(fù)制，在進行填充的同時按住Ctrl鍵，則不管選擇任何單元或區(qū)域，填充只是數(shù)據(jù)的復(fù)制。注意：注意區(qū)分以上填充操作在直接填充與填充時同時按住Ctrl鍵的區(qū)別。

二、函數(shù)和公式的使用（25分鐘）

Excel具有強大的數(shù)據(jù)處理功能，主要體現(xiàn)在其

第 3 頁（共 6 頁）

對公式和函數(shù)的使用上，靈活地運用可以實現(xiàn)數(shù)據(jù)處理的自動化與高效化。

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

公式是以“=”開頭的，由常量、單元格引用、函數(shù)和運算符組成。

（1）常見的運算符

① 數(shù)學(xué)運算符：+，-，*（乘），/（除）

② 比較運算符：=，>,<,>=（大于等于）,<=（小于等于）。如果比較運算成立用TRUE表示，否則用FALSE表示。③ 文字連接符&，可將兩個文本連接起來，也可連接帶引號的文字，還可以連接單元格地址。（2）運算符的優(yōu)先級

① 數(shù)學(xué)運算符優(yōu)先級從高到低為：%，*和/，+和-，同級運算符按從左到右的順序計算。

② 比較運算符優(yōu)先級相同，按從左到右進行順序計算。③ 三類運算符之間，數(shù)學(xué)運算符優(yōu)先級最高，文字運算符其次，比較運算符優(yōu)先級最低。④ 使用括號可以改變運算符的優(yōu)先級。2．公式的輸入（6分鐘）（1）輸入公式

工作表中如果某一單元格的數(shù)據(jù)需要由其它單元格的值計算而來，在這個單元格中就可以輸入公式，同時

第 4 頁（共 6 頁）在公式中插入函數(shù)。單擊要存放結(jié)果的單元格，在編輯欄或該單元格直接輸入公式，按回車鍵結(jié)束，結(jié)果即可顯示在該單元格。（2）編輯公式

如果要修改單元格內(nèi)的公式，可激活該單元格，然后將光標定位到編輯欄中直接修改，注意不要刪除最前面的等號。（3）公式的復(fù)制

工作表中的公式是可以復(fù)制的，復(fù)制的方法跟數(shù)據(jù)填充的方法相似，只需要拖動填充句柄填充存放結(jié)果的單元格，前提是該區(qū)域使用相同的計算方法。

3、函數(shù)的使用（8分鐘）

Excel提供了功能強大的函數(shù)，單擊常用工具欄上的“粘貼函數(shù)”按鈕出現(xiàn)“粘貼函數(shù)”對話框，有很多類函數(shù)，每類下又有很多對應(yīng)的函數(shù)。

使用：選擇存放結(jié)果的單元格，函數(shù)的使用有兩種方式：

（1）、單擊“插入”菜單的“函數(shù)”命令或相應(yīng)的工具欄按鈕，在粘貼函數(shù)對話框選擇合適的函數(shù)，“確定”。

（2）、單擊編輯欄上的“=”，從編輯欄的左側(cè)選擇合適的函數(shù)。

4、常見函數(shù)介紹（6分鐘）（1）求和（SUM）函數(shù)

第 5 頁（共 6 頁）（2）條件判斷（IF）函數(shù)（3）統(tǒng)計（COUNT）函數(shù)（4）條件統(tǒng)計（COUNTIF）函數(shù) 作業(yè)：（5分鐘）

１、認真復(fù)習今天所講的內(nèi)容，并且親自上機實踐

２、完成“貨物銷售表”的建立

３、將班上此次考試的成績建立成 Excel表，充分發(fā)揮你們的想象以及對知識的掌握，使得成績表清楚明了 教學(xué)評價：通過這堂課的學(xué)習，我們學(xué)會了EXCEL中工作表的建立方法及其操作，掌握了公式和函數(shù)的使用方法，并能把所學(xué)的知識應(yīng)用到現(xiàn)實生活中。因為采取了任務(wù)驅(qū)動+探究性學(xué)習、范例教學(xué)法等方法，學(xué)生學(xué)得積極認真，基本達到了教學(xué)要求，但是準備不夠充分,對內(nèi)容不是很熟悉,不夠大方。以后會吸取別人的長處,提高自己，達到更好的效果。

授課日期：2008年6月11日 授課者姓名：朝陽

第 6 頁（共 6 頁）

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

一、DDL數(shù)據(jù)定義語言 1.創(chuàng)建表：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//為字段設(shè)置默認值);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;//在數(shù)據(jù)庫不繁忙的時候用 Oracle在設(shè)計的時候，沒有考慮可逆性 6.修改一列

Alter table tal modify stu_no number(20);//將原來的長度為11 修改為長度為20 修改列時注意：

考慮現(xiàn)有數(shù)據(jù)的安全性（包括數(shù)據(jù)的類型，長度），修改長度是 只能往大改 如果表中有數(shù)據(jù)，不可以修改類型，只有當表中沒數(shù)據(jù)了才能修改類型 修改多列

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數(shù)據(jù)操縱語言

1.插入數(shù)據(jù)：insert 例如: insert into Student values（1，’Jack’）;//按表中的自然順序逐個插入數(shù)據(jù)

insert into student(stu_no,name)values(1,’Jack’);//指定字段插入值 2.刪除數(shù)據(jù)：delete from[tablename]where… 例如: delete from testdefault where age = 19;3.修改數(shù)據(jù)：update[tablename]set a = exp1 where b = exp2 如果沒有限定條件，則會修改整張表中的數(shù)據(jù),即修改整列。例如: update Student set age = 24 where name = ‘jack’;也可一次性寫入多條insert語句一次執(zhí)行完畢。也可加載腳本（.sql文件）命令@+路徑/...sql 4.truncate截斷表

delete刪除時會產(chǎn)生日志信息的。

truncate刪除數(shù)據(jù)時不生成日志信息，所以效率快，但也不可逆。truncate截斷后會釋放表空間，而delete并不釋放表空間。

三、約束

考慮數(shù)據(jù)庫的完整性約束 三方面：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

表級約束可以約束很多列，可以定義聯(lián)合主鍵，而列級約束是做不到的。

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));先建父表再建子表。

不能隨便刪除，刪除時只能先刪子表記錄再刪父表；刪除表時同理。插入數(shù)據(jù)時先給父表插，再給子表插。

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);//刪除記錄時切斷關(guān)系，刪除了子表中的記錄再刪除父表

級聯(lián)刪除：世紀是先刪除子表的記錄，再刪除父表的記錄。表都存在。學(xué)生表：學(xué)號 姓名 性別

成績表：成績編號 學(xué)號 成績 課程編號 課程表：課程編號 課程名稱

外鍵：

成績表里面學(xué)號應(yīng)該是學(xué)生表

成績表里面的課程編號應(yīng)該是課程表里面的課程編號

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工作表操作全能方法小結(jié)

EXCEL VBA工作表操作全能方法小結(jié)

[示例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個可選的參數(shù)，其中參數(shù)Before和參數(shù)After指定所增加的工作表的位置，但兩個參數(shù)只能選一；參數(shù)Count用來指定增加的工作表數(shù)目。

------------------[示例04-02]復(fù)制工作表(Copy方法)Sub CopyWorksheet()MsgBox “在當前工作簿中復(fù)制工作表sheet1并將所復(fù)制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).Copy Before:=Worksheets(“sheet2”)MsgBox “在當前工作簿中復(fù)制工作表sheet2并將所復(fù)制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).Copy After:=Worksheets(“sheet3”)End Sub 示例說明：Copy方法帶有2個可選的參數(shù)，即參數(shù)Before和參數(shù)After，在使用時兩個參數(shù)只參選一。

------------------[示例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方法的參數(shù)相同，作用也一樣。

------------------[示例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]獲取工作表數(shù)(Count屬性)[示例04-05-01] Sub WorksheetNum()Dim i As Long i = Worksheets.Count MsgBox “當前工作簿的工作表數(shù)為：” & Chr(10)& i End Sub

------------------[示例04-05-02] Sub WorksheetNum()Dim i As Long i = Sheets.Count MsgBox “當前工作簿的工作表數(shù)為：” & Chr(10)& i End Sub 示例說明：在一個包含圖表工作表的工作簿中運行上述兩段代碼，將會得出不同的結(jié)果，原因是對于Sheets集合來講，工作表包含圖表工作表。應(yīng)注意Worksheets集合與Sheets集合的區(qū)別，下同。

------------------[示例04-06]獲取或設(shè)置工作表名稱(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屬性可以獲取指定工作表的名稱，也可以設(shè)置工作表的名稱。

------------------[示例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]設(shè)置行高 Sub SetRowHeight()MsgBox ”將當前單元格所在的行高設(shè)置為25“ Dim rRow As Long, iRow As Long rRow = ActiveCell.Row iRow = ActiveSheet.Rows(rRow).RowHeight ActiveSheet.Rows(rRow).RowHeight = 25 MsgBox ”恢復(fù)到原來的行高“ ActiveSheet.Rows(rRow).RowHeight = iRow End Sub

------------------[示例04-11-07]設(shè)置列寬 Sub SetColumnWidth()MsgBox ”將當前單元格所在列的列寬設(shè)置為20“ Dim cColumn As Long, iColumn As Long cColumn = ActiveCell.Column iColumn = ActiveSheet.Columns(cColumn).ColumnWidth ActiveSheet.Columns(cColumn).ColumnWidth = 20 MsgBox ”恢復(fù)至原來的列寬“ ActiveSheet.Columns(cColumn).ColumnWidth = iColumn End Sub

------------------[示例04-11-08]恢復(fù)行高列寬至標準值 Sub ReSetRowHeightAndColumnWidth()MsgBox ”將當前單元格所在的行高和列寬恢復(fù)為標準值“ Selection.UseStandardHeight = True Selection.UseStandardWidth = True End Sub

------------------[示例04-12]工作表標簽

[示例04-12-01] 設(shè)置工作表標簽的顏色 Sub SetSheetTabColor()MsgBox ”設(shè)置當前工作表標簽的顏色“ ActiveSheet.Tab.ColorIndex = 7 End Sub

------------------[示例04-12-01]恢復(fù)工作表標簽顏色 Sub SetSheetTabColorDefault()MsgBox ”將當前工作表標簽顏色設(shè)置為默認值“ ActiveSheet.Tab.ColorIndex =-4142 End Sub

------------------[示例04-12-03]交替隱藏或顯示工作表標簽 Sub HideOrShowSheetTab()MsgBox ”隱藏/顯示工作表標簽“ ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub------------------[NextPage][示例04-13]確定打印的頁數(shù)(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 ”保護當前工作表并設(shè)定密碼“ ActiveSheet.Protect Password:=”fanjy“ End Sub 示例說明：運行代碼后，當前工作表中將不允許編輯，除非撤銷工作表保護。

------------------[示例04-14-02] Sub UnprotectSheet()MsgBox ”撤銷當前工作表保護“ ActiveSheet.Unprotect End Sub 示例說明：運行代碼后，如果原保護的工作表設(shè)置有密碼，則要求輸入密碼。

------------------[示例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 示例說明：運行本代碼后，在當前工作表中將只能對未鎖定的單元格進行編輯，而其它單元格將不能編輯。未鎖定的單元格是指在選擇菜單“格式——單元格”命令后所彈出的對話框中的“保護”選項卡中，未選中“鎖定”復(fù)選框的單元格或單元格區(qū)域。

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