<?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[文章分類: General (Emily 分享學習 VBA)]]></title>
	<description><![CDATA[General]]></description>
	<link>http://cat14051.mysinablog.com/index.php?op=ArticleListing&amp;postCategoryId=7383</link>

<lastBuildDate>Wed, 28 Jan 2009 11:48:29 +0800</lastBuildDate>

<generator>mysinablog-2.0</generator>

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

	<title><![CDATA[文章分類: General (Emily 分享學習 VBA)]]></title>
	<link>http://cat14051.mysinablog.com/index.php?op=ArticleListing&amp;postCategoryId=7383</link>
</image>


<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&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Updating An add-in Through the Internet]]></title>

	<description><![CDATA[<p><font size="4" color="#800000">Updating An add-in Through the Internet</font></p><p>&nbsp;(Advance User Only)</p><blockquote><p>&nbsp;When you're offering an add-in through your website you usually have no connection to the people who are using your programming work. It is not unusual that you have discovered (or been pointed at) bugs in your code or that you've done some updating to the utility you'd like your users to benefit from. Sometimes it might be useful if your users could be notified automatically of such updates (many software titles have such a mechanism built-in). This little article shows a way to include that functionality with your add-in.</p></blockquote><p>Details: <a href="http://www.jkp-ads.com/articles/updateanaddin.asp">http://www.jkp-ads.com/articles/updateanaddin.asp</a></p><p>&nbsp;</p><p>&nbsp;</p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Tue, 20 Feb 2007 21:43:06 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Remove Excel Add-in DLL]]></title>

	<description><![CDATA[<p><font size="4" color="#800000">Remove Excel Add-in DLL</font></p><p>If you find some DLL's in Excel cannot be removed by regsvr32 /u, try <a href="http://www.e-systems.ro/register_dll_tool.htm">this freeware</a>.</p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Thu, 08 Feb 2007 13:26:42 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[List IE history]]></title>

	<description><![CDATA[<p><font size="4" color="#800000">List IE history</font></p><p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=430214" target="_blank">(閱讀全文)</a></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Mon, 29 Jan 2007 10:59:44 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[統計1-49 數字組合數量]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">統計1-49 數字組合數量</font></p><p>EH <a href="http://club.excelhome.net/dispbbs.asp?boardID=2&amp;ID=196190&amp;page=4&amp;px=0">問題</a></p><p>排列組合1-49號碼, 任選6個不重複, Combin(49,6)=13983816 種排列方式</p><p>最小的總和是1 +2 +3 +4+ 5+ 6 = 21, 最大的總和是44+45+46+47+48+49＝279 都只有一種排列</p><p>請問如何計算另外其他合22-278 的排列數目, 例如合是101,共有58446種排列</p><p>&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=305786" target="_blank">(閱讀全文)</a></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Sun, 29 Oct 2006 11:52:04 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[趣味性的 Bug: Characters.Count]]></title>

	<description><![CDATA[<p><font size="4" color="#990000">趣味性的 Bug:&nbsp;Characters.Count</font></p><p><font size="2"><font color="#0000ff">Sub</font> CharCounts()<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Dim</font> i As <font color="#0000ff">Long</font><br />&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">With</font> ActiveCell<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print .Characters.Text, .Characters.Count<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">For</font> i = 1 <font color="#0000ff">To</font> .Characters.Count<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print .Characters(i, 1).Caption, .Characters(i, 1).Count<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff">Next i<br />&nbsp;&nbsp;&nbsp;&nbsp;End With<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />End Sub</font></font></p><p><font size="2" color="#0000ff"></font><br />&nbsp;</p><p><a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=296984" target="_blank">(閱讀全文)</a></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Fri, 20 Oct 2006 18:03:51 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Regular Expression Laboratory - FREEWARE ]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">Regular Expression Laboratory</font></p><p>If you are a developer or just concerned with text processing tasks, the <strong>Regular Expression Laboratory</strong> is a tool that you need. In fact, you felt that you need a program like this but could not formalize your needs. We have done this job for you. Now you can construct your regular expressions with much ease and test them by applying to an arbitrary text.</p><p>Details and Download: <a href="http://www.silveragesoftware.com/rxl.html">http://www.silveragesoftware.com/rxl.html</a></p><p>&nbsp;</p><p><font color="#990000">另外由 </font><a href="http://ming.mysinablog.com/"><font color="#990000">Ming</font></a><font color="#990000"> 提供的 <strong><a href="http://kodos.sourceforge.net/">The Python Regular Expression Debugger</a></strong></font></p><p>Ref: <a href="http://cat14051.mysinablog.com/index.php?searchTerms=regular&amp;op=Search">Regular Expression</a></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Mon, 02 Oct 2006 00:10:13 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[SHUTDOWN-Windows Command]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">SHUTDOWN-Windows Command</font></p><p>SHUTDOWN </p><p>Syntax&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SHUTDOWN [<em>logoff_option</em>]&nbsp; [/m <font color="#ff0000" size="2">＼＼</font><em>Computer</em>] [<em>options</em>]&nbsp; <em>logoff_option:</em></p><p class="bodystyle">/i&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Display the GUI (must be the first option)<br />/l&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log off. This cannot be used with /m or /d option<br />/s&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Shutdown<br />/r&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Shutdown and Restart<br /><strong>/a&nbsp; </strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Abort a system shutdown.&nbsp;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (only during the time-out period)</p><p class="bodystyle"><strong>/p</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Turn off the local computer with no time-out or warning<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (only with /d)<br /><strong>/h</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hibernate the local computer (only with /f )<br /><strong>/e</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Document the reason for an unexpected shutdown of a computer&nbsp; </p><pre><em>options:<br /></em>/m <font color="#ff0000" size="2">＼＼</font><em>Computer</em>  : A remote computer to shutdown.</pre><pre>/t:<em>xxx</em>         : Time until system shutdown in seconds. <br />                  The valid range is xxx=0-600 seconds. [default=30]    </pre><pre>/c &quot;<em>Msg</em>&quot;       : An optional shutdown message [Max 127 chars]</pre><pre>/f             : Force running applications to close.</pre><pre>                 This will not prompt for File-Save in any open applications.</pre><pre>                 so will result in a loss of all unsaved data!!!</pre><pre>/d u:<em>xx:yy</em>     : List a USER reason code for the shutdown.</pre><pre>/d P:<em>xx:yy</em>     : List a PLANNED reason code for the shutdown. </pre><pre>                   xx Specifies the major reason code (0-255)</pre><pre>                   yy Specifies the minor reason code (0-65536)</pre><pre>Options in <strong>bold</strong> are for Windows 2003 only</pre><div><span class="keyword"><font color="#000080"><span class="keyword"><font color="#ff0000" size="2">mySinaBlog 不支援斜線，斜線現用全形＼取代 ，請改回。</font></span></font></span></div><p class="bodystyle">Details: <a href="http://webtools.live2support.com/windows/shutdown.php">http://webtools.live2support.com/windows/shutdown.php</a></p><p class="bodystyle">&nbsp;</p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Mon, 25 Sep 2006 10:53:07 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[SUMPRODUCT (Not VBA)]]></title>

	<description><![CDATA[<div style="font-size: 14px">SUMPRODUCT is one of the most versatile functions provided in Excel. In its most basic form, SUMPRODUCT multiplies corresponding members in given arrays, and returns the sum of those products. This page discusses the classic use of SUMPRODUCT, how creativity and inbuilt flexibility has enabled it to evolve into a far more useful function, and explains some of the techniques being deployed. Finally, some examples of SUMPRODUCT show its versatility.<br /><br /><a href="http://www.xldynamic.com/source/xld.SUMPRODUCT.html" target="_blank">http://www.xldynamic.com/source/xld.SUMPRODUCT.html</a></div>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Sat, 23 Sep 2006 08:47:24 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Chinese XML Now!]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">Chinese XML Now!</font></p><p><font color="#400000" size="2">這個計劃的目的是協助 XML 軟體工具發展者測試其軟體是否具有處理中文的能力提供使用者查詢各 XML 軟體中文處理能力的資訊。</font></p><p><font face="Courier New" color="#400000" size="2"><a href="http://xml.ascc.net/">http://xml.ascc.net</a></font></p><p><a href="http://xml.ascc.net/zh/big5/index.html"><font size="2">http://xml.ascc.net/zh/big5/index.html</font></a></p><p><em><font color="#400000" /></em></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Tue, 29 Aug 2006 00:18:24 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Excel 計算一定範圍內質數的小程式]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">Excel 計算一定範圍內質數的小程式</font></p><p><a href="http://club.excelhome.net/dispbbs.asp?boardID=2&amp;ID=173485&amp;page=1&amp;px=0">EH 問題</a></p><font size="2"><font color="#009900"><span style="#007f00">'---------------------------------------------------------------------------------------</span><br /><span style="#007f00">' Module&nbsp;&nbsp;&nbsp;&nbsp;:</span><br /><span style="#007f00">' DateTime&nbsp;&nbsp;: 23/6/2006 12:39</span><br /><span style="#007f00">' Author&nbsp;&nbsp;&nbsp;&nbsp;: Emily</span><br /><span style="#007f00">' Purpose&nbsp;&nbsp; : List Prime Number in a range</span><br /><span style="#007f00">'---------------------------------------------------------------------------------------</span><br /><br /></font><font color="#0000ff"><span style="#0000ff">Private</span> <span style="#0000ff">Declare</span> <span style="#0000ff">Function</span></font> timeGetTime <span style="#0000ff"><font color="#0000ff">Lib</font></span> &quot;winmm.dll&quot; () <font color="#0000ff"><span style="#0000ff">As</span> <span style="#0000ff">Long</span><br /></font></font><font size="2"><p><span style="#0000ff"><font color="#0000ff">Sub</font></span> Emily_230606()<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="#0000ff"><font color="#0000ff">Dim</font></span> m&amp;, n&amp;, k&amp;, a&amp;, b&amp;, arr(), t1<br />&nbsp;&nbsp;&nbsp;&nbsp;t1 = timeGetTime<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="#0000ff"><font color="#0000ff">ReDim</font></span> arr(1 <span style="#0000ff"><font color="#0000ff">To</font></span> 65536)<br />&nbsp;&nbsp;&nbsp;&nbsp;k = 2<br />&nbsp;&nbsp;&nbsp;&nbsp;arr(1) = 2<br /><br />&nbsp;&nbsp;&nbsp;&nbsp;Range(&quot;E2:E&quot; &amp; Range(&quot;E65536&quot;).End(xlUp).Row + 1).Clear<br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="#0000ff"><font color="#0000ff">For</font></span> a = 3 <span style="#0000ff"><font color="#0000ff">To</font></span> [A2]&nbsp;&nbsp;&nbsp;&nbsp; <span style="#007f00"><font color="#009900">' A2 is the required range</font></span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="#0000ff"><font color="#0000ff">If</font></span> IsPrime(a) <span style="#0000ff"><font color="#0000ff">Then</font></span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;arr(k) = a<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;k = k + 1<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff"><span style="#0000ff">End</span> <span style="#0000ff">If</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="#0000ff">Next</span></font> a<br />&nbsp;&nbsp;&nbsp;&nbsp;<font color="#0000ff"><span style="#0000ff">ReDim</span> <span style="#0000ff">Preserve</span></font> arr(1 <span style="#0000ff"><font color="#0000ff">To</font></span> k - 1)<br />&nbsp;&nbsp;&nbsp;&nbsp;Range(&quot;E2:E&quot; &amp; k) = Application.Transpose(arr)<br />&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print timeGetTime - t1 &amp; &quot;ms&quot;<br /><font color="#0000ff"><span style="#0000ff">End</span> <span style="#0000ff">Sub</span><br /></font></p><p><span style="#0000ff"><font color="#0000ff">Function</font></span> IsPrime(TestNumber As <span style="#0000ff"><font color="#0000ff">Long</font></span>) As <span style="#0000ff"><font color="#0000ff">Boolean&nbsp; </font><font color="#00cc00">' 2 is prime, not tested</font></span></p><p><span style="#0000ff" /><span style="#0000ff"><font color="#0000ff">Dim</font></span> Count As <span style="#0000ff"><font color="#0000ff">Long</font></span><br /><span style="#0000ff"><span style="#0000ff"><font color="#0000ff">Dim</font></span></span> Half As <span style="#0000ff"><span style="#0000ff"><font color="#0000ff">Long</font></span></span><br /><span style="#0000ff"><font color="#0000ff">If</font></span> (TestNumber Mod 2) = 0 <font color="#0000ff"><span style="#0000ff">Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span style="#0000ff">Exit</span> <span style="#0000ff">Function</span><br /><span style="#0000ff">End</span> <span style="#0000ff">If</span></font><br />Half = Sqr(TestNumber)<br /><span style="#0000ff"><font color="#0000ff">For</font></span> Count = 3 <span style="#0000ff"><font color="#0000ff">To</font></span> Half <span style="#0000ff"><font color="#0000ff">Step</font></span> 2<br />&nbsp;&nbsp;&nbsp;&nbsp; <span style="#0000ff"><span style="#0000ff"><font color="#0000ff">If</font></span></span> (TestNumber Mod Count) = 0 <font color="#0000ff"><span style="#0000ff">Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <span style="#0000ff">Exit</span> <span style="#0000ff">Function</span><br />&nbsp;&nbsp;&nbsp;&nbsp; <span style="#0000ff">End</span> <span style="#0000ff">If</span><br /><span style="#0000ff">Next</span></font><br />IsPrime = <font color="#0000ff"><span style="#0000ff">True</span><br /><span style="#0000ff">End</span> <span style="#0000ff">Function</span></font></p><p><font color="#0000ff"><span style="#0000ff" /></font></p><p><font color="#0000ff"><span style="#0000ff">'</span></font></p><p><span style="#0000ff"><font color="#000000">參考 <a href="http://www.excelhelp.net/cgi-bin/forum/topic.cgi?forum=4&amp;topic=530&amp;show=0">ExcelHelp 質數</a></font></span></p></font>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Fri, 23 Jun 2006 12:34:42 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[怎樣從字串裏提取想要的數字串]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">怎樣從字串裏提取想要的數字串</font></p><p><font size="2">ExcelHome&nbsp;&nbsp;</font><a href="http://club.excelhome.net/dispbbs.asp?boardID=2&amp;ID=168969&amp;page=1&amp;px=0"><font size="2">問題</font></a></p><p><font size="2">cells(1,1)=&quot;C:<font color="#ff0000">＼</font>Documents and Settings<font color="#ff0000">＼</font>Matthew<font color="#ff0000">＼</font>My Documents<font color="#ff0000">＼</font>測評周報20060508-20060514<font color="#ff0000">＼</font>滿意度統計5.8-5.14&quot;</font></p><p><font size="2">選出&nbsp;&nbsp;&quot;滿意度統計5.8-5.14&quot; 的 5.8-5.14</font></p><p><font size="2">使用&nbsp;vbscript.regexp 的例子</font></p><div><font size="2"><span class="keyword"><font color="#0000ff">Function</font></span>&nbsp;FilterStr(AnyVal&nbsp;<span class="keyword"><font color="#0000ff">As&nbsp;String</font></span>)</font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;<span class="keyword"><font color="#0000ff">Dim</font></span>&nbsp;RegEx</font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;<span class="keyword"><font color="#0000ff">Set</font></span>&nbsp;RegEx&nbsp;=&nbsp;CreateObject(&quot;vbscript.regexp&quot;)</font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;RegEx.Global&nbsp;=&nbsp;<span class="keyword"><font color="#0000ff">True</font></span></font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;RegEx.Pattern&nbsp;=&nbsp;&quot;[^<font color="#ff0000">＼</font>d-.]+&quot;</font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;FilterStr&nbsp;=&nbsp;RegEx.Replace(AnyVal,&nbsp;&quot;&quot;)</font></div><div><font size="2">&nbsp;&nbsp;&nbsp;&nbsp;<span class="keyword"><font color="#0000ff">Set</font></span>&nbsp;RegEx&nbsp;=&nbsp;<span class="keyword"><font color="#0000ff">Nothing</font></span></font></div><div><span class="keyword"><font color="#0000ff" size="2">End&nbsp;Function</font></span></div><font color="#000080" size="2"><div><div><font size="2"><span class="keyword"><font color="#0000ff">&nbsp;&nbsp; </font></span></font></div><div><font size="2"><font color="#000000"><span class="keyword"><font color="#0000ff">Sub</font></span>&nbsp;Test()</font></font></div><div><font size="2"><font color="#000000"><span class="keyword"><font color="#0000ff">Dim</font></span>&nbsp;TempStr&nbsp;</font><font color="#0000ff"><span class="keyword">As&nbsp;String</span></font></font></div><div><font color="#000000" size="2">TempArr&nbsp;=&nbsp;Split(Range(&quot;A1&quot;),&nbsp;&quot;<font color="#ff0000">＼</font>&quot;)</font></div><div><font color="#000000" size="2">TempStr&nbsp;=&nbsp;TempArr(<span class="keyword"><font color="#0000ff">UBound</font>(</span>TempArr<span class="keyword">)</span>)</font></div><div><font color="#000000" size="2">MsgBox&nbsp;FilterStr(TempStr)</font></div><div><span class="keyword"><font color="#0000ff" size="2">End&nbsp;Sub</font></span></div><div><span class="keyword"><font color="#0000ff" size="2">&nbsp; </font></span></div><div><span class="keyword"><font color="#000080" size="2"><div><span class="keyword"><font color="#000080"><span class="keyword"><font color="#ff0000" size="2">mySinaBlog 不支援斜線，斜線現用全形＼取代 ，請改回。</font></span></font></span></div><div><span class="keyword"><font color="#ff0000" size="2"><span class="keyword" /></font><div><span class="keyword"><font color="#ff0000" size="2"><span class="keyword"><font color="#000000">&nbsp;&nbsp; </font></span></font></span></div><div><span class="keyword"><font color="#ff0000" size="2"><span class="keyword"><font color="#000000">Reference:</font> <a href="http://cat14051.mysinablog.com/index.php?op=ViewArticle&amp;articleId=122081">Regular Expressions</a></span></font></span></div></span></div></font></span></div></div></font>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Sun, 28 May 2006 18:58:09 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA["#N/A" , "#value!" 在代碼中如何表示]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">&quot;#N/A&quot; , &quot;#value!&quot; 在代碼中如何表示</font></p><p><font face="courier new,courier">Error number (Constant)&nbsp;&nbsp; Literal error value&nbsp;&nbsp;&nbsp;&nbsp; Converted error value<br />-----------------------------------------------------------------------<br /><br />xlErrDiv0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#DIV/0!]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrDiv0)<br />xlErrNA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#N/A]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrNA)<br />xlErrName&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#NAME?]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrName)<br />xlErrNull&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#NULL!]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrNull)<br />xlErrNum&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#NUM!]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrNum)<br />xlErrRef&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#REF!]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CVErr(xlErrRef)<br />xlErrValue&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [#VALUE!]<br />CVErr(xlErrValue)</font><br /></p><p>&nbsp;</p><p>&nbsp;More Details: <a href="http://support.microsoft.com/?kbid=146864">Error Trapping with Visual Basic for Applications</a></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Wed, 24 May 2006 17:21:05 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Excel (中文版)  NumberString]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">Excel (中文版)&nbsp; NumberString</font></p><p><font size="2">函數是否一直存在但沒有解釋？&nbsp;</font></p><p><font size="2">NumberString(1234567890,1) ＝ 一十二億三千四百五十六萬七千八百九十</font></p><p><font size="2">NumberString(1234567890,2) ＝ 壹拾貳億叁仟肆佰伍拾陸萬柒仟捌佰玖拾</font></p><p><font size="2">NumberString(1234567890,3) ＝ 一二三四五六七八九○</font></p>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Sun, 21 May 2006 09:42:10 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>


<item>
<title><![CDATA[Select more than 8,192 non-contiguous cells with your macro]]></title>

	<description><![CDATA[<p><font color="#990000" size="4">Select &gt; 8,192 non-contiguous cells in macro</font></p><blockquote><h2 class="subTitle"><font size="2">CAUSE</font></h2><div class="sbody"><font size="2">This behavior occurs if you select more than 8,192 non-contiguous cells with your macro. Excel only supports a maximum of 8,192 non-contiguous cells through VBA macros.<br /><br />Typically, if you try to manually select more than 8,192 non-contiguous cells, you receive the following error message: </font><div class="errormsg"><font size="2">The selection is too large.</font></div><font size="2">However, when you use a VBA macro to make the same or a similar selection, no error message is raised and no error code is generated that can be captured through an error handler.</font></div><a /><h2 class="subTitle"><font size="2">WORKAROUND</font></h2><div class="sbody"><font size="2">To work around this behavior, you may want to create a looping structure in your VBA macro that handles less than the maximum 8,192 cells.</font></div><p>&nbsp;</p><p>Microsoft </p><p><a href="http://support.microsoft.com/default.aspx?scid=kb;en-us;832293">Article ID 832293</a></p></blockquote><div class="sbody"><font face="Arial" size="2"><strong>Please read the article &quot;</strong><a href="http://www.rondebruin.nl/specialcells.htm"><strong>SpecialCells limit problem</strong></a><strong>&quot; by Ron de Bruin </strong></font></div><div class="sbody"><font face="Arial" size="2"><strong>See also </strong><a href="http://www.mvps.org/dmcritchie/excel/delempty.htm#failure"><strong>this page</strong></a><strong> from David McRitchie</strong> </font></div>]]></description>

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

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

		<category><![CDATA[General]]></category>

<pubDate>Sat, 25 Mar 2006 11:27:26 +0800</pubDate>

	<source url="http://cat14051.mysinablog.com/rss.php&amp;categoryId=7383"><![CDATA[General (Emily 分享學習 VBA)]]></source>

</item>

</channel>
</rss>