<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0"
xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/">


<channel>
	<title><![CDATA[Emily 分享學習 VBA]]></title>
	<description><![CDATA[收集的 VBA 放到這裡來分享    (This Blog is mainly written in Traditional Chinese)]]></description>
	<link>http://cat14051.mysinablog.com</link>

<lastBuildDate>Tue, 30 Jun 2009 06:26:15 +0800</lastBuildDate>

<generator>mysinablog-2.0</generator>

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

	<title><![CDATA[Emily 分享學習 VBA]]></title>
	<link>http://cat14051.mysinablog.com</link>
</image>


<item>
<title><![CDATA[BeeBee]]></title>

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

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1798558</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1798558</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1798558</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[雜談]]></category>
	
<pubDate>Tue, 30 Jun 2009 06:26:15 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[如何取得凍窗格的位置]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1666650</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[WB & WS]]></category>
	
<pubDate>Mon, 13 Apr 2009 12:09:26 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[VBA 清除立即窗口内容]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1588409</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1588409</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1588409</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[WB & WS]]></category>
	
<pubDate>Sun, 22 Feb 2009 00:20:07 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[測試 剪貼板上無內容]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1553854</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[General]]></category>
	
<pubDate>Wed, 28 Jan 2009 11:48:29 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[ExtractFlash 已廣泛地  ]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1436884</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[雜談]]></category>
	
<pubDate>Sun, 16 Nov 2008 22:59:38 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[Filtering by Color in Excel 2007]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1281951</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1281951</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1281951</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excel 2007]]></category>
	
<pubDate>Sat, 02 Aug 2008 20:46:33 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[Excel 2007 與 2003 中顯示的顏色不一至]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1277088</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excel 2007]]></category>
	
<pubDate>Wed, 30 Jul 2008 14:27:28 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[chijanzen 的雜貨鋪]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1265161</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1265161</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1265161</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[雜談]]></category>
	
<pubDate>Tue, 22 Jul 2008 12:54:52 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA["InsertPic" Excel 2007問題]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1260562</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excel 2007]]></category>
	
<pubDate>Sat, 19 Jul 2008 11:50:09 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[Use VBA SaveAs in Excel 2007]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1232105</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excel 2007]]></category>
	
<pubDate>Tue, 01 Jul 2008 12:37:01 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[Application.filesearch Replacement For Office 2007 ]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1227070</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1227070</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1227070</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excel 2007]]></category>
	
<pubDate>Sat, 28 Jun 2008 00:20:23 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[關於清空Office的剪切板 (Clear Office Clipboard)]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1135561</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[Excellent Sites]]></category>
	
<pubDate>Thu, 01 May 2008 10:41:44 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[More than 100000 Visitors]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1083583</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1083583</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=1083583</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[雜談]]></category>
	
<pubDate>Tue, 01 Apr 2008 16:45:16 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[判斷 Excel 單格是否處於編輯狀態 (Determine Excel in Edit Mode)]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=993964</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[API / Add-in]]></category>
	
<pubDate>Sun, 03 Feb 2008 12:17:32 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>


<item>
<title><![CDATA[顯示自定檢視模式名稱 CurrentViews]]></title>

	<description><![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>]]></description>

<link>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=936173</link>
<comments>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=936173</comments>
<guid>http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=936173</guid>

<dc:creator><![CDATA[cat14051]]></dc:creator>

			<category><![CDATA[WB & WS]]></category>
	
<pubDate>Thu, 03 Jan 2008 13:34:54 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php"><![CDATA[Emily 分享學習 VBA]]></source>

</item>

</channel>
</rss>