德尔菲法(Delphi)Excel上机指导

1.1 德尔菲法实验

1.1.1 理论知识准备

德尔菲（Delphi ）是在专家个人判断法的基础上发展起来的一种新型直观的预测方法。目前，德尔菲法已经运用在规划和决策中，并具有较高的声望，是一种重要的规划决策工具。

德尔菲法与专家会议法相比有三个特点，即匿名性、反馈性和预测结果的统计特性。匿名性就是采用匿名函询的方式征求意见，以就消除对专家判断的客观性有影响的一些不良因素。反馈性就是要进行几轮专家意见征询，并把上一轮的结果反馈到下一轮的预测中去，以便专家们可以参考有价值的意见从而提出更好的意见。预测结果的统计特性是指德尔菲法采用统计方法对专家意见进行处理，从而得到定量的表达，使得专家意见逐渐趋于一致。

德尔菲法预测步骤如下：

（1）确定预测主题，归纳预测事件

预测主题就是所要研究和解决的问题。一个主题包括若干个事件。事件是用来说明主题的重要指标。确定预测主题和归纳预测事件是德尔菲法的关键一步。

（2）选择专家

德尔菲法要求专家对预测主题相当了解，对预测问题的研究非常深入，所选择专家来源广泛，一般是本企业、本部门的专家和有业务联系、关系密切的外部专家以及在社会上有影响的知名人士。专家人数恰当，通常视预测主题规模而定。专家人数太少，缺乏代表性，太多又难于组织。一般情况下，专家小组人数以10～50人为宜。对重大问题的预测，专家小组的人数可扩大到l00人左右。

（3）预测过程

经典德尔菲法的预测过程一般分为四轮。第一轮确定预测事件，要求各个专家根据所要预测的主题提出预测事件，并用准确的术语列出“预测事件一览表”。第二轮初次预测，将“预测事件一览表”发给各个专家，要求他们对各个事件做出评价，提出相应的预测，并附上理由。有必要还可以提出需要的补充资料，使预测更加准确。第三轮修改预测，专家根据预测领导小组所反馈的第二轮预测结果和补充资料，再一次进行预测，并像第二轮预测一样附上理由。第四轮最后预测，专家再次根据反馈结果做出最后的预测，并根据领导小组的要求，做出或不做出新的论证。

在实际运用中，预测的轮数依照实际情况而定，如果大多数专家不再修改自己的意见，这表明专家们的意见基本趋于一致，这种情况下才能结束预测。

（4）确定预测值，做出预测结论

最后对专家应答结果进行量化分析和处理，这是德尔菲法最重要的阶段，常采用中位数法，即上、下四分点之间的距离越小，说明专家们的意见越集中，用中位数代表的预测结果的可信程度越高。

首先，把专家们的意见（即对某个问题的不同方案所给出的得分）按从小到大的顺序排列。若有n 个专家，n 个（包括重复的）答数排列如下：n x x x ≤?≤≤21，若中位数及上、下四分点分别用下上中，，x x x 表示，则

???=++=++k n x x k n x x k k

