: 12月末まで２０％OFF権
: あのクワトロ・ジャイアントを1800円ですぐお届け!!!
: ドミノ・ピザ ＆ まぐまぐ限定 → http://a.mag2.jp/iHay
─────────────────────────────────[PR]─
━━━━━━━━━━………‥‥・・・・・・・‥‥‥………━━━━━━━━━━
VBAでもっと快適に、もっと楽しく Vol.242 2009.11.16
Published by VBA-World [ http://www.vba-world.com ]
━━━━━━━━━━………‥‥・・・・・・・‥‥‥………━━━━━━━━━━
--------------------------------------------------------------
本メルマガを途中から購読された方は、VBA-World Webサイトを
参考にして下さい。
http://www.vba-world.com/learn.html
--------------------------------------------------------------
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
限定での発売ですのでお早めにどうぞ！
書籍には絶対に載ってない稼ぐノウハウがここにあります。
既に沢山の方が成果を出している方法で、
私も見ましたが、何度、今すぐ試したくなりました。
限定販売ですので、急いでください！
http://www.infocart.jp/t/41272/woops/
なんとかして稼ぎたい方は是非読んでみてください。
他とは一味違う解決策がここにあります。
http://www.infocart.jp/t/41272/woops/
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
──────────────────────────────────────
１．はじめに
──────────────────────────────────────
ここ１〜２週間で改めて感じたことですが、日本の技術はかなり高度だなぁ、と言
うことです。
これは、「この方面」とか「この技術」に限ったことではなく、日本全般に言える
のでは、と思います。
リンゼイさん殺害容疑で逮捕された市橋容疑者。
１年半以上も逃亡し、顔の整形手術が原因で潜伏先が狭められ逮捕されました。
その整形後の顔ですが…、日本の美容整形ってすごいんですね。
たぶん、逃亡時の写真だけでは彼だと判らないでしょうねぇ。
特徴的ないわゆる「つり目」がなくなり、まるで別人です。
凄いもんですねぇ。
さらに彼を追い詰めた日本警察や周辺のシステムが物凄いと思います。
こうやって犯罪者は捕まって行くのか、と思いました。
悪いことは出来ないですね。しませんけど…。
それでは、始めましょう。
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
変身っ！！
http://homeworker.gooside.com/mag2_0.html
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
──────────────────────────────────────
２．本編
──────────────────────────────────────
※注
本メルマガで SQLを実行してエラーとなった方は、下記URLを参考にして設定を確認
して下さい。
VBEの設定
http://www.vba-world.com/find_5.html
■検索プログラム
前回はワークシート上のデータを SQLを使用して実行する検索するプログラムを紹
介しました。
プログラミング初心者の方にはヘビーな内容かもしれませんね。
『これを全部覚えろ！』なんてことは言いませんから、そんな方は
『こういうプログラミングの仕方があるんだ』
『SQLを使った検索ってこんな感じなんだ』
ぐらいに見ていておいて下さい。
そして、このプログラム例をとっておくと、あとで役立つかも知れませんよ。
そのプログラム例は次のとおりです。
---【 SQL_検索_1 】--------------------------------------------
01：Sub SQL_検索_1()
02：
03： Dim adoCON As New ADODB.Connection
04： Dim adoRS As ADODB.Recordset
05：
06： Dim strMyWB As String
07： Dim strSQL As String
08： Dim strRes As String
09：
10： strMyWB = ThisWorkbook.FullName
11：
12： adoCON.Open "Driver={Microsoft Excel Driver (*.xls)}; " & _
"DBQ=" & strMyWB & ";" & _
"ReadOnly=True"
13：
14： strSQL = "SELECT * FROM [人事Data$] " & _
" WHERE 性別 = '男'"
15：
16： Set adoRS = adoCON.Execute(strSQL)
17：
18： strRes = ""
19： Do Until adoRS.EOF
20： strRes = strRes & adoRS.Fields("姓").Value & vbTab
21： strRes = strRes & adoRS.Fields("名").Value & vbTab
22： strRes = strRes & adoRS.Fields("性別").Value
23： strRes = strRes & vbNewLine
24： adoRS.MoveNext
25： Loop
26：
27： adoRS.Close
38： adoCON.Close
39：
30： MsgBox strRes
31：
32：End Sub
---------------------------------------------------------------
※注
これに使用するデータは次の URLを参考にして下さい。
使用データ
http://www.vba-world.com/find_data.html
◆━━━━━━━ 遂に登場！ ━━━━━━━━━━━━━━━━━━━━━━━◆
簡単にザクザク稼げる宮川明.comアフィリエイトで
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
“現金収入”を増やしたい方は他にいませんか？
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
無料お試し1件につき5,000円のアフィリ報酬をGet！！
そして、無料お試しが成約しなくても、アフィリエイト
報酬はあなたのものです。あなたは報酬を返さなくて構いません！
宮川明.comアフィリエイトセンターへの登録はこちらから
>> http://123direct.info/tracking/subaf/147917
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
■解説
【 SQL_検索_1 】を簡単に解説しておきたいと思います。
このプログラムの要となる部分のみ解説します。
03行、04行：SQLに使用する変数の宣言
この部分は SQLに関連する変数の宣言です。
04行は SQLを使用して検索して取得したデータを保管しておく「レコードセット」
の宣言です。
この変数に検索で取得したデータ(複数のばあいがある)が保管されます。
12行：コネクションのオープン
"Microsoft Excel Driver" を使用して、strMyWB に接続します。
14行：SQL文の生成
検索に使用する SELECT 文を作成します。
ここでは「人事Data」という名前のワークシート上の「性別」が "男" のデータ
を取得する、という SELECT文になっています。
16行：SQLの発行
14行で生成した SQLを実行します。
実行した結果の全データは adoRS という変数に格納されます。
adoRSには検索結果が複数あった場合には複数の全データが格納されます。
19行〜25行：Do...Loop
レコードセット adoRS が EOF(終わりまで)を Do...Loopで実行します。
１．16行で SQLを実行したときには、一番目のデータが対象となります。
(ポインタが一番目のデータにあります)
２．24行で adoRS.MoveNext とした時点で次のデータが対象となります。
(ポインタが次のデータに移ります)
１、２を adoRS が最後のデータになるまで Do...Loopで実行します。
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
このアフィリエイトプログラムに参加すれば高額報酬を
ゲットすることができます。しかも簡単に。
期間限定なので、少しでも多く報酬を稼ぐなら
今すぐこちへ↓
>> http://123direct.info/tracking/af/145792/J3Cg37UF/
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
■検索の解説
検索の実行による結果は、一般的に複数存在します。
「結果がひとつだけ」というのは『例外』と言って良いでしょう。
その複数のデータを次々に取得してゆくというプログラムを自前で作ろうとすると
結構「ハマってしまう」ことがあります。
プログラム的に言うと、Do...Loop などでグルグルと回して取得して行くのですが、
「どこで終わるのか」
というところでハマってしまったりします。
これって私だけかも知れませんが…。
自前でプログラミングして、いざ実行してみると、ループから抜け出さない、いわ
ゆる『無限ループ』に陥ってしまうことがあります。
本当に私だけかも知れませんが(^_^;
しかし、SQLを使用してプログラミングしてやると、【 SQL_検索_1 】のように比較
的簡単にループが組めるのです。
『落とし穴』が出来にくいのです。
このあたりが SQLを使用した強み、と言えるのです。
しかし、これ以外にも『強み』があります。
そこについては、次回紹介したいと思います。
こっちの方がより強力な『強み』だと、私は思っています。
◆━━━━━━━ 富を引き付ける方法 ━━━━━━━━━━━━━━━━━━◆
無料オーディオ「富を引き付ける方法」
はここでダウンロードできます
>> http://123direct.info/tracking/af/162714/ofP4dJZC/
◆━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━◆
──────────────────────────────────────
３．編集後記
──────────────────────────────────────
今必要がないと思っていることでも、頭にあるかどうかで以降の応用性が格段に違
います。
例えば、
「俺は理系に行かないから、数学なんか適当だよ」
とか
「因数分解って実社会じゃ使わないよねぇ」
ってよく言われたりします。
しかし、理系でないから、実社会で使用しないからというのは、凝り固まった考え
と言われるかも知れませんよ。
必ずしも因数分解そのものは実社会では使用しないかも知れませんが、因数分解の
考え方は実社会ではいくらでも存在します。
ここでは例を挙げませんが、そういった「ものの考え方」というものを頭に入れて
おくか否かで実社会で応用が出来るかどうかが、一桁も二桁も変わる、と私は思っ
ています。
違う言い方をすると、脳の使っていない部分を出来るだけ少なくしておいた方が良
い、と言うことです。
そんな感じで SQLの使い方、使う場面等を覚えておいて下さい。
それでは…
──────────────────────────────────────
Ｘ．免責事項
──────────────────────────────────────
このメルマガで紹介している内容は自由にお使いいただけます。ただし、これらを
使用して発生した損害に対しては、当方は責任を持てません。
了承願います。
━━━━━━━━━━………‥‥・・・・・・・‥‥‥………━━━━━━━━━━
【発 行】 VBA-World.com http://www.vba-world.com
【連絡先】 info@vba-world.com
【解 除】 http://www.mag2.com/m/0000152366.htm
──────────────────────────────────────
Copyright(C)2005 VBA-World. All Rights Reserved.
━━━━━━━━━━………‥‥・・・・・・・‥‥‥………━━━━━━━━━━
◎VBA でもっと快適に、もっと楽しく
のバックナンバー・配信停止はこちら
⇒ http://archive.mag2.com/0000152366/index.html
このメールに返信すれば、発行者さんへ感想を送れます
━【まぐまぐ！からのお知らせ】━━━━━━━━━━━━━━━━━━━━━
>>まとまった金額が必要、利息が気になる…、いつものコンビ二で利用したい<<
そんなあなたに、まぐまぐ！から「オリックスＶＩＰローンカード」のご案内
【詳しくはこちら】 http://a.mag2.jp/ilzU
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
▽こちらもいかが？ビジネス・キャリアジャンルの注目メルマガ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
●アスマナ ─イヤでも成功路線にのってしまう常識はずれの方法─
http://www.mag2.com/w/0001004781.html
○国立大学大学院（ビジネススクール）非常勤講師の経験を持つ、外資系コン
サルティングファーム・大手外資系IT企業出身の“アスマナ塾”主宰者による
若手社会人・学生がキャリアを成功させるための「常識はずれの方法」
★発行者サイトもご覧ください↓
アスマナ塾：http://www.asumana.jp/ 事務局：http://www.yerbabuena.co.jp/
━━━━━━━━━━━━━━━━━━━━━━━━━━━━【まぐまぐ！】━
