<?xml version="1.0" encoding="utf-8"?>


<feed xmlns="http://www.w3.org/2005/Atom">

	<id>http://cat14051.mysinablog.com/rss.php?profile=atom</id>
	<link rel="self" type="application/atom+xml" href="http://cat14051.mysinablog.com/rss.php?profile=atom" />
	<title><![CDATA[Emily 分享學習 VBA]]></title>
	<subtitle type="html"><![CDATA[收集的 VBA 放到這裡來分享    (This Blog is mainly written in Traditional Chinese)]]></subtitle>

		<updated>2009-11-27T22:36:42Z</updated>

<generator uri="http://www.mysinablog.com/" version="2.0">mysinablog-2.0</generator>
<author><name><![CDATA[cat14051]]></name></author>
<rights><![CDATA[Copyright (c), cat14051]]>}</rights>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com" />

	<logo>http://mysinablog.com/gallery/202/23/6090/profile.jpg</logo>

<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1798558</id>
<title><![CDATA[BeeBee]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1798558" />

		<category term='雜談'/>
	
<published>2009-06-30T06:26:15Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">不公開</font></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650</id>
<title><![CDATA[如何取得凍窗格的位置]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650" />

		<category term='WB &amp; WS'/>
	
<published>2009-04-13T12:09:26Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">如何取得凍窗格的位置</font></p><p>例如選擇D3後凍結窗格 , 如何用VBA得到D3這個地址？</p><p>如果沒有隱藏 (A, B, C column),  可用 </p><p>ActiveWindow.SplitRow + 1</p><p>ActiveWindow.SplitColumn  + 1</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1588409</id>
<title><![CDATA[VBA 清除立即窗口内容]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1588409" />

		<category term='WB &amp; WS'/>
	
<published>2009-02-22T00:20:07Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">VBA 清除立即窗口内容</font></p><p><font size="2"><span style="color: #0000ff"><font color="#0000ff">Sub</font></span> DelInImmedate()<br />    Debug.Print Now<br />    Application.SendKeys "^g ^a {DEL}"<br /><font color="#0000ff"><span style="color: #0000ff">End</span> <span style="color: #0000ff">Sub</span></font></font></p><p>API Method: <a href="http://www.dailydoseofexcel.com/archives/2004/06/09/clear-the-immediate-window/">http://www.dailydoseofexcel.com/archives/2004/06/09/clear-the-immediate-window/</a></p><p>&nbsp;</p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854</id>
<title><![CDATA[測試 剪貼板上無內容]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854" />

		<category term='General'/>
	
<published>2009-01-28T11:48:29Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">測試 剪貼板上無內容</font></p><p>如果要判斷剪貼簿是否有資料可以使用 CountClipboardFormats API 函數<br /><font size="2"><font face="Courier New"><font color="#0000ff"> </font></font></font></p><p><font size="2"><font face="Courier New"><font color="#0000ff">Declare Function</font> CountClipboardFormats <font color="#0000ff">Lib</font> "user32" () <font color="#0000ff">As Long</font><br /></font></font><font color="#000000"><br /></font><font size="2"><font color="#000000"><font face="Courier New"><font color="#0000ff">Function</font> IsClipboardEmpty() <font color="#0000ff">As Boolean<br /></font><font color="#0000ff">If</font> CountClipboardFormats = 0 <font color="#0000ff">Then</font><br />  IsClipboardEmpty = <font color="#0000ff">True<br />Else</font><br />  IsClipboardEmpty = <font color="#0000ff">False<br />End If<br />End Function</font></font></font></font></p><p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884</id>
<title><![CDATA[ExtractFlash 已廣泛地  ]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884" />

		<category term='雜談'/>
	
<published>2008-11-16T22:59:38Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#993300">ExtractFlash 已廣泛地  "私人化"</font></p><p><a href="http://www.google.com.hk/search?complete=1&amp;hl=zh-TW&amp;q=ExtractFlash&amp;btnG=%E6%90%9C%E5%B0%8B&amp;meta=lr%3Dlang_zh-CN%7Clang_zh-TW&amp;aq=f&amp;oq">http://www.google.com.hk/search?complete=1&amp;hl=zh-TW&amp;q=ExtractFlash&amp;btnG=%E6%90%9C%E5%B0%8B&amp;meta=lr%3Dlang_zh-CN%7Clang_zh-TW&amp;aq=f&amp;oq</a>=</p><p> <font size="4" color="#993300">這 ExcelHome 文章完全沒有提過 !!!!</font></p><p><a href="http://club.excelhome.net/thread-237225-1-1.html">http://club.excelhome.net/thread-237225-1-1.html</a></p><p><br /> </p><p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1281951</id>
<title><![CDATA[Filtering by Color in Excel 2007]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1281951" />

		<category term='Excel 2007'/>
	
<published>2008-08-02T20:46:33Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">Filtering by Color in Excel 2007</font></p><p>A VBA topic on Filtering by the Active Cell's Value, Font Color or Fill Color in Excel 2007 by <a href="http://www.rondebruin.nl/tips.htm">Ron de Bruin</a>.</p><p>Details: <a href="http://www.rondebruin.nl/colorfilter2007.htm">http://www.rondebruin.nl/colorfilter2007.htm</a></p><p>The above link also lead you to download an Add-in  (<strong>CommandBar Tools</strong>) to find ID numbers.</p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088</id>
<title><![CDATA[Excel 2007 與 2003 中顯示的顏色不一至]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088" />

		<category term='Excel 2007'/>
	
<published>2008-07-30T14:27:28Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">Excel 2007 與 2003 中顯示的顏色不一至</font></p><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">在</span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">E</span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">xcel</span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'"> </span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">2007</span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">中編輯好的檔</span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">案</span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">，其中背景顏色（圖案顏色）為綠色，到了另外幾台電腦中用</span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">2003</span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">打開時卻顯示為黃色。</span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'"><o></o></span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'"><o></o> </span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">不知道用什麼辦法才能讓 Excel </span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">2007 </span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">與 Excel </span><span style="font-size: 10pt; color: black; font-family: 'Tahoma','sans-serif'">2003 </span><span style="font-size: 10pt; color: black; font-family: '新細明體','serif'">中顯示的顏色一至？</span><span><o></o> </span> <p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1265161</id>
<title><![CDATA[chijanzen 的雜貨鋪]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1265161" />

		<category term='雜談'/>
	
<published>2008-07-22T12:54:52Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p style="margin: 0cm 0cm 0pt" class="MsoNormal"><span style="font-family: '新細明體','serif'"><font color="#800000"><font size="4"> chijanzen 的雜貨鋪</font></font></span><span style="font-family: '新細明體','serif'"><font size="3"></font></span></p><p style="margin: 0cm 0cm 0pt" class="MsoNormal"><span style="font-family: '新細明體','serif'"><font size="3"></font></span></p><p style="margin: 0cm 0cm 0pt" class="MsoNormal"><span style="font-family: '新細明體','serif'"><font size="3">Chijanzen 的個人網站停了頗長的時間，偶然遇上，舊雨新知請訪問一下</font></span></p><blockquote><span style="font-family: '新細明體','serif'"><font size="2">停了<span>2</span>年，從新出發的網站<span><o></o></span></font></span> <p style="margin: 0cm 0cm 0pt" class="MsoNormal"><span style="font-family: '新細明體','serif'"><font size="2">本人因為工作停了<span>2</span>年的網誌，終於偷偷的複站了</font><span><br /></span><font size="2">選上了<span> Wordpress </span>重新出發，喜歡我的網誌的請加連結</font><span><br /></span><font size="2">路過的也感謝你參觀</font><span><br /><br /><a href="http://chijanzen.net/wp/">http://chijanzen.net/wp/</a></span></span></p><p style="margin: 0cm 0cm 0pt" class="MsoNormal"><span style="font-family: '新細明體','serif'"><span></span></span></p></blockquote>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562</id>
<title><![CDATA["InsertPic" Excel 2007問題]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562" />

		<category term='Excel 2007'/>
	
<published>2008-07-19T11:50:09Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">"InsertPic" Excel 2007問題</font></p><p>2003運行完全沒問題的 , 但2007就運行不能了</p><p><a href="http://www.officefans.net/cdb/viewthread.php?tid=96007&amp;pid=675724&amp;page=1&amp;extra=page%3D1">Question</a></p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105</id>
<title><![CDATA[Use VBA SaveAs in Excel 2007]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105" />

		<category term='Excel 2007'/>
	
<published>2008-07-01T12:37:01Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">Use VBA SaveAs in Excel 2007</font></p><blockquote><p><font size="2"> </font><font size="2"><strong><u><span class="Kop1">Information</span><br /><br /></u></strong>If you run the code in Excel 2007 it will look at the FileFormat of the parent workbook and save the new file in that format.<br />Only if the parent workbook is an xlsm file and if there is no code in the new workbook it will save the new file as xlsx, <br />If the parent workbook is not an xlsx, xlsm, or xls then it will be saved as xlsb.<br /><br /><strong>This are the main formats in Excel 2007 :</strong><br /><br /><strong>51 </strong>= xlOpenXMLWorkbook (without macro's in 2007, xlsx)<br /><strong>52</strong> = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007, xlsm)<br /><strong>50</strong> = xlExcel12 (Excel Binary Workbook in 2007 with or without macro’s, xlsb)<br /><strong>56</strong> = xlExcel8 (97-2003 format in Excel 2007, xls)<br /></font></p></blockquote><p>More details and examples: <a href="http://www.rondebruin.nl/saveas.htm">http://www.rondebruin.nl/saveas.htm</a></p><p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1227070</id>
<title><![CDATA[Application.filesearch Replacement For Office 2007 ]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1227070" />

		<category term='Excel 2007'/>
	
<published>2008-06-28T00:20:23Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><strong><font size="4" color="#800000">Application.filesearch Replacement For Office 2007</font></strong></p><p><strong>Please read this post:</strong></p><p><a href="http://www.ozgrid.com/forum/showthread.php?t=71409">http://www.ozgrid.com/forum/showthread.php?t=71409</a></p><p>&nbsp;</p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561</id>
<title><![CDATA[關於清空Office的剪切板 (Clear Office Clipboard)]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561" />

		<category term='Excellent Sites'/>
	
<published>2008-05-01T10:41:44Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><span style="font-size: 12pt; font-family: 新細明體"><font size="4" color="#800000">關於清空Office的剪切板</font></span></p><p><span style="font-size: 12pt; font-family: 新細明體"><strong><a href="http://hi.baidu.com/officecm">wangminbai</a> </strong>一位令我對 Excel 再產生興趣的小伙子</span></p><p><span style="font-size: 12pt; font-family: 新細明體">A remarkable topic to clear Office Clipboard written in Chinese Simplified.  </span></p><p><span style="font-size: 12pt; font-family: 新細明體"></span></p><p><span style="font-size: 12pt; font-family: 新細明體"></span></p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1083583</id>
<title><![CDATA[More than 100000 Visitors]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1083583" />

		<category term='雜談'/>
	
<published>2008-04-01T16:45:16Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="3" color="#800000">More than 100000 Visitors</font></p><p> Thanks</p><p><img src="http://cat14051.mysinablog.com/resserver.php?blogId=6090&amp;resource=1269638-10000.JPG" border="0" alt="10000 Visitors" hspace="5" vspace="5" /></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964</id>
<title><![CDATA[判斷 Excel 單格是否處於編輯狀態 (Determine Excel in Edit Mode)]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964" />

		<category term='API / Add-in'/>
	
<published>2008-02-03T12:17:32Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">判斷 Excel 單格是否處於編輯狀態</font></p><font size="2" color="#000000"><p style="margin: 0cm 0cm 0pt" class="MsoNormal">以下代碼就是當處於編輯狀態時在<span><font face="Times New Roman">Excel</font></span><span style="font-family: 新細明體">的狀態欄上顯示</span><font face="Times New Roman"> </font><em><font color="#000000"><span style="color: #f70938; font-family: 新細明體">正處於編輯狀態</span><span style="color: #f70938"><font face="Times New Roman">…</font></span></font></em></p><p>The code will display "Excel in edit mode ......" in Status bar if Excel is in edit mode</p></font><font size="2"><span style="font-family: 新細明體"><p style="margin: 0cm 0cm 0pt" class="MsoNormal"><em><font color="#000000"><span style="color: #f70938"><font face="Times New Roman"></font></span></font></em></p></span></font><p style="margin: 0cm 0cm 0pt" class="MsoNormal"><font face="Times New Roman" size="2" color="#000000"><span style="color: #f70938"></span></font></p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964" target="_blank">(閱讀全文)</a></p>]]></summary>

</entry>
<entry>
<id>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=936173</id>
<title><![CDATA[顯示自定檢視模式名稱 CurrentViews]]></title>
<link rel="alternate" type="text/html" href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=936173" />

		<category term='WB &amp; WS'/>
	
<published>2008-01-03T13:34:54Z</published>
<updated>2009-11-27T22:36:42Z</updated>
<author>
<name><![CDATA[cat14051]]></name>
<uri>http://cat14051.mysinablog.com</uri>
</author>

<summary type="html"><![CDATA[<p><font size="4" color="#800000">顯示自定檢視模式名稱 CurrentViews</font></p><font size="2"><span style="color: #0000ff"><font color="#0000ff">Function</font></span> CurrentView(<span style="color: #0000ff"><font color="#0000ff">Optional</font></span> DummyArg As <span style="color: #0000ff"><font color="#0000ff">Variant</font></span>) As <span style="color: #0000ff"><font color="#0000ff">String</font></span><br /><span style="color: #0000ff"><font color="#0000ff">Dim</font></span> cbo As CommandBarComboBox<br />  <br /><font color="#0000ff"><span style="color: #0000ff">On</span> <span style="color: #0000ff">Error</span> <span style="color: #0000ff">Resume</span> <span style="color: #0000ff">Next</span></font><br /><span style="color: #0000ff"><font color="#0000ff">Set</font></span> cbo = Application.CommandBars.FindControl(ID:=950)<br /><br /><font color="#0000ff"><span style="color: #0000ff">On</span> <span style="color: #0000ff">Error</span> <span style="color: #0000ff">GoTo</span></font> 0<br /><span style="color: #0000ff"><font color="#0000ff">If</font></span> cbo <font color="#0000ff"><span style="color: #0000ff">Is</span> <span style="color: #0000ff">Nothing</span> <span style="color: #0000ff">Then</span></font><br />    <span style="color: #0000ff"><font color="#0000ff">With</font></span> Application.CommandBars.Add(Temporary:=True)<br />        <span style="color: #0000ff"><font color="#0000ff">Set</font></span> cbo = .Controls.Add(ID:=950)<br />        .Enabled = <span style="color: #0000ff"><font color="#0000ff">False</font></span><br />    <font color="#0000ff"><span style="color: #0000ff">End</span> <span style="color: #0000ff">With</span></font><br /><font color="#0000ff"><span style="color: #0000ff">End</span> <span style="color: #0000ff">If</span><br /></font><br />CurrentView = cbo.Text<br /><br /><font color="#0000ff"><span style="color: #0000ff">End</span> <span style="color: #0000ff">Function</span><br /></font></font><font size="2"><p><span style="color: #0000ff"><font color="#0000ff">Sub</font></span> Test()<br /><font color="#008000">    <span style="color: #007f00">'Application.DisplayStatusBar = True</span><br />    <span style="color: #007f00">'Application.StatusBar = CurrentView</span><br /></font>    MsgBox CurrentView<br /><font color="#0000ff"><span style="color: #0000ff">End</span> <span style="color: #0000ff">Sub</span></font><br /><a href="http://cat14051.mysinablog.com/resserver.php?blogId=6090&amp;resource=1101485-CurrentView.GIF"></a></p></font>]]></summary>

</entry>

</feed>