k 2,2/)(12,11＝中

???

????=+=+=++=+++++为偶数为奇数为偶数为奇数

，）（＝上k k n x x k k n x k k n x x k k n x x k k k k k k ,2,2/,2,

,12,2/)(,12,2/312/32/)13(2/322/312/)1(3 ???=+=+=+=++为偶数或为奇数或＝下k k n k n x x k k n k n x x k k k ,,212,2/)(,212,2

/12/2/)1( 通过德尔菲法上述步骤，理论上可认为预测结果围绕中位数和上下四分位点形成的信区间分布，即预测结果在一定程度上可能是中位数和上下四分位点形成的信区间中的某一个点。置信区间越窄，即上、下四分点间距越小，说明专家们的意见越集中，用中位数代表预测结果的可信程度越高。最后，计算专家意见协调程度。用变异系数表示j j

j M V σ=，分子为方案所得分的标准

差，分母为方案所得分的均值。变异系数值越小，专家协调程度越高。这可在一定程度上说明专家对预测结果的认可程度。

1.1.2 上机实验目的

（1）了解Excel 具有设计与实现德尔菲法的功能，熟悉和掌握德尔菲法基本步骤及原理。

（2）掌握运用Excel 的公式工具设计实现德尔菲法。

（3）掌握运用Excel 的公式函数SUM 、STDEV 。

（4）复习Excel 的描述统计，并掌握Excel 的数据统计相关函数：COUNT （返回一组数的个数）、QUARTILE （返回一组数的四分位点）。

1.1.3 上机实验准备

(1) 通过Excel 的“帮助”菜单查找关于SUM 、STDEV 、COUNT （返回一组数的个数）、

QUARTILE （返回一组数的四分位点）的使用说明。

(2) 复习通过Excel “工具”菜单中的“数据分析”打开描述统计，如图 2-30所示。

图 2-30描述统计的参数输入窗口

1.1.4上机实验内容

设有如下案例：

公司前5年货运总量情况如表 2-4。

表 2-4公司前5年货运总量

问题1. 您认为明年的货运量将是：

问题2. 您认为5年后的货运量将是：

问题3. 您认为10年后的货运量将是：

下列5方面因素将影响今后的运量：

货源、国家经济政策、运输能力与港口能力、航道条件和气候、交通运输体制和经营管理思想。请您根据他们对运量影响程度的大小，按由强到弱次序排列。

（1）根据案例预测目标设计调查表，确定参与预测专家人数和人选，主持者向参与预测人员介绍相关情况和调查规则；

（2）组织者通过与参与专家反复协调，交流其他参与者意见，统计出集中调查结果，如下图 2-31专家意见汇总。

图 2-31专家意见汇总

（3）运用Excel 对问题1的数据情况进行分析，找出该问题的对应数据的中位数以及上四分位点和下四分位点，得到未来的预测空间。（

1.1.5 上机实验步骤

下面用Excel 来实现德尔菲法中的中位数法。

以上例的第一问为例，即根据历史资料，预测明年的货运量。专家所给出的意见展开后所得结果图 2-32左列，应用Excel 升序工具排列后的结果如图 2-32右列。

读者可以通过工具栏上的“升序”按钮或者菜单“数据”→“排序”进行排序操作，具体过程请参见本书第二章“信息整理实验”的“上机实验步骤”环节。

图 2-32第一个问题的意见排序结果根据理论知识准备环节中的相关知识介绍得k=7，得到中位数的位置为81=+k ，上下分位点的位置为：()122/33=+k ，()42/1=+k 。所得结果为：394、394、417。明显地，这种方法的手工操作步骤较多。

方法二：使用描述统计对数据列进行分析。在“工具”菜单中选择“数据分析”->“描述统计”如图 2-33所示。

图 2-33用“描述统计”处理第一个问题

在打开的“描述统计”的窗口中，点击“输入区域”后的文本框，用鼠标在工作簿上选中数据列，也可以手工输入数据列的地址，然后指定“输出区域”如图 2-34所示。

图 2-34用“描述统计”处理第一个问题的参数输入窗口

点击“确定”，得到如图 2-35所示的结果。

图 2-35“描述统计”结果

再利用公式求出上下分位点。所得结果为：394、394、417。这种方法较之第一种方法而言，可以得到关于数据列更加详细的统计信息，但还是需要手工计算分位点。

方法三：使用函数QUARTILE（返回一组数的四分位点）。

在单元格I1中输入“=QUARTILE（A1:A15，1）”求出下四分位点，再将A1:A15的行号和列好用“$”锁定，拖动至C2、C3，将“=QUARTILE（$A$1:$A$15，1）”中的1改为2、3即可得到中位数和上四分位点，如图 2-36。

图 2-36 QUARTILE函数计算结果

怎么在delphi中读取Excel数据(各种详细操作)

怎么在delphi中读取Excel数据（各种详细操作）转 ( 一) 使用动态创建的方法首先创建Excel 对象，使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 1 ) 显示当前窗口： ExcelApp.Visible := True ; 2 ) 更改Excel 标题栏： ExcelApp.Caption := '' 应用程序调用Microsoft Excel '' ; 3 ) 添加新工作簿： ExcelApp.WorkBooks.Add ; 4 ) 打开已存在的工作簿： ExcelApp.WorkBooks.Open ( '' C : \Excel\Demo.xls '' ) ; 5 ) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets [ 2 ] .Activate ; 或 ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ; 6 ) 给单元格赋值： ExcelApp.Cells [ 1 , 4 ] .Value := '' 第一行第四列'' ; 7 ) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelApp.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ; 8 ) 设置指定行的高度（单位：磅）（1磅＝0.035 厘米），以第二行为例：ExcelApp.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米 9 ) 在第8行之前插入分页符： ExcelApp.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ; 10 ) 在第8列之前删除分页符： ExcelApp.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ;

Delphi控制Excel的重要属性和方法

Delphi控制Excel2000 类别:COM&ActiveX (一)使用动态创建的方法首先创建Excel对象,使用ComObj: var ExcelApp:Variant; ExcelApp:=CreateOleObject('Excel.Application'); 1)显示当前窗口: ExcelApp.Visible:=True; 2)更改Excel标题栏: ExcelApp.Caption:='应用程序调用Microsoft Excel'; 3)添加新工作簿: ExcelApp.WorkBooks.Add; 4)打开已存在的工作簿: ExcelApp.WorkBooks.Open('C:\Excel\Demo.xls'); 5)设置第2个工作表为活动工作表: ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets['Sheet2'].Activate; 6)给单元格赋值: ExcelApp.Cells[1,4].Value:='第一行第四列'; 7)设置指定列的宽度(单位:字符个数),以第一列为例: ExcelApp.ActiveSheet.Columns[1].ColumnsWidth:=5; 8)设置指定行的高度(单位:磅)(1磅＝0.035厘米),以第二行为例: ExcelApp.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米 9)在第8行之前插入分页符: ExcelApp.WorkSheets[1].Rows[8].PageBreak:=1; 10)在第8列之前删除分页符: ExcelApp.ActiveSheet.Columns[4].PageBreak:=0; 11)指定边框线宽度: ExcelApp.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3; 1-左2-右3-顶4-底5-斜(\)6-斜(/) 12)清除第一行第四列单元格公式: ExcelApp.ActiveSheet.Cells[1,4].ClearContents; WrapText:=True可能是自动换行 13)设置第一行字体属性: ExcelApp.ActiveSheet.Rows[1]https://www.360docs.net/doc/8a4596747.html,:='隶书'; ExcelApp.ActiveSheet.Rows[1].Font.Color:=clBlue; ExcelApp.ActiveSheet.Rows[1].Font.Bold:=True; ExcelApp.ActiveSheet.Rows[1].Font.UnderLine:=True; 14)进行页面设置: a.页眉: ExcelApp.ActiveSheet.PageSetup.CenterHeader:='报表演示'; b.页脚:

