<?xml version="1.0" encoding="utf-8" ?><rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns="http://purl.org/rss/1.0/" 
			xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:content="http://purl.org/rss/1.0/modules/content/" 
			xmlns:cc="http://web.resource.org/cc/" xml:lang="ja">
<channel rdf:about="http://vbatips.blog37.fc2.com/?xml">
<title>作業を効率化させるExcel VBA Tips集</title>
<link>http://vbatips.blog37.fc2.com/</link>
<description>作業を楽にする為の苦労を惜しまない、本末転倒なプログラマーが実際に業務で使ったExcel VBAのサンプルを公開しています。掲載しているサンプルは関数単位ですので、部品化しやすいと思います。</description>
<dc:language>ja</dc:language>
<items>
<rdf:Seq>
<rdf:li rdf:resource="http://vbatips.blog37.fc2.com/blog-entry-38.html" />
<rdf:li rdf:resource="http://vbatips.blog37.fc2.com/blog-entry-37.html" />
<rdf:li rdf:resource="http://vbatips.blog37.fc2.com/blog-entry-36.html" />
<rdf:li rdf:resource="http://vbatips.blog37.fc2.com/blog-entry-34.html" />
<rdf:li rdf:resource="http://vbatips.blog37.fc2.com/blog-entry-35.html" />
</rdf:Seq>
</items>
</channel>
<item rdf:about="http://vbatips.blog37.fc2.com/blog-entry-38.html">
<link>http://vbatips.blog37.fc2.com/blog-entry-38.html</link>
<title>URLを指定してブラウザを立ち上げる</title>
<description> 指定したURLでブラウザを立ち上げるプログラムです。
パラメタにURLを指定して関数をコールするだけです。


Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; _
                       (ByVal hwnd As Long, ByVal lpOperation As String, _
                        ByVal lpFile As String, ByVal lpParameters As String, _
                        ByVal lpDirectory As String, ByVal nShow
 </description>
<content:encoded>
<![CDATA[ 指定したURLでブラウザを立ち上げるプログラムです。<BR>
パラメタにURLを指定して関数をコールするだけです。
<!-- code formatted by http://manoli.net/csharpformat/ -->
<pre class="csharpcode">
<span class="kwrd">Declare</span> <span class="kwrd">Function</span> ShellExecute <span class="kwrd">Lib</span> <span class="str">"shell32.dll"</span> <span class="kwrd">Alias</span> <span class="str">"ShellExecuteA"</span> _
                       (<span class="kwrd">ByVal</span> hwnd <span class="kwrd">As</span> <span class="kwrd">Long</span>, <span class="kwrd">ByVal</span> lpOperation <span class="kwrd">As</span> <span class="kwrd">String</span>, _
                        <span class="kwrd">ByVal</span> lpFile <span class="kwrd">As</span> <span class="kwrd">String</span>, <span class="kwrd">ByVal</span> lpParameters <span class="kwrd">As</span> <span class="kwrd">String</span>, _
                        <span class="kwrd">ByVal</span> lpDirectory <span class="kwrd">As</span> <span class="kwrd">String</span>, <span class="kwrd">ByVal</span> nShowCmd <span class="kwrd">As</span> <span class="kwrd">Long</span>) <span class="kwrd">As</span> <span class="kwrd">Long</span>
<span class="rem">'--------------------------------------------------------------------</span>
<span class="rem">' 関数名 : OpenBrowser</span>
<span class="rem">' 機能   : 指定ＵＲＬでブラウザをオープンする</span>
<span class="rem">' 引数   : url ：URLを指定</span>
<span class="rem">' 戻り値 : 正常：無し</span>
<span class="rem">'          異常：無し</span>
<span class="rem">' 作成日 : 2009/02/18</span>
<span class="rem">' 作成者 : lily(http://vbatips.blog37.fc2.com/)</span>
<span class="rem">'--------------------------------------------------------------------</span>
<span class="kwrd">Sub</span> OpenBrowser(url <span class="kwrd">As</span> <span class="kwrd">String</span>)

    <span class="kwrd">Call</span> ShellExecute(0, <span class="str">"Open"</span>, url, <span class="str">""</span>, <span class="str">""</span>, 1)
<span class="kwrd">End</span> <span class="kwrd">Sub</span>
</pre>
<BR>
以下に呼び出し元のサンプルを掲載します。<BR>
<BR> ]]>
</content:encoded>
<dc:subject>インターネット</dc:subject>
<dc:date>2009-02-18T15:57:43+09:00</dc:date>
<dc:creator>lily</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://vbatips.blog37.fc2.com/blog-entry-37.html">
<link>http://vbatips.blog37.fc2.com/blog-entry-37.html</link>
<title>ダウンロードページを設けた経緯</title>
<description> Yahooのブリーフケースが使えなくなったことに伴い、当ブログからダウンロードできるページが無くなってしまいました。

元々使い難いもではあったのですが・・・。

というわけで、ダウンロードページを設け居ました。
これから、過去のデータをアップしていく予定です。


・作業を効率化させるExcel VBA Tips集 ダウンロードページ
 </description>
<content:encoded>
<![CDATA[ Yahooのブリーフケースが使えなくなったことに伴い、当ブログからダウンロードできるページが無くなってしまいました。<BR>
<BR>
元々使い難いもではあったのですが・・・。<BR>
<BR>
というわけで、ダウンロードページを設け居ました。<BR>
これから、過去のデータをアップしていく予定です。<BR>
<BR>

・<a href="http://www.kyoto-giraffe.net/filesv/vbatips/" target="_blank" title="作業を効率化させるExcel VBA Tips集 ダウンロードページ">作業を効率化させるExcel VBA Tips集 ダウンロードページ</a> ]]>
</content:encoded>
<dc:subject>ダウンロード</dc:subject>
<dc:date>2009-02-13T11:00:51+09:00</dc:date>
<dc:creator>lily</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://vbatips.blog37.fc2.com/blog-entry-36.html">
<link>http://vbatips.blog37.fc2.com/blog-entry-36.html</link>
<title>オリジナルツールバーの生成と削除</title>
<description> ワークシート上でオートシェイプを使ったプログラムを作成していたのですが、シートにコマンドボタンなどを貼り付けると、Shapsとしてカウントされるので、ツールバーのボタンをトリガに使うしかないなと思い、このプログラムに至りました。

まー、ブック起動時などに目立たず仕込ませて使うようなアプリに便利だと思います。ワークシート前面を作業領域としたい場合など・・・。

■プログラムの概要

下図のようにツールバ
 </description>
<content:encoded>
<![CDATA[ ワークシート上でオートシェイプを使ったプログラムを作成していたのですが、シートにコマンドボタンなどを貼り付けると、Shapsとしてカウントされるので、ツールバーのボタンをトリガに使うしかないなと思い、このプログラムに至りました。<BR>
<BR>
まー、ブック起動時などに目立たず仕込ませて使うようなアプリに便利だと思います。ワークシート前面を作業領域としたい場合など・・・。<BR>
<BR>
<u><strong>■プログラムの概要</strong></u><BR>
<BR>
下図のようにツールバーを表示させ、ツールバーのボタンを押下するとマクロを実行させるものです。<BR>
<BR>
<a href="http://blog-imgs-24.fc2.com/v/b/a/vbatips/WS000130.jpg" target="_blank"><img src="http://blog-imgs-24.fc2.com/v/b/a/vbatips/WS000130s.jpg" alt="オリジナルツールバー" border="0" /></a><BR>
<BR>
ここでは２つのサンプルを紹介します。<BR>
処理概要は以下の通りです。<BR>
<BR>
１．CreateOriginalToolbar関数<BR>
　・ツールバーを生成する<BR>
　・ツールバーにボタンを埋め込む<BR>
　・マクロの登録をする<BR>
<BR>
２．DeleteOriginalToolbar関数<BR>
　・ツールバーを削除する<BR>
<BR>
サンプルプログラムは次の通りです。<BR>
<BR> ]]>
</content:encoded>
<dc:subject>ブック操作</dc:subject>
<dc:date>2009-02-04T00:09:36+09:00</dc:date>
<dc:creator>lily</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://vbatips.blog37.fc2.com/blog-entry-34.html">
<link>http://vbatips.blog37.fc2.com/blog-entry-34.html</link>
<title>Excel VBA からブログへ投稿する</title>
<description> Excelの作業内容などをそのままＶＢＡを使ってブログに投稿したい場合に便利です。

１．ＤＬＬの入手

以下のサイトからvbXMLRPCの圧縮バイナリファイルを入手します。
・EnAppSys - vbXMLRPC.dll - vbXMLRPC Binaries Download
ダウのロードできたらZipファイルを解答します。


２．Visual Basic Editorの設定
Visual Basic Editorの「ツール(T)→参照設定(R)」にて，参照設定ダイアログを開きます。「参照(B)」ボタン
 </description>
<content:encoded>
<![CDATA[ Excelの作業内容などをそのままＶＢＡを使ってブログに投稿したい場合に便利です。<BR>
<BR>
<u><strong>１．ＤＬＬの入手</strong></u><BR>
<BR>
以下のサイトからvbXMLRPCの圧縮バイナリファイルを入手します。<BR>
・<a href="http://www.enappsys.com/backend/vbXMLRPC/vbXMLRPCBinaries.jsp" target="_blank" title="EnAppSys - vbXMLRPC.dll - vbXMLRPC Binaries Download">EnAppSys - vbXMLRPC.dll - vbXMLRPC Binaries Download</a><BR>
ダウのロードできたらZipファイルを解答します。<BR>
<BR>
<BR>
<u><strong>２．Visual Basic Editorの設定</strong></u><BR>
Visual Basic Editorの「ツール(T)→参照設定(R)」にて，参照設定ダイアログを開きます。「参照(B)」ボタンをクリックし，以下の２ファイルを選択します。<BR>
<BR>
・vbXML.dll<BR>
・vbXMLRPC.dll<BR>
<BR>
参照設定画面でチェックが付いていることを確認します。<BR>
<BR>
<a href="http://blog-imgs-24.fc2.com/v/b/a/vbatips/WS000128.jpg" target="_blank"><img src="http://blog-imgs-24.fc2.com/v/b/a/vbatips/WS000128.jpg" alt="参照設定" border="0" /></a><BR>
<BR>
<u><strong>３．コーディング</strong></u><BR>
ここでは簡単な文字列を投稿するだけのプログラムです。<BR>
<BR> ]]>
</content:encoded>
<dc:subject>XML-RPC</dc:subject>
<dc:date>2009-02-03T09:43:50+09:00</dc:date>
<dc:creator>lily</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
<item rdf:about="http://vbatips.blog37.fc2.com/blog-entry-35.html">
<link>http://vbatips.blog37.fc2.com/blog-entry-35.html</link>
<title>&amp;#x30BF;&amp;#x30A4;&amp;#x30C8;&amp;#x30EB;&amp;#x3060;&amp;#x3088;&amp;#x3093;</title>
<description> &amp;#x672C;&amp;#x6587;&amp;#x3060;&amp;#x3088;&amp;#x3093;
 </description>
<content:encoded>
<![CDATA[ &#x672C;&#x6587;&#x3060;&#x3088;&#x3093; ]]>
</content:encoded>
<dc:subject>その他</dc:subject>
<dc:date>2009-02-03T00:51:31+09:00</dc:date>
<dc:creator>lily</dc:creator>
<dc:publisher>FC2-BLOG</dc:publisher>
</item>
</rdf:RDF>