以下、VIPにかわりましてパー速民がお送りします<><>2012/02/03(金) 23:41:04.88 ID:cuOXamEco<>≪まとめ≫
TwitterのTL動画 http://www.youtube.com/watch?v=IT11x4bsgOw
45秒あたりから割れ厨発言 動画の最後に喫煙発言があります。※全画面視聴推奨
mixi http://mixi.jp/show_friend.pl?&id=31571376 （垢は現在削除）
http://i.imgur.com/z2KYN.png （名字のソース）
http://www.dotup.org/uploda/www.dotup.org2592124.jpg mixiプロフ
じゃすとまと同じ高校と思われる人物の紹介文→ttp://www.dotup.org/uploda/www.dotup.org2592150.jpg
そいつのプロフttp://www.dotup.org/uploda/www.dotup.org2592151.jpg
本人がよく行くゲーセンのしたらば ttp://jbbs.livedoor.jp/bbs/read.cgi/game/50141/1304821116/l50<>現在明聖高校で今年から明大1年生のじゃすとまくんがtwitterで割れ厨宣言【避難所】
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/03(金) 23:51:33.43 ID:pw/g6RjO0<> 女いるんだっけ？ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/03(金) 23:54:14.93 ID:4rm3g0kA0<> 女いるね
彼女ありのリア充割れ厨 <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/03(金) 23:56:59.83 ID:UbikunaT0<> 卒業取り消しがゴール？ <>
以下、VIPにかわりましてパー速民がお送りします(埼玉県)<><>2012/02/03(金) 23:59:32.43 ID:Bb5VWsLv0<> mixi、twitterは消えた 確実に作り直しているので特定でき次第晒し
スカID gdaymate71 これも変えてくるだろう
4月から明大 割れ厨 割ったデータをDVDに焼いて他人に配るという確実な犯罪行為
喫煙をしている
名字は小早川の可能性大 ガンダムエクストリームバーサスでは微妙に有名かもしれないのでじゃすとまと表記も効果有り
浦安市立富岡小学校・富岡中学校卒業生
高校は明聖
これも載せとこう <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:00:54.07 ID:J52dEj8C0<> 女の詳細わからんの？ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 00:03:58.44 ID:Nk9LKZxc0<> 女のほうの情報はさっぱりだなー <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:05:04.26 ID:58fwwgBLo<> とりあえず同じ高校の奴を一人でいいからスカウトしたいところだなー <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:05:27.91 ID:J52dEj8C0<> そっち関係からじゃすとま責められたらおもしろいのになー <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 00:08:46.29 ID:giehD0ki0<> mixiのSSとってあるなら紹介文書いてる奴に接触だな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:09:46.04 ID:J52dEj8C0<> mixi垢もってる勢頼んだ
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:11:53.43 ID:58fwwgBLo<> まだvip落ちてないのにこっちで盛り上がんなよ <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/04(土) 00:12:56.33 ID:AOWagduR0<> 明大ってのは明治じゃなくて明海大学っていうｋｓ大学
名前は小早川昌太 <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 00:14:13.37 ID:giehD0ki0<> なんだFランか <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:14:29.76 ID:58fwwgBLo<> >>13
ＧＪ
どういう知り合いか詳しく教えてくれ
同じ学校なら学生証うｐで <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:16:19.32 ID:J52dEj8C0<> 女の情報求む <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/04(土) 00:19:48.73 ID:AOWagduR0<> http://twitter.com/jstmymelo
女のツイッター <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:21:45.06 ID:58fwwgBLo<> >>17
とりあえず何者か教えてくれ
関係性も含めて <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 00:24:11.75 ID:giehD0ki0<> 向こうは既に臨戦態勢だなｗｗｗｗｗｗ
情報望めそうにないか <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/04(土) 00:28:05.79 ID:AOWagduR0<> >>18
特定怖いから勘弁
ほかに質問ある？
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:28:30.22 ID:J52dEj8C0<> >>17
ＧＪ
しかし鍵かけられてんなー
とりあえずお前何者なんだ
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:28:45.69 ID:58fwwgBLo<> 名前が小早川で確定なら浦安市民に電話帳で「富岡の『小早川』」さんを探してもらえば
住所・電話番号割れるな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:30:50.33 ID:58fwwgBLo<> >>20
じゃあ捨てアド晒せ
メールで何者か教えろ
それなら問題ないだろ？
聞いたこっちも身バレしないように
晒してやるから
とりあえず何者か知りたいんだ <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:31:18.31 ID:JNLZl9an0<> 非公開のツイッター垢でも外部ツール使うと見られたり...
ttp://ja.favstar.fm/ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 00:34:45.36 ID:giehD0ki0<> 勝ち確だな
じゃすとまくんもう諦めて首くくれや＾＾Fランの頭じゃそんなこともわからんのか＾＾ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:38:04.54 ID:J52dEj8C0<> >>20
女の詳細なんかわかる？
あとは、じゃすとまの背格好とか。 <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:38:42.37 ID:x2zl0znu0<> えっと、関係者がかく乱情報流してる可能性もあるから
ある程度の確認がとれるまで本人以外への凸とかはしないほうがいいと思います <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:39:56.95 ID:JNLZl9an0<> >>17
アカウント消えた
<>
以下、VIPにかわりましてパー速民がお送りします(埼玉県)<><>2012/02/04(土) 00:40:01.58 ID:NAIJDATv0<> 消されたか <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/04(土) 00:42:16.71 ID:AOWagduR0<> 背は高い。１８５ｃｍ猫背ぎみ <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:42:40.72 ID:JNLZl9an0<> まあIDググれば出るし
キャッシュあるし <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:45:27.80 ID:JNLZl9an0<> >>29
しかしここも見てるってことか
深夜なのに精が出ますね＾＾ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:45:32.71 ID:58fwwgBLo<> >>30
とりあえず関係性を聞くのは後回しにして
写メとかあるか？ <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/04(土) 00:45:59.91 ID:AOWagduR0<> ない <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 00:48:22.28 ID:giehD0ki0<> Twitterに顔晒し写真あったな
知り合いのところから探してみる <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 00:49:46.10 ID:J52dEj8C0<> >>28>>29http://mixi.jp/show_profile.pl?id=43701029&from=navi
消してはないみたいだ、
ＩＤ変更した様子。
探してるなう。
>>34
他になにか提供できるネタはあるか？ <>
以下、VIPにかわりましてパー速民がお送りします(不明なsoftbank)<><>2012/02/04(土) 00:52:35.04 ID:Rkcisec30<> 住所とか割れれば最高なんだがな <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:53:52.59 ID:JNLZl9an0<> >>36
乙
<>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 00:58:32.53 ID:lO12uvkz0<> >>36
とりあえず本スレでやれ
こっちをお前が盛り上げてる間に本スレが落ちてしまうだろｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 01:00:18.49 ID:Nk9LKZxc0<> まぁこっちって長時間放置しても落ちないんだっけ？
こっちメインにしてもいいかもな あっちは落ちたら新規のやつ見れんし <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 01:01:06.74 ID:58fwwgBLo<> こっちは落ちないから保守不要 <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 01:02:04.15 ID:lO12uvkz0<> いやこっちと向こうじゃ人の集まり方が違うだろ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 01:06:17.52 ID:Nk9LKZxc0<> 確かに。
可能な限りあっちのスレあげとかないとな <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 01:08:42.55 ID:trvbB4p00<> てかこっち基本放置でいいんだよ。
避難所の意味分かってる？ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 02:23:15.41 ID:giehD0ki0<> 規制されてるからこっちで書くが
卒業取り消しは3月31日まで存在する
４月から新年度だからな
つまり3月31日までに高校に卒業取り消しさせれば俺らの勝ち <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 02:54:53.87 ID:giehD0ki0<> https://twitter.com/castile_s
ID変えただけだな 頭わり−ｗｗｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 03:10:53.13 ID:Nk9LKZxc0<> ツイート非公開のって見る方法あったよなー どうやんだっけか <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/04(土) 03:12:40.99 ID:X7yYeTkAo<> うｎ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 04:20:25.55 ID:giehD0ki0<> http://fotolog.cc/a2LimV
はい顔バレーｗｗｗｗｗｗｗｗ
おつかれーｗｗｗｗｗｗｗｗｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 04:40:29.90 ID:XPpKEH8DO<> >>49
ＧＪ
早くメインスレに投下するんだ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 07:28:07.20 ID:ihJakAOq0<> メインスレに書き込みできないんだが。
規制ひっかかる。
とりあえずお前らが寝てる間に女の特定できたぞ
こっちから攻めるもありかもな <>
以下、VIPにかわりましてパー速民がお送りします(北海道)<>sage<>2012/02/04(土) 08:12:01.19 ID:QUq6fdkqo<> >>49
このYのマークのコンビニどこ？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 08:15:59.80 ID:GzcFqJ+m0<> >>52
Ｙで、考えて思い付くのは
デイリーヤマザキ？
近くにないから確認できないが、
デイリーヤマザキとかじゃないなら個人経営とかなんじゃ？
有名どころでＹが絡む名前ないだろ <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 08:21:47.64 ID:aEnt31Ra0<> ヤマザキショップじゃないか？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 09:32:20.09 ID:IP6sjiI10<> 本スレ落ちたな <>
以下、VIPにかわりましてパー速民がお送りします(不明なsoftbank)<><>2012/02/04(土) 10:07:30.88 ID:8O0nseUWo<> 本スレは <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<>age<>2012/02/04(土) 10:55:02.24 ID:b9pZSEyfo<> まあそういうときの避難所だ
有効活用しようぜ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 12:00:57.49 ID:giehD0ki0<> 本スレ落ちたから大丈夫だろとか言ってるぞ
なめんな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 13:33:12.13 ID:58fwwgBLo<> 結局本スレ落ちましたか
あと>>58言ってるんですか
これは本気出さないといけませんね
いわゆる「宣戦布告」ですよね>>58は <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 13:43:28.31 ID:JNLZl9an0<> 学校名前顔犯罪告白ツイート抑えられててよく大丈夫とかいえるなあ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 13:49:39.51 ID:Nk9LKZxc0<> 本スレ落ちて大丈夫と安心してるならまた立てればいい話だな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 14:05:08.24 ID:qLNKwYs70<> >>58は本人の発言？ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 14:30:07.22 ID:Nk9LKZxc0<> PSNIDはjastomaだけどサブ垢とかもあるだろうしなぁ <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 14:40:23.95 ID:JNLZl9an0<> >>63
PSN垢には使えるデータなかったな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 15:01:13.34 ID:giehD0ki0<> >>62
じゃすとまのゲーセン仲間 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 15:10:38.66 ID:iXO3lVcm0<> >>62
ほう
てか女の特定の話どうなった？
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 15:26:32.94 ID:58fwwgBLo<> とりあえずnaverまとめにてまとめ作成しておきました
誰でも編集可能にすると内容書きかえられる恐れがあるので
制作者である私のみ編集可能にしてあります
付け足して欲しい事・修正点あればスレに書いていただければ直します
http://matome.naver.jp/odai/2132833099755917901 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 15:30:53.18 ID:iXO3lVcm0<> >>66
とりあえずじゃすとまの女の確情
同い年、浦安市内住み、同じゲーセンにいる
mixi、Twitterは上を参照。
本名は押さえてないが直にわかるかと。
こいつ押さえてじゃすとま揺するもありか？
おもしろくなりそうだけど。 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 16:04:41.92 ID:FaCbuEZRo<> 大丈夫だろとかいってるんだろ？全力で行こうぜw <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 17:47:42.18 ID:iXO3lVcm0<> くれぐれも本人以外には凸すんなよ。 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 17:59:29.40 ID:Inl+gpxIO<> 大丈夫だろって言ったのはじゃすとまの友人じゃないか？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 18:02:23.17 ID:58fwwgBLo<> >>70
本人に凸してどうすんだよ
本人にばれないように情報収集すんだろ
まぁー気づいてるとは思うが <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 19:57:59.56 ID:iXO3lVcm0<> 今回の一件で彼女と別れたじゃすとまくんｗｗｗｗｗｗｗｗ
大学取り消しまでいけば勝利やでｗｗｗｗｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:04:07.97 ID:58fwwgBLo<> >>73
ん？
別れたのかｗｗ
上でツイッターとmixiのアドレス教えてくれた女とか？ <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<><>2012/02/04(土) 20:09:12.75 ID:+mezr1jR0<> もっと人集めしたほうがいいんじゃ
同じ学校のやつなんかを見つけられたらいいんだが <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:10:20.34 ID:58fwwgBLo<> >>75
そうなんだよな
今のところmixiで探そうかって話にはなってるんだが <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:19:34.87 ID:iXO3lVcm0<> >>74
そう、上でTwitterやらmixiやら特定した女と
別れたらしいｗｗｗｗ
巻き込まれるのは嫌だってことらしいぞ
じゃすとまくん、りあ充じゃなくなって残念ですねーｗｗｗｗ
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:30:24.46 ID:giehD0ki0<> >>77
それどこで言ってたの? <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:42:02.92 ID:iXO3lVcm0<> >>78
今日の大会で小耳にはさんだぜ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:49:03.68 ID:58fwwgBLo<> >>79
大会って事は
ゲーム仲間か <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:50:06.17 ID:giehD0ki0<> >>79
なるほど まぁ自業自得だわぁな
あとは学校か <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:50:21.52 ID:iXO3lVcm0<> >>80
本人と直接コンタクトはないがな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 20:57:04.27 ID:58fwwgBLo<> >>81
じゃあ同じ学校の奴を探すか
でmixi垢持ってる奴は捜索してるんだろうか？
それと昨日調査した結果ではしたらばの
千葉の高校板にスレ無かったんだよなー
スレあればここに呼ぶこと位楽勝だったのに <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/04(土) 21:38:23.89 ID:xv0uICB40<> http://ekitan.com/m/eknv/C/100201/D/09S-24-0f-1703750.html?guid=ON
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/04(土) 21:42:22.29 ID:giehD0ki0<> GJ
Twitterによると週１でしかシフトに入っていたらしい
シフト中にパソコンでTwitterやってるあほ
曜日はわからねえ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/04(土) 23:27:24.79 ID:Nk9LKZxc0<> とりあえず名前割れてるなら電凸しまくればおｋ？
あとはちょくちょくスレ立てたり誘導したりして人増やして火力をあげるか <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/05(日) 00:43:01.77 ID:TyLk2tVso<> あとはバイト先に凸って終わりって感じか？
学校や進学先の大学への凸はしなくていいのか？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/05(日) 00:46:41.05 ID:HMWm6iVT0<> バイト先より学校じゃない？ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/05(日) 01:18:14.29 ID:r+n7cAvr0<> 浦安に明海大あるし明海大で間違いなさそうだな <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/05(日) 07:22:28.87 ID:I8Bn/0tIo<> 次スレとかがあれば本名入れてスレ立てすれば祭りになるだろう
EXVSプレーヤーとしてそこそこ有名らしいからじゃすとまっていれておくのもいいな <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<>sage<>2012/02/05(日) 11:11:37.99 ID:/0sCVjCBo<> 本スレどっかにたってる？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/05(日) 12:16:16.93 ID:J69+e0ZM0<> >>87>>88
学校に凸ったところで相手にされなくね？
どっちもｋｓ学校だろ？
だったらバイト先割れてるんだしそっち凸して
ゴールなのでは？
まあだんだんつまらなくなってきたが。 <>
以下、VIPにかわりましてパー速民がお送りします(東京都)<>sage<>2012/02/05(日) 12:54:45.49 ID:S1yQYd630<> 明大ってややこしい呼び方してるけど明治じゃなくて明海かよｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ガチFランじゃねーかｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗこれは仕方ないｗｗｗｗｗｗ
明治以外明大って呼ぶな（ｷﾘｯ <>
以下、VIPにかわりましてパー速民がお送りします(不明なsoftbank)<><>2012/02/05(日) 13:41:07.76 ID:jtlNAED/o<> 本スレ立てるなりしないともう鎮火しちゃうよ
燃料もないしTwitterとかでも話題になってないし <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/05(日) 15:36:01.04 ID:I8Bn/0tIo<> 本スレが落ちたのが痛いな… <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/05(日) 16:12:48.28 ID:2GMfzPe30<> 結局どこがゴールなの？
<>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/05(日) 16:46:35.76 ID:L/OUZWIW0<> 立てられるようになったらVIPとかで
スレたてるわ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/05(日) 18:54:21.29 ID:I8Bn/0tIo<> よろ！ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/06(月) 02:23:35.01 ID:D8WDGH+L0<> ここじゃすとまとかみてスレ伸びてないで安心してるんだったら大間違いだぞ
ここ避難所だからねぇ わかるよね、意味 いったいいくつスレあるんでしょうねぇｗｗ
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/06(月) 10:27:58.41 ID:2OjwCp5V0<> 本スレはよ <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/06(月) 10:58:29.60 ID:6jfUR7M10<> 鎮火しそうだな
フォローしてる関係からおそらくじゃすとまの女のサブ垢
http://twitter.com/muumelody <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/06(月) 11:30:35.42 ID:2OjwCp5V0<> >>101
でも別れたんだろ？
そんなことより、本スレはよ。
本人の垢はよ、 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/06(月) 11:51:56.79 ID:oEbwuLCQo<> naverまとめ作った本人だが
新潟の喫煙中学生が盛り上がってるから
スレ立てた所でダメかと思ってたんだが
そのスレ落ちてたから立てるなら今だな
でスレ立てるなら立ててもいいが
夜中の人がいる時間帯に立てるってのはどうだ？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/06(月) 11:56:54.21 ID:2OjwCp5V0<> >>103
スレ立てられるならよろ。
とりあえず立てておいてくれれば
定期的に晒しあげするが。
夜中というよりか22時あたりぐらいがベストかと。
まあ立てられるなら早めに頼む <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/06(月) 11:58:06.54 ID:oEbwuLCQo<> >>104
じゃあ>>1の内容でも考えてくれ
naverまとめのアドレスは分かってるからそれ以外で <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/06(月) 16:42:28.27 ID:+6rP81mlo<> >>5を元に作ったらどうだ？ <>
105<><>2012/02/07(火) 20:11:52.15 ID:j2ps73Vvo<> ちょっとまとめを修正してきた
画像もすぐ消えないロダに上げ直してきた
ってことでこうれでどうだろうか？
＜スレタイ＞
今年から明大１年生のじゃすとまくんがtwitterで割れ厨宣言
＜>>1＞
TwitterのTL動画 http://www.youtube.com/watch?v=IT11x4bsgOw
45秒あたりから割れ厨発言 動画の最後に喫煙発言があります。※全画面視聴推奨
mixi http://mixi.jp/show_friend.pl?&id=31571376 （垢は現在削除）
http://imefix.info/20120206/21248/rare.jpeg（mixiプロフ）
http://imefix.info/20120206/251247/rare.jpeg（名字のソース）
じゃすとまと同じ高校と思われる人物の紹介文
http://imefix.info/20120206/301249/rare.jpeg
そいつのプロフ
http://imefix.info/20120206/581250/rare.jpeg
本人がよく行くゲーセンのしたらば http://jbbs.livedoor.jp/bbs/read.cgi/game/50141/1304821116/
mixi、twitterは消えた 確実に作り直しているので特定でき次第晒し
スカID gdaymate71 これも変えてくるだろう
4月から明大 割れ厨 割ったデータをDVDに焼いて他人に配るという確実な犯罪行為
喫煙をしている
ガンダムエクストリームバーサスでは微妙に有名かもしれないのでじゃすとまと表記も効果有り
まとめ：http://matome.naver.jp/odai/2132833099755917901 <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/07(火) 21:04:45.60 ID:t/OISSyp0<> おい、じゃすとまくんmixi復帰してんぞwwwwwwwwwww
ワイのマスターガンダ ってやつだってよ
url？しらんがな！！！ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/07(火) 21:15:00.77 ID:OqoMXNrio<> 相手も調子乗ってるしそろそろ行くときだろう <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 21:19:56.20 ID:Q93xYoLh0<> きたか…！ <>
105<><>2012/02/07(火) 21:26:56.46 ID:j2ps73Vvo<> >>108
mixiのＵＲＬとスクショをお願いする <>
105<><>2012/02/07(火) 21:35:22.24 ID:j2ps73Vvo<> >>108
スレ良く読んでなかったんだが知らんのか
だれかＵＲＬとスクショ頼む
ＵＲＬとスクショ来次第まとめ修正するのとvipにスレ立ててくる <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 21:53:40.63 ID:Q93xYoLh0<> じゃすとまTwitterでも復活してるぞ
https://twitter.com/tonosamaxp <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 21:56:23.34 ID:j2ps73Vvo<> >>113
ＧＪ
せっかく色々復活した所だから
スレ立てるのもうちょっと待って少し泳がせてみるか
またボロ出すかもしれんし
そしたらまたメシウマ出来る <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 22:11:31.66 ID:j2ps73Vvo<> >>113
見て来たが違うんじゃないか？
京都でとか書いてるぞ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 22:16:33.81 ID:Q93xYoLh0<> >>115
いや、フェイクだよ
そうやって書けば怪しまれないだろっていう浅はかな考え
IDでTwitter検索すればわかるけど
「最近作った垢」「なにかあった」「名前を偽る必要がある」人物
そして以前とフォローしている連中は一致
これは完全にじゃすとま <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 22:20:37.14 ID:j2ps73Vvo<> >>116
そうなのか
あとたしか鍵付きのツイートも見れるサイトあったよな？
知ってるやついたら教えてくれツイート見てくる <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/07(火) 22:27:44.04 ID:OqoMXNrio<> だがあそこらへんのTwitterEXVS勢はだいたい交友関係被ってるから一応別人の可能性あるの気をつけ他方がいいと思う <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 23:24:13.48 ID:wc+W8axZ0<> あいつここ見てないのかなー <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/07(火) 23:24:29.12 ID:wc+W8axZ0<> あいつここ見てないのかなー <>
ウイングマン<><>2012/02/07(火) 23:40:53.60 ID:d4WqrpNIO<> 雨降ってんだけど <>
ウイングマン<>Sage<>2012/02/07(火) 23:41:38.81 ID:d4WqrpNIO<> 雨降ってんだけど <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/08(水) 00:04:42.91 ID:LMHrhzH10<> つまんねー
はよ、本スレ。 <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/08(水) 02:10:03.47 ID:N6mYuDdCo<> 本スレこないと盛り上がらないからな… <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/08(水) 09:39:08.72 ID:t7m5uoin0<> key=breaken <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/09(木) 00:08:39.76 ID:70yOCAyw0<> もう沈静化してると思ってた
じゃすとまくんのお友だちから頂きましたーｗｗｗｗｗｗｗｗ
全力出していこうか <>
以下、VIPにかわりましてパー速民がお送りします<>Sage<>2012/02/09(木) 00:15:02.77 ID:JOhmu78IO<> もう盛り上がってないんだからやめよ！ね？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/09(木) 00:30:38.90 ID:70yOCAyw0<> >>127
なんだ、仲間かなんかなの？ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/09(木) 01:27:56.65 ID:mZlbYutf0<> ネタが上がっている限りいつでも炎上できるのでそこのところよろしくね
一回スレたって人集まっちゃえばもうここまで情報でてるんだからねぇ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 01:33:03.18 ID:ZV6B0j2h0<> やたら喫煙飲酒アピールするうぜえやつだったナー
童貞だし。 <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 01:44:02.63 ID:ZV6B0j2h0<> こいつjastoma垢で飲酒発言もしてたよな。いつだったか忘れたけど、カクテルパートナーの青いやつ（なんとかフィズ）って酒の缶一緒に上げてた <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 02:00:06.85 ID:VBtI4gcr0<> >>113のこいつ宛のツイートみてみたがたぶんこれだな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/09(木) 04:38:20.12 ID:70yOCAyw0<> >>130
彼女いたのに童貞なんだｗｗｗｗ
ヤらずして振られたかｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 04:47:36.21 ID:ZV6B0j2h0<> >>133
らしい。mixiで言ってたわ。
一応関係者なんだがそこまで接点あった訳じゃないから大した燃料投下はできなさそうだ。すまん
ただこいつの素行の悪さにはうんざりしてたから卒業取り消しだの入学取り消しだのにこぎつけてメシウマしたい気持ちはあるね <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/09(木) 04:57:30.27 ID:70yOCAyw0<> >>134
なるほど、把握したぜ
情報ありがとう
素行の悪さかあｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/09(木) 09:28:36.61 ID:70yOCAyw0<> 燃料来ないかなー
本スレ来ないかなー <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 10:12:00.55 ID:VBtI4gcro<> アカウント消されてるから飲酒喫煙発言の裏を取るのが難しいのがなぁ… <>
以下、VIPにかわりましてパー速民がお送りします<>Sage<>2012/02/09(木) 12:07:44.67 ID:JOhmu78IO<> じゃすとま・・・疑心暗鬼モード突入
<>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 14:44:26.99 ID:ZV6B0j2h0<> 何が投下されたら燃料になる？ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/09(木) 15:07:15.71 ID:VBtI4gcro<> 飲酒喫煙の証拠だが他のはそろってるから本スレが立てばなんとかなるんじゃないか <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/09(木) 15:11:25.50 ID:MbUUJGOm0<> 普段つるんでたやつらを引き込めれば出てきそうなもんだけど <>
以下、VIPにかわりましてパー速民がお送りします<>Sage<>2012/02/09(木) 21:02:41.33 ID:JOhmu78IO<> 毎日がエブリデイ！ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/10(金) 07:29:14.07 ID:YlGlIJGIO<> じゃすとま今日松戸行くみたいだから誰かスネークしにいけば？ <>
以下、VIPにかわりましてパー速民がお送りします<>Sage<>2012/02/10(金) 08:38:33.19 ID:9LolqinIO<> スネークいてきま <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/12(日) 22:23:31.84 ID:LSjS+wsM0<> じゃすとま明日は朝イチから松戸だそうな。
タバコ吸ってるとこ納めたいなー <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/13(月) 01:53:24.43 ID:adqnW81m0<> 油断しているところをパシャリ <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/13(月) 22:22:49.42 ID:l4rQjp+b0<> こいつ知ってる。知り合いがこいつと同じ高校。学年も同じ
飲酒か喫煙の証拠写メとか持ってない？って聞いたら、自分は持ってないけどつるんでるやつに聞いたら持ってるやついるかもってさ。身バレの危険を呈しても証拠だしてくれるやつがいればいいけどｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/13(月) 22:56:02.92 ID:adqnW81m0<> まぁ3月31日までに証拠突きつければ卒業取り消せるからな
のんびりいこうや <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/14(火) 00:25:44.30 ID:OXlAzcvto<> >>147
情報提供ありがとうございます
知り合い経由でいいので飲酒・喫煙写メ入手できませんかねー？
あと知り合いが同じ学校っていう証拠画像付きだと情報の信用度も上がるので
それもお願いできませんかね？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/14(火) 01:46:30.98 ID:rxj3PCeE0<> 鎮火してしまったん？ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/16(木) 19:08:46.07 ID:hRMK2dP30<> じゃすとま本日バイトらしーぞｗｗｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/16(木) 23:06:49.91 ID:69+Nv1R/0<> 誰かがVIPとかにスレ立てればいつでも炎上すると思うがｗｗ 情報もうでまくってるし <>
以下、VIPにかわりましてパー速民がお送りします(千葉県)<><>2012/02/17(金) 20:26:29.00 ID:AcVS+Rwb0<> なんだ、敗北か <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/17(金) 22:53:50.13 ID:UIkXtzEJ0<> 明日スレ立てっから保守手伝ってくれ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/18(土) 00:30:10.05 ID:SN7MHta90<> あいよ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/18(土) 00:59:27.88 ID:koKZRXL40<> VIP板だと書き込めないのはなぜ？ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/18(土) 01:53:09.32 ID:h9dVI22m0<> てか保守ツールなかったっけ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/18(土) 19:05:59.75 ID:OdWJZMTt0<> とりあえず板立て頼む <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/18(土) 21:09:32.05 ID:uxyvFusIO<> https://mobile.twitter.com/udaizu77/status/170827565911646208
ビッチ過ぎて笑った <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/19(日) 02:35:13.62 ID:hfPdk6WJ0<> >>149
147だが、証拠っていうのは学生証とか？
知人の学生証はちょっと特徴のある汚れ方をしてるので、顔や名前や学籍番号を隠しても身バレの可能性があるかもと恐れてるｗｗ
なんにせよ飲酒喫煙の証拠が出たときでいいかな。いま三年生は休暇中だから、休み明けてから聞いて回ってみると言ってた <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/19(日) 03:41:06.62 ID:kWpRlDfr0<> なんだただのDQNか
<>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/19(日) 04:58:27.49 ID:B3aU81Iq0<> 今立てても人がなー いつでも立てられるけどどうするか
まぁ一応立てとくか。落ちてもまたたてなおせばいいんだからな。 こことおんなじようなスレタイと本文にしとくわ <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/19(日) 05:05:47.79 ID:B3aU81Iq0<> 一応立てたけどまぁすぐ落ちるだろうな
http://hayabusa.2ch.net/test/read.cgi/news4vip/1329595330/l50
人が多そうな昼とかに立て直したほうがいい気もするけど一応。 スレタイとかは文字制限かかったから結構適当になっちなった <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/19(日) 05:33:13.38 ID:SES2HE6e0<> こいつそういえば最初から明聖高校じゃないんだよな。地元高？だったけど停学になって転校してきたらしい。 <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/19(日) 06:33:46.26 ID:B3aU81Iq0<> 停学ｗｗｗｗｗｗｗｗ 色々とクズなんだな <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/19(日) 09:22:58.67 ID:B3aU81Iq0<> さすがに落ちた <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/19(日) 14:40:16.15 ID:kMfq1nAr0<> 女湯覗き見して退学くらったんだろ、たしか。 <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/19(日) 14:46:43.18 ID:EB4+SLPY0<> 明聖でも一回いじめ？で停学になってるが相手が創価のキチガイなのでまあどっちもどっちなのではという噂 <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/19(日) 14:51:13.44 ID:kMfq1nAr0<> >>168
そんなこともあったな
とりあえず立てたスレがもう落ちたから
誰かまた頼む <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/19(日) 20:43:00.67 ID:6upt1D+So<> >>160
>>149の書き込みからすると学生証だろうな
情報提供者が確実かどうかのチェックしたいってことだろうな <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/19(日) 22:52:48.25 ID:kMfq1nAr0<> バイト先変わるらしい。 <>
以下、VIPにかわりましてパー速民がお送りします(宮城県)<><>2012/02/19(日) 23:20:51.98 ID:Gp1ZLy/M0<> mjk
しかたないっちゃあしかたないよなあｗｗｗｗここまでさらされたらｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/20(月) 07:50:02.33 ID:hcI1v+yB0<> >>172
いや、普通にシフトとか時給の問題らしいよ
タクシーの電話受け付けとかなんとか <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/22(水) 01:28:26.34 ID:2Mmbwtgp0<> 明日登校日だろ？たしか。
ちなみに今日新宿のロケテで見かけたが
タバコ堂々と吸っててワロタ。
そのあと蒲田に移動したらしいが。 <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/22(水) 01:33:51.90 ID:P3Hr0H6F0<> >>174
なぜ写メを取らない <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/22(水) 09:55:12.64 ID:2Mmbwtgp0<> >>175
かなり近い身内なもんで、写真は逆に撮れなかった
すまねえ
逆に情報なら流せる <>
以下、VIPにかわりましてパー速民がお送りします(チベット自治区)<><>2012/02/22(水) 12:11:01.61 ID:sl4dzBci0<> 身内のやつがいるってでかいよな
情報が垂れ流されまくるからちょっと人集まればすぐ炎上する <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/22(水) 12:15:31.87 ID:2Mmbwtgp0<> とりあえず今日もロケテ参戦らしい
明日は学校らしいが新しいバイト関係で午後から船橋のゲーセンに
寄るとのこと。
よって新しいバイト先は船橋周辺と見た <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/22(水) 15:03:36.68 ID:voxXLOkY0<> マジで喫煙写真１枚あるだけでもう終わりだからさ
頑張って撮れないかね さりげなく横からとか <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/23(木) 15:31:57.88 ID:dqeybpj70<> 頑張ってみるわ
とりあえず本スレ希望だな
<>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/24(金) 11:10:40.47 ID:AFPIBl340<> 本日は美容院からのバイトだそうです <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/24(金) 11:34:34.61 ID:AFPIBl340<> http://mixi.jp/show_friend.pl?id=48132382
新しい垢のURL
スクショはやり方わからんくてないので、
誰か代わりに頼む <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/24(金) 15:33:52.28 ID:AFPIBl340<> Twitter垢にて喫煙発言きました <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/24(金) 16:57:59.46 ID:pnrbwxHn0<> とりあえず押さえといて <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/24(金) 17:00:19.73 ID:SKa9Bg2Yo<> スクショはよ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/26(日) 12:02:48.29 ID:wDPLfg7F0<> じゃすとまー <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/26(日) 19:25:57.94 ID:wDPLfg7F0<> もう終わりだな <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/27(月) 11:24:03.78 ID:HHn8XPYSO<> 所詮口だけの奴の集まりｗｗｗｗｗｗ <>
以下、VIPにかわりましてパー速民がお送りします<><>2012/02/28(火) 02:02:53.77 ID:4FV/cDA60<> ムカつくからどうにかしたいんだけどなあ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:04:38.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:04:57.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:05:13.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:05:29.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:05:50.98 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:00.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:09.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:18.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:27.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:41.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:50.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:06:59.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:08.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:17.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:26.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:40.51 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:49.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:07:59.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:08.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:17.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:27.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:36.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:50.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:08:59.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:09.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:19.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:29.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:38.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:48.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:09:58.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:08.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:18.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:29.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:39.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:49.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:10:59.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:11:09.69 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:11:23.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:11:32.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:11:42.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:11:50.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:01.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:10.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:19.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:33.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:42.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:12:51.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:00.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:09.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:18.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:32.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:41.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:13:52.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:06.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:15.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:24.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:33.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:42.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:14:56.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:05.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:15.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:24.06 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:33.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:43.19 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:15:52.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:01.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:11.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:25.88 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:34.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:43.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:16:52.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:01.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:16.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:24.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:34.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:43.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:17:52.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:01.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします(長屋)<><>2012/02/28(火) 20:18:09.78 ID:FoOm/Tc2o<> なんだこれ <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:10.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:19.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:28.97 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:37.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:47.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:18:56.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:04.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:18.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:28.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:37.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:46.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:19:55.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:04.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:14.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:23.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:37.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:46.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:20:55.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:04.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:13.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:22.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:31.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:41.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:50.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:21:59.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:08.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:17.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:26.06 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:35.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:45.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:22:54.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:08.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:17.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:26.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:35.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:44.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:23:58.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:07.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:17.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:26.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:35.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:44.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:24:53.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:02.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:11.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:20.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:29.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:38.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:47.51 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:25:56.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:10.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:19.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:28.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:37.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:46.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:26:55.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:04.68 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:13.69 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:22.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:31.75 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:45.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:27:54.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:03.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:12.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:21.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:30.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:39.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:48.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:28:57.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:06.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:15.97 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:25.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:34.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:43.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:29:52.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:02.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:11.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:20.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:30.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:40.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:50.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:30:58.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:08.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:17.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:31.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:40.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:49.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:31:58.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:32:07.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:32:21.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:32:30.24 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:32:39.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:32:48.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:02.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:11.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:20.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:29.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:38.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:33:52.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:01.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:10.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:19.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:28.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:37.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:46.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:34:55.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:04.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:13.51 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:27.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:36.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:45.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:35:54.70 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:03.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:12.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:21.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:30.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:39.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:36:48.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:02.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:11.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:21.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:30.88 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:39.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:48.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:37:58.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:07.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:16.97 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:30.97 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:40.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:49.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:38:58.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:07.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:21.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:30.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:39.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:48.13 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:39:57.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:07.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:16.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:30.75 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:39.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:48.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:40:57.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:06.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:20.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:30.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:38.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:47.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:41:57.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:06.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:15.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:24.19 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:35.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:44.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:42:53.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:02.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:11.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:20.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:29.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:38.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:43:52.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:01.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:10.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:19.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:28.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:37.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:44:48.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:02.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:11.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:20.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:29.24 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:38.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:45:53.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:02.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:11.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:20.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:29.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:38.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:47.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:46:57.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:06.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:16.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:25.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:34.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:43.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:47:52.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:01.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:10.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:19.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:28.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:37.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:48:46.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:00.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:09.70 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:20.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:34.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:43.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:49:52.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:01.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:10.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:22.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:31.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:45.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:50:54.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:03.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:12.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:21.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:32.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:41.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:50.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:51:59.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:13.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:22.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:31.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:40.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:49.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:52:58.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:07.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:16.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:25.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:35.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:44.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:53:53.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:02.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:11.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:20.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:29.61 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:38.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:47.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:54:56.70 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:05.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:15.77 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:29.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:38.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:47.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:55:58.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:07.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:16.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:30.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:39.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:48.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:56:57.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:11.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:20.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:29.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:38.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:47.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:57:56.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:06.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:15.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:24.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:33.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:43.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:58:52.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:01.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:10.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:19.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:33.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:42.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 20:59:51.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:00.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:09.61 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:20.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:29.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:38.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:00:47.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:01.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:10.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:19.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:28.51 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:42.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:01:51.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:00.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:09.64 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:18.69 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:27.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:36.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:45.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:02:54.88 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:03.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:12.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:26.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:36.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:45.13 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:03:54.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:04.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:18.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:27.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:41.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:50.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:04:59.87 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:05:08.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:05:19.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:05:28.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:05:37.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:05:51.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:00.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:09.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:18.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:27.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:36.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:45.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:06:55.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:04.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:13.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:22.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:31.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:41.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:50.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:07:59.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:08.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:17.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:26.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:40.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:50.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:08:59.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:08.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:17.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:27.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:36.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:45.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:09:54.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:03.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:12.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:21.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:30.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:39.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:48.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:10:57.61 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:08.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:17.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:31.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:40.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:49.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:11:58.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:07.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:21.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:30.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:40.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:49.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:12:58.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:13:13.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:13:24.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:13:33.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:13:42.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:13:51.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:00.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:14.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:23.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:32.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:41.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:50.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:14:59.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:15:13.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:15:23.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:15:37.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:15:46.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:15:55.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:04.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:13.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:22.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:36.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:45.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:16:54.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:03.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:12.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:26.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:35.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:44.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:17:54.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:03.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:12.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:21.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:35.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:44.40 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:18:53.46 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:02.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:11.61 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:20.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:34.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:43.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:19:52.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:01.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:11.09 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:20.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:30.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:38.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:48.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:20:57.09 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:06.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:20.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:29.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:38.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:47.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:21:56.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:22:05.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:22:14.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:22:25.13 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:22:34.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:22:48.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:01.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:15.88 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:24.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:33.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:42.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:23:52.06 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:06.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:15.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:24.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:33.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:42.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:24:51.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:01.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:15.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:25.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:34.61 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:44.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:25:59.64 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:10.20 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:21.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:30.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:40.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:50.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:26:59.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:27:09.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:27:18.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:27:27.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:27:38.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:27:47.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:02.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:11.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:21.09 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:30.75 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:39.76 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:48.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:28:57.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:06.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:15.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:25.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:35.06 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:44.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:29:58.27 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:30:07.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:30:23.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:30:33.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:30:42.77 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:30:51.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:05.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:15.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:24.06 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:33.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:42.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:31:51.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:01.19 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:15.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:25.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:35.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:44.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:32:58.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:07.51 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:16.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:25.68 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:34.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:48.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:33:57.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:06.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:15.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:24.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:34.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:43.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:34:52.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:01.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:10.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:19.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:28.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:42.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:35:51.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:00.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:09.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:18.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:27.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:36.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:45.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:36:54.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:03.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:12.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:26.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:35.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:45.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:37:54.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:03.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:12.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:21.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:30.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:39.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:48.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:38:57.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:06.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:15.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:24.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:33.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:42.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:39:51.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:40:05.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:40:14.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:40:25.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:40:35.11 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:40:44.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:01.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:10.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:19.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:28.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:37.43 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:46.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:41:55.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:04.52 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:14.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:23.44 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:32.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:41.57 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:42:50.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:00.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:09.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:18.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:27.70 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:36.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:45.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:43:54.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:03.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:12.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:21.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:32.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:41.63 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:50.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:44:59.77 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:45:13.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:45:23.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:45:32.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:45:41.69 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:45:55.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:04.90 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:13.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:23.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:32.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:42.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:46:52.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:01.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:10.30 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:19.32 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:28.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:37.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:47:51.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:00.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:09.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:18.50 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:27.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:36.86 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:48:51.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:00.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:09.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:18.83 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:32.82 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:41.88 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:50.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:49:59.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:09.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:19.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:29.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:38.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:47.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:50:56.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:51:10.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:51:19.14 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:51:28.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:51:37.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:51:46.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:00.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:09.25 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:18.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:27.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:36.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:50.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:52:59.53 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:08.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:17.64 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:26.66 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:35.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:50.12 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:53:59.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:08.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:17.95 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:27.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:41.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:50.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:54:59.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:08.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:17.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:31.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:40.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:49.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:55:58.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:07.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:16.65 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:25.70 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:34.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:43.75 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:56:52.85 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:01.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:10.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:24.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:33.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:42.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:57:52.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:01.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:10.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:24.24 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:33.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:42.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:58:51.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:00.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:09.34 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:18.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:27.41 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:36.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:46.55 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 21:59:55.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:09.77 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:18.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:27.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:36.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:45.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:00:59.91 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:09.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:18.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:27.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:36.22 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:45.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:01:59.33 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:08.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:17.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:26.45 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:35.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:45.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:02:54.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:03.62 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:12.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:21.77 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:30.73 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:44.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:03:53.93 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:02.98 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:12.16 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:21.19 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:30.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:44.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:04:53.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:02.37 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:11.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:20.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:29.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:38.79 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:05:47.97 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:01.99 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:17.36 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:26.38 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:35.47 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:44.59 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:06:53.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:07.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:16.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:25.72 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:34.75 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:43.89 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:07:53.05 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:02.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:16.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:26.00 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:35.03 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:44.04 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:08:53.07 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:02.08 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:11.18 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:20.21 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:29.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:38.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:47.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:09:56.39 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:05.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:17.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:26.56 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:40.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:49.58 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:10:58.67 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:11:12.71 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:11:21.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:11:35.84 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:11:45.02 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:11:59.01 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:12:08.10 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:12:22.13 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:12:37.80 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:12:46.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:12:55.94 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:05.15 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:14.17 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:23.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:32.28 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:41.35 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:50.42 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:13:59.49 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:14:13.54 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:14:22.64 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:14:31.69 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:14:40.81 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:14:51.23 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:00.31 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:09.48 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:18.64 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:27.60 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:36.74 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:15:50.78 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:16:00.92 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:16:09.96 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:16:19.26 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:16:29.29 ID:QYzPVhFr0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:16:47.62 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:02.51 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:11.69 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:20.65 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:34.67 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:43.87 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
以下、VIPにかわりましてパー速民がお送りします<>sage<>2012/02/28(火) 22:17:57.79 ID:Mm/tnuVq0<> Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <>
1001<><>Over 1000 Thread<>
,.――――-､
ヽ /￣￣￣｀ヽ、 【呪いのパーマン Ver2.0】
| | （・）｡（･）; このスレッドは1000を超えました。|
| |＠＿,.--､_,> このレスを見たら10秒以内に次スレを建てないと死にます。
ヽヽ＿＿＿ノ 次スレを10秒以内に建てても死にます。
パー速＠VIPService
http://ex14.vip2ch.com/part4vip/
ローカルルール変更に伴い、1000到達の報告が不要になりました。
<>
最近建ったスレッドのご案内★<><>Powered By VIP Service<>セイバー「此処はどこですか？士郎」 士郎「学園都市だよ」 ＠ 2012/02/28(火) 22:14:13.36 ID:mhD1bBSb0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1330434853/
橘純一「記憶が無い！？」 ＠ 2012/02/28(火) 22:09:49.04 ID:Q63RsR7d0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1330434588/
村長「おおっ!!…遂に伝説の剣を抜くものが!」勇者「こんなのいるかあああああ!!」 ＠ 2012/02/28(火) 21:58:26.23 ID:rYsBYHcq0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1330433905/
遊戯王にヴァンガード、バトスピにギターそしてもしかしたらやるかも知れないプレメモ＆クルセイド そんなこうむスレ ＠ 2012/02/28(火) 20:46:20.37 ID:/FzNN6tco
http://ex14.vip2ch.com/test/read.cgi/aa/1330429580/
ここだけ魔王の城 コンマ00で魔王様に怒られるッス ＠ 2012/02/28(火) 20:09:30.63 ID:ammHjIf8o
http://ex14.vip2ch.com/test/read.cgi/part4vip/1330427370/
【Fate】汝、自らを以って最強を証明せよ【コンマで聖杯戦争】 ＠ 2012/02/28(火) 19:53:43.82 ID:e0DlL1Y/0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1330426423/
禁書「大便が止まらないんだよ！」 ＠ 2012/02/28(火) 19:04:41.40 ID:oqjQRnPh0
http://ex14.vip2ch.com/test/read.cgi/news4ssnip/1330423481/
眼鏡うｐ 素直にテイクダウン ＠ 2012/02/28(火) 16:44:05.28 ID:bwPkwFGbo
http://ex14.vip2ch.com/test/read.cgi/part4vip/1330415040/
VIPサービスの新スレ報告ボットはじめました http://twitter.com/ex14bot/
管理人もやってます http://twitter.com/aramaki_vip2ch/
Powered By VIPService http://vip2ch.com/
<>