Delphi操作EXCEL函数整理

一、使用单元： Use :EXCEL 2000, ComObj 二、定义 var ExcelApp,Sheet,Range: Variant; 注释： ExcelApp 为定义的Excel 对象 Sheet 为定义的工作表（Sheet）对象 Range 为定义的工作表范围三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化 1. 创建excel对象： ExcelApp := CreateOleObject( 'Excel.Application' ); 2. 显示当前窗口： ExcelApp.Visible := True; 3. 更改Excel 标题栏： ExcelApp.Caption := '应用程序调用Microsoft Excel'; 4. 添加新工作簿： ExcelApp.WorkBooks.Add; 5 打开已存在的工作簿： ExcelApp.WorkBooks.Open(FilePath); 6.设置工作簿默认工作表张数 ExcelApp.SheetsInNewWorkbook := 1; 7.设置工作表名称 ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name := PName; 8.工作表初始化 Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum]; 9.工作表范围初始化 Range := Sheet.Range['A1:DL1'] ; 10.设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值： ExcelApp.Cells[row, column].Value := '第一行第四列'; 或 Sheet.Cells[row, column] := ‘第一行第四列’; 2 清除第一行第四列单元格公式：

德尔菲法

德尔菲法是60年代初美国兰德公司的专家们为避免集体讨论存在的屈从于权威或盲目服从多数的缺陷而提出的一种定性预测的情报分析方法。它以匿名的方式通过几轮函询，征求专家们的意见，预测领导小组对每一轮意见都进行汇总整理，作为参考资料再发给每个专家，供他们分析判断，提出新的论证，如此多次反复，专家的意见日趋于一致，最后根据专家的综合意见，从而对评价对象作出评价的一种定量和定性相结合的预测、评价方法。确定评价达到一致性或趋同性标准的几种方法：①专家组对某一问题认同的百分比；②在几轮咨询中，各轮专家采用的问题数量；③如果以1-5分进行评分，达到3分以上的问题被接受；④如果以1-3分打分，达到1分以上而且有至少51%的专家认同的问题；⑤如果至少有一定数量的专家不赞同某一问题，则要去除此问题。德尔菲法主要通过专家的判断解决以下一些问题：①用常用的分析方法无法解决，必须通过集体主观判断做出决策的问题；②对同一问题每个人之间的体验和见解均不同时；③由于一些原因无法召开多次会议时；④个体之间对同一问题的观点差别太大，有必要采用匿名的方式达成共识；⑤作为一个专家会议的前奏，以提高会议的效率。一、研究步骤 1、组建预测领导小组 2、选择专家根据研究主题的专业需要和对专家的熟悉程度，精通学科业务，10年以上的专业人员，有一定名望，同时选择一些边缘学科的专家。告知咨询时间和每轮需2-4周，征得其同意。专家的数量：一般 25人，且以15-50人为宜。建立专家库。 3、形成专家函询问卷 1）问卷前言。 2）问题。第一轮专家函询问卷多是通过文献查阅、问卷调查、专家半结构化访谈来形成的。第一轮问卷每一征询项后依重要程度设计四个选项（不可缺少、比较重要、可有可无、不需要），同时设计备注栏，请专家填上选择的依据和理由。

【Delphi】汇出Excel时,Excel单元格格式设置(附Delphi操作Excel方法)

德尔菲法#(精选.)

一、德尔菲法的概念德尔菲法是60年代初美国兰德公司的专家们为避免集体讨论存在的屈从于权威或盲目服从多数的缺陷而提出的一种定性预测的情报分析方法。它以匿名的方式通过几轮函询，征求专家们的意见，预测领导小组对每一轮意见都进行汇总整理，作为参考资料再发给每个专家，供他们分析判断，提出新的论证，如此多次反复，专家的意见日趋于一致，最后根据专家的综合意见，从而对评价对象作出评价的一种定量和定性相结合的预测、评价方法。确定评价达到一致性或趋同性标准的几种方法：①专家组对某一问题认同的百分比；②在几轮咨询中，各轮专家采用的问题数量；③如果以1-5分进行评分，达到3分以上的问题被接受；④如果以1-3分打分，达到1分以上而且有至少51%的专家认同的问题；⑤如果至少有一定数量的专家不赞同某一问题，则要去除此问题。德尔菲法主要通过专家的判断解决以下一些问题：①用常用的分析方法无法解决，必须通过集体主观判断做出决策的问题；②对同一问题每个人之间的体验和见解均不同时；③由于一些原因无法召开多次会议时；④个体之间对同一问题的观点差别太大，有必要采用匿名的方式达成共识；⑤作为一个专家会议的前奏，以提高会议的效率。二、研究步骤 1、组建预测领导小组 2、选择专家根据研究主题的专业需要和对专家的熟悉程度，精通学科业务，10年以上的专业人员，有一定名望，同时选择一些边缘学科的专家。告知咨询时间和每轮需2-4周，征得其同意。专家的数量：一般 25人，且以15-50人为宜。建立专家库。 3、形成专家函询问卷 1）问卷前言。 2）问题。第一轮专家函询问卷多是通过文献查阅、问卷调查、专家半结构化访谈来形成的。第一轮问卷每一征询项后依重要程度设计四个选项（不可缺少、比较重要、可有可无、不需要），同时设计备注栏，请专家填上选择的依据和理由。 4、专家函询的经典四轮第一轮：寄发给专家的征询表不带任何条框，只针对研究主题提出问题，由参加的专家不收任何干扰，发挥专家的自由联想优势，提供评估或预测事件的项目。第二轮：由领导小组对专家填写寄回的咨询表进行编写汇总整理，合并同类事件，排除次要事件，并作为第二轮征询表寄发给每位专家。要求专家对第二轮的征询表中所列的各个问题作出评价，评价的形式可以根据重要程度赋分或是赋予等级，并标明理由。第三轮：根据第二轮修改后的专家征询表，专家再一次进行判断并进一步提出修改意见，并充分陈述理由。第四轮：在第三轮的基础上，专家们再次进行判断和论证，或仍保留第三轮的意见，直到统计分析的结果显示专家的意见趋于一致，问卷的轮回即可结束。 5、结果统计分析处理 1）描述性分析：对专家的性别、年龄、职务、专业、从事专业年限等进行分析，便于说明评估专家水平与结果可信和可靠程度的联系。 2）专家的积极系数：以专家征询表的回收率来表示。 3）专家意见的集中程度：多以均数、满分频率、等级总和、选择率来表示。

