■掲示板に戻る■
■過去ログ倉庫メニュー■
■VIPService (VIPサービス)■
このスレッドは過去ログ倉庫に格納されています。もう書き込みはできません。。。
HTML化した人：
lain.
★
わかばっち総合スレ【amazon、Twitter】@wakabacci
1 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:18:07.36 ID:UzjWl6uCo
本人Twitter
http://twitter.com/#
!/wakabacci
tweetログ
http://ux.getuploader.com/wakabati/download/61/thread_wakabacci_20120317.zip
現行wiki
http://wikibacci.iesaba.com/bbawiki/
ミラー 有志募集中 作れる香具師は名乗りでて欲しい
vikipedia(cache)
http://ux.getuploader.com/wakabati/download/69/vikipedia.htm
避難所
http://jbbs.livedoor.jp/news/5559/
専用ろだ
http://ux.getuploader.com/wakabati
魚拓記録
http://p.tl/D90t
凸写真
http://wakabacci.iesaba.com/images/totu.jpg
フォト蔵全写真
http://wakabacci.iesaba.com/images/fotozo/pic.htm
Amazonが動いた！
http://i.imgur.com/KaPu0.jpg
ホムペバクアプ
http://wakabacci.iesaba.com/images/html/wakaba.net/
http://wakabacci.iesaba.com/images/html/art.wakaba.net/
Yahoo!オークションで抗インフルと偽り販売
http://dl6.getuploader.com/g/wakabati/62/www.dotup.org2751720.png
twitterで拡散するときのタグは #wakav インフォメーション用は #vipwakav
2 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:25:51.45 ID:UzjWl6uCo
～ ヤフオク垢停止編 ～
具体的な攻め方だが各商品のページの左中央に「違反商品の申告」というのがあり
そこから通報が可能なのだが、ページを開くと違反種別等を選択するフォームが出る
それを埋めて送信すれば通報は完了する
それだけでは材料不足なので、Yahooの問い合わせメールから苦情を申し立てるそれの数が多ければ１００％BAN確定
BANになったという既成事実を厚生労働相に通報することにより捜査が開始され確実に一度は逮捕もしくは在宅起訴という形になる
確実に実刑もしくは罰金になるが実刑の場合には累犯がなければ執行猶予となる。執行猶予期間中に新たな罪見つければ執行猶予期間＋実刑年数が懲役とな
Q.具体的にはどこに通報すればいいの？
A.ここです
1．https://ms.yahoo.co.jp/bin/auctions-ms/feedback
2．
http://auctions.yahoo.co.jp/html/check.html
【コピペでおｋ】簡単通報【BBAヤフオク】
オークションID 違反だと思われる理由 ^ f107153232 「抗インフルエンザと薬事法違反表記での販売」~ f108645586 「輸入化粧品の薬事申請無しでの大量出品
d129003315 「明らかに商取引だが古物商許可の表記が無い」
g104593510 「MHFのRMT禁止対象物品の大量売買は販売禁止物品の出品
h161617231 「抗インフルエンザと薬事法違反表記での販売」
m98547285 「抗インフルエンザと薬事法違反表記での販売」
3．
http://page13.auctions.yahoo.co.jp/jp/show/reviews?aID=r87219948
4．
http://page8.auctions.yahoo.co.jp/jp/show/reviews?aID=h161912664
3 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:26:23.75 ID:UzjWl6uCo
～ ポケモン編 ～
任天堂は無関係で ㈱ポケモンが通報対象。
ポケモン問い合わせフォーム
https://www.pokemon.co.jp/form/inquiry/?inc=inquiry
件名
１「御社商品の海外向販売先について」
２「ポケモンの販売先についての照会」
３「ネット上での海外向販売について」
４「カードについて」
下記販売業者は、御社商品を海外向けにネット上で販売しており、御社商品の販売上
マイナスになっていると考えます。
http://wakaba.net/
サイトは現在閉鎖されておりますので、下記のバックアップを御参照下さい。
http://wakabacci.iesaba.com/images/html/wakaba.net/
既に御承知でしたら申し訳ありません。~ 宜しく御対処くださいますようお願いいたします。
※
http://wakaba.net/
は3月17日に閉鎖されたばかりですので、~ 取引ログや通信記録は残っているものと思われます。
4 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:27:08.80 ID:UzjWl6uCo
☆脱税疑惑~
以下、脱税密告に必要なこと（オークション収益編）
①どういった理由で密告に至ったか（昨年のヤフオク収益を解析）
2011年度の取引は1頁25件の履歴が14頁＋2件で14*25+2＝352件~ 1つ900円のオイル等出品してるが、ログが見れるのは昨年11以降に出品した約100件迄、出品物の大半は900円のオイルなのでこれで計算する。
~ 単価900円*352件＝316,800円の収益を得た計算、年に20万円を超えるの副収入は届出が必要な為、未申告の場合は脱税決定となる。
②相手の収益を特定することが可能な情報
1.オークション運営サイトのURLと連絡先（住所・電話番号等）
2.相手方住所氏名電話
3.相手のオークションユーザID
4.相手の振込先口座・口座名義
（以下にに上記内容を書いて送ればよい）
国税庁の公益通報の受付・相談窓口
ttp://www.nta.go.jp/sonota/sonota/koekitsuho/madoguchi/02.htm
税務・財務行政へのご意見・ご要望の受付(フォーム入力)
ttp://www.nta.go.jp/iken/mail.htm
大田原県税事務所 （管轄区域 大田原市、那須塩原市、那須町）
ttp://www.pref.tochigi.lg.jp/b07/life/zeikin/zeikin/annai.html#ootawara
5 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:27:58.22 ID:UzjWl6uCo
【薬物関連通報先】
■厚生労働省
・麻薬取締部
http://www.nco.go.jp/mail.html
■警視庁
・総合相談センター
http://www.keishicho.metro.tokyo.jp/seian/yakubutu/joho.htm
■警察庁
・薬物・けん銃 情報提供
http://www.npa.go.jp/sosikihanzai/yakubutujyuki/yakujyuu/portal/pc/index.html
・関東管区警察局 https://www.kanto.npa.go.jp/goiken/
・栃木県警察 https://www.e-tetsuzuki99.com/eap-kj/p_answer.aspx?dcd=09000&gcd=090000&ano=63
・大田原警察署 0287-24-0110
■栃木県
・薬務課 Tel：028-623-3119 Fax：028-623-3121 email：yakumu@pref.tochigi.lg.jp
・精神保健福祉センター Tel：028-673-8785 Fax：028-673-6530 email：seishin-hfc@pref.tochigi.lg.jp
・教育委員会 https://www.e-tetsuzuki99.com/eap-kj/p_answer.aspx?dcd=09000&gcd=090000&ano=26
・PTA連合会 Tel：028-622-2833 Fax：028-622-2833
http://www.tochigi-pta.gr.jp/toiawase.html
・大田原市ＰＴＡ協議会 Tel：0287-59-1025 Fax：0287-59-1026
・大田原市役所 保健福祉部
・健康政策課 Tel：0287-23-8704 Fax：0287-23-7632 email：kenkou@city.ohtawara.tochigi.jp
・健康危機対策係：0287-23-8975
・成人健康係：0287-23-7601
・温泉・薬物対策担当 TEL 028-623-3119
・薬事審査担当 TEL 028-623-3120
・
http://www.pref.tochigi.lg.jp/e08/index.html
6 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:28:37.06 ID:UzjWl6uCo
【薬物事犯通報文例集１】
基本的にこのままコピペせず、自分の文章に書き換えて使いましょう
また、情報提供の際、我々に後ろ暗いところは何一つありません、嘘にならない内容で行いましょう
―――――薬物取締法違反容疑通報用テンプレ―――――
栃木県在住の深田わかばという名前の女性がインターネットにて薬物について発信し話題になっているのを目にしました。
過去に薬物の使用経験があるような内容をインターネット上の日記などに綴っており
私が見た中では 【あれば各自選んだ薬物利用を臭わせるソースサイトなどのＵＲＬ、あるいはコピペ等】
のように薬物の利用を感じさせるような発言を発信していました。
これらについていくつかのＨＰやツィッターなどでも薬物について発言し注目を集めているようで、
こういった情報が子供らの目につくようになる事が心配です。
また、ご本人はお写真、住所なども公開されているようで、
こういった事を周辺の住民の方々が知れば心配される事と思います。
また、その地域の子供達悪影響がないか気になります。
深田わかばさんにはお子さんがいらっしゃるようで、そちらについても気がかりに思います。
インターネットで見聞きした情報をこちらにお知らせするのは少し軽率なような気持ちもしましたが、
薬物の依存性や危険性は私のような者でも耳にした事がありとても心配なのでお知らせいたします。
―――――シンプルバージョン―――――
栃木県在住の（深田わかば）は、ツイッターやブログ等で薬物使用が疑われる発言（表現）を行っており、
通報致します。薬物に関連すると思われる内容については下記のとおりです。御参照ください。
（以下リンク先を記入） 以上
7 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:28:51.98 ID:UzjWl6uCo
【薬物事犯通報文例集２】
基本的にこのままコピペせず、自分の文章に書き換えて使いましょう
また、情報提供の際、我々に後ろ暗いところは何一つありません、嘘にならない内容で行いましょう
―――――シンプルバージョンその２―――――
栃木県在住の女性につきまして、インターネット上で薬物の使用を示唆する発言がありました。
薬物根絶を望む一市民としてご報告いたします。
発言の詳しい内容に関しましては以下のリンクを参照下さい。
（以下リンク先を記入）
―――――ママさん風バージョン―――――
メールにて失礼します。氏名：○○○○○について薬物使用の疑いにより、通報します。
同人はネット上で以下のように、薬物使用に関する表現をしていますが、一部、本人自身の
使用をも疑わざるを得ない表現があります。私自身の杞憂であればよいのですが、念のために
通報する次第です。ご対応の程よろしくお願い致します。
―――――子持ちの人向けバージョン―――――
栃木県在住の深田わかば氏について、ツイッターやブログなどで薬物使用が疑われる発言をされている
件について通報させていただきます。
深田氏にはお子様もおられるようですが、私も親であり、もしこれが真実であれば、そのお子様が心配です。
ぜひ調査してくださいますようお願いいたします。薬物に関連すると思われる内容については下記のとおりです。
ご参照いただければ幸いです。
（以下リンク先を記入）
8 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:29:17.47 ID:UzjWl6uCo
【薬物事犯通報文例集３】
基本的にこのままコピペせず、自分の文章に書き換えて使いましょう
また、情報提供の際、我々に後ろ暗いところは何一つありません、嘘にならない内容で行いましょう
―――――文章固いバージョン―――――
栃木県在住の深田わかば氏がインタネット上で薬物使用を示唆する発言をしていました。
この女性は過去にも薬物の使用を告白しております。
過去の発言に関しては合法ドラッグであり、現在は使用していないと本人は主張しておりますが、
彼女の発言に注目していると現在も依存している疑いがあります。
詳しくは以下のリンクを参照下さい。
http://twittaku.info/view.php?id=148018665072230400
http://twittaku.info/view.php?id=149811874530205697
http://twittaku.info/view.php?id=171403434187177985
http://twittaku.info/view.php?id=180506191410102273
http://twittaku.info/view.php?id=179887228384845824
http://web.archive.org/web/19980710074302/http://wakaba.cosm.co.jp/secret/diary.html
この報告が薬物撲滅活動の一助と成る事を期待しております。
―――――文章固いバージョン２―――――
メールにて失礼します。
栃木県在住の深田わかばさんが、ネットにて薬物乱用をほのめかす発言をしているのが話題になっているようです。
こちらがその発言の例です。【ここソース貼る】
私も実際に彼女のブログやツイッターを拝見したところ、確かに薬物の乱用や過去にした経験があるかのような発言、また、薬物乱用を肯定するかのような表現などが見受けられました。
ネットではこのような発言に不安や疑問を隠せない人が多いようで、私も彼女の発言・表現に不安を感じています。
また、ブログやツイッターという広年層・不特定多数の人間の目に触れる場所での発言というのも、薬物乱用を助長するものとして非常に危険だと思います。
ネット上の発言という、信憑性に欠ける情報ではありますが、実際に多くの人が彼女の発言に不安を抱いているということで通報させていただきました。
9 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:30:00.35 ID:UzjWl6uCo
【薬物疑惑通報根拠】
ツイっ拓 ドラッグ関連
http://twittaku.info/view.php?id=180506191410102273
http://twittaku.info/view.php?id=179887228384845824
http://twittaku.info/view.php?id=171403434187177985
http://twittaku.info/view.php?id=149811874530205697
http://twittaku.info/view.php?id=148018665072230400
大田原ブログ 大麻について 魚拓
http://megalodon.jp/2012-0322-0522-53/blog.goo.ne.jp/wakabaf/e/ac611a90e5efb784348d163a3062bc95
ドラッグ関連 日記
http://web.archive.org/web/19980710074302/http://wakaba.cosm.co.jp/secret/diary.html
グレー（一応）
依存症
http://blog.goo.ne.jp/wakabaf/e/1c22027025478cfb4bfef42b16656aa7
10 ：
◆7EMcXo2.sc
[Sage]：2012/04/15(日) 18:30:03.09 ID:8mS7nIBn0
ウメ
11 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:30:59.42 ID:UzjWl6uCo
【薬物事犯通報】
今日は電凸メインで通報フォーム・FAX・email等が主な通報となります
通報時間帯は電凸の場合は受付時間内 その他は各々空いている時間を使ってなるべく沢山の機関へ通報しましょう
なおネットやFAX・email通報に関しては
>>2-9
を参考に各自で文章を書き換えて通報
同一文面での通報が多い場合イタズラ扱いをされる可能性があるので
極力そのままのコピペを避け自分の文章で通報することが望ましいです
Yahooの情報によれば都道府県からの連絡があった場合に垢BANをするとのことなので
全力で都道府県を動かしましょう そのために古物・薬事・薬物関連の通報を頑張りましょう
12 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:31:59.91 ID:UzjWl6uCo
【祭りに参加する香具師へ】
通報するな／終了発言は単発工作です。皆で通報する合図です。
しかし、行政と司法管轄は一番後回しでおｋ。根拠を固めておくに留めよう
- ヤフー垢停止（
>>2
）ポケモン（
>>3
）
不用意にタゲを増やすな、勢いが下がりグダグダになります
火消しに構うな、火消しをＮＧに入れられない人は祭りに参加できません
縦読みは連投するな、縦読みを連投し勢いを下げる人は工作員認定されＮＧに入れられます
確証も無しに疑惑だけで叩くな
差別的発言御法度
一人でツイッター凸、電凸はするな
常識的に考えてやったらまずいことはするな
臭い人、新参臭ゆとり臭が酷ければ徹底的に叩いて排除します
過剰な宗教関連煽りはノータッチ
↓↓↓☆現状俺らのやること☆↓↓↓
ひとまずBBAの逮捕を第一目標とする
魚拓やSSはwikiにうpし整理する
yahooIDをBANさせ検挙する足掛かりとする
今北用にテンプレ整理
先走って拡散したりしない
工作員、火消しはスルーまたはＮＧ、絶対に流されるなよ
単発はスルー
垢を消したからと言って取り巻きへタゲ変更しないよう呼びかけ
娘には絶対に矛先を向けないこと！
単発荒らし対策のため今北の新規は忍法帖を推奨
13 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:32:45.70 ID:UzjWl6uCo
【ツィッター拡散文テンプレ集 2nd Edition Ver1.06その①】
注意！
(1)有効なURLか拡散前に踏んでみて確認をお願いします。（当テンプレは大丈夫だと思いますが）
(2)ゴシップ風の文章より、一般向けの綺麗な表現の方が受け入れられやすいと思います。
各自、「情報に誤りのない範囲で」「表現のみを」書き換えてください。
嘘の拡散は絶対NG。やめてください。
(3)拡散用タグは#wakavであり、#vipwakavは相互フォローやツイ班の情報交換用タグです。#vipwakavで拡散しないでください。
☆汎用拡散文その１ 一般向け？☆
【拡散】わかばっち@wakabacci氏とは何者か？ ﾏｲﾉﾘﾃｨや病に苦しむ者に対する、彼女のあまりにも心無い発言をどうか知って下さい
http://togetter.com/li/274271
#wakav
【拡 散】わかばっち@wakabacci氏とは何者か? 同性愛者を公然と差別し辱める彼女のような人がいる事をどうか世に伝えて下さい
http://togetter.com/li/274271
#wakav
【拡散】反差別を謳いながら数々の差別発言を繰り返す深田わかば氏。他にも様々な犯罪や問題行動などが露呈しており、現在まさに野放し状態です。そんなの許せないと思う方、是非公式wikiを一読してみて下さい。貴方の一報が頼りです。
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちさんの数々の差別発言をご存知でしょうか？
http://togetter.com/li/274271
たくさんの人々を傷つけるわかばっちさんを、我々は断固として許しません。通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちとは
http://t.co/i1Uzh3l4
反差別主義を掲げておきながら数多の差別発言で人を傷つけてきた女性。転売業者でamazon、株ポケモン、マイクロソフトが対応を検討。詳細は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【わかばっち語録】「日本は世界最悪の児童ポルノ汚染国であることに、私たち日本人自身が全く気が付いていない。人々の意識改革が必要。（ｷﾘｯ」 ロリ本転売してた方がこんなこと言うんですね、詳細はwikiを
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちさんをご存知ですか？
http://goo.gl/0Inwa
彼女の自己中心的な行動で多くの方に迷惑を掛け、時には保身の為に平気で人を非難の対象に仕立て上げます。詳細は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっち氏海外に高値でエロ本を売りさばく一方でAmazonには販売停止を迫っていた。
http://goo.gl/0Inwa
詳細は公式wikiを参照
http://goo.gl/Eekh6
#wakav
14 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:33:14.81 ID:UzjWl6uCo
【ツィッター拡散文テンプレ集 2nd Edition Ver1.06その②】
☆汎用拡散文その２ ちょいゴシップ風☆
【拡散】日々進展のあるわかばっち騒動。彼女の数々の問題発言や犯罪疑惑に憤りを感じた人たちによる通報活動が活発化！どうするわかばっち！？もう逃げ場はないぞ！？
http://goo.gl/0Inwa
通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちがツイッターアカウントを消し逃亡を図ってからはや一週間！薬物、薬事法・古物商取引違反様々な疑惑浮上！有志による通報活動でもう逃げ場はない！？
http://goo.gl/0Inwa
通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】策士わかばっち、策に溺れる！海外に高値でエロ本を売りさばく一方でAmazonに販売停止を迫っていたのは既に公然の事実！問題は破廉恥な発言だけではない！
http://goo.gl/0Inwa
詳細は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】数々の犯罪疑惑が露呈したわかばっちは、現在ツィッターアカウントを消し事態の収集を謀っている！事件を風化させるな！一市民の善意の通報が求められる！
http://goo.gl/0Inwa
通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】twitterアカウント消し逃亡中のわかばっち！しかし数々の犯罪疑惑のある彼女がこのままおとなしく引き下がるか！？否！！今もまた何処かで次なる悪事を企んでいる事だろう！通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】これまで数々の問題発言を繰り返してきたわかばっち。この一週間で薬事法違反、薬物依存、古物商取引違反etc.数々の疑惑が浮上、憤り感じた各方面の人々が挙って通報中！
http://goo.gl/Eekh6
#wakav
【拡散】様々な物議を醸す発言を繰り返してきたわかばっち氏
http://goo.gl/0Inwa
現在twitterアカウントを消し逃亡中！だが、これ迄彼女が尽くしてきた悪業は既に明るみに！通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちの数々の問題発言をあなたはご存知だろうか！
http://goo.gl/0Inwa
全方位で敵をつくるわかばっちは一体何を考えていたのか？加えて様々な犯罪疑惑も浮上 通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっち、twitterアカウントを消しても過去の発言が無かった事にはならないぞ！
http://goo.gl/0Inwa
過去に犯した犯罪も同じだ！自らの言動に責任を持たないわかばっちの通報先は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちの発言に世間が騒然！犯罪を繰り返してきた過去を顧みずここまで言い切るとはもはやアッパレ！
http://goo.gl/0Inwa
しかし今迄犯してきた犯罪はもう言い逃れは出来ない！通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちさんの発言に世間が騒然！自分に甘く他人に厳しいわかばっちさんの発言集
http://goo.gl/0Inwa
通報は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちとか@wakabacciとかうるせーんだよ糞が！とか思った人とりあえずコレ見たほうがいいよ。この人ガチで凄いからｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
http://goo.gl/0Inwa
#wakav
15 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:33:29.62 ID:UzjWl6uCo
【ツィッター拡散文テンプレ集 2nd Edition Ver1.06その③】
☆ツイッター垢晒し事件☆
【拡散】刺客現る！？先日反わかばっち運動参加者のtwitterアカウントが何者かにより2chに晒される！！更に本人なりすまし暴言を連発！単なる愉快犯か？はたまた工作員か？いずれにせよ許されることはない！公式wikiはこちら
http://goo.gl/Eekh6
#wakav
【拡散】わかばっちの逆襲！？先日、反わかばっち運動参加者のtwitterアカウントが何者かにより晒された事が発覚！次々と工作員を送り込むわかばっち！？我々は屈しない！！公式wikiはこちら
http://goo.gl/Eekh6
#wakav
☆マイクロソフト対応開始拡散文☆
【拡散】Amazon・㈱ポケモンに続き、遂にマイクロソフトもわかばっち対応を開始！！ 24日同社よりわかばっち通報した所、担当部署に報告し検討するとのこと！
http://goo.gl/Eekh6
#wakav
【拡散】Amazon、株ポケモン、マイクロソフトによる”わかばっち”包囲網完成か！？ 24日マイクロソフトにわかばっちを通報→「担当部署に報告し検討」とのこと！
http://goo.gl/Eekh6
#wakav
☆英文取上拡散文☆
【拡散】ワールドわかばっち速報！わかばっちを筆頭とする過剰な表現規制者に危惧抱くのは我々だけではない！ 一つの腐ったりんごが樽ごと全てを腐敗させるbyウィリアムくん
http://goo.gl/DpCer
公式wiki
http://goo.gl/Eekh6
#wakav
【拡散】国境を超える反わかばっちムーブメント！とうとうわかばっちの名前もワールドワイドに！数々の悪業が英訳され海を渡る！わかばっちは遂に世界をも敵にまわすのか！？
http://goo.gl/DpCer
公式wiki
http://goo.gl/Eekh6
#wakav
【拡散】国際わかばっち包囲網！わかばっちの悪業が遂にアメリカにも届いた！？表現規制に怒りを上げているのは我々だけではない！どうするわかばっち！？逃げ場は無いぞ！？
http://goo.gl/DpCer
公式wiki
http://goo.gl/Eekh6
#wakav
【拡散】インターナショナル転売ヤー！その名はわかばっち！事の顛末が英訳され米人からも反応が！わかばっち始め過剰な表現規制者の横暴にウィリアムくんの悲痛な叫びは届くのか！？
http://goo.gl/DpCer
公式wiki
http://goo.gl/Eekh6
#wakav
【拡散】世界に轟くわかばっちの悪名！？二人の日本人有志が作成した米サイトが今回の件を取り上げていた事がわかった！過剰な表現規制活動にアメリカ人もブチギレ！
http://goo.gl/DpCer
公式wiki
http://goo.gl/Eekh6
#wakav
16 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:33:45.40 ID:UzjWl6uCo
【ツィッター拡散文テンプレ集 2nd Edition Ver1.06その④】
☆古物商取引違反拡散文☆
【拡散】つぎつぎ出てくるわかばっちの悪業の数々！Yahoo!Auctionで多くの品を出品中だが古物商の許可をうけていなかった！？わかばっちの横暴にもう目をつぶっていられない！通報先は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】またしてもわかばっち！今度はYahoo!Auctionで古物商取引違反！？ブツは現在も出品中との事！なんたる横暴！！通報先は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】わかばっち新事実発覚！古物商取引の許可を得てないにも関わらずYahoo!Auctionにて営利目的により多くの品を出品中！厚顔無恥のわかばっちの態度にはもうウンザリ！通報先は公式wikiを参照
http://goo.gl/Eekh6
#wakav
【拡散】噂のインターナショナル転売ヤーわかばっち、国内でも古物商取引違反の疑い！Yahoo!Auctionにて許可無く数々の商品を営利目的で売りさばく！わかばっちの横暴ここに極まれり！通報先は公式wikiを参照
http://goo.gl/Eekh6
#wakav
☆薬物疑惑拡散文☆
【拡散】薬物疑惑わかばっち。
http://goo.gl/Eekh6
警視庁「小さな情報でも 誰が薬物を持っていた使用していたなど見聞きした時はすぐご連絡下さい」
http://p.tl/tsna
薬物事犯は表面化しにくい犯罪 皆様からの情報提供が非常に重要です #wakav
【拡散】どんどん追い詰められていくわかばっち！薬物疑惑に関しても通報開始！あなたも一市民としてわかばっちの悪事を通報してみませんか！？公式wikiに通報例あり。通報の際は参照下さい。
http://goo.gl/Eekh6
#wakav
【拡散】薬事法違反通報先の栃木薬務課のネラー「ちょとわかばっちでググる～ なんなんだこいつは！？」と担当をも唖然とさせるわかばっちの公式wikiはこちら
http://goo.gl/Eekh6
#wakav
【拡散】通報したPTA栃木「警察のようには動けないが、話しあって対処する」とPTA担当も本気にさせるわかばっち 公式wikiはこちら
http://goo.gl/Eekh6
#wakav
【拡散】わかばっち速報！警察庁・厚労省・栃木県の反応はいずれも「文書にして担当部署に対応させる」とのこと 公式wikiはこちら
http://goo.gl/Eekh6
#wakav
17 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:34:04.93 ID:UzjWl6uCo
検索祭りについて
テンプレ
【拡散】明日定時にGoogle検索を行い急上昇ワードに 「わかばっち」
を入れようと思いますTwitterでの拡散だけでなく検索での急上昇ワードにすることでGoogleIMEや検索候補での出現率も高まります
時間はTwitter定時拡散の1時間後（13・22時）です #wakav
一応テンプレはみなさん読んだだろうが明日になったら 明日を今日に打ち替えて使ってくれ
本日検索は無しでok
明日2回で一気に叩きこむ
後、検索ワードで叩きこむのは毎週日曜にやろうと考えてる
Twitterの拡散をやりつつ日曜は検索攻めの予定 （俺の中では）
土曜もやるか検討 検索については人目に付く曜日にやるのが効果的と考えている
なので月～金（土）はいつもどおりの拡散でok
なおタゲ変更などは行わない 単純な検索のみである
できれば 携帯 PC スマフォ など手持ちの機器の併用をおすすめする
PCとスマフォは別ブラウザでの検索も行うと効果的
検索ワードは 「わかばっち」 のみ
18 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 18:34:57.92 ID:UzjWl6uCo
>>13-16
Twitter拡散テンプレ
>>17
検索祭りテンプレ
テンプレは以上だ
19 ：
以下、VIPにかわりましてパー速民がお送りします
(関西地方)
[sage]：2012/04/15(日) 18:56:40.66 ID:s/DAfAV6o
いちおつ
20 ：
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/04/15(日) 18:58:43.56 ID:K2EuGf4Wo
*、 *、 ｡*ﾟ *-+。・+。-*｡+｡*
／ ﾟ+、 ﾟ+、 *ﾟ ・ﾟ ＼ 。*ﾟ
∩ *。 *。 +ﾟ ∩ *
(´･ω･`) +｡ +｡ ﾟ* (´･ω･`)
と ﾉ *ﾟ *ﾟ ・ 。ヽ、 つ
と、ノ ・ﾟ ・ﾟ +ﾟ * ヽ、 ⊃
~∪ *ﾟ *ﾟ * +ﾟ ∪~ ☆
+′ +′ +ﾟ ﾟ+｡*。・+。-*｡+。*ﾟ
21 ：
以下、VIPにかわりましてパー速民がお送りします
(愛知県)
2012/04/15(日) 19:02:05.50 ID:rnKGRLeao
スレ立てテンプレ乙
22 ：
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/04/15(日) 19:02:50.95 ID:sg+4HOxO0
>>1
スレたておつ
こっちに完全移行でいいのかな？
23 ：
以下、VIPにかわりましてパー速民がお送りします
2012/04/15(日) 19:03:56.33 ID:DmvLpLN4o
スクリプトが湧かないことを祈る
24 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 19:05:43.78 ID:UzjWl6uCo
>>22
とりあえずVIPにスレあるからそっちと併用で
避難所も上手く使ってくれ Twitter利用もあり
25 ：
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/04/15(日) 19:08:38.41 ID:xrPi6HxN0
>>24
おｋ把握した。
前スレみたが凄い勢いだったみたいだな
26 ：
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/04/15(日) 19:31:27.54 ID:FqU9oQMS0
前スレ（途中からスクリプト荒らし発生）
http://ex14.vip2ch.com/test/read.cgi/part4vip/1334462182/
27 ：
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/04/15(日) 19:31:29.92 ID:FqU9oQMS0
前スレ（途中からスクリプト荒らし発生）
http://ex14.vip2ch.com/test/read.cgi/part4vip/1334462182/
28 ：
a
2012/04/15(日) 20:16:32.49 ID:7AXWwuvOo
（ ＾ω＾）おっおっおっ
29 ：
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/04/15(日) 21:26:46.80 ID:EWIeHrcY0
VIPのほう落ちた？
30 ：
2012/04/15(日) 21:35:05.14 ID:7AXWwuvOo
dat落ちしたな
31 ：
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/04/15(日) 21:42:54.96 ID:FqU9oQMS0
VIP一応立て直した
http://hayabusa.2ch.net/test/read.cgi/news4vip/1334493662/l50
32 ：
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/04/15(日) 21:48:45.40 ID:FqU9oQMS0
22時～22時10分はわかばっち検索祭りです
33 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 21:58:07.57 ID:UzjWl6uCo
>>31
立て直すならこのスレのurl入れるべし
スクリプトが来てないし今なら大丈夫だと思う
34 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/15(日) 21:58:42.63 ID:PnrJ42BLo
スクリプトはグズ
35 ：
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/04/15(日) 22:23:51.86 ID:f67sYlqk0
今北。禿乙。
しかし、Google検索がよほど嫌なようだな。
36 ：
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/04/15(日) 22:31:22.56 ID:ovldkYpG0
深田 わかば
約1時間前.
あ～腹筋割りたい。片手で高速腕立て伏せとかそういうのも憧れる。
37 ：
以下、VIPにかわりましてパー速民がお送りします
2012/04/15(日) 22:55:09.39 ID:YqYFSG8DO
また落ちてる
38 ：
◆KByBL9DSb2
2012/04/15(日) 23:07:52.33 ID:Wj10Ac/vo
VIP落ちたか…
39 ：
以下、VIPにかわりましてパー速民がお送りします
(静岡県)
2012/04/15(日) 23:22:25.38 ID:UzjWl6uCo
＿ ＿
r」´＞┴＜ゝｭ_
r(／': r: :Y -､'＼Yｧ
rY/ : :/⌒||⌒ヽ }Yｭ
{Ⅹ}ﾋﾞ‐- ﾘ -‐ ﾐ{Ⅹ}
|¨|:!|ｨ)示 示ぇ ﾑ¨|
| { ||辷ﾘ }-{ 辷ﾘﾊ:}: ! _ _
ﾉ:ﾉNﾄー ' ヮ ｰ, ｲﾘ: :ヽ＿＿ﾑ_}_}＿＿＿
r':/:ﾉ:ﾘ: :_〕 ｰ '〔_:: }:ﾊ: : |またVIPおちた ｜
〈:〈 {: {: r{ {､,_,_,_,} lz_: :丶| ｜
）:）:rく Yｽ＼rﾒ 方ヽ: . | ｜
（: （:/ ∧ Yｽ(仆)片Y ＼! |
__):ﾉ! ﾊ Yｽハｲｿ .} | |
>ﾊ:ﾉ イ 戊 片 ﾘ､ ! |
V「ー''´ /{ {┤に) 〈 ｀└―――――ー┘
40 ：
◆KByBL9DSb2
2012/04/16(月) 00:02:22.58 ID:kqmg4Tf9o
誰かスレ立て…
41 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:00:17.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
42 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:00:33.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
43 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:00:44.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
44 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:00:54.13 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
45 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:04.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
46 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:15.90 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
47 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:25.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
48 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:35.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
49 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:45.95 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
50 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:01:56.01 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
51 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:06.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
52 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:16.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
53 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:26.06 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
54 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:36.07 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
55 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:46.10 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
56 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:02:56.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
57 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:03:11.10 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
58 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:03:21.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
59 ：
2012/04/16(月) 01:03:21.35 ID:PmgAccR8o
必死だなぁ
60 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:03:31.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
61 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:03:41.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
62 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:03:56.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
63 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:06.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
64 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:16.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
65 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:26.47 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
66 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:36.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
67 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:46.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
68 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:04:56.72 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
69 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:07.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
70 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:18.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
71 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:28.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
72 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:38.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
73 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:48.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
74 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:05:58.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
75 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:06:09.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
76 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:06:19.83 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
77 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:06:30.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
78 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:06:40.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
79 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:06:50.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
80 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:00.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
81 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:10.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
82 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:20.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
83 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:31.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
84 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:41.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
85 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:07:51.07 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
86 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:01.16 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
87 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:11.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
88 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:21.33 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
89 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:31.37 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
90 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:41.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
91 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:08:51.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
92 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:09:01.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
93 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:09:16.67 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
94 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:09:26.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
95 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:09:42.22 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
96 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:09:53.06 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
97 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:03.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
98 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:13.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
99 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:23.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
100 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:33.37 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
101 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:43.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
102 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:10:53.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
103 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:11:03.58 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
104 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:11:13.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
105 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:11:28.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
106 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:11:39.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
107 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:11:50.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
108 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:00.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
109 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:11.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
110 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:21.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
111 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:31.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
112 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:41.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
113 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:12:51.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
114 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:01.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
115 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:11.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
116 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:21.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
117 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:31.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
118 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:41.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
119 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:13:51.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
120 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:06.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
121 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:16.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
122 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:26.57 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
123 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:36.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
124 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:46.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
125 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:14:56.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
126 ：
以下、VIPにかわりましてパー速民がお送りします
(岩手県)
2012/04/16(月) 01:14:57.64 ID:OrYQRccjo
http://hayabusa.2ch.net/test/read.cgi/news4vip/1334506079/
127 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:15:06.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
128 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:15:16.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
129 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:15:26.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
130 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:15:36.99 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
131 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:15:47.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
132 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:02.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
133 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:13.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
134 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:23.96 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
135 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:34.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
136 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:49.33 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
137 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:16:59.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
138 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:09.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
139 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:19.38 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
140 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:29.50 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
141 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:39.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
142 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:49.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
143 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:17:59.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
144 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:18:09.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
145 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:18:20.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
146 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:18:30.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
147 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:18:40.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
148 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:18:50.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
149 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:05.52 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
150 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:16.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
151 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:26.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
152 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:37.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
153 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:47.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
154 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:19:57.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
155 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:07.53 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
156 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:17.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
157 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:27.72 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
158 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:37.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
159 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:47.95 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
160 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:20:58.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
161 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:21:08.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
162 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:21:18.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
163 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:21:28.37 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
164 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:21:38.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
165 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:21:48.53 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
166 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:03.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
167 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:13.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
168 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:23.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
169 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:34.01 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
170 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:44.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
171 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:22:54.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
172 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:23:09.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
173 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:23:19.96 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
174 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:23:30.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
175 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:23:40.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
176 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:23:50.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
177 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:00.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
178 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:10.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
179 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:20.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
180 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:30.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
181 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:40.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
182 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:24:50.94 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
183 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:01.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
184 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:11.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
185 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:21.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
186 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:31.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
187 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:42.01 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
188 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:25:57.13 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
189 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:07.36 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
190 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:18.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
191 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:28.36 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
192 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:38.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
193 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:48.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
194 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:26:59.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
195 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:09.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
196 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:19.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
197 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:29.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
198 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:39.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
199 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:49.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
200 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:27:59.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
201 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:28:09.98 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
202 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:28:20.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
203 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:28:30.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
204 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:28:40.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
205 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:28:55.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
206 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:05.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
207 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:15.62 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
208 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:25.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
209 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:35.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
210 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:46.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
211 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:29:56.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
212 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:06.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
213 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:16.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
214 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:26.50 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
215 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:36.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
216 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:46.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
217 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:30:56.77 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
218 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:31:07.01 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
219 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:31:18.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
220 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:31:28.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
221 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:31:43.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
222 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:31:53.36 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
223 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:03.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
224 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:13.53 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
225 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:23.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
226 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:33.70 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
227 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:43.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
228 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:32:53.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
229 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:04.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
230 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:14.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
231 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:24.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
232 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:34.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
233 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:44.74 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
234 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:33:55.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
235 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:34:05.33 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
236 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:34:15.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
237 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:34:27.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
238 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:34:38.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
239 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:34:53.68 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
240 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:03.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
241 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:13.59 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
242 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:23.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
243 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:33.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
244 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:43.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
245 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:35:53.96 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
246 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:04.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
247 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:14.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
248 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:24.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
249 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:34.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
250 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:44.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
251 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:36:54.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
252 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:04.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
253 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:14.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
254 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:24.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
255 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:34.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
256 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:44.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
257 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:37:54.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
258 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:04.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
259 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:15.10 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
260 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:25.37 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
261 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:36.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
262 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:46.68 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
263 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:38:56.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
264 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:39:11.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
265 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:39:21.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
266 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:39:31.96 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
267 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:39:42.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
268 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:39:52.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
269 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:02.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
270 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:12.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
271 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:27.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
272 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:37.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
273 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:47.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
274 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:40:57.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
275 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:41:07.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
276 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:41:19.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
277 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:41:29.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
278 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:41:44.31 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
279 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:41:54.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
280 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:04.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
281 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:14.70 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
282 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:24.77 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
283 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:34.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
284 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:45.06 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
285 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:42:51.61 ID:8W3kNOpro
避難所に藻いるので対処よろ
286 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:00.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
287 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:10.31 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
288 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:20.30 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
289 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:30.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
290 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:40.57 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
291 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:43:50.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
292 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:05.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
293 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:15.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
294 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:25.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
295 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:35.96 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
296 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:46.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
297 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:44:56.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
298 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:45:11.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
299 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:45:21.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
300 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:45:31.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
301 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:45:41.59 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
302 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:45:51.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
303 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:01.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
304 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:12.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
305 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:22.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
306 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:32.38 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
307 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:47.36 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
308 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:46:57.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
309 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:07.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
310 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:17.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
311 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:27.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
312 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:37.70 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
313 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:47.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
314 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:47:57.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
315 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:08.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
316 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:18.10 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
317 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:23.33 ID:AcyNlC1SP
何を言おうが、書き込もうがいいけどRLくらい守れや。
ま、違法表示や脱法行為で稼いでるやつに言っても仕方ないかｗｗｗｗｗｗ
どうも検索上位になるのはイヤらしいな。
相談が始まったとたんにこれだからな。
解りやすいヤツｗｗｗｗｗｗ
318 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:28.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
319 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:38.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
320 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:48.50 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
321 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:48:58.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
322 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:08.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
323 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:18.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
324 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:28.84 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
325 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:38.98 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
326 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:49.07 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
327 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:49:59.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
328 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:50:14.22 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
329 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:50:24.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
330 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:50:34.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
331 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:50:44.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
332 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:50:54.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
333 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:51:04.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
334 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:51:19.77 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
335 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:51:29.94 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
336 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:51:40.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
337 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:51:50.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
338 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:00.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
339 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:10.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
340 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:25.38 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
341 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:35.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
342 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:45.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
343 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:52:55.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
344 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:05.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
345 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:15.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
346 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:26.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
347 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:36.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
348 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:46.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
349 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:53:56.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
350 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:54:06.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
351 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:54:16.57 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
352 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:54:26.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
353 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:54:36.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
354 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:54:51.77 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
355 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:01.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
356 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:12.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
357 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:22.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
358 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:32.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
359 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:42.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
360 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:55:52.67 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
361 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:02.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
362 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:13.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
363 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:23.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
364 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:33.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
365 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:43.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
366 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:56:58.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
367 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:08.83 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
368 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:18.98 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
369 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:29.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
370 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:39.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
371 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:49.31 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
372 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:57:59.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
373 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:14.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
374 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:24.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
375 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:34.74 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
376 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:44.54 ID:8W3kNOpro
わいもわかばっち検索しますで
はよ捕まってやｗｗｗｗｗｗｗｗｗｗｗｗ
377 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:44.99 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
378 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:58:55.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
379 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:05.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
380 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:15.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
381 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:25.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
382 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:35.50 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
383 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:45.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
384 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 01:59:55.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
385 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:00:05.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
386 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:00:16.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
387 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:00:26.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
388 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:00:36.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
389 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:00:46.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
390 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:01.47 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
391 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:11.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
392 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:21.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
393 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:31.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
394 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:41.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
395 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:01:52.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
396 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:02.07 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
397 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:12.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
398 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:22.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
399 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:32.48 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
400 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:42.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
401 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:02:52.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
402 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:02.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
403 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:12.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
404 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:23.10 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
405 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:38.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
406 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:48.33 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
407 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:03:58.43 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
408 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:04:08.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
409 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:04:18.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
410 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:04:28.80 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
411 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:04:38.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
412 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:04:49.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
413 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:04.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
414 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:14.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
415 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:24.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
416 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:34.57 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
417 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:44.66 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
418 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:05:54.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
419 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:06:04.90 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
420 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:06:15.48 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
421 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:06:25.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
422 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:06:35.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
423 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:06:45.80 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
424 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:00.90 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
425 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:11.06 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
426 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:21.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
427 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:31.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
428 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:41.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
429 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:07:51.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
430 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:01.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
431 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:11.83 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
432 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:26.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
433 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:37.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
434 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:47.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
435 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:08:57.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
436 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:07.47 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
437 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:17.53 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
438 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:27.58 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
439 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:37.62 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
440 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:47.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
441 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:09:57.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
442 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:10:08.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
443 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:10:18.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
444 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:10:28.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
445 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:10:38.31 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
446 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:10:53.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
447 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:03.53 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
448 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:14.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
449 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:29.16 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
450 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:39.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
451 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:49.43 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
452 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:11:59.48 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
453 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:12:09.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
454 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:12:19.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
455 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:12:29.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
456 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:12:44.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
457 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:12:55.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
458 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:13:05.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
459 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:13:15.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
460 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:13:25.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
461 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:13:35.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
462 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:13:45.65 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
463 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:00.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
464 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:10.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
465 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:20.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
466 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:31.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
467 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:41.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
468 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:14:51.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
469 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:01.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
470 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:16.46 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
471 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:26.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
472 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:36.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
473 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:46.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
474 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:15:57.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
475 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:16:07.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
476 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:16:17.52 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
477 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:16:27.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
478 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:16:37.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
479 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:16:47.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
480 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:03.06 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
481 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:13.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
482 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:23.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
483 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:33.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
484 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:43.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
485 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:17:53.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
486 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:03.67 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
487 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:18.74 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
488 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:28.94 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
489 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:39.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
490 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:49.16 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
491 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:18:59.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
492 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:19:09.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
493 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:19:19.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
494 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:19:29.77 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
495 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:19:44.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
496 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:19:54.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
497 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:05.22 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
498 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:15.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
499 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:25.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
500 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:35.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
501 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:45.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
502 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:20:55.64 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
503 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:21:10.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
504 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:21:21.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
505 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:21:31.55 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
506 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:21:46.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
507 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:21:56.81 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
508 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:06.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
509 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:17.01 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
510 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:27.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
511 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:37.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
512 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:47.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
513 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:22:57.52 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
514 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:07.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
515 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:17.66 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
516 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:27.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
517 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:37.82 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
518 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:47.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
519 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:23:57.95 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
520 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:24:13.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
521 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:24:23.22 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
522 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:24:33.33 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
523 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:24:43.48 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
524 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:24:53.60 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
525 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:03.72 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
526 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:13.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
527 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:24.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
528 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:34.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
529 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:49.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
530 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:25:59.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
531 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:26:09.61 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
532 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:26:20.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
533 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:26:30.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
534 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:26:40.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
535 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:26:50.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
536 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:00.44 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
537 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:10.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
538 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:20.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
539 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:30.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
540 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:40.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
541 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:27:50.94 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
542 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:01.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
543 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:11.87 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
544 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:21.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
545 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:31.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
546 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:41.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
547 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:28:51.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
548 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:29:08.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
549 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:29:19.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
550 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:29:29.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
551 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:29:39.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
552 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:29:53.99 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
553 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:04.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
554 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:14.14 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
555 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:24.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
556 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:34.22 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
557 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:44.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
558 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:30:54.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
559 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:31:04.37 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
560 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:31:14.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
561 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:31:25.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
562 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:31:35.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
563 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:31:45.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
564 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:00.03 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
565 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:10.12 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
566 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:20.13 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
567 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:30.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
568 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:45.11 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
569 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:32:55.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
570 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:05.20 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
571 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:15.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
572 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:25.23 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
573 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:35.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
574 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:45.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
575 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:33:55.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
576 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:34:05.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
577 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:34:20.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
578 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:34:30.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
579 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:34:40.42 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
580 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:34:50.49 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
581 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:00.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
582 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:15.58 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
583 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:25.68 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
584 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:35.71 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
585 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:45.76 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
586 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:35:55.79 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
587 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:36:10.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
588 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:36:22.05 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
589 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:36:32.16 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
590 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:36:42.94 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
591 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:36:54.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
592 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:37:04.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
593 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:37:19.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
594 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:37:30.56 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
595 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:37:41.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
596 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:37:51.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
597 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:01.91 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
598 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:11.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
599 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:27.02 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
600 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:37.19 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
601 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:47.18 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
602 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:38:57.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
603 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:39:07.32 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
604 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:39:22.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
605 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:39:32.50 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
606 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:39:42.67 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
607 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:39:52.83 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
608 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:02.89 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
609 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:12.93 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
610 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:23.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
611 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:38.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
612 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:48.28 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
613 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:40:58.43 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
614 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:08.83 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
615 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:19.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
616 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:29.27 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
617 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:39.35 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
618 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:49.45 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
619 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:41:59.54 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
620 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:42:09.66 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
621 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:42:26.69 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
622 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:42:36.85 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
623 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:42:46.92 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
624 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:42:57.08 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
625 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:43:07.17 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
626 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:43:17.24 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
627 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:43:32.26 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
628 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:43:42.43 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
629 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:43:52.57 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
630 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:02.68 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
631 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:12.84 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
632 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:22.97 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
633 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:33.41 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
634 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:43.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
635 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:44:53.68 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
636 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:03.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
637 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:13.95 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
638 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:28.99 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
639 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:39.25 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
640 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:49.40 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
641 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:45:59.59 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
642 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:46:09.70 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
643 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:46:25.29 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
644 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:46:35.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
645 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:46:45.51 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
646 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:46:55.58 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
647 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:47:05.80 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
648 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:47:15.78 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
649 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:47:30.84 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
650 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:47:41.00 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
651 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:47:51.09 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
652 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:01.21 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
653 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:11.36 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
654 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:21.47 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
655 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:31.59 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
656 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:46.62 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
657 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:48:56.75 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
658 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:49:06.88 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
659 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:49:21.95 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
660 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:49:32.04 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
661 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:49:42.15 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
662 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:49:52.34 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
663 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:50:02.39 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
664 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:50:12.63 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
665 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:50:23.73 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
666 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:50:33.86 ID:Bc5QRwbY0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
667 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:51:04.54 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
668 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:51:14.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
669 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:51:24.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
670 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:51:39.58 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
671 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:51:50.19 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
672 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:52:05.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
673 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:52:15.96 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
674 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:52:25.95 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
675 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:52:36.06 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
676 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:52:51.32 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
677 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:01.49 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
678 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:11.56 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
679 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:21.64 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
680 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:31.66 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
681 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:42.99 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
682 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:53:53.07 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
683 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:03.10 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
684 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:13.12 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
685 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:23.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
686 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:33.29 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
687 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:43.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
688 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:54:58.34 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
689 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:08.46 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
690 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:18.55 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
691 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:28.67 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
692 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:38.68 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
693 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:48.74 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
694 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:55:58.79 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
695 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:56:08.97 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
696 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:56:19.12 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
697 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:56:29.19 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
698 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:56:39.24 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
699 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:56:49.33 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
700 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:04.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
701 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:14.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
702 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:24.38 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
703 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:34.45 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
704 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:44.43 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
705 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:57:54.49 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
706 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:58:04.64 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
707 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:58:14.77 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
708 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:58:24.77 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
709 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:58:34.85 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
710 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:58:45.00 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
711 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:00.02 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
712 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:10.16 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
713 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:20.25 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
714 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:30.35 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
715 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:40.49 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
716 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 02:59:50.58 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
717 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:00.69 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
718 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:15.74 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
719 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:25.88 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
720 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:36.03 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
721 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:46.12 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
722 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:00:56.22 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
723 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:01:06.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
724 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:01:16.44 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
725 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:01:31.55 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
726 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:01:41.67 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
727 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:01:51.77 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
728 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:01.88 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
729 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:11.97 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
730 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:22.07 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
731 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:32.19 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
732 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:47.25 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
733 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:02:57.40 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
734 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:03:07.51 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
735 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:03:17.59 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
736 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:03:27.70 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
737 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:03:37.84 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
738 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:03:52.88 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
739 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:03.00 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
740 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:13.12 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
741 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:23.18 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
742 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:33.37 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
743 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:43.41 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
744 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:04:53.53 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
745 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:08.61 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
746 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:18.85 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
747 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:28.90 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
748 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:38.96 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
749 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:49.02 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
750 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:05:59.17 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
751 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:06:14.21 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
752 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:06:24.46 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
753 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:06:34.61 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
754 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:06:44.68 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
755 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:06:54.82 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
756 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:07:04.95 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
757 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:07:15.03 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
758 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:07:25.13 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
759 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:07:35.26 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
760 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:07:50.40 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
761 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:00.50 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
762 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:10.56 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
763 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:20.65 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
764 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:30.72 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
765 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:45.73 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
766 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:08:55.93 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
767 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:09:06.10 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
768 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:09:16.19 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
769 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:09:26.34 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
770 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:09:36.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
771 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:09:46.42 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
772 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:01.50 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
773 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:11.67 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
774 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:21.73 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
775 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:31.80 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
776 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:41.89 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
777 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:10:51.95 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
778 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:11:06.98 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
779 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:11:17.63 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
780 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:11:27.79 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
781 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:11:42.83 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
782 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:11:52.96 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
783 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:03.02 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
784 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:13.17 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
785 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:23.33 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
786 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:33.35 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
787 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:48.41 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
788 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:12:58.56 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
789 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:08.68 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
790 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:18.89 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
791 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:28.96 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
792 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:39.10 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
793 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:49.22 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
794 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:13:59.28 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
795 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:14:14.35 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
796 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:14:24.46 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
797 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:14:34.59 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
798 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:14:44.75 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
799 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:14:54.86 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
800 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:04.86 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
801 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:15.10 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
802 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:25.15 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
803 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:35.26 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
804 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:45.45 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
805 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:15:55.80 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
806 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:16:05.82 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
807 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:16:16.93 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
808 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:16:26.83 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
809 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:16:43.95 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
810 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:00.35 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
811 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:15.67 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
812 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:25.91 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
813 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:36.48 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
814 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:46.74 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
815 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:17:56.84 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
816 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:18:06.89 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
817 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:18:16.92 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
818 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:18:27.01 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
819 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:18:37.02 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
820 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:18:47.20 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
821 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:04.17 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
822 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:14.48 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
823 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:24.69 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
824 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:34.78 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
825 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:44.86 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
826 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:19:54.96 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
827 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:20:05.06 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
828 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:20:15.21 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
829 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:20:30.34 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
830 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:20:40.39 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
831 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:20:50.45 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
832 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:00.65 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
833 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:10.74 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
834 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:20.87 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
835 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:30.95 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
836 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:46.00 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
837 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:21:56.11 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
838 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:22:06.26 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
839 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:22:16.31 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
840 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:22:32.08 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
841 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:22:47.43 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
842 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:22:57.51 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
843 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:23:07.56 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
844 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:23:17.69 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
845 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:23:27.73 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
846 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:23:37.82 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
847 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:23:52.91 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
848 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:03.10 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
849 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:13.19 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
850 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:23.34 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
851 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:33.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
852 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:43.70 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
853 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:24:53.62 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
854 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:08.73 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
855 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:18.84 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
856 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:28.90 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
857 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:39.06 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
858 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:49.27 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
859 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:25:59.35 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
860 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:26:09.47 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
861 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:26:19.97 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
862 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:26:29.98 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
863 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:26:40.11 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
864 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:26:50.17 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
865 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:00.29 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
866 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:10.30 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
867 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:20.38 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
868 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:30.47 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
869 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:40.54 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
870 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:27:55.66 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
871 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:28:05.82 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
872 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:28:15.89 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
873 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:28:25.93 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
874 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:28:36.16 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
875 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:28:46.42 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
876 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:29:00.41 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
877 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:29:10.30 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
878 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:29:25.34 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
879 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:29:41.18 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
880 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:29:51.28 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
881 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:02.66 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
882 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:12.93 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
883 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:28.23 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
884 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:38.38 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
885 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:48.51 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
886 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:30:58.57 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
887 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:31:08.89 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
888 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:31:18.94 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
889 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:31:28.99 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
890 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:31:44.04 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
891 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:31:54.13 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
892 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:04.41 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
893 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:14.71 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
894 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:24.88 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
895 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:34.90 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
896 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:45.06 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
897 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:32:55.15 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
898 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:05.21 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
899 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:15.14 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
900 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:25.40 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
901 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:35.33 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
902 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:45.37 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
903 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:33:55.43 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
904 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:34:10.46 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
905 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:34:20.57 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
906 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:34:30.83 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
907 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:34:40.91 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
908 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:34:50.99 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
909 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:35:01.08 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
910 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:35:11.20 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
911 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:35:26.23 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
912 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:35:36.36 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
913 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:35:46.67 ID:PM/fnqRF0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
914 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:07.01 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
915 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:17.01 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
916 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:27.10 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
917 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:37.11 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
918 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:47.18 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
919 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:36:57.30 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
920 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:37:07.53 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
921 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:37:19.64 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
922 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:37:29.86 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
923 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:37:39.90 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
924 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:37:49.96 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
925 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:04.93 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
926 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:15.11 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
927 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:25.05 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
928 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:35.12 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
929 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:45.36 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
930 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:38:55.68 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
931 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:39:05.87 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
932 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:39:15.93 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
933 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:39:30.95 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
934 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:39:41.03 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
935 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:39:51.16 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
936 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:01.34 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
937 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:11.30 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
938 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:21.45 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
939 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:31.46 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
940 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:41.47 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
941 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:40:51.52 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
942 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:01.56 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
943 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:11.85 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
944 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:22.20 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
945 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:32.18 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
946 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:42.30 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
947 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:41:53.98 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
948 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:05.35 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
949 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:15.43 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
950 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:25.68 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
951 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:35.96 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
952 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:46.03 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
953 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:42:56.28 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
954 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:43:11.07 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
955 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:43:21.14 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
956 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:43:31.18 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
957 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:43:41.21 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
958 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:43:51.29 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
959 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:01.30 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
960 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:11.40 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
961 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:21.50 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
962 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:31.60 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
963 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:41.67 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
964 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:44:51.85 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
965 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:01.93 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
966 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:17.12 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
967 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:27.25 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
968 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:37.27 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
969 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:47.60 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
970 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:45:57.54 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
971 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:46:07.58 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
972 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:46:17.97 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
973 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:46:28.02 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
974 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:46:43.09 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
975 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:46:53.33 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
976 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:03.48 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
977 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:13.66 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
978 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:23.88 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
979 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:34.36 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
980 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:44.44 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
981 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:47:54.60 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
982 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:04.80 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
983 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:14.75 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
984 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:24.83 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
985 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:34.90 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
986 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:44.98 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
987 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:48:55.25 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
988 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:49:05.46 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
989 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:49:15.65 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
990 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:49:25.73 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
991 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:49:38.58 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
992 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:49:50.12 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
993 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:06.86 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
994 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:17.76 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
995 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:28.09 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
996 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:38.81 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
997 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:48.86 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
998 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:50:58.90 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
999 ：
以下、VIPにかわりましてパー速民がお送りします
[sage]：2012/04/16(月) 03:51:08.94 ID:/utyt8Nl0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
1000 ：
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
[sage]：2012/04/16(月) 03:51:13.37 ID:vAOfoK49o
1000
1001 ：
1001
Over 1000 Thread
,.――――-､
ヽ /￣￣￣｀ヽ、 【呪いのパーマン Ver2.0】
| | （・）｡（･）; このスレッドは1000を超えました。|
| |＠＿,.--､_,> このレスを見たら10秒以内に次スレを建てないと死にます。
ヽヽ＿＿＿ノ 次スレを10秒以内に建てても死にます。
パー速＠VIPService
http://ex14.vip2ch.com/part4vip/
ローカルルール変更に伴い、1000到達の報告が不要になりました。
1002 ：
最近建ったスレッドのご案内★
Powered By VIP Service
P「おはようございます、星井さん」 美希「……ハニー？」 ＠ 2012/04/16(月) 02:18:21.15 ID:8FkUSUNt0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1334510301/
QB？「今までの僕とは違う」 ＠ 2012/04/16(月) 01:59:27.57 ID:zoiptwv3o
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1334509167/
今日も元気だ酒がうまい ＠ 2012/04/16(月) 01:55:48.98 ID:bV2APgI/o
http://ex14.vip2ch.com/test/read.cgi/aa/1334508948/
今日も元気だ酒がまずい！ ＠ 2012/04/16(月) 01:43:03.54
http://ex14.vip2ch.com/test/read.cgi/news4vip/1334508183/
杏子「朝起きたら、ほむほむがアタシの口の中で死んでいた……」 ＠ 2012/04/16(月) 01:25:17.73 ID:lu7R3tvXo
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1334507117/
【A雑】ファリパーク避難所【します】 ＠ 2012/04/16(月) 01:22:22.81 ID:8qE+7L5yo
http://ex14.vip2ch.com/test/read.cgi/aa/1334506942/
相思相愛の二人が出会った変態！好き…変態！11P目 ＠ 2012/04/16(月) 01:17:31.54 ID:iC89/XnDo
http://ex14.vip2ch.com/test/read.cgi/part4vip/1334506651/
暇だからみんなで安価画像うp◆100（sage進行） ＠ 2012/04/16(月) 00:41:04.60 ID:o31mX9mIO
http://ex14.vip2ch.com/test/read.cgi/part4vip/1334504464/
VIPサービスの新スレ報告ボットはじめました
http://twitter.com/ex14bot/
管理人もやってます
http://twitter.com/aramaki_vip2ch/
Powered By VIPService
http://vip2ch.com/
Pastlog.cgi Ver2.0
Powered By
VIP Service
Script Base by
toshinari
