<?xml version="1.0" encoding="utf-8"?><?xml-stylesheet href='http://feed.feedsky.com/styles/feedsky0.xsl' type='text/xsl' ?><!--这是一个由Feedsy提供技术支持的Feed，为了提高读者阅读的体验，以及满足用户美化自己Feed的需要，我们设计了多种精美的Feed模板，提供给大家选择，所有最终呈现出来的样式，皆由用户自愿选择使用，未经许可，任何团体和个人，请不要擅自修改样式或者盗用，这是对于用户选择权的尊重。--><rss xmlns:atom="http://www.w3.org/2005/Atom" xmlns:fs="http://www.feedsky.com/namespace/feed" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/" version="2.0"><channel><atom:link href="http://feed.feedsky.com/excelperfect" type="application/rss+xml" rel="self"></atom:link><fs:self_link href="http://feed.feedsky.com/excelperfect" type="application/rss+xml"></fs:self_link><lastBuildDate>Sat, 27 Sep 2008 05:19:33 GMT</lastBuildDate><title>完美Excel</title><description>Excel资讯 技术 技巧 资源 应用 ...... 及其他技术</description><link>http://www.excelperfect.com</link><language>en</language><pubDate>Sat, 27 Sep 2008 05:19:33 GMT</pubDate><item><title>ActiveX:使用VBA在工作表中添加ActiveX控件</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504892/4068058/1/item.html</link><content:encoded>&lt;p&gt;要使用VBA从控件工具箱（ActiveX控件）中添加控件，可以使用OLEObjects集合的Add方法。该方法包含有大量的参数，包括ClassType、Top、Left、Width和Height等。其中，ClassType参数代表的一些常见的ActiveX控件的名称如下：&lt;br /&gt;
Forms.Checkbox.1（复选框）&lt;br /&gt;
Forms.Combobox.1（组合框）&lt;br /&gt;
Forms.Optionbutton.1（选项按钮）&lt;br /&gt;
Forms.Textbox.1（文本框）&lt;br /&gt;
Forms.Listbox.1（列表框）&lt;br /&gt;
Forms.Commandbutton.1（命令按钮）&lt;br /&gt;
下面举一个例子，提供一些思路，并供探讨。如下图所示，要求在每项工作前面都添加复选框，并且当用户选中复选框后，自动隐藏该复选框所在的行。&lt;br /&gt;
&lt;a href='http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/addactivexcontrolcheckbox1.png' title='AddActiveXControlCheckbox1'&gt;&lt;img src='http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/addactivexcontrolcheckbox1.png' alt='AddActiveXControlCheckbox1' /&gt;&lt;/a&gt;&lt;br /&gt;
下面的代码用来添加复选框：&lt;br /&gt;
&lt;font face=Courier New&gt;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Sub&lt;/SPAN&gt; RefreshList()&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Dim&lt;/SPAN&gt; oCheck &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; OLEObject&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Dim&lt;/SPAN&gt; rCell &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; Range, rRange &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; Range&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Dim&lt;/SPAN&gt; lLastRow &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Long&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#007F00&quot;&gt;&amp;#8216;清除已经存在于工作表中的复选框&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;For&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Each&lt;/SPAN&gt; oCheck &lt;SPAN style=&quot;color:#00007F&quot;&gt;In&lt;/SPAN&gt; Sheet1.OLEObjects&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;oCheck.Delete&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Next&lt;/SPAN&gt; oCheck&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;lLastRow = Sheet1.Range(&amp;#8221;B&amp;#8221; &amp;#038; Cells.Rows.Count).End(xlUp).Row&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Set&lt;/SPAN&gt; rRange = Sheet1.Range(&amp;#8221;B2:B&amp;#8221; &amp;#038; lLastRow)&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;For&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Each&lt;/SPAN&gt; rCell &lt;SPAN style=&quot;color:#00007F&quot;&gt;In&lt;/SPAN&gt; rRange&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;rCell.RowHeight = 14&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;With&lt;/SPAN&gt; Sheet1.OLEObjects.Add(ClassType:=&amp;#8221;Forms.Checkbox.1&amp;#8243;, _&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160; Top:=rCell.Top, Left:=rCell.Offset(0, -1).Left, _&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160; Height:=rCell.Height, Width:=rCell.Offset(0, -1).Width)&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;.Object.Caption = &amp;#8220;&amp;#8221;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;.LinkedCell = rCell.Offset(0, -1).Address&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;.Object.Value = &lt;SPAN style=&quot;color:#00007F&quot;&gt;False&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;End&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;With&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Next&lt;/SPAN&gt; rCell&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160; &lt;br /&gt;&lt;SPAN style=&quot;color:#00007F&quot;&gt;End&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Sub&lt;/SPAN&gt;&lt;/FONT&gt;&lt;br /&gt;
上述代码首先删除工作表中所有已存在的复选框，因为本示例已知道工作表中无其他控件，所以直接删除，如果无法判断是否有其他控件而只需删除复选框，可以加上一个条件判断语句：&lt;br /&gt;
If TypeName(oCheck.Object)=”CheckBox” Then&lt;br /&gt;
这样，仅删除复选框。&lt;br /&gt;
然后，在确定数据范围后，在第一列添加复选框并设置了一些属性值以方便以后操作。这里，有一些通用的适合于其他控件的属性，也有一些专属于复选框的属性。&lt;br /&gt;
下面的代码用于隐藏复选框选中后的行：&lt;br /&gt;
&lt;font face=Courier New&gt;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Sub&lt;/SPAN&gt; HideRows()&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Dim&lt;/SPAN&gt; rCell &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; Range, rRange &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; Range&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Dim&lt;/SPAN&gt; lLastRow &lt;SPAN style=&quot;color:#00007F&quot;&gt;As&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Long&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;lLastRow = Sheet1.Range(&amp;#8221;B&amp;#8221; &amp;#038; Cells.Rows.Count).End(xlUp).Row&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Set&lt;/SPAN&gt; rRange = Sheet1.Range(&amp;#8221;B2:B&amp;#8221; &amp;#038; lLastRow)&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;For&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Each&lt;/SPAN&gt; rCell &lt;SPAN style=&quot;color:#00007F&quot;&gt;In&lt;/SPAN&gt; rRange&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;If&lt;/SPAN&gt; rCell.Offset(0, -1).Value &lt;SPAN style=&quot;color:#00007F&quot;&gt;Then&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;rCell.EntireRow.Hidden = &lt;SPAN style=&quot;color:#00007F&quot;&gt;True&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;End&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;If&lt;/SPAN&gt;&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;SPAN style=&quot;color:#00007F&quot;&gt;Next&lt;/SPAN&gt; rCell&lt;br /&gt;&amp;#160;&amp;#160;&amp;#160;&amp;#160;&lt;br /&gt;&lt;SPAN style=&quot;color:#00007F&quot;&gt;End&lt;/SPAN&gt; &lt;SPAN style=&quot;color:#00007F&quot;&gt;Sub&lt;/SPAN&gt;&lt;br /&gt;&lt;/FONT&gt;&lt;br /&gt;
上述代码遍历设定区域的每行并隐藏已复选的行。&lt;br /&gt;
&lt;a href='http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/addactivexcontrolcheckbox2.png' title='AddActiveXControlCheckbox2'&gt;&lt;img src='http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/addactivexcontrolcheckbox2.png' alt='AddActiveXControlCheckbox2' /&gt;&lt;/a&gt;&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=activex&quot; rel=&quot;tag&quot;&gt;ActiveX&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=checkbox&quot; rel=&quot;tag&quot;&gt;CheckBox&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=vba&quot; rel=&quot;tag&quot;&gt;VBA&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E5%A4%8D%E9%80%89%E6%A1%86&quot; rel=&quot;tag&quot;&gt;复选框&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;No related posts&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/27/addactivexcontrolcheckbox/feed/</wfw:commentRss><description>要使用VBA从控件工具箱（ActiveX控件）中添加控件，可以使用OLEObjects集合的Add方法。该方法包含有大量的参数，包括ClassType、Top、Left、Width和Height等。其中，ClassType参数代表的一些常见的ActiveX...</description><pubDate>Sat, 27 Sep 2008 13:19:33 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/27/addactivexcontrolcheckbox/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/27/addactivexcontrolcheckbox/</guid><dc:creator>excelperfect</dc:creator><dc:subject>复选框</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/27/addactivexcontrolcheckbox/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504892/4068058</fs:itemid></item><item><title>在用户窗体中查看满足条件的记录</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504893/4068058/1/item.html</link><content:encoded>&lt;p&gt;在《&lt;a href=&quot;http://www.excelperfect.com/2008/09/06/linkuserformandworksheet/&quot; target=&quot;_blank&quot;&gt;&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;链接用户窗体与工作表&lt;/strong&gt;&lt;/font&gt;&lt;/a&gt;》及《&lt;a href=&quot;http://www.excelperfect.com/2008/09/20/linkuserformandworksheets/&quot; target=&quot;_blank&quot;&gt;&lt;strong&gt;&lt;font color=&quot;#0000ff&quot;&gt;链接用户窗体与工作表（续）&lt;/font&gt;&lt;/strong&gt;&lt;/a&gt;》中曾介绍了在用户窗体中显示工作表中的数据的方法。这里，介绍另一种情况，即在用户窗体中查看满足特定条件的记录。如下图所示，表中姓名为张三的共三条记录，在姓名右侧文本框输入后，自动显示第1条记录，可以单击前一条和后一条按钮来回显示记录。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/viewrangedatainuserform.png&quot; title=&quot;ViewRangeDataInUserForm&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/viewrangedatainuserform.png&quot; alt=&quot;ViewRangeDataInUserForm&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
首先使用Find方法建立想要显示的记录区域，然后使用Property Set语句创建的自定义属性将记录区域传递给用户窗体。要确保记录区域的引用与工作表中出现的顺序相同，在Find方法中使用了After参数并将其值设置为搜索区域的最后一个单元格，这样Find方法将从单元格区域的第一个单元格开始搜索。&lt;br /&gt;
将用户窗体命名为UPos，其中的一些控件及其名称为：姓名文本框（txtName）、工作内容文本框（txtWork）、共有记录的文本框（txtY）、第几条记录的文本框（txtX）、前一条按钮（cmdPrev）、后一条按钮（cmdNext）。&lt;br /&gt;
在标准模块中输入下列代码：&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; ShowPos()&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; ufPos &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; UPos &lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;用户窗体变量&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; rFound &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range &lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;存储当前找到的单元格&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; rNameRange &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range &lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;要搜索的单元格区域&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; sFirstAdd &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;String&lt;/span&gt; &lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;第一个被找到的单元格的地址&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; rAllFound &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range &lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;所有找到的单元格&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;从用户处获取数据,这里为了介绍方便采用了硬编码&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Const&lt;/span&gt; strName &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;String&lt;/span&gt; = &amp;#8220;张三&amp;#8221;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;Set&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; rNameRange = Sheet1.Range(&amp;#8221;A2:A8&amp;#8243;)&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;查找&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; rFound = rNameRange.Find(strName, rNameRange(rNameRange.Cells.Count), xlValues, xlWhole)&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;如果找到&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Not&lt;/span&gt; rFound &lt;span style=&quot;color: #00007f&quot;&gt;Is&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Nothing&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;存储第一个找到的单元格的地址&lt;/span&gt;&lt;br /&gt;
sFirstAdd = rFound.Address&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;添加找到的单元格到所有找到的单元格区域中&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; rAllFound = rFound&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;继续查找直到循环到开始处为止&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Do&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; rFound = rNameRange.FindNext(rFound)&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; rFound.Address &amp;lt;&amp;gt; sFirstAdd &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; rAllFound = Union(rAllFound, rFound)&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Loop&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Until&lt;/span&gt; rFound.Address = sFirstAdd&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;创建用户窗体&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; ufPos = &lt;span style=&quot;color: #00007f&quot;&gt;New&lt;/span&gt; UPos&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;传递单元格区域到用户窗体&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; ufPos.AllFound = rAllFound&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Courier&quot;&gt;ufPos.Initialize&lt;br /&gt;
ufPos.Show&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
MsgBox &amp;#8220;没有找到匹配的数据!&amp;#8221;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;Set&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; ufPos = &lt;span style=&quot;color: #00007f&quot;&gt;Nothing&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;End&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;br /&gt;
&lt;/font&gt;&lt;br /&gt;
在用户窗体模块中，声明一些模块级的变量来包含传递的区域以及当前显示的区域。&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; mrAllFound &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; mrCurrent &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;Property&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; AllFound(RHS &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range)&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; mrAllFound = RHS&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Property&lt;/span&gt;&lt;br /&gt;
&lt;/font&gt;&lt;br /&gt;
在显示用户窗体之前，要初始化该窗体，将查找到的第一条记录填充窗体中的相应控件。&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Public&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; Initialize()&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;设置当前记录为第一条记录&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Not&lt;/span&gt; mrAllFound &lt;span style=&quot;color: #00007f&quot;&gt;Is&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Nothing&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; mrCurrent = mrAllFound(1)&lt;br /&gt;
Me.txtName.Text = mrCurrent.Value&lt;br /&gt;
Me.txtWork.Text = mrCurrent.Next.Value&lt;br /&gt;
Me.txtY.Text = mrAllFound.Cells.Count&lt;br /&gt;
Me.txtX.Text = 1&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;br /&gt;
前一条按钮和后一条按钮使用FindPrevious方法和FindNext方法将记录移动到合适的位置。&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; cmdNext_Click()&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;设置当前单元格&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; mrCurrent = mrAllFound.FindNext(mrCurrent)&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Courier&quot;&gt;Me.txtName.Text = mrCurrent.Value&lt;br /&gt;
Me.txtWork.Text = mrCurrent.Next.Value&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;&amp;#8216;增加计数器值&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;br /&gt;
Me.txtX.Text = Me.txtX.Text + 1&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;Private&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; cmdPrev_Click()&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; mrCurrent = mrAllFound.FindPrevious(mrCurrent)&lt;br /&gt;
Me.txtName.Text = mrCurrent.Value&lt;br /&gt;
Me.txtWork.Text = mrCurrent.Next.Value&lt;br /&gt;
Me.txtX.Text = Me.txtX.Text - 1&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;br /&gt;
最后，当第几条文本框中的值变化时，启用或禁用按钮以便使得用户不能试图到达不存在的记录。&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; txtX_Change()&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;启用/禁用按钮&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; Me.txtX.Text = 1 &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
Me.cmdPrev.Enabled = &lt;span style=&quot;color: #00007f&quot;&gt;False&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
Me.cmdPrev.Enabled = &lt;span style=&quot;color: #00007f&quot;&gt;True&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #00007f&quot;&gt;&lt;font face=&quot;Courier&quot;&gt;If&lt;/font&gt;&lt;/span&gt;&lt;font face=&quot;Courier&quot;&gt; Me.txtX.Text = Me.txtY.Text &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
Me.cmdNext.Enabled = &lt;span style=&quot;color: #00007f&quot;&gt;False&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
Me.cmdNext.Enabled = &lt;span style=&quot;color: #00007f&quot;&gt;True&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;br /&gt;
注：本文整理自Dick的博客，稍作修改，供参考。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E7%94%A8%E6%88%B7%E7%AA%97%E4%BD%93&quot; rel=&quot;tag&quot;&gt;用户窗体&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=userform&quot; rel=&quot;tag&quot;&gt;Userform&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=vba&quot; rel=&quot;tag&quot;&gt;VBA&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=worksheet&quot; rel=&quot;tag&quot;&gt;Worksheet&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;No related posts&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/23/viewdatainuserform/feed/</wfw:commentRss><description>在《链接用户窗体与工作表》及《链接用户窗体与工作表（续）》中曾介绍了在用户窗体中显示工作表中的数据的方法。这里，介绍另一种情况，即在用户窗体中查看满足特定条件的记录。如...</description><pubDate>Tue, 23 Sep 2008 12:56:52 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/23/viewdatainuserform/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/23/viewdatainuserform/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel/VBA技巧</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/23/viewdatainuserform/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504893/4068058</fs:itemid></item><item><title>使用VBA在用户窗体中添加菜单栏</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504894/4068058/1/item.html</link><content:encoded>&lt;p&gt;与VB不同，在VBA中，没有为用户窗体提供菜单生成器，因此不能简单地在用户窗体中创建菜单栏。下面是在Dick的博客中找到的例子，辑录于此，供以后参考。如下图所示，在用户窗体中添加菜单栏。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/menuinuserform.png&quot; title=&quot;MenuInUserForm&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/menuinuserform.png&quot; alt=&quot;MenuInUserForm&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
当然，也可以在显示时将用户窗体定位到与Excel工作表的界面相同，利用Excel的菜单栏充当用户窗体的菜单，这也是实现方法之一。&lt;br /&gt;
不过，VBA没有为用户窗体提供菜单生成器，我想还是设计者考虑到VBA内嵌于已有的应用程序软件中，因此无须再设计复杂的菜单栏了。&lt;br /&gt;
下载示例，请单击这里：&lt;font color=&quot;#0000ff&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/UserFormMenu.rar&quot; target=&quot;_blank&quot;&gt;UserFormMenu.xls&lt;/a&gt;&lt;/font&gt;。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E7%94%A8%E6%88%B7%E7%AA%97%E4%BD%93&quot; rel=&quot;tag&quot;&gt;用户窗体&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E8%8F%9C%E5%8D%95%E6%A0%8F&quot; rel=&quot;tag&quot;&gt;菜单栏&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=userform&quot; rel=&quot;tag&quot;&gt;Userform&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;No related posts&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/21/menuinuserform/feed/</wfw:commentRss><description>与VB不同，在VBA中，没有为用户窗体提供菜单生成器，因此不能简单地在用户窗体中创建菜单栏。下面是在Dick的博客中找到的例子，辑录于此，供以后参考。如下图所示，在用户窗体中添加菜...</description><pubDate>Sun, 21 Sep 2008 21:34:12 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/21/menuinuserform/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/21/menuinuserform/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel/VBA技巧</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/21/menuinuserform/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504894/4068058</fs:itemid></item><item><title>链接用户窗体与工作表(续)</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504895/4068058/1/item.html</link><content:encoded>&lt;p&gt;本文是《&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/09/06/linkuserformandworksheet/&quot; target=&quot;_blank&quot;&gt;链接用户窗体与工作表&lt;/a&gt;&lt;/strong&gt;&lt;/font&gt;》一文的续篇，在阅读本文之前，请先阅读《&lt;a href=&quot;http://www.excelperfect.com/2008/09/06/linkuserformandworksheet/&quot; target=&quot;_blank&quot;&gt;&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;链接用户窗体与工作表&lt;/strong&gt;&lt;/font&gt;&lt;/a&gt;》。&lt;br /&gt;
现在，我们需要使该用户窗体在原有功能的基础上增加搜索功能。当选择字段并输入相应的数据后，能搜索到记录并显示在用户窗体中，如图4所示。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/linkuserformandworksheet4.png&quot; title=&quot;LinkUserformAndWorksheet4&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/linkuserformandworksheet4.png&quot; alt=&quot;LinkUserformAndWorksheet4&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图4：在用户窗体中增加搜索功能&lt;br /&gt;
在原窗体中添加一个框架，在框架内添加组合框、文本框和命令按钮，各控件的名称和Tag属性如下：&lt;br /&gt;
名称（Tag属性）&lt;br /&gt;
frmFind()&lt;br /&gt;
cmbFind()&lt;br /&gt;
txtFind()&lt;br /&gt;
cmdFind(tgFind)&lt;br /&gt;
其中，括号内为空表明没有设置该控件的Tag属性。&lt;br /&gt;
为了使用户能搜索任一字段，因此添加了组合框cmbFind。用户可以首先从中选择要搜索的字段，然后在右侧的文本框中输入要搜索数据的全部或部分内容，最后当单击查找按钮后在下方显示该条记录的信息。&lt;br /&gt;
要填充组合框，在用户窗体的初始化事件Initialize的代码中添加下列语句：&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;Me.cmbFind.List = Application.Transpose(wksContacts.Range(&amp;#8221;ColHeads&amp;#8221;).Value)&lt;/font&gt;&lt;br /&gt;
其中，ColHeads为工作表中标题行区域的名称。此时，在将该名称区域的数据放置到组合框之前，需要将列数据转置为行数据。&lt;br /&gt;
接下来，确保查找按钮处于禁用状态，直到在组合框和文本框中含有相应的数据。因此，添加了两个事件过程和一个启用/禁用按钮控件的过程。代码如下：&lt;br /&gt;
&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; cmbFind_Change()&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;如果用户已选择组合框中的项目或者在文本框中输入内容&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;那么启用查找按钮&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; Me.cmbFind.ListIndex &amp;gt; -1 And Len(Me.txtFind.Text) &amp;gt; 0 &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
EnableControls &amp;#8220;tgFind&amp;#8221;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
EnableControls &amp;#8220;tgFind&amp;#8221;, &lt;span style=&quot;color: #00007f&quot;&gt;True&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; txtFind_Change()&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; Me.cmbFind.ListIndex &amp;gt; -1 And Len(Me.txtFind.Text) &amp;gt; 0 &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
EnableControls &amp;#8220;tgFind&amp;#8221;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
EnableControls &amp;#8220;tgFind&amp;#8221;, &lt;span style=&quot;color: #00007f&quot;&gt;True&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; EnableControls(sTag &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;String&lt;/span&gt;, _&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Optional&lt;/span&gt; bDisable &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Boolean&lt;/span&gt; = &lt;span style=&quot;color: #00007f&quot;&gt;False&lt;/span&gt;)&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; ctl &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Control&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;For&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Each&lt;/span&gt; ctl &lt;span style=&quot;color: #00007f&quot;&gt;In&lt;/span&gt; Me.Controls&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; ctl.Tag = sTag &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
ctl.Enabled = &lt;span style=&quot;color: #00007f&quot;&gt;Not&lt;/span&gt; bDisable&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Next&lt;/span&gt; ctl&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;查找按钮cmdFind的代码如下：&lt;/p&gt;
&lt;p&gt;&lt;font face=&quot;Courier&quot;&gt;&lt;span style=&quot;color: #00007f&quot;&gt;Private&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt; cmdFind_Click()&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; lCol &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Long&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Dim&lt;/span&gt; rFound &lt;span style=&quot;color: #00007f&quot;&gt;As&lt;/span&gt; Range&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;因为组合框的ListIndex属性起始值为0,因此加1以确定搜索列&lt;/span&gt;&lt;br /&gt;
lCol = Me.cmbFind.ListIndex + 1&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;查找包含文本框中文本的第一个单元格&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;Lookat参数的值为xlPart表明不需要完全匹配&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Set&lt;/span&gt; rFound = wksContacts.Columns(lCol).Find(What:=Me.txtFind.Text, _&lt;br /&gt;
LookIn:=xlValues, _&lt;br /&gt;
LookAt:=xlPart)&lt;/p&gt;
&lt;p&gt;&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;如果找到记录则改变滚动条到该记录&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #007f00&quot;&gt;&amp;#8216;否则显示一条新记录&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Not&lt;/span&gt; rFound &lt;span style=&quot;color: #00007f&quot;&gt;Is&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Nothing&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Then&lt;/span&gt;&lt;br /&gt;
Me.scbContact.Value = rFound.Row - 1&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;Else&lt;/span&gt;&lt;br /&gt;
Me.scbContact.Value = Me.scbContact.Max&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;If&lt;/span&gt;&lt;br /&gt;
&lt;span style=&quot;color: #00007f&quot;&gt;End&lt;/span&gt; &lt;span style=&quot;color: #00007f&quot;&gt;Sub&lt;/span&gt;&lt;/font&gt;&lt;/p&gt;
&lt;p&gt;至此，新增功能完成。当然，您可以按需要再添加其他功能，以丰富该窗体。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E7%94%A8%E6%88%B7%E7%AA%97%E4%BD%93&quot; rel=&quot;tag&quot;&gt;用户窗体&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=userform&quot; rel=&quot;tag&quot;&gt;Userform&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=vba&quot; rel=&quot;tag&quot;&gt;VBA&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=worksheet&quot; rel=&quot;tag&quot;&gt;Worksheet&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;No related posts&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/20/linkuserformandworksheets/feed/</wfw:commentRss><description>本文是《链接用户窗体与工作表》一文的续篇，在阅读本文之前，请先阅读《链接用户窗体与工作表》。
现在，我们需要使该用户窗体在原有功能的基础上增加搜索功能。当选择字段并输入相...</description><pubDate>Sat, 20 Sep 2008 15:37:50 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/20/linkuserformandworksheets/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/20/linkuserformandworksheets/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel/VBA技巧</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/20/linkuserformandworksheets/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504895/4068058</fs:itemid></item><item><title>ExcelPerfect一周岁了</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504896/4068058/1/item.html</link><content:encoded>&lt;p&gt;&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/wwwexcelperfectcom.gif&quot; title=&quot;ExcelPerfect&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/wwwexcelperfectcom.gif&quot; title=&quot;ExcelPerfect&quot; alt=&quot;ExcelPerfect&quot; align=&quot;left&quot; /&gt;&lt;/a&gt;ExcelPerfect一周岁了！&lt;br /&gt;
在这一年的时间里，利用ExcelPerfect这个平台，将自已在学习Excel过程中的所学、所得、所感都辑录于此，对自已来说，通过不断的总结归纳，从而提高自已的Excel应用水平，也为自已建立了一个资料库；对于访问ExcelPerfect的朋友来说，为他们在Excel方面的应用提供了参考，也为我们之间提供了交流平台。&lt;br /&gt;
下面是ExcelPerfect一年来的访问数据，分析一下，也激励自已写博客、分享知识和成果的兴趣。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect1.png&quot; title=&quot;Excelperfect1&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect1.png&quot; alt=&quot;Excelperfect1&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect2.png&quot; title=&quot;Excelperfect2&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect2.png&quot; alt=&quot;Excelperfect2&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect3.png&quot; title=&quot;Excelperfect3&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect3.png&quot; alt=&quot;Excelperfect3&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect4.png&quot; title=&quot;Excelperfect4&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/excelperfect4.png&quot; alt=&quot;Excelperfect4&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
在进入2008年9月之后，访问量年创新高，其中9月11日的访问量数据为：&lt;br /&gt;
PV访问量：1403&lt;br /&gt;
独立访问：852&lt;br /&gt;
唯一IP：847&lt;br /&gt;
并且经常同时在线20人以上。&lt;br /&gt;
当然，这些数据和大多数网站相比较起来，可能很不起眼，并且很多人可能会说：这算什么，还敢拿出来。不过，我不这么认为。这些数据对我来说，是对我坚持分享的一种肯定，给了我继续坚持的动力。也让我看到了，虽然我建立的这个平台还很小，但她确确实实已帮助了不少的人，而且正在帮助很多使用和热爱Excel的朋友。&lt;br /&gt;
这依然是一个与大家分享的平台，我希望有今后的日子里，我能够坚持下去，并且能够做得更好！&lt;br /&gt;
为自已加油！&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=excelperfect&quot; rel=&quot;tag&quot;&gt;ExcelPerfect&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E5%AE%8C%E7%BE%8Eexcel&quot; rel=&quot;tag&quot;&gt;完美Excel&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/09/10/excelconditionalformat2/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel的条件格式技术(2)&quot; &gt;Excel的条件格式技术(2)&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;本文接着Excel的条件格式技术（1），再给大家进一步介绍Excel条件格式的强�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/09/15/excelconditionalformat3/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel的条件格式技术(3)&quot; &gt;Excel的条件格式技术(3)&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;Excel的条件格式技术前面的文章链接：

	Excel的条件格式技术(1)
	Excel的条�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/28/excelmenuandtoolbar1/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel菜单和工具栏概要(1)&quot; &gt;Excel菜单和工具栏概要(1)&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;1 概述
在开始本文之前，先介绍几个常用的概念。
1.1 菜单栏。Excel有两种�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/08/08/livetranslatorinoffice/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Microsoft Office文件翻译集成Live Translator&quot; &gt;Microsoft Office文件翻译集成Live Translator&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/07/10/excel3dengineer/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 革命性的3D引擎——Microsoft Excel&quot; &gt;革命性的3D引擎——Microsoft Excel&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/15/excelperfectbirthday/feed/</wfw:commentRss><description>ExcelPerfect一周岁了！
在这一年的时间里，利用ExcelPerfect这个平台，将自已在学习Excel过程中的所学、所得、所感都辑录于此，对自已来说，通过不断的总结归纳，从而提高自已的Excel应用水平，...</description><pubDate>Mon, 15 Sep 2008 19:48:57 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/15/excelperfectbirthday/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/15/excelperfectbirthday/</guid><dc:creator>excelperfect</dc:creator><dc:subject>感受&amp;杂想</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/15/excelperfectbirthday/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504896/4068058</fs:itemid></item><item><title>Excel的条件格式技术(3)</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504897/4068058/1/item.html</link><content:encoded>&lt;p&gt;Excel的条件格式技术前面的文章链接：&lt;/p&gt;
&lt;ul&gt;
&lt;li&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/08/28/excelconditionformat1/&quot; target=&quot;_blank&quot;&gt;Excel的条件格式技术(1&lt;/a&gt;)&lt;/li&gt;
&lt;li&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/09/10/excelconditionalformat2/&quot; target=&quot;_blank&quot;&gt;Excel的条件格式技术(2)&lt;/a&gt;&lt;/li&gt;
&lt;/ul&gt;
&lt;p&gt;本文的内容：近期在进行造价工程师考试的复习，其中有许多内容涉及到关于进度图表的，联想到Excel很方便制作这样的图表。这里，先使用条件格式来简单制作这样的图表，以后的文章将有专门使用Excel图表技术制作进度图（甘特图）的内容。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;示例3：绘制进度图表&lt;/font&gt;&lt;br /&gt;
灵活使用Excel的条件格式，可以绘制简单的工作进度图表。例如，要绘制如图12所示的进度图，其中开始和结束分别代表项目开始和结束的周。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart.png&quot; title=&quot;ConditionalFormatByGanttChart&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart.png&quot; alt=&quot;ConditionalFormatByGanttChart&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图12：完成后的进度图效果。在项目之间增加了空行，使图示更清晰。&lt;br /&gt;
完成图12的步骤如下：&lt;br /&gt;
第1步：在工作表中输入数据，并进行相应的格式化操作。&lt;br /&gt;
第2步：选择单元格区域D3：O15，单击“格式——条件格式”。&lt;br /&gt;
第3步：在“条件格式”对话框中选择“公式”并输入下列公式：&lt;br /&gt;
=AND(D$2&amp;gt;=$B3,D$2&amp;lt;=$C3)&lt;br /&gt;
然后，单击“格式”按钮，应用相应的格式，如图13所示。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart1.png&quot; title=&quot;ConditionalFormatByGanttChart1&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart1.png&quot; alt=&quot;ConditionalFormatByGanttChart1&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图13：设置条件格式&lt;br /&gt;
单击“确定”按钮后，完成最终的进度图如图12所示。此时，如果在工作表中更改开始和结束时间，进度条会相应的更改。&lt;br /&gt;
如果需要为不同项目的进度条应用不同的格式或颜色，则需要使用Excel 2007。在Excel 2007中提供了更为丰富的条件格式选择和更优美的界面，我们将详细探讨。这里，利用Excel 2007，为图12所示的进度图制作更丰富的效果。最终效果如图14所示。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart3.png&quot; title=&quot;ConditionalFormatByGanttChart3&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart3.png&quot; alt=&quot;ConditionalFormatByGanttChart3&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图14：设置具有不同颜色的进度条&lt;br /&gt;
完成图14的步骤如下：&lt;br /&gt;
第1步：在Excel 2007工作表中输入数据，并进行相应的格式化操作。&lt;br /&gt;
第2步：选择单元格区域D3：O3。在“开始”选项卡中选择“条件格式——管理规则”，打开“条件格式规则管理器”对话框。单击“新建规则”按钮，打开“新建格式规则”对话框。选择“使用公式确定要设置格式的单元格”，在“为符合此公式的值设置格式”中输入公式：&lt;br /&gt;
=AND($B3&amp;lt;=D$2,$C3&amp;gt;=D$2)&lt;br /&gt;
单击“格式”按钮，在“填充”选项卡中选择红色，单击“确定”按钮关闭“设置单元格格式”对话框。单击“确定”按钮关闭“新建格式规则”对话框，此时的对话框如图15所示。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart2.png&quot; title=&quot;ConditionalFormatByGanttChart2&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformatbyganttchart2.png&quot; alt=&quot;ConditionalFormatByGanttChart2&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图15：设置规则&lt;br /&gt;
第3步：对单元格区域D5：O5、D7：O7、D9：O9、D11：O11、D13：O13、D15：O15分别重复第2步的操作。但是，在输入公式时要针对具体的行进行修改，并对格式填充颜色进行相应的更改。&lt;br /&gt;
完成后的进度图如图14所示。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=excel&quot; rel=&quot;tag&quot;&gt;Excel&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E6%9D%A1%E4%BB%B6%E6%A0%BC%E5%BC%8F&quot; rel=&quot;tag&quot;&gt;条件格式&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/12/14/introexcelapplyallcontent/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 《Excel应用大全》双目录一览&quot; &gt;《Excel应用大全》双目录一览&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;在EH中已公布了《Excel应用大全》一书的目录，让我们先睹为快。
该书开创�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/01/17/excelsafe111111/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 发现安全漏洞 可远程安插恶意代码&quot; &gt;Excel 发现安全漏洞 可远程安插恶意代码&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;刚在CB上看到的一篇文章，辑录于此。
微软于周二发布了一个安全警告，称&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/01/excelservicesbookinfo/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 关于Excel Services的图书信息&quot; &gt;关于Excel Services的图书信息&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;下面介绍两本由Excel Services团队编著的两本图书。文章参考：Microsoft Excel和Ex&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/26/excel2007fileformat/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的新文件格式&quot; &gt;Excel 2007中的新文件格式&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/27/excel2007calcissue/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的计算问题&quot; &gt;Excel 2007中的计算问题&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/15/excelconditionalformat3/feed/</wfw:commentRss><description>Excel的条件格式技术前面的文章链接：

Excel的条件格式技术(1)
Excel的条件格式技术(2)

本文的内容：近期在进行造价工程师考试的复习，其中有许多内容涉及到关于进度图表的，联想到Excel很方...</description><pubDate>Mon, 15 Sep 2008 14:04:52 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/15/excelconditionalformat3/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/15/excelconditionalformat3/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel高级操作</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/15/excelconditionalformat3/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504897/4068058</fs:itemid></item><item><title>有趣的Excel图表——气泡图</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504898/4068058/1/item.html</link><content:encoded>&lt;p&gt;下面的例子来源于John Walkenbach的《Excel 2007 Bible》，用气泡图绘制了一只老鼠的脸，非常的有趣。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/bubblechartmouse.png&quot; title=&quot;BubbleChartMouse&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/bubblechartmouse.png&quot; alt=&quot;BubbleChartMouse&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
在这里贴出来，让大家感受一下Excel图表的魅力。&lt;br /&gt;
当然，若有制作出这只老鼠脸，要不断地调整表中的数据和气泡大小，且要调整颜色，才能达到良好的效果，还是要一番功夫的哟！&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=excel%E5%9B%BE%E8%A1%A8&quot; rel=&quot;tag&quot;&gt;Excel图表&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E6%B0%94%E6%B3%A1%E5%9B%BE&quot; rel=&quot;tag&quot;&gt;气泡图&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/12/14/introexcelapplyallcontent/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 《Excel应用大全》双目录一览&quot; &gt;《Excel应用大全》双目录一览&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;在EH中已公布了《Excel应用大全》一书的目录，让我们先睹为快。
该书开创�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/01/17/excelsafe111111/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 发现安全漏洞 可远程安插恶意代码&quot; &gt;Excel 发现安全漏洞 可远程安插恶意代码&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;刚在CB上看到的一篇文章，辑录于此。
微软于周二发布了一个安全警告，称&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/01/excelservicesbookinfo/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 关于Excel Services的图书信息&quot; &gt;关于Excel Services的图书信息&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;下面介绍两本由Excel Services团队编著的两本图书。文章参考：Microsoft Excel和Ex&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/26/excel2007fileformat/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的新文件格式&quot; &gt;Excel 2007中的新文件格式&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/27/excel2007calcissue/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的计算问题&quot; &gt;Excel 2007中的计算问题&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/12/excelbubblechartmouse/feed/</wfw:commentRss><description>下面的例子来源于John Walkenbach的《Excel 2007 Bible》，用气泡图绘制了一只老鼠的脸，非常的有趣。

在这里贴出来，让大家感受一下Excel图表的魅力。
当然，若有制作出这只老鼠脸，要不断地调...</description><pubDate>Fri, 12 Sep 2008 13:47:49 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/12/excelbubblechartmouse/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/12/excelbubblechartmouse/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel图形与图表</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/12/excelbubblechartmouse/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504898/4068058</fs:itemid></item><item><title>Excel的条件格式技术(2)</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504899/4068058/1/item.html</link><content:encoded>&lt;p&gt;本文接着&lt;a href=&quot;http://www.excelperfect.com/2008/08/28/excelconditionformat1/&quot; target=&quot;_blank&quot;&gt;Excel的条件格式技术（1）&lt;/a&gt;，再给大家进一步介绍Excel条件格式的强大功能。&lt;br /&gt;
下面借用自已在学习中看到的关于条件格式的一些示例，对条件格式作进一步详细的介绍。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;示例1：标识包含文本的单元格&lt;/font&gt;&lt;br /&gt;
如图6所示，在单元格区域B2：C4中包含数字和文本，现在要对该区域中的文本应用特定的格式，以标识包含文本的单元格。选择B2：C4，单击“格式─—条件格式”，在“条件格式”对话框最左侧的组合框中选择“公式”，在右侧输入公式“=ISTEXT(B2)”，单击“格式”，设置字体为粗体，底纹为灰色。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformat5.png&quot; title=&quot;DiffData0&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/conditionalformat5.png&quot; alt=&quot;DiffData0&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图6：对包含文本的单元格应用格式&lt;br /&gt;
如果要对不同的单元格区域应用该条件格式，那么ISTEXT函数的参数应该是该区域左上角的单元格。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;示例2：标识两个列表中不相同的数据&lt;/font&gt;&lt;br /&gt;
有时，要比较两个列表区域中的不同数据，并将该数据所在的单元格标识出来。如图7所示，有两个列表区域A1：B12和D1：E12，现在要求找出区域D1：E12中与区域A1：B12有不同数据的单元格并在该单元格中标记为红色底纹。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata1.png&quot; title=&quot;DiffData1&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata1.png&quot; alt=&quot;DiffData1&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图7：需要比较的两个列表区域&lt;br /&gt;
现在，按下列步骤来完成上述要求：&lt;br /&gt;
第1步：将单元格区域A2：B12命名为OldData。&lt;br /&gt;
第2步：选择单元格区域D2：E12，单击菜单“格式——条件格式”。&lt;br /&gt;
第3步：在“条件格式”对话框中，在“条件”组合框中选择“公式”，在右侧框中输入公式“=COUNTIF(OldData,D2)=0”。单击“格式”按钮，在弹出的对话框中选择图案为红色，如图8所示。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata2.png&quot; title=&quot;DiffData2&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata2.png&quot; alt=&quot;DiffData2&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图8：设置条件格式&lt;br /&gt;
第4步：单击“确定”按钮，此时如图9所示，该列表中与左侧列表含有不同的数据的单元格被标上红色底纹。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata3.png&quot; title=&quot;DiffData3&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata3.png&quot; alt=&quot;DiffData3&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图9：条件格式应用后，标识出不同的单元格&lt;br /&gt;
有时，可能列表在不同的单元格，如图10所示，要找出工作表Sheet2中与区域OldData中不同的数据单元格。与上述步骤3相同，选择工作表Sheet2中的单元格区域A2:B12，调出“条件格式”对话框，并作如图10所示的设置。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata4.png&quot; title=&quot;DiffData4&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata4.png&quot; alt=&quot;DiffData4&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图10：选择区域A2：B12，设置条件格式&lt;br /&gt;
单击“确定”按钮后，效果如图11所示，标识出了与工作表Sheet1中区域OldData不同的数据。这也充分展示了定义名称的好处。&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata5.png&quot; title=&quot;DiffData5&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/differentdata5.png&quot; alt=&quot;DiffData5&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
图11：应用条件格式后，为与OldData区域不同的数据单元格标上底纹&lt;br /&gt;
当然，本示例只是演示，数据很少。如果要比较大量的数据，光凭人工查找核对，费时费力且易出错，通过应用条件格式，将能够很快达到要求。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=excel&quot; rel=&quot;tag&quot;&gt;Excel&lt;/a&gt;, &lt;a href=&quot;http://www.excelperfect.com/index.php?tag=%E6%9D%A1%E4%BB%B6%E6%A0%BC%E5%BC%8F&quot; rel=&quot;tag&quot;&gt;条件格式&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/12/14/introexcelapplyallcontent/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 《Excel应用大全》双目录一览&quot; &gt;《Excel应用大全》双目录一览&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;在EH中已公布了《Excel应用大全》一书的目录，让我们先睹为快。
该书开创�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/01/17/excelsafe111111/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 发现安全漏洞 可远程安插恶意代码&quot; &gt;Excel 发现安全漏洞 可远程安插恶意代码&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;刚在CB上看到的一篇文章，辑录于此。
微软于周二发布了一个安全警告，称&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/01/excelservicesbookinfo/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 关于Excel Services的图书信息&quot; &gt;关于Excel Services的图书信息&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;下面介绍两本由Excel Services团队编著的两本图书。文章参考：Microsoft Excel和Ex&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/26/excel2007fileformat/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的新文件格式&quot; &gt;Excel 2007中的新文件格式&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/27/excel2007calcissue/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的计算问题&quot; &gt;Excel 2007中的计算问题&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/10/excelconditionalformat2/feed/</wfw:commentRss><description>本文接着Excel的条件格式技术（1），再给大家进一步介绍Excel条件格式的强大功能。
下面借用自已在学习中看到的关于条件格式的一些示例，对条件格式作进一步详细的介绍。
示例1：标识包含...</description><pubDate>Wed, 10 Sep 2008 19:41:45 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/10/excelconditionalformat2/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/10/excelconditionalformat2/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel/VBA技巧</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/10/excelconditionalformat2/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504899/4068058</fs:itemid></item><item><title>Excel图表类型及使用</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504900/4068058/1/item.html</link><content:encoded>&lt;p&gt;&lt;font color=&quot;#0000ff&quot;&gt;引言：记得曾经有朋友问过：Excel各种类型的图表适合在什么情形下使用？虽然我平时不常使用图表，但碰巧看过人民邮电出版社出版过的两本书：《Excel 2007图表完全剖析》和《PPT演示之道》，其中谈到过常用图表类型的适用情形，特将这些内容归纳于此，供有兴趣的朋友参考。更详细的内容大家可以阅读这两本书。同时，大家也可以共同探讨，根据自已使用图表的经验，谈谈什么情形下适用什么图表类型。&lt;/font&gt;&lt;br /&gt;
Excel提供了11种类型的图表，其中又含有73种图表子类型。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;柱形图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/columnchart.png&quot; title=&quot;columnChart&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/columnchart.png&quot; alt=&quot;columnChart&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
经常用于表示以行和列排列的数据。对于显示随时间的变化很有用。最常用的布局是将信息类型放在横坐标轴上，将数值项放在纵坐标轴上。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;折线图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/zxt.PNG&quot; title=&quot;ZXT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/zxt.PNG&quot; alt=&quot;ZXT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
与柱形图类似，也可以很好地显示在工作表中以行和列排列的数据。区别在于折线图可以显示一段时间内连续的数据，特别用于显示趋势。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;饼图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/piecharts.png&quot; title=&quot;PieCharts&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/piecharts.png&quot; alt=&quot;PieCharts&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
适合于显示个体与整体的比例关系。显示数据系列相对于总量的比例，每个扇区显示其占总体的百分比，所有扇区百分数的总和为100%。在创建饼图时，可以将饼图的一部分拉出来与饼图分离，以更清晰地表达其效果。&lt;br /&gt;
下列图表类型是用于比较组分的有效图表：&lt;br /&gt;
（1）饼图适合用于比较2～5个组分。&lt;br /&gt;
（2）复合饼图适合用于比较6～10个组分。&lt;br /&gt;
（3）复合条饼图可处理6～15个组分。&lt;br /&gt;
（4）如果有两个或多个饼图，应使用百分比堆积柱形图。百分比堆积条形图、百分比堆积折线图以及百分比堆积面积图都是由百分比堆积柱形图衍变而来的。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;条形图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/txt.PNG&quot; title=&quot;TXT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/txt.PNG&quot; alt=&quot;TXT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
对于比较两个或多个项之间的差异很有用。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;面积图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/mjt.PNG&quot; title=&quot;MJT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/mjt.PNG&quot; alt=&quot;MJT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
面积图是以阴影或颜色填充折线下方区域的折线图，适用于要突出部分时间系列时，特别适合于显示随时间改变的量。如果只有几个数据点，添加垂直线有助于读者分辨每个时期的实际值。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;XY（散点）图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/xyscatte.png&quot; title=&quot;XYScatte&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/xyscatte.png&quot; alt=&quot;XYScatte&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
适合于表示表格中数值之间的关系，常用于统计与科学数据的显示。特别适合用于比较两个可能互相关联的变量。虽然散点图可用于大型数据集，但其缺陷是，如果不使用VBA或插件，将很难给点加上标签。如果数据集较小，可使用成对的条形图来显示相同的信息，这种图表可添加标签，让读者能够看出哪些记录与其他记录不符。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;气泡图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/qpt.PNG&quot; title=&quot;QPT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/qpt.PNG&quot; alt=&quot;QPT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
与散点图相似，但气泡图不常用且通常不易理解。气泡图是一种特殊的XY散点图，可显示3个变量的关系。气泡图最适合用于较小的数据集。&lt;br /&gt;
气泡图给XY散点图中的每个点添加一些信息，在气泡图中标记的大小将随第三个数据点而异。数据集很稀疏时，使用气泡图最合适。如果图表包含的数据点太多，气泡将导致图表很难看懂。&lt;br /&gt;
散点图与气泡图都能够显示两三个不同的变量之间的关系。创建数据时要小心，散点可显示两个变量之间是否存在着关系，而气泡图有一项独特功能，即能够提供第三维数据。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;股价图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/gjt.PNG&quot; title=&quot;GJT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/gjt.PNG&quot; alt=&quot;GJT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
常用于显示股票市场的波动，可使用它显示特定股票的最高价/最低价与收盘价。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;曲面图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/qmt.PNG&quot; title=&quot;QMT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/qmt.PNG&quot; alt=&quot;QMT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
适合于显示两组数据的最优组合，但难以阅读。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;圆环图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/yht.PNG&quot; title=&quot;YHT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/yht.PNG&quot; alt=&quot;YHT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
与饼图一样，圆环图显示整体中各部分的关系。但与饼图不同的是，它能够绘制超过一列或一行的数据。圆环图不容易阅读。&lt;br /&gt;
圆环图是一种奇怪的图表，有时可用于比较两个饼图，但通常百分比堆积柱形图更适合这种比较。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;&lt;strong&gt;雷达图&lt;/strong&gt;&lt;/font&gt;&lt;br /&gt;
&lt;a href=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/ldt.PNG&quot; title=&quot;LDT&quot;&gt;&lt;img src=&quot;http://www.excelperfect.com/wordpress/wp-content/uploads/2008/09/ldt.PNG&quot; alt=&quot;LDT&quot; /&gt;&lt;/a&gt;&lt;br /&gt;
可用于对比表格中多个数据系列的总计，很适合用于进行绩效评估，但不太常用。雷达图可显示4～6个变量之间的关系。&lt;br /&gt;
雷达图用于显示个人或公司在几个方面的表现，下面是一些典型的用法。&lt;br /&gt;
（1）员工绩效评价。例如，经理可能用1～5分评价员工在效率、准确性、时间观念等方面的表现。虽然这些数据可使用表格来表示，但使用雷达图表示更有趣。&lt;br /&gt;
（2）客户满意度。例如，营销经理可使用雷达图总结客户满意度调查结果。此时，应使用一行显示客户在速度、准确性和价值等几个方面的满意度。&lt;br /&gt;
&lt;font color=&quot;#0000ff&quot;&gt;- - - - - - - - - - - - - - - - - - -&lt;/font&gt;&lt;br /&gt;
只能混合使用某些图表类型。混合使用图表类型时，为获得最佳效果，建议遵循下列原则：&lt;br /&gt;
（1）应总是使用二维图表类型，Excel不允许混合使用三维图表。&lt;br /&gt;
（2）在二维类型中，应只混合使用簇状图表类型。&lt;br /&gt;
（3）不能混合使用水平图表和垂直图表。柱形、折线与面积图应放在一起，条形图不能与它们混合。&lt;br /&gt;
（4）可以混合使用圆形图表。&lt;br /&gt;
（5）在大部分情况下，折线图可改为带直线的XY散点图。&lt;/p&gt;
&lt;p&gt;当然，图表类型的选择要结合实际要表达的意图。其最终目的是，以最简洁的型式，表达出要展现的结果。&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=excel%E5%9B%BE%E8%A1%A8&quot; rel=&quot;tag&quot;&gt;Excel图表&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/12/14/introexcelapplyallcontent/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 《Excel应用大全》双目录一览&quot; &gt;《Excel应用大全》双目录一览&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;在EH中已公布了《Excel应用大全》一书的目录，让我们先睹为快。
该书开创�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/01/17/excelsafe111111/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 发现安全漏洞 可远程安插恶意代码&quot; &gt;Excel 发现安全漏洞 可远程安插恶意代码&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;刚在CB上看到的一篇文章，辑录于此。
微软于周二发布了一个安全警告，称&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/01/excelservicesbookinfo/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 关于Excel Services的图书信息&quot; &gt;关于Excel Services的图书信息&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;下面介绍两本由Excel Services团队编著的两本图书。文章参考：Microsoft Excel和Ex&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/26/excel2007fileformat/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的新文件格式&quot; &gt;Excel 2007中的新文件格式&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2007/09/27/excel2007calcissue/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Excel 2007中的计算问题&quot; &gt;Excel 2007中的计算问题&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/08/excelchart/feed/</wfw:commentRss><description>引言：记得曾经有朋友问过：Excel各种类型的图表适合在什么情形下使用？虽然我平时不常使用图表，但碰巧看过人民邮电出版社出版过的两本书：《Excel 2007图表完全剖析》和《PPT演示之道》...</description><pubDate>Mon, 08 Sep 2008 13:56:16 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/08/excelchart/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/08/excelchart/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel图形与图表</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/08/excelchart/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504900/4068058</fs:itemid></item><item><title>Open XML Format SDK 2.0 发布</title><link>http://item.feedsky.com/~feedsky/excelperfect/~5939668/119504901/4068058/1/item.html</link><content:encoded>&lt;p&gt;&lt;em&gt;&amp;lt;来自于cnBeta&amp;gt;&lt;/em&gt;&lt;br /&gt;
今天Open XML Format SDK 2.0正式发布了，Office相关的程序员们不可以错过。&lt;br /&gt;
使用这个API，程序员们就可以通过自己的程序直接生成Word和PowerPoint、Excel 2007版本的文件，这是OpenXML编程的基础。&lt;br /&gt;
下载：&lt;a href=&quot;http://www.microsoft.com/downloads/details.aspx?familyid=c6e744e5-36e9-45f5-8d8c-331df206e0d0&amp;amp;displaylang=en&amp;amp;tm&quot; target=&quot;_blank&quot;&gt;2007 Office System SDK: Open XML Format SDK 2.0&lt;/a&gt;&lt;/p&gt;
&lt;a href=&quot;http://www.excelperfect.com/index.php?tag=ooxml&quot; rel=&quot;tag&quot;&gt;OOXML&lt;/a&gt;&lt;div class=&quot;aizattos_related_posts&quot;&gt;&lt;span class=&quot;aizattos_related_posts_header&quot; &gt;Related Posts&lt;/span&gt;&lt;ul&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/06/11/open-xml-format-sdk-10-%e5%8f%91%e5%b8%83/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Open XML Format SDK 1.0 发布&quot; &gt;Open XML Format SDK 1.0 发布&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt; Technorati 标签: OOXML,Open XML,SDK 据cnBata消息：Open XML Format SDK 1.0 发布 使用这个&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/01/22/microopenbinaryformat/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: Microsoft开放Office二进制文档格式规范&quot; &gt;Microsoft开放Office二进制文档格式规范&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;众所周知，在Microsoft Office 2007中，微软引入了一种全新的文档格式：Open XML�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/03/26/odfandooxmlnews/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: ODF编辑力挺微软OOXML:前者与后者唇齿相依&quot; &gt;ODF编辑力挺微软OOXML:前者与后者唇齿相依&lt;/a&gt;&lt;/span&gt;&lt;div class=&quot;aizattos_related_posts_excerpt&quot;&gt;据cnBeta
据国外媒体报道,Open Document Format(开放文档格式,以下简称ODF)编辑帕�&amp;#8230;&lt;/div&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/03/26/ooxmlwhystandard/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: OOXML：缘何不能成为标准？&quot; &gt;OOXML：缘何不能成为标准？&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;li&gt;&lt;span class=&quot;aizattos_related_posts_title&quot;&gt;&lt;a href=&quot;http://www.excelperfect.com/2008/02/16/microsoftofficebinary/&quot; rel=&quot;bookmark&quot; title=&quot;Permanent Link: 微软将旧的Office文档格式技术细节开源&quot; &gt;微软将旧的Office文档格式技术细节开源&lt;/a&gt;&lt;/span&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;</content:encoded><wfw:commentRss>http://www.excelperfect.com/2008/09/06/oxmlsdk2/feed/</wfw:commentRss><description>&amp;#60;来自于cnBeta&amp;#62;
今天Open XML Format SDK 2.0正式发布了，Office相关的程序员们不可以错过。
使用这个API，程序员们就可以通过自己的程序直接生成Word和PowerPoint、Excel 2007版本的文件，这是OpenXML...</description><pubDate>Sat, 06 Sep 2008 23:36:26 +0800</pubDate><author>excelperfect</author><comments>http://www.excelperfect.com/2008/09/06/oxmlsdk2/#comments</comments><guid isPermaLink="false">http://www.excelperfect.com/2008/09/06/oxmlsdk2/</guid><dc:creator>excelperfect</dc:creator><dc:subject>Excel文件格式</dc:subject><fs:srclink>http://www.excelperfect.com/2008/09/06/oxmlsdk2/</fs:srclink><fs:srcfeed>http://www.excelperfect.com/feed/</fs:srcfeed><fs:itemid>feedsky/excelperfect/~5939668/119504901/4068058</fs:itemid></item></channel></rss>