【免费下载】Delphi汇出Excel时Excel单元格格式设置附Delphi操作Excel方法

【Delphi】汇出Excel 时，Excel 单元格格式设置（附Delphi 操作Excel 方法）一个例子：excelworksheet1.Cells.Item[row,3]. numberformatlocal:='$#,##0.00;[红色]-$#,##0.00'; excelworksheet1.Cells.Item[row,3].Formula:='=SUM(R[-'+inttostr(row-rowflag+1)+']C:R[-1]C)'; excelworksheet1.Cells.Item[row,3].Borders[3].LineStyle :=xlContinuous;excelworksheet1.Cells.Item[row,3].Borders[4].LineStyle :=xlDouble;excelworksheet1.Cells.Item[row,4].Borders[3].LineStyle :=xlContinuous;excelworksheet1.Cells.Item[row,4].Borders[4].LineStyle :=xlDouble;excelworksheet1.Cells.Item[row,4].Formula:='=R[-1]C';注：不知道公式及格式，均可通过录制宏找出对应公式及格式。效果如下图：资料来自网络单元格设置1.设置单元格线框Excel.ActiveSheet.Range[B10:C13].Borders[N].LineStyle := xlNone Excel.ActiveSheet.Range[B10:C13].Borders[N].Weight := xlThin 、管路敷设技术通过管线敷设技术，不仅可以解决吊顶层配置不规范问题，而且可保障各类管路习题到位。在管路敷设过程中，要加强看护关于管路高中资料试卷连接管口处理高中资料试卷弯扁度固定盒位置保护层防腐跨接地线弯曲半径标高等，要求技术交底。管线敷设技术中包含线槽、管架等多项方式，为解决高中语文电气课件中管壁薄、接口不严等问题，合理利用管线敷设技术。线缆敷设原则：在分线盒处，当不同电压回路交叉时，应采用金属隔板进行隔开处理；同一线槽内，强电回路须同时切断习题电源，线缆敷设完毕，要进行检查和检测处理。、电气课件中调试对全部高中资料试卷电气设备，在安装过程中以及安装结束后进行高中资料试卷调整试验；通电检查所有设备高中资料试卷相互作用与相互关系，根据生产工艺高中资料试卷要求，对电气设备进行空载与带负荷下高中资料试卷调控试验；对设备进行调整使其在正常工况下与过度工作下都可以正常工作；对于继电保护进行整核对定值，审核与校对图纸，编写复杂设备与装置高中资料试卷调试方案，编写重要设备高中资料试卷试验方案以及系统启动方案；对整套启动过程中高中资料试卷电气设备进行调试工作并且进行过关运行高中资料试卷技术指导。对于调试过程中高中资料试卷技术问题，作为调试人员，需要在事前掌握图纸资料、设备制造厂家出具高中资料试卷试验报告与相关技术资料，并且了解现场设备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况，然后根据规范与规程规定，制定设备调试高中资料试卷方案。、电气设备调试高中资料试卷技术电力保护装置调试技术，电力保护高中资料试卷配置技术是指机组在进行继电保护高中资料试卷总体配置时，需要在最大限度内来确保机组高中资料试卷安全，并且尽可能地缩小故障高中资料试卷破坏范围，或者对某些异常高中资料试卷工况进行自动处理，尤其要避免错误高中资料试卷保护装置动作，并且拒绝动作，来避免不必要高中资料试卷突然停机。因此，电力高中资料试卷保护装置调试技术，要求电力保护装置做到准确灵活。对于差动保护装置高中资料试卷调试技术是指发电机一变压器组在发生内部故障时，需要进行外部电源高中资料试卷切除从而采用高中资料试卷主要保护装置。

德尔菲法(Delphi)Excel上机指导

1.1 德尔菲法实验 1.1.1 理论知识准备德尔菲（Delphi ）是在专家个人判断法的基础上发展起来的一种新型直观的预测方法。目前，德尔菲法已经运用在规划和决策中，并具有较高的声望，是一种重要的规划决策工具。德尔菲法与专家会议法相比有三个特点，即匿名性、反馈性和预测结果的统计特性。匿名性就是采用匿名函询的方式征求意见，以就消除对专家判断的客观性有影响的一些不良因素。反馈性就是要进行几轮专家意见征询，并把上一轮的结果反馈到下一轮的预测中去，以便专家们可以参考有价值的意见从而提出更好的意见。预测结果的统计特性是指德尔菲法采用统计方法对专家意见进行处理，从而得到定量的表达，使得专家意见逐渐趋于一致。德尔菲法预测步骤如下：（1）确定预测主题，归纳预测事件预测主题就是所要研究和解决的问题。一个主题包括若干个事件。事件是用来说明主题的重要指标。确定预测主题和归纳预测事件是德尔菲法的关键一步。（2）选择专家德尔菲法要求专家对预测主题相当了解，对预测问题的研究非常深入，所选择专家来源广泛，一般是本企业、本部门的专家和有业务联系、关系密切的外部专家以及在社会上有影响的知名人士。专家人数恰当，通常视预测主题规模而定。专家人数太少，缺乏代表性，太多又难于组织。一般情况下，专家小组人数以10～50人为宜。对重大问题的预测，专家小组的人数可扩大到l00人左右。（3）预测过程经典德尔菲法的预测过程一般分为四轮。第一轮确定预测事件，要求各个专家根据所要预测的主题提出预测事件，并用准确的术语列出“预测事件一览表”。第二轮初次预测，将“预测事件一览表”发给各个专家，要求他们对各个事件做出评价，提出相应的预测，并附上理由。有必要还可以提出需要的补充资料，使预测更加准确。第三轮修改预测，专家根据预测领导小组所反馈的第二轮预测结果和补充资料，再一次进行预测，并像第二轮预测一样附上理由。第四轮最后预测，专家再次根据反馈结果做出最后的预测，并根据领导小组的要求，做出或不做出新的论证。在实际运用中，预测的轮数依照实际情况而定，如果大多数专家不再修改自己的意见，这表明专家们的意见基本趋于一致，这种情况下才能结束预测。（4）确定预测值，做出预测结论最后对专家应答结果进行量化分析和处理，这是德尔菲法最重要的阶段，常采用中位数法，即上、下四分点之间的距离越小，说明专家们的意见越集中，用中位数代表的预测结果的可信程度越高。首先，把专家们的意见（即对某个问题的不同方案所给出的得分）按从小到大的顺序排列。若有n 个专家，n 个（包括重复的）答数排列如下：n x x x ≤?≤≤21，若中位数及上、下四分点分别用下上中，，x x x 表示，则 ???=++=++k n x x k n x x k k k 2,2/)(12,11＝中

delphi控制excel大全(完全版)

下面是我写的通用文档微机管理系统的打印部分原代码，包括合并execl单元格，加入分页符号，设置行高，列宽，设置execl页头，设置每页记录数，画单元格边框，调用execl模板等等 procedure TfrmMain.Button3Click(Sender:TObject);//动态打印excel报表 var tiaojian:string;//tiaojian为一个sql查询语句,全宗号,目录号,起始日期为一数据库字段begin tiaojian:='; if Edit7.Text<>'then begin tiaojian:=tiaojian+'(全宗号='+EDit7.Text+')and'; end; if Edit8.Text<>'then begin tiaojian:=tiaojian+'(目录号='+Edit8.Text+')and'; end; if Edit9.Text<>'then begin tiaojian:=tiaojian+'(起始日期>='+Edit9.Text+')and'; end else tiaojian:=tiaojian+'(起始日期>=0)and'; if Edit10.Text<>'then begin tiaojian:=tiaojian+'(起始日期<='+Edit10.Text+')and'; end; tiaojian:=copy(tiaojian,1,length(tiaojian)-3);//tiaojian为一个sql查询语句Printanjuan(tiaojian);//调用打印过程 ShellExecute(Handle,'Open',PChar(GetCurpath+'temp.xls'),nil,nil,sw_shownormal);//调用excel查看生成的文件 ProgressBar1.Position:=0;//ProgressBar1为一个进程条控件 end; procedure TfrmMain.Printanjuan(tiaojiao:string); var nowhangi,i,jilushu,LCID:integer;//nowhangi当前execl的所在行，jilushu当前的记录

DELPHI操作EXCEL

(一) 使用动态创建的方法首先创建Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application ' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改Excel 标题栏： ExcelApp.Caption := '应用程序调用Microsoft Excel '; 3) 添加新工作簿： ExcelApp.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls ' ); 5) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2 ' ].Activate; 6) 给单元格赋值： ExcelApp.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例：ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符： ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1; 10) 在第8列之前删除分页符： ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度： ExcelApp.ActiveSheet.Range[ 'B3:D4 ' ].Borders[2].Weight := 3; 1-左2-右3-顶4-底5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

德尔菲法

求方法（特尔斐法-----专家咨询法）请教如何应用特尔斐法-----专家咨询法。哪里有关于这方法的具体应用步鄹介绍。哪本书有介绍急求！坐论文急需！求各位帮忙！特尔斐预测法，是兰德公司的一个杰作，成为全球120多种预测法中使用比例最高的一种。其过程是：利用一系列简明扼要的征询表和对征得意见的有控制的反馈，从而取得一组专家的最可靠的统一意见。下面贴上一文，希望对你有所帮助。特尔斐法特尔斐法是一个使专家集体在各个成员互不见面的情况下对某一项指标的重要性程度达成一致看法的方法，它是编制教育评价方案中进行加权时经常使用的一种方法。特尔斐法因出自古希腊特尔斐地区的预言家而得名，它最早是古希腊特尔斐地区的预言家预测未来时经常使用的方法。特尔斐法在现代的运用是从50年代开始的，主要被作为预测未来的工具使用在未来学的研究中。60年代中期以来，特尔斐法的应用范围迅速扩大，在未来学以外的其它领域特别是评价领域得到了广泛的运用，为在解决各种形式的复杂问题，如某一指标的重要性程度时促进信息交流并取得一致意见发挥了重要作用。现代教育评价中的特尔斐法实际上是一种在编制教育评价方案时为了取得对某一指标或某些指标重要性程度的一致认识而进行的专家意见征询法，它以分发问题表的形式，征求、汇集并统计一些资深人员对某一项指标重要性程度的意见或判断，以便在这一问题的分析上使大家取得一致的意见。 1．步骤应用特尔斐法分配权重值的步骤是。 (1)设计意见征询表设计意见征询表时，需要特别注意两个问题：其一，表中所列的重要性等级如上表中所列“很重要”、“重要”、“一般”、“不重要”等必须有明确定义，即需要明确说明在何种情况下才能算得上很重要，在何

德尔菲法演示教学

德尔菲法

时间和每轮需2-4周，征得其同意。专家的数量：一般 25人，且以15-50人为宜。建立专家库。 3、形成专家函询问卷 1）问卷前言。 2）问题。第一轮专家函询问卷多是通过文献查阅、问卷调查、专家半结构化访谈来形成的。第一轮问卷每一征询项后依重要程度设计四个选项（不可缺少、比较重要、可有可无、不需要），同时设计备注栏，请专家填上选择的依据和理由。 4、专家函询的经典四轮第一轮：寄发给专家的征询表不带任何条框，只针对研究主题提出问题，由参加的专家不收任何干扰，发挥专家的自由联想优势，提供评估或预测事件的项目。第二轮：由领导小组对专家填写寄回的咨询表进行编写汇总整理，合并同类事件，排除次要事件，并作为第二轮征询表寄发给每位专家。要求专家对第二轮的征询表中所列的各个问题作出评价，评价的形式可以根据重要程度赋分或是赋予等级，并标明理由。第三轮：根据第二轮修改后的专家征询表，专家再一次进行判断并进一步提出修改意见，并充分陈述理由。第四轮：在第三轮的基础上，专家们再次进行判断和论证，或仍保留第三轮的意见，直到统计分析的结果显示专家的意见趋于一致，问卷的轮回即可结束。 5、结果统计分析处理

DELPHI控制EXCEL2000操作全集

Delphi控制Excel2000操作全集十分值得收藏的咚咚，对认为有用的人很有用，呵呵－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Delphi控制Excel2000 希望这分数据，为论坛中的各位会员关于EXCEL操作的问题提供一些帮助。同时也希望各位能将自己整理的、或已有的资料共享出来。这样可以减少大家的「重复劳动」吗？技术在于交流，经验在于积累！！！！一.使用动态创建的方法首先创建Excel对象，使用ComObj: var ExcelApp:Variant; ExcelApp:=CreateOleObject('Excel.Application'); 1)显示当前窗口： ExcelApp.Visible:=True; 2)更改Excel标题栏： ExcelApp.Caption:='应用程序调用Microsoft Excel'; 3)添加新工作簿： ExcelApp.WorkBooks.Add; 4)打开已存在的工作簿： ExcelApp.WorkBooks.Open('C:\Excel\Demo.xls'); 5)设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets['Sheet2'].Activate; 6)给单元格赋值： ExcelApp.Cells[1,4].Value:='第一行第四列'; 7)设置指定列的宽度（单位：字符个数），以第一列为例： ExcelApp.ActiveSheet.Columns[1].ColumnsWidth:=5; 8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelApp.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米

管理方法德尔菲法

管理方法--德尔菲法德尔菲法是在20世纪60年代由美国兰德公司首创和使用的一种特殊的策划方法。德尔菲法是古希腊的一座城市，因阿波罗神殿而驰名，由于阿波罗有着高超的预测未来的能力，故德尔菲成了预测、策划的代名词。所谓德尔菲法是指采用函询的方式或电话、网络的方式，反复也咨询专家们的建议，然后由策划人作出统计，如果结果不趋向一致，那幺就再征询专家，直至得出比较统一的方案。这种策划方法的优点是：专家们互不见面，不能产生权威压力，因此，可以自由地充分地发表自己的意见，从而得出比较客观的策划案。运用这种策划方法时，要求专家具备策划主题相关的专业知识，熟悉市场的情况，精通策划的业务操作。专家的意见得出结果后，策划人需要对结果进行统计处理。但是这种方法缺乏客观标准，主要凭专家判断，再者由于次数较多，反馈时间较长，有的专家可能因工作忙或其它原因而中途退出，影响策划的准确性。德尔菲法德尔菲是古希腊城名，相传城中阿波罗圣殿能预卜未来，因而命名。德尔菲法是60年代初美国兰德公司的专家们为避免集体讨论存在的屈从于权威或盲目服从多数的缺陷提出的一种定性预测方法。为消除成员间相互影响，参加的专家可以互不了解，它运用匿名方式反复多次征询意见和进行背靠背的交流，以充分发挥专家们的智能、知识和经验，最后汇总得出一个能比较反映群体意志的预测结果。德尔菲法的一般工作程序如下：（1）确定调查目的，拟订调查提纲。首先必须确定目标，拟订出要求专家回答问题的详细提纲，并同时向专家提供有关背景材料，包括预测目的、期限、调查表填写方法及其它希望要求等说明。（2）选择一批熟悉本问题的专家，一般至少为20人左右，包括理论和实践等各方面专家。（3）以通信方式向各位选定专家发出调查表，征询意见。（4）对返回的意见进行归纳综合、定量统计分析后再寄给有关专家，如此往复，经过三、四轮意见比较集中后进行数据处理与综合得出结果。每一轮时间约7到10天，总共约一个月左右即可得到大致结果，时间过短因专家很忙难于反馈，时间过长则外界干扰因素增多，影响结果的客观性。这种方法的优点主要是简便易行，具有一定科学性和实用性，可以避免会议讨论时产生的害怕权威随声附和，或固执已见，或因顾虑情面不愿与他人意见冲突等弊病；同时也可使大家发表的意见较快收敛，参加者也易接受结论，具有一

德尔菲法

德尔菲技术预测法德尔菲（delphi）法是美国兰德公司1964年发明并首先用于技术预测的专家会议预测法的改进方法。有的学者认为，德尔菲法可能是最可靠的预测方法。在长期规划者和决策者心目中，德尔菲法享有众望。德尔菲法的实质是利用专家的主观判断，通过信息沟通与循环反馈，是预测意见趋于一致，逼近实际值。德尔菲法的不足之处在于，易受专家主观意识和思维局限影响，而且技术上，征询表的设计对预测结果的影响较大。就期货、股票投资而言，专家的意见往往不容忽视。你永远无法拒绝投资专家优秀业绩的强大说服力和诱惑。事实上，留意优秀专业人士的投资思维可以作为一项辅助决策手段。德尔菲法德尔菲法(Delphi technique)是一种更复杂,更耗时的方法,除了并不需要群体成员列席外,它类似于名义群体法.德尔菲法是在20世纪40年代由赫尔姆和达尔克首创,经过戈尔登和兰德公司进一步发展而成的.德尔菲这一名称起源于古希腊有关太阳神阿波罗的神话.传说中阿波罗具有预见未来的能力.因此,这种方法被命名为德尔菲法.德尔菲法是20世纪60年代初美国兰德公司的专家们为避免集体讨论存在的屈从于权威或盲目服从多数的缺陷提出的一种有效的群体决策的方法. 为消除成员间相互影响,参加的专家可以互不了解,它运用匿名方式反复多次征询意见和进行背靠背的交流,以充分发挥专家们的智慧,知识和经验,最后汇总得出一个能比较反映群体意志的预测结果. 德尔菲法的一般程序如下: (1)确定调查目的,拟订调查提纲.首先必须确定目标,拟订出要求专家回答问题的详细提纲,并同时向专家提供有关背景材料,包括预测目的,期限,调查表填写方法及其它希望要求等说明. (2)选择一批熟悉本问题的专家,一般至少为20人左右,包括理论和实践等各方面专家. (3)以通信方式向各位选定专家发出调查表,征询意见. (4)对返回的意见进行归纳综合,定量统计分析后再寄给有关专家,每个成员收到一本问卷结果的复制件. (5)看过结果后,再次请成员提出他们的方案.第一轮的结果常常是激发出新的方案或改变某些人的原有观点. (6)重复4,5两步直到取得大体上一致的意见.

论文分析德尔菲法

论文分析漂流旅游作为一项新型的专项旅游已经越来越受到国内外学者的广泛关注。《基于德尔菲法的中国漂流旅游发展影响因素研究》这篇文章就是根据国内外漂流旅游文献“词频”进行总结，从中提炼出影响漂流旅游发展的主要类别，并在此基础上进行问卷设计，采用了德尔菲法，进行了相关的研究，取得了一定的成果。他们的具体做法如下所示：该篇论文的调查时间为2010 年3月3日～ 4月30日，调查工作步骤主要包括:第一，制定问卷，选择专家；第二，分发第一轮问卷，主要采用E-mail 分发和电话确认的方式；第三，第一轮收回问卷后，整理结果，根据结果制定第二轮问卷；第四，将第一轮问卷的统计总结附在第二轮问卷上寄给第一轮征询的专家组，各个专家自己第一轮回答的问卷也复印附上作为参考；第五，收回第二轮问卷并整理结果，发现专家的意见基本趋于一致，结束调查。 1．明确主题和目的该篇文章是基于德尔菲法的中国漂流旅游发展影响因素研究，主要是根据目前漂流旅游作为一项新型的专项旅游的现实情况而进行的调查研究。漂流旅游越来越受到国内外学者的广泛关注，目前，有关漂流旅游的研究首先集中在漂流旅游的属性分析。其次是漂流旅游的发展策略分析。另外就某个单体漂流旅游景点进行研究的比较多，而对整个漂流旅游活动进行探讨的比较少。尤其是漂流旅游作为一个新兴的旅游项目，其发展前途如何，其发展主要受哪些因素的影响等问题，目前几乎没有学者涉及。该篇文章主要对中国漂流旅游发展的影响因素进行研究，以期对中国漂流旅游等专项旅游的良性发展提供有价值的理论与实践指导。 2．挑选专家，准备背景资料该研究选取了42位专家进行意见的征询，专家组的来源主要包括:20位做过漂流方面研究的相关专家学者、10位经营漂流公司的管理者、5位经营漂流的中介公司管理者、5位旅游局和体育局的政府官员以及2位漂流协会的管理者。就专家人数及专家的来源领域而言，是符合德尔菲法的一般要求的，在专家选择这一方面，从理论上讲可以保证此次预测的准确性和科学性。为了使专家在预测过程中能全面了解有关漂流旅游的相关信息，使预测更加准确，预测主持者还准备了相关的背景资料。主要有：首先，根据国内外漂流旅游文献“词频”进行总结，对漂流旅游的属性进行了分析。（表1）其次，预测组织者以及相关成员对德尔菲法进行了更加详细的了解，详细收集了相关资料，并仔细阅读，加以总结，以期此次预测更加准确。

德尔菲法管理方法分析

管理方法--德爾菲法德尔菲法是在20世纪60年代由美国XX公司首创和使用的一种特殊的策划方法。德尔菲法是古希腊的一座城市，因阿波罗神殿而驰名，由于阿波罗有着高超的预测未来的能力，故德尔菲成了预测、策划的代名词。所谓德尔菲法是指采用函询的方式或电话、网络的方式，反复也咨询专家们的建议，然后由策划人作出统计，如果结果不趋向一致，那幺就再征询专家，直至得出比较统一的方案。这种策划方法的优点是：专家们互不见面，不能产生权威压力，因此，可以自由地充分地发表自己的意见，从而得出比较客观的策划案。运用这种策划方法时，要求专家具备策划主题相关的专业知识，熟悉市场的情况，精通策划的业务操作。专家的意见得出结果后，策划人需要对结果进行统计处理。但是这种方法缺乏客观标准，主要凭专家判断，再者由于次数较多，反馈时间较长，有的专家可能因工作忙或其它原因而中途退出，影响策划的准确性。德尔菲法德尔菲是古希腊城名，相传城中阿波罗圣殿能预卜未来，因而命名。德尔菲法是60年代初美国XX公司的专家们为避免集体讨论存在的屈从于权威或盲目服从多数的缺陷提出的一种定性预测方法。为消除成员间相互影响，参加的专家可以互不了解，它运用匿名方式反复多次征询意见和进行背靠背的交流，以充分发挥专家们的智能、知识和经验，最后汇总得出一个能比较反映群体意志的预测结果。德尔菲法的一般工作程序如下：（1）确定调查目的，拟订调查提纲。首先必须确定目标，拟订出要求专家回答问题的详细提纲，并同时向专家提供有关背景材料，包括预测目的、期限、调查表填写方法及其它希望要求等说明。（2）选择一批熟悉本问题的专家，一般至少为20人左右，包括理论和实践等各方面专家。（3）以通信方式向各位选定专家发出调查表，征询意见。（4）对返回的意见进行归纳综合、定量统计分析后再寄给有关专家，如此往复，经过三、四轮意见比较集中后进行数据处理与综合得出结果。每一轮时间约7到10天，总共

Delphi操作Excel大全

1.往Excel中插入图片用MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+'temp.jpg'); 可以放图片 var ExcelApp,MyWorkBook,MsExcelWorkSheet,Temple1:Variant; begin try ExcelApp:=CreateOleObject('Excel.Application'); MyWorkBook:=CreateOleobject('Excel.Sheet'); MyWorkBook:=ExcelApp.WorkBooks.open(ExtractFilePath(ParamStr(0))+'testItemB ook.xls'); MsExcelWorkSheet:=MyWorkBook.WorkSheets['3']; if not ADOQueryItemBook.IsEmpty then begin Tblobfield(ADOQueryItemBook.FieldByName('pic')).SaveToFile(ExtractFilePat h(ParamStr(0))+'temp.jpg'); MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+'temp.jpg'); end; 提供一些Excel的操作方法，希望有点用处吧。一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿： ExcelApp.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 5) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值：

delphi操作excel

DEPHI操作EXCEL的例子 var Form1: TForm1; ExcelApp: Variant; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ExcelApp := CreateOleObject( …Excel.Application? ); end; procedure TForm1.Button1Click(Sender: TObject); begin//E xcelApp.WorkBooks.Open(…c:\1.xls? ); ExcelApp.WorkBooks.Open(ExtractFileDir(application.ExeName)+?\2.xls?); ExcelApp.Visible := True; end; procedure TForm1.Button2Click(Sender: TObject); begin excelapp.workbooks.close; end; procedure TForm1.Button3Click(Sender: TObject); begin ExcelApp.ActiveWorkBook.Sheets['Sheet2'].Select end;

procedure TForm1.Button4Click(Sender: TObject); begin excelapp.activeworkbook.sheets[edit1.Text].select; excelapp.activeworkbook.sheets[edit1.Text].range[edit2.Text].select; edit3.Text :=excelapp.ActiveCell.value; // 取公式excelapp.ActiveCell.FormulaR1C1 //取值excelapp.ActiveCell.value end; procedure TForm1.Button5Click(Sender: TObject); begin memo1.Clear; excelapp.activeworkbook.sheets[edit4.Text].select; excelapp.activeworkbook.sheets[edit4.Text].range[edit5.Text].select; memo1.Lines.Add(…字体:?+https://www.360docs.net/doc/8a4596747.html,); if not VarIsNull(excelapp.Selection.Font.size) then memo1.Lines.Add(…字号:?+inttostr(excelapp.Selection.Font.size)); memo1.Lines.Add(…字形:?+excelapp.Selection.Font.FontStyle); if not VarIsNull(excelapp.Selection.Font.Underline) then memo1.Lines.Add(…下划线:?+inttostr(excelapp.Selection.Font.Underline)); if not VarIsNull(excelapp.Selection.Font.ColorIndex) then memo1.Lines.Add(…字体颜色:?+inttostr(excelapp.Selection.Font.ColorIndex)); if