■掲示板に戻る■
■過去ログ倉庫メニュー■
■VIPService (VIPサービス)■
このスレッドは過去ログ倉庫に格納されています。もう書き込みはできません。。。
HTML化した人:
ヤニ▲星半分と
★
現在明聖高校で今年から明大1年生のじゃすとまくんがtwitterで割れ厨宣言【避難所】
1 :
以下、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
2 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/03(金) 23:51:33.43 ID:pw/g6RjO0
女いるんだっけ?
3 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/03(金) 23:54:14.93 ID:4rm3g0kA0
女いるね
彼女ありのリア充割れ厨
4 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/03(金) 23:56:59.83 ID:UbikunaT0
卒業取り消しがゴール?
5 :
以下、VIPにかわりましてパー速民がお送りします
(埼玉県)
2012/02/03(金) 23:59:32.43 ID:Bb5VWsLv0
mixi、twitterは消えた 確実に作り直しているので特定でき次第晒し
スカID gdaymate71 これも変えてくるだろう
4月から明大 割れ厨 割ったデータをDVDに焼いて他人に配るという確実な犯罪行為
喫煙をしている
名字は小早川の可能性大 ガンダムエクストリームバーサスでは微妙に有名かもしれないのでじゃすとまと表記も効果有り
浦安市立富岡小学校・富岡中学校卒業生
高校は明聖
これも載せとこう
6 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:00:54.07 ID:J52dEj8C0
女の詳細わからんの?
7 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 00:03:58.44 ID:Nk9LKZxc0
女のほうの情報はさっぱりだなー
8 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:05:04.26 ID:58fwwgBLo
とりあえず同じ高校の奴を一人でいいからスカウトしたいところだなー
9 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:05:27.91 ID:J52dEj8C0
そっち関係からじゃすとま責められたらおもしろいのになー
10 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 00:08:46.29 ID:giehD0ki0
mixiのSSとってあるなら紹介文書いてる奴に接触だな
11 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:09:46.04 ID:J52dEj8C0
mixi垢もってる勢頼んだ
12 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:11:53.43 ID:58fwwgBLo
まだvip落ちてないのにこっちで盛り上がんなよ
13 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/04(土) 00:12:56.33 ID:AOWagduR0
明大ってのは明治じゃなくて明海大学っていうks大学
名前は小早川昌太
14 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 00:14:13.37 ID:giehD0ki0
なんだFランか
15 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:14:29.76 ID:58fwwgBLo
>>13
GJ
どういう知り合いか詳しく教えてくれ
同じ学校なら学生証うpで
16 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:16:19.32 ID:J52dEj8C0
女の情報求む
17 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/04(土) 00:19:48.73 ID:AOWagduR0
http://twitter.com/jstmymelo
女のツイッター
18 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:21:45.06 ID:58fwwgBLo
>>17
とりあえず何者か教えてくれ
関係性も含めて
19 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 00:24:11.75 ID:giehD0ki0
向こうは既に臨戦態勢だなwwwwww
情報望めそうにないか
20 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/04(土) 00:28:05.79 ID:AOWagduR0
>>18
特定怖いから勘弁
ほかに質問ある?
21 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:28:30.22 ID:J52dEj8C0
>>17
GJ
しかし鍵かけられてんなー
とりあえずお前何者なんだ
22 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:28:45.69 ID:58fwwgBLo
名前が小早川で確定なら浦安市民に電話帳で「富岡の『小早川』」さんを探してもらえば
住所・電話番号割れるな
23 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:30:50.33 ID:58fwwgBLo
>>20
じゃあ捨てアド晒せ
メールで何者か教えろ
それなら問題ないだろ?
聞いたこっちも身バレしないように
晒してやるから
とりあえず何者か知りたいんだ
24 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:31:18.31 ID:JNLZl9an0
非公開のツイッター垢でも外部ツール使うと見られたり...
ttp://ja.favstar.fm/
25 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 00:34:45.36 ID:giehD0ki0
勝ち確だな
じゃすとまくんもう諦めて首くくれや^^Fランの頭じゃそんなこともわからんのか^^
26 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:38:04.54 ID:J52dEj8C0
>>20
女の詳細なんかわかる?
あとは、じゃすとまの背格好とか。
27 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:38:42.37 ID:x2zl0znu0
えっと、関係者がかく乱情報流してる可能性もあるから
ある程度の確認がとれるまで本人以外への凸とかはしないほうがいいと思います
28 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:39:56.95 ID:JNLZl9an0
>>17
アカウント消えた
29 :
以下、VIPにかわりましてパー速民がお送りします
(埼玉県)
2012/02/04(土) 00:40:01.58 ID:NAIJDATv0
消されたか
30 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/04(土) 00:42:16.71 ID:AOWagduR0
背は高い。185cm猫背ぎみ
31 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:42:40.72 ID:JNLZl9an0
まあIDググれば出るし
キャッシュあるし
32 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:45:27.80 ID:JNLZl9an0
>>29
しかしここも見てるってことか
深夜なのに精が出ますね^^
33 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:45:32.71 ID:58fwwgBLo
>>30
とりあえず関係性を聞くのは後回しにして
写メとかあるか?
34 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/04(土) 00:45:59.91 ID:AOWagduR0
ない
35 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 00:48:22.28 ID:giehD0ki0
Twitterに顔晒し写真あったな
知り合いのところから探してみる
36 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 00:49:46.10 ID:J52dEj8C0
>>28
>>29
http://mixi.jp/show_profile.pl?id=43701029&from=navi
消してはないみたいだ、
ID変更した様子。
探してるなう。
>>34
他になにか提供できるネタはあるか?
37 :
以下、VIPにかわりましてパー速民がお送りします
(不明なsoftbank)
2012/02/04(土) 00:52:35.04 ID:Rkcisec30
住所とか割れれば最高なんだがな
38 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:53:52.59 ID:JNLZl9an0
>>36
乙
39 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 00:58:32.53 ID:lO12uvkz0
>>36
とりあえず本スレでやれ
こっちをお前が盛り上げてる間に本スレが落ちてしまうだろwwww
40 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 01:00:18.49 ID:Nk9LKZxc0
まぁこっちって長時間放置しても落ちないんだっけ?
こっちメインにしてもいいかもな あっちは落ちたら新規のやつ見れんし
41 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 01:01:06.74 ID:58fwwgBLo
こっちは落ちないから保守不要
42 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 01:02:04.15 ID:lO12uvkz0
いやこっちと向こうじゃ人の集まり方が違うだろ
43 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 01:06:17.52 ID:Nk9LKZxc0
確かに。
可能な限りあっちのスレあげとかないとな
44 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 01:08:42.55 ID:trvbB4p00
てかこっち基本放置でいいんだよ。
避難所の意味分かってる?
45 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 02:23:15.41 ID:giehD0ki0
規制されてるからこっちで書くが
卒業取り消しは3月31日まで存在する
4月から新年度だからな
つまり3月31日までに高校に卒業取り消しさせれば俺らの勝ち
46 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 02:54:53.87 ID:giehD0ki0
https://twitter.com/castile_s
ID変えただけだな 頭わり−wwwwww
47 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 03:10:53.13 ID:Nk9LKZxc0
ツイート非公開のって見る方法あったよなー どうやんだっけか
48 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/04(土) 03:12:40.99 ID:X7yYeTkAo
うn
49 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 04:20:25.55 ID:giehD0ki0
http://fotolog.cc/a2LimV
はい顔バレーwwwwwwww
おつかれーwwwwwwwwwwww
50 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 04:40:29.90 ID:XPpKEH8DO
>>49
GJ
早くメインスレに投下するんだ
51 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 07:28:07.20 ID:ihJakAOq0
メインスレに書き込みできないんだが。
規制ひっかかる。
とりあえずお前らが寝てる間に女の特定できたぞ
こっちから攻めるもありかもな
52 :
以下、VIPにかわりましてパー速民がお送りします
(北海道)
[sage]:2012/02/04(土) 08:12:01.19 ID:QUq6fdkqo
>>49
このYのマークのコンビニどこ?
53 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 08:15:59.80 ID:GzcFqJ+m0
>>52
Yで、考えて思い付くのは
デイリーヤマザキ?
近くにないから確認できないが、
デイリーヤマザキとかじゃないなら個人経営とかなんじゃ?
有名どころでYが絡む名前ないだろ
54 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 08:21:47.64 ID:aEnt31Ra0
ヤマザキショップじゃないか?
55 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 09:32:20.09 ID:IP6sjiI10
本スレ落ちたな
56 :
以下、VIPにかわりましてパー速民がお送りします
(不明なsoftbank)
2012/02/04(土) 10:07:30.88 ID:8O0nseUWo
本スレは
57 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
[age]:2012/02/04(土) 10:55:02.24 ID:b9pZSEyfo
まあそういうときの避難所だ
有効活用しようぜ
58 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 12:00:57.49 ID:giehD0ki0
本スレ落ちたから大丈夫だろとか言ってるぞ
なめんな
59 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 13:33:12.13 ID:58fwwgBLo
結局本スレ落ちましたか
あと
>>58
言ってるんですか
これは本気出さないといけませんね
いわゆる「宣戦布告」ですよね
>>58
は
60 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 13:43:28.31 ID:JNLZl9an0
学校名前顔犯罪告白ツイート抑えられててよく大丈夫とかいえるなあ
61 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 13:49:39.51 ID:Nk9LKZxc0
本スレ落ちて大丈夫と安心してるならまた立てればいい話だな
62 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 14:05:08.24 ID:qLNKwYs70
>>58
は本人の発言?
63 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 14:30:07.22 ID:Nk9LKZxc0
PSNIDはjastomaだけどサブ垢とかもあるだろうしなぁ
64 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 14:40:23.95 ID:JNLZl9an0
>>63
PSN垢には使えるデータなかったな
65 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 15:01:13.34 ID:giehD0ki0
>>62
じゃすとまのゲーセン仲間
66 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 15:10:38.66 ID:iXO3lVcm0
>>62
ほう
てか女の特定の話どうなった?
67 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 15:26:32.94 ID:58fwwgBLo
とりあえずnaverまとめにてまとめ作成しておきました
誰でも編集可能にすると内容書きかえられる恐れがあるので
制作者である私のみ編集可能にしてあります
付け足して欲しい事・修正点あればスレに書いていただければ直します
http://matome.naver.jp/odai/2132833099755917901
68 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 15:30:53.18 ID:iXO3lVcm0
>>66
とりあえずじゃすとまの女の確情
同い年、浦安市内住み、同じゲーセンにいる
mixi、Twitterは上を参照。
本名は押さえてないが直にわかるかと。
こいつ押さえてじゃすとま揺するもありか?
おもしろくなりそうだけど。
69 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 16:04:41.92 ID:FaCbuEZRo
大丈夫だろとかいってるんだろ?全力で行こうぜw
70 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 17:47:42.18 ID:iXO3lVcm0
くれぐれも本人以外には凸すんなよ。
71 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 17:59:29.40 ID:Inl+gpxIO
大丈夫だろって言ったのはじゃすとまの友人じゃないか?
72 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 18:02:23.17 ID:58fwwgBLo
>>70
本人に凸してどうすんだよ
本人にばれないように情報収集すんだろ
まぁー気づいてるとは思うが
73 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 19:57:59.56 ID:iXO3lVcm0
今回の一件で彼女と別れたじゃすとまくんwwwwwwww
大学取り消しまでいけば勝利やでwwwwwwww
74 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:04:07.97 ID:58fwwgBLo
>>73
ん?
別れたのかww
上でツイッターとmixiのアドレス教えてくれた女とか?
75 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
2012/02/04(土) 20:09:12.75 ID:+mezr1jR0
もっと人集めしたほうがいいんじゃ
同じ学校のやつなんかを見つけられたらいいんだが
76 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:10:20.34 ID:58fwwgBLo
>>75
そうなんだよな
今のところmixiで探そうかって話にはなってるんだが
77 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:19:34.87 ID:iXO3lVcm0
>>74
そう、上でTwitterやらmixiやら特定した女と
別れたらしいwwww
巻き込まれるのは嫌だってことらしいぞ
じゃすとまくん、りあ充じゃなくなって残念ですねーwwww
78 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:30:24.46 ID:giehD0ki0
>>77
それどこで言ってたの?
79 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:42:02.92 ID:iXO3lVcm0
>>78
今日の大会で小耳にはさんだぜ
80 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:49:03.68 ID:58fwwgBLo
>>79
大会って事は
ゲーム仲間か
81 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:50:06.17 ID:giehD0ki0
>>79
なるほど まぁ自業自得だわぁな
あとは学校か
82 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:50:21.52 ID:iXO3lVcm0
>>80
本人と直接コンタクトはないがな
83 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 20:57:04.27 ID:58fwwgBLo
>>81
じゃあ同じ学校の奴を探すか
でmixi垢持ってる奴は捜索してるんだろうか?
それと昨日調査した結果ではしたらばの
千葉の高校板にスレ無かったんだよなー
スレあればここに呼ぶこと位楽勝だったのに
84 :
以下、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
85 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/04(土) 21:42:22.29 ID:giehD0ki0
GJ
Twitterによると週1でしかシフトに入っていたらしい
シフト中にパソコンでTwitterやってるあほ
曜日はわからねえ
86 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/04(土) 23:27:24.79 ID:Nk9LKZxc0
とりあえず名前割れてるなら電凸しまくればおk?
あとはちょくちょくスレ立てたり誘導したりして人増やして火力をあげるか
87 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/05(日) 00:43:01.77 ID:TyLk2tVso
あとはバイト先に凸って終わりって感じか?
学校や進学先の大学への凸はしなくていいのか?
88 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/05(日) 00:46:41.05 ID:HMWm6iVT0
バイト先より学校じゃない?
89 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/05(日) 01:18:14.29 ID:r+n7cAvr0
浦安に明海大あるし明海大で間違いなさそうだな
90 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/05(日) 07:22:28.87 ID:I8Bn/0tIo
次スレとかがあれば本名入れてスレ立てすれば祭りになるだろう
EXVSプレーヤーとしてそこそこ有名らしいからじゃすとまっていれておくのもいいな
91 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
[sage]:2012/02/05(日) 11:11:37.99 ID:/0sCVjCBo
本スレどっかにたってる?
92 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/05(日) 12:16:16.93 ID:J69+e0ZM0
>>87
>>88
学校に凸ったところで相手にされなくね?
どっちもks学校だろ?
だったらバイト先割れてるんだしそっち凸して
ゴールなのでは?
まあだんだんつまらなくなってきたが。
93 :
以下、VIPにかわりましてパー速民がお送りします
(東京都)
[sage]:2012/02/05(日) 12:54:45.49 ID:S1yQYd630
明大ってややこしい呼び方してるけど明治じゃなくて明海かよwwwwwwwwwwwwww
ガチFランじゃねーかwwwwwwwwwwwwwwwwこれは仕方ないwwwwww
明治以外明大って呼ぶな(キリッ
94 :
以下、VIPにかわりましてパー速民がお送りします
(不明なsoftbank)
2012/02/05(日) 13:41:07.76 ID:jtlNAED/o
本スレ立てるなりしないともう鎮火しちゃうよ
燃料もないしTwitterとかでも話題になってないし
95 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/05(日) 15:36:01.04 ID:I8Bn/0tIo
本スレが落ちたのが痛いな…
96 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/05(日) 16:12:48.28 ID:2GMfzPe30
結局どこがゴールなの?
97 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/05(日) 16:46:35.76 ID:L/OUZWIW0
立てられるようになったらVIPとかで
スレたてるわ
98 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/05(日) 18:54:21.29 ID:I8Bn/0tIo
よろ!
99 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/06(月) 02:23:35.01 ID:D8WDGH+L0
ここじゃすとまとかみてスレ伸びてないで安心してるんだったら大間違いだぞ
ここ避難所だからねぇ わかるよね、意味 いったいいくつスレあるんでしょうねぇww
100 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/06(月) 10:27:58.41 ID:2OjwCp5V0
本スレはよ
101 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/06(月) 10:58:29.60 ID:6jfUR7M10
鎮火しそうだな
フォローしてる関係からおそらくじゃすとまの女のサブ垢
http://twitter.com/muumelody
102 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/06(月) 11:30:35.42 ID:2OjwCp5V0
>>101
でも別れたんだろ?
そんなことより、本スレはよ。
本人の垢はよ、
103 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/06(月) 11:51:56.79 ID:oEbwuLCQo
naverまとめ作った本人だが
新潟の喫煙中学生が盛り上がってるから
スレ立てた所でダメかと思ってたんだが
そのスレ落ちてたから立てるなら今だな
でスレ立てるなら立ててもいいが
夜中の人がいる時間帯に立てるってのはどうだ?
104 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/06(月) 11:56:54.21 ID:2OjwCp5V0
>>103
スレ立てられるならよろ。
とりあえず立てておいてくれれば
定期的に晒しあげするが。
夜中というよりか22時あたりぐらいがベストかと。
まあ立てられるなら早めに頼む
105 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/06(月) 11:58:06.54 ID:oEbwuLCQo
>>104
じゃあ
>>1
の内容でも考えてくれ
naverまとめのアドレスは分かってるからそれ以外で
106 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/06(月) 16:42:28.27 ID:+6rP81mlo
>>5
を元に作ったらどうだ?
107 :
105
2012/02/07(火) 20:11:52.15 ID:j2ps73Vvo
ちょっとまとめを修正してきた
画像もすぐ消えないロダに上げ直してきた
ってことでこうれでどうだろうか?
<スレタイ>
今年から明大1年生のじゃすとまくんが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
108 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/07(火) 21:04:45.60 ID:t/OISSyp0
おい、じゃすとまくんmixi復帰してんぞwwwwwwwwwww
ワイのマスターガンダ ってやつだってよ
url?しらんがな!!!
109 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/07(火) 21:15:00.77 ID:OqoMXNrio
相手も調子乗ってるしそろそろ行くときだろう
110 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 21:19:56.20 ID:Q93xYoLh0
きたか…!
111 :
105
2012/02/07(火) 21:26:56.46 ID:j2ps73Vvo
>>108
mixiのURLとスクショをお願いする
112 :
105
2012/02/07(火) 21:35:22.24 ID:j2ps73Vvo
>>108
スレ良く読んでなかったんだが知らんのか
だれかURLとスクショ頼む
URLとスクショ来次第まとめ修正するのとvipにスレ立ててくる
113 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 21:53:40.63 ID:Q93xYoLh0
じゃすとまTwitterでも復活してるぞ
https://twitter.com/tonosamaxp
114 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 21:56:23.34 ID:j2ps73Vvo
>>113
GJ
せっかく色々復活した所だから
スレ立てるのもうちょっと待って少し泳がせてみるか
またボロ出すかもしれんし
そしたらまたメシウマ出来る
115 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 22:11:31.66 ID:j2ps73Vvo
>>113
見て来たが違うんじゃないか?
京都でとか書いてるぞ
116 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 22:16:33.81 ID:Q93xYoLh0
>>115
いや、フェイクだよ
そうやって書けば怪しまれないだろっていう浅はかな考え
IDでTwitter検索すればわかるけど
「最近作った垢」「なにかあった」「名前を偽る必要がある」人物
そして以前とフォローしている連中は一致
これは完全にじゃすとま
117 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 22:20:37.14 ID:j2ps73Vvo
>>116
そうなのか
あとたしか鍵付きのツイートも見れるサイトあったよな?
知ってるやついたら教えてくれツイート見てくる
118 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/07(火) 22:27:44.04 ID:OqoMXNrio
だがあそこらへんのTwitterEXVS勢はだいたい交友関係被ってるから一応別人の可能性あるの気をつけ他方がいいと思う
119 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 23:24:13.48 ID:wc+W8axZ0
あいつここ見てないのかなー
120 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/07(火) 23:24:29.12 ID:wc+W8axZ0
あいつここ見てないのかなー
121 :
ウイングマン
2012/02/07(火) 23:40:53.60 ID:d4WqrpNIO
雨降ってんだけど
122 :
ウイングマン
[Sage]:2012/02/07(火) 23:41:38.81 ID:d4WqrpNIO
雨降ってんだけど
123 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/08(水) 00:04:42.91 ID:LMHrhzH10
つまんねー
はよ、本スレ。
124 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/08(水) 02:10:03.47 ID:N6mYuDdCo
本スレこないと盛り上がらないからな…
125 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/08(水) 09:39:08.72 ID:t7m5uoin0
key=breaken
126 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/09(木) 00:08:39.76 ID:70yOCAyw0
もう沈静化してると思ってた
じゃすとまくんのお友だちから頂きましたーwwwwwwww
全力出していこうか
127 :
以下、VIPにかわりましてパー速民がお送りします
[Sage]:2012/02/09(木) 00:15:02.77 ID:JOhmu78IO
もう盛り上がってないんだからやめよ!ね?
128 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/09(木) 00:30:38.90 ID:70yOCAyw0
>>127
なんだ、仲間かなんかなの?
129 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/09(木) 01:27:56.65 ID:mZlbYutf0
ネタが上がっている限りいつでも炎上できるのでそこのところよろしくね
一回スレたって人集まっちゃえばもうここまで情報でてるんだからねぇ
130 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 01:33:03.18 ID:ZV6B0j2h0
やたら喫煙飲酒アピールするうぜえやつだったナー
童貞だし。
131 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 01:44:02.63 ID:ZV6B0j2h0
こいつjastoma垢で飲酒発言もしてたよな。いつだったか忘れたけど、カクテルパートナーの青いやつ(なんとかフィズ)って酒の缶一緒に上げてた
132 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 02:00:06.85 ID:VBtI4gcr0
>>113
のこいつ宛のツイートみてみたがたぶんこれだな
133 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/09(木) 04:38:20.12 ID:70yOCAyw0
>>130
彼女いたのに童貞なんだwwww
ヤらずして振られたかwwww
134 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 04:47:36.21 ID:ZV6B0j2h0
>>133
らしい。mixiで言ってたわ。
一応関係者なんだがそこまで接点あった訳じゃないから大した燃料投下はできなさそうだ。すまん
ただこいつの素行の悪さにはうんざりしてたから卒業取り消しだの入学取り消しだのにこぎつけてメシウマしたい気持ちはあるね
135 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/09(木) 04:57:30.27 ID:70yOCAyw0
>>134
なるほど、把握したぜ
情報ありがとう
素行の悪さかあwwww
136 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/09(木) 09:28:36.61 ID:70yOCAyw0
燃料来ないかなー
本スレ来ないかなー
137 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 10:12:00.55 ID:VBtI4gcro
アカウント消されてるから飲酒喫煙発言の裏を取るのが難しいのがなぁ…
138 :
以下、VIPにかわりましてパー速民がお送りします
[Sage]:2012/02/09(木) 12:07:44.67 ID:JOhmu78IO
じゃすとま・・・疑心暗鬼モード突入
139 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 14:44:26.99 ID:ZV6B0j2h0
何が投下されたら燃料になる?
140 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/09(木) 15:07:15.71 ID:VBtI4gcro
飲酒喫煙の証拠だが他のはそろってるから本スレが立てばなんとかなるんじゃないか
141 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/09(木) 15:11:25.50 ID:MbUUJGOm0
普段つるんでたやつらを引き込めれば出てきそうなもんだけど
142 :
以下、VIPにかわりましてパー速民がお送りします
[Sage]:2012/02/09(木) 21:02:41.33 ID:JOhmu78IO
毎日がエブリデイ!
143 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/10(金) 07:29:14.07 ID:YlGlIJGIO
じゃすとま今日松戸行くみたいだから誰かスネークしにいけば?
144 :
以下、VIPにかわりましてパー速民がお送りします
[Sage]:2012/02/10(金) 08:38:33.19 ID:9LolqinIO
スネークいてきま
145 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/12(日) 22:23:31.84 ID:LSjS+wsM0
じゃすとま明日は朝イチから松戸だそうな。
タバコ吸ってるとこ納めたいなー
146 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/13(月) 01:53:24.43 ID:adqnW81m0
油断しているところをパシャリ
147 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/13(月) 22:22:49.42 ID:l4rQjp+b0
こいつ知ってる。知り合いがこいつと同じ高校。学年も同じ
飲酒か喫煙の証拠写メとか持ってない?って聞いたら、自分は持ってないけどつるんでるやつに聞いたら持ってるやついるかもってさ。身バレの危険を呈しても証拠だしてくれるやつがいればいいけどwwww
148 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/13(月) 22:56:02.92 ID:adqnW81m0
まぁ3月31日までに証拠突きつければ卒業取り消せるからな
のんびりいこうや
149 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/14(火) 00:25:44.30 ID:OXlAzcvto
>>147
情報提供ありがとうございます
知り合い経由でいいので飲酒・喫煙写メ入手できませんかねー?
あと知り合いが同じ学校っていう証拠画像付きだと情報の信用度も上がるので
それもお願いできませんかね?
150 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/14(火) 01:46:30.98 ID:rxj3PCeE0
鎮火してしまったん?
151 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/16(木) 19:08:46.07 ID:hRMK2dP30
じゃすとま本日バイトらしーぞwwwwww
152 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/16(木) 23:06:49.91 ID:69+Nv1R/0
誰かがVIPとかにスレ立てればいつでも炎上すると思うがww 情報もうでまくってるし
153 :
以下、VIPにかわりましてパー速民がお送りします
(千葉県)
2012/02/17(金) 20:26:29.00 ID:AcVS+Rwb0
なんだ、敗北か
154 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/17(金) 22:53:50.13 ID:UIkXtzEJ0
明日スレ立てっから保守手伝ってくれ
155 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/18(土) 00:30:10.05 ID:SN7MHta90
あいよ
156 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/18(土) 00:59:27.88 ID:koKZRXL40
VIP板だと書き込めないのはなぜ?
157 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/18(土) 01:53:09.32 ID:h9dVI22m0
てか保守ツールなかったっけ
158 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/18(土) 19:05:59.75 ID:OdWJZMTt0
とりあえず板立て頼む
159 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/18(土) 21:09:32.05 ID:uxyvFusIO
https://mobile.twitter.com/udaizu77/status/170827565911646208
ビッチ過ぎて笑った
160 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/19(日) 02:35:13.62 ID:hfPdk6WJ0
>>149
147だが、証拠っていうのは学生証とか?
知人の学生証はちょっと特徴のある汚れ方をしてるので、顔や名前や学籍番号を隠しても身バレの可能性があるかもと恐れてるww
なんにせよ飲酒喫煙の証拠が出たときでいいかな。いま三年生は休暇中だから、休み明けてから聞いて回ってみると言ってた
161 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/19(日) 03:41:06.62 ID:kWpRlDfr0
なんだただのDQNか
162 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/19(日) 04:58:27.49 ID:B3aU81Iq0
今立てても人がなー いつでも立てられるけどどうするか
まぁ一応立てとくか。落ちてもまたたてなおせばいいんだからな。 こことおんなじようなスレタイと本文にしとくわ
163 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/19(日) 05:05:47.79 ID:B3aU81Iq0
一応立てたけどまぁすぐ落ちるだろうな
http://hayabusa.2ch.net/test/read.cgi/news4vip/1329595330/l50
人が多そうな昼とかに立て直したほうがいい気もするけど一応。 スレタイとかは文字制限かかったから結構適当になっちなった
164 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/19(日) 05:33:13.38 ID:SES2HE6e0
こいつそういえば最初から明聖高校じゃないんだよな。地元高?だったけど停学になって転校してきたらしい。
165 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/19(日) 06:33:46.26 ID:B3aU81Iq0
停学wwwwwwww 色々とクズなんだな
166 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/19(日) 09:22:58.67 ID:B3aU81Iq0
さすがに落ちた
167 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/19(日) 14:40:16.15 ID:kMfq1nAr0
女湯覗き見して退学くらったんだろ、たしか。
168 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/19(日) 14:46:43.18 ID:EB4+SLPY0
明聖でも一回いじめ?で停学になってるが相手が創価のキチガイなのでまあどっちもどっちなのではという噂
169 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/19(日) 14:51:13.44 ID:kMfq1nAr0
>>168
そんなこともあったな
とりあえず立てたスレがもう落ちたから
誰かまた頼む
170 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/19(日) 20:43:00.67 ID:6upt1D+So
>>160
>>149
の書き込みからすると学生証だろうな
情報提供者が確実かどうかのチェックしたいってことだろうな
171 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/19(日) 22:52:48.25 ID:kMfq1nAr0
バイト先変わるらしい。
172 :
以下、VIPにかわりましてパー速民がお送りします
(宮城県)
2012/02/19(日) 23:20:51.98 ID:Gp1ZLy/M0
mjk
しかたないっちゃあしかたないよなあwwwwここまでさらされたらww
173 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/20(月) 07:50:02.33 ID:hcI1v+yB0
>>172
いや、普通にシフトとか時給の問題らしいよ
タクシーの電話受け付けとかなんとか
174 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/22(水) 01:28:26.34 ID:2Mmbwtgp0
明日登校日だろ?たしか。
ちなみに今日新宿のロケテで見かけたが
タバコ堂々と吸っててワロタ。
そのあと蒲田に移動したらしいが。
175 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/22(水) 01:33:51.90 ID:P3Hr0H6F0
>>174
なぜ写メを取らない
176 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/22(水) 09:55:12.64 ID:2Mmbwtgp0
>>175
かなり近い身内なもんで、写真は逆に撮れなかった
すまねえ
逆に情報なら流せる
177 :
以下、VIPにかわりましてパー速民がお送りします
(チベット自治区)
2012/02/22(水) 12:11:01.61 ID:sl4dzBci0
身内のやつがいるってでかいよな
情報が垂れ流されまくるからちょっと人集まればすぐ炎上する
178 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/22(水) 12:15:31.87 ID:2Mmbwtgp0
とりあえず今日もロケテ参戦らしい
明日は学校らしいが新しいバイト関係で午後から船橋のゲーセンに
寄るとのこと。
よって新しいバイト先は船橋周辺と見た
179 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/22(水) 15:03:36.68 ID:voxXLOkY0
マジで喫煙写真1枚あるだけでもう終わりだからさ
頑張って撮れないかね さりげなく横からとか
180 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/23(木) 15:31:57.88 ID:dqeybpj70
頑張ってみるわ
とりあえず本スレ希望だな
181 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/24(金) 11:10:40.47 ID:AFPIBl340
本日は美容院からのバイトだそうです
182 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/24(金) 11:34:34.61 ID:AFPIBl340
http://mixi.jp/show_friend.pl?id=48132382
新しい垢のURL
スクショはやり方わからんくてないので、
誰か代わりに頼む
183 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/24(金) 15:33:52.28 ID:AFPIBl340
Twitter垢にて喫煙発言きました
184 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/24(金) 16:57:59.46 ID:pnrbwxHn0
とりあえず押さえといて
185 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/24(金) 17:00:19.73 ID:SKa9Bg2Yo
スクショはよ
186 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/26(日) 12:02:48.29 ID:wDPLfg7F0
じゃすとまー
187 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/26(日) 19:25:57.94 ID:wDPLfg7F0
もう終わりだな
188 :
以下、VIPにかわりましてパー速民がお送りします
[sage]:2012/02/27(月) 11:24:03.78 ID:HHn8XPYSO
所詮口だけの奴の集まりwwwwww
189 :
以下、VIPにかわりましてパー速民がお送りします
2012/02/28(火) 02:02:53.77 ID:4FV/cDA60
ムカつくからどうにかしたいんだけどなあ
190 :
以下、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")
191 :
以下、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")
192 :
以下、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")
193 :
以下、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")
194 :
以下、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")
195 :
以下、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")
196 :
以下、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")
197 :
以下、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")
198 :
以下、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")
199 :
以下、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")
200 :
以下、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")
201 :
以下、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")
202 :
以下、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")
203 :
以下、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")
204 :
以下、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")
205 :
以下、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")
206 :
以下、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")
207 :
以下、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")
208 :
以下、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")
209 :
以下、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")
210 :
以下、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")
211 :
以下、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")
212 :
以下、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")
213 :
以下、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")
214 :
以下、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")
215 :
以下、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")
216 :
以下、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")
217 :
以下、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")
218 :
以下、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")
219 :
以下、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")
220 :
以下、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")
221 :
以下、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")
222 :
以下、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")
223 :
以下、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")
224 :
以下、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")
225 :
以下、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")
226 :
以下、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")
227 :
以下、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")
228 :
以下、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")
229 :
以下、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")
230 :
以下、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")
231 :
以下、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")
232 :
以下、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")
233 :
以下、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")
234 :
以下、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")
235 :
以下、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")
236 :
以下、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")
237 :
以下、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")
238 :
以下、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")
239 :
以下、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")
240 :
以下、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")
241 :
以下、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")
242 :
以下、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")
243 :
以下、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")
244 :
以下、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")
245 :
以下、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")
246 :
以下、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")
247 :
以下、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")
248 :
以下、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")
249 :
以下、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")
250 :
以下、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")
251 :
以下、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")
252 :
以下、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")
253 :
以下、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")
254 :
以下、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")
255 :
以下、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")
256 :
以下、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")
257 :
以下、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")
258 :
以下、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")
259 :
以下、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")
260 :
以下、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")
261 :
以下、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")
262 :
以下、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")
263 :
以下、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")
264 :
以下、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")
265 :
以下、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")
266 :
以下、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")
267 :
以下、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")
268 :
以下、VIPにかわりましてパー速民がお送りします
(長屋)
2012/02/28(火) 20:18:09.78 ID:FoOm/Tc2o
なんだこれ
269 :
以下、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")
270 :
以下、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")
271 :
以下、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")
272 :
以下、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")
273 :
以下、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")
274 :
以下、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")
275 :
以下、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")
276 :
以下、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")
277 :
以下、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")
278 :
以下、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")
279 :
以下、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")
280 :
以下、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")
281 :
以下、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")
282 :
以下、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")
283 :
以下、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")
284 :
以下、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")
285 :
以下、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")
286 :
以下、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")
287 :
以下、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")
288 :
以下、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")
289 :
以下、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")
290 :
以下、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")
291 :
以下、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")
292 :
以下、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")
293 :
以下、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")
294 :
以下、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")
295 :
以下、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")
296 :
以下、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")
297 :
以下、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")
298 :
以下、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")
299 :
以下、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")
300 :
以下、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")
301 :
以下、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")
302 :
以下、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")
303 :
以下、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")
304 :
以下、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")
305 :
以下、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")
306 :
以下、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")
307 :
以下、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")
308 :
以下、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")
309 :
以下、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")
310 :
以下、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")
311 :
以下、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")
312 :
以下、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")
313 :
以下、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")
314 :
以下、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")
315 :
以下、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")
316 :
以下、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")
317 :
以下、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")
318 :
以下、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")
319 :
以下、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")
320 :
以下、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")
321 :
以下、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")
322 :
以下、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")
323 :
以下、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")
324 :
以下、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")
325 :
以下、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")
326 :
以下、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")
327 :
以下、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")
328 :
以下、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")
329 :
以下、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")
330 :
以下、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")
331 :
以下、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")
332 :
以下、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")
333 :
以下、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")
334 :
以下、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")
335 :
以下、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")
336 :
以下、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")
337 :
以下、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")
338 :
以下、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")
339 :
以下、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")
340 :
以下、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")
341 :
以下、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")
342 :
以下、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")
343 :
以下、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")
344 :
以下、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")
345 :
以下、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")
346 :
以下、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")
347 :
以下、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")
348 :
以下、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")
349 :
以下、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")
350 :
以下、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")
351 :
以下、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")
352 :
以下、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")
353 :
以下、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")
354 :
以下、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")
355 :
以下、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")
356 :
以下、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")
357 :
以下、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")
358 :
以下、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")
359 :
以下、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")
360 :
以下、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")
361 :
以下、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")
362 :
以下、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")
363 :
以下、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")
364 :
以下、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")
365 :
以下、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")
366 :
以下、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")
367 :
以下、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")
368 :
以下、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")
369 :
以下、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")
370 :
以下、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")
371 :
以下、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")
372 :
以下、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")
373 :
以下、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")
374 :
以下、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")
375 :
以下、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")
376 :
以下、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")
377 :
以下、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")
378 :
以下、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")
379 :
以下、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")
380 :
以下、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")
381 :
以下、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")
382 :
以下、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")
383 :
以下、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")
384 :
以下、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")
385 :
以下、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")
386 :
以下、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")
387 :
以下、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")
388 :
以下、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")
389 :
以下、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")
390 :
以下、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")
391 :
以下、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")
392 :
以下、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")
393 :
以下、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")
394 :
以下、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")
395 :
以下、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")
396 :
以下、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")
397 :
以下、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")
398 :
以下、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")
399 :
以下、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")
400 :
以下、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")
401 :
以下、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")
402 :
以下、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")
403 :
以下、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")
404 :
以下、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")
405 :
以下、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")
406 :
以下、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")
407 :
以下、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")
408 :
以下、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")
409 :
以下、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")
410 :
以下、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")
411 :
以下、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")
412 :
以下、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")
413 :
以下、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")
414 :
以下、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")
415 :
以下、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")
416 :
以下、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")
417 :
以下、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")
418 :
以下、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")
419 :
以下、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")
420 :
以下、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")
421 :
以下、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")
422 :
以下、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")
423 :
以下、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")
424 :
以下、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")
425 :
以下、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")
426 :
以下、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")
427 :
以下、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")
428 :
以下、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")
429 :
以下、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")
430 :
以下、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")
431 :
以下、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")
432 :
以下、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")
433 :
以下、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")
434 :
以下、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")
435 :
以下、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")
436 :
以下、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")
437 :
以下、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")
438 :
以下、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")
439 :
以下、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")
440 :
以下、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")
441 :
以下、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")
442 :
以下、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")
443 :
以下、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")
444 :
以下、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")
445 :
以下、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")
446 :
以下、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")
447 :
以下、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")
448 :
以下、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")
449 :
以下、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")
450 :
以下、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")
451 :
以下、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")
452 :
以下、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")
453 :
以下、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")
454 :
以下、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")
455 :
以下、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")
456 :
以下、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")
457 :
以下、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")
458 :
以下、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")
459 :
以下、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")
460 :
以下、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")
461 :
以下、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")
462 :
以下、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")
463 :
以下、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")
464 :
以下、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")
465 :
以下、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")
466 :
以下、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")
467 :
以下、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")
468 :
以下、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")
469 :
以下、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")
470 :
以下、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")
471 :
以下、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")
472 :
以下、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")
473 :
以下、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")
474 :
以下、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")
475 :
以下、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")
476 :
以下、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")
477 :
以下、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")
478 :
以下、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")
479 :
以下、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")
480 :
以下、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")
481 :
以下、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")
482 :
以下、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")
483 :
以下、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")
484 :
以下、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")
485 :
以下、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")
486 :
以下、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")
487 :
以下、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")
488 :
以下、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")
489 :
以下、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")
490 :
以下、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")
491 :
以下、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")
492 :
以下、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")
493 :
以下、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")
494 :
以下、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")
495 :
以下、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")
496 :
以下、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")
497 :
以下、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")
498 :
以下、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")
499 :
以下、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")
500 :
以下、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")
501 :
以下、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")
502 :
以下、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")
503 :
以下、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")
504 :
以下、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")
505 :
以下、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")
506 :
以下、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")
507 :
以下、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")
508 :
以下、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")
509 :
以下、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")
510 :
以下、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")
511 :
以下、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")
512 :
以下、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")
513 :
以下、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")
514 :
以下、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")
515 :
以下、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")
516 :
以下、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")
517 :
以下、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")
518 :
以下、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")
519 :
以下、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")
520 :
以下、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")
521 :
以下、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")
522 :
以下、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")
523 :
以下、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")
524 :
以下、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")
525 :
以下、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")
526 :
以下、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")
527 :
以下、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")
528 :
以下、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")
529 :
以下、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")
530 :
以下、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")
531 :
以下、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")
532 :
以下、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")
533 :
以下、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")
534 :
以下、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")
535 :
以下、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")
536 :
以下、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")
537 :
以下、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")
538 :
以下、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")
539 :
以下、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")
540 :
以下、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")
541 :
以下、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")
542 :
以下、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")
543 :
以下、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")
544 :
以下、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")
545 :
以下、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")
546 :
以下、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")
547 :
以下、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")
548 :
以下、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")
549 :
以下、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")
550 :
以下、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")
551 :
以下、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")
552 :
以下、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")
553 :
以下、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")
554 :
以下、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")
555 :
以下、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")
556 :
以下、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")
557 :
以下、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")
558 :
以下、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")
559 :
以下、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")
560 :
以下、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")
561 :
以下、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")
562 :
以下、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")
563 :
以下、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")
564 :
以下、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")
565 :
以下、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")
566 :
以下、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")
567 :
以下、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")
568 :
以下、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")
569 :
以下、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")
570 :
以下、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")
571 :
以下、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")
572 :
以下、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")
573 :
以下、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")
574 :
以下、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")
575 :
以下、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")
576 :
以下、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")
577 :
以下、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")
578 :
以下、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")
579 :
以下、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")
580 :
以下、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")
581 :
以下、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")
582 :
以下、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")
583 :
以下、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")
584 :
以下、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")
585 :
以下、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")
586 :
以下、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")
587 :
以下、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")
588 :
以下、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")
589 :
以下、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")
590 :
以下、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")
591 :
以下、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")
592 :
以下、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")
593 :
以下、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")
594 :
以下、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")
595 :
以下、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")
596 :
以下、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")
597 :
以下、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")
598 :
以下、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")
599 :
以下、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")
600 :
以下、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")
601 :
以下、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")
602 :
以下、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")
603 :
以下、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")
604 :
以下、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")
605 :
以下、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")
606 :
以下、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")
607 :
以下、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")
608 :
以下、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")
609 :
以下、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")
610 :
以下、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")
611 :
以下、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")
612 :
以下、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")
613 :
以下、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")
614 :
以下、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")
615 :
以下、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")
616 :
以下、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")
617 :
以下、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")
618 :
以下、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")
619 :
以下、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")
620 :
以下、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")
621 :
以下、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")
622 :
以下、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")
623 :
以下、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")
624 :
以下、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")
625 :
以下、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")
626 :
以下、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")
627 :
以下、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")
628 :
以下、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")
629 :
以下、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")
630 :
以下、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")
631 :
以下、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")
632 :
以下、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")
633 :
以下、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")
634 :
以下、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")
635 :
以下、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")
636 :
以下、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")
637 :
以下、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")
638 :
以下、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")
639 :
以下、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")
640 :
以下、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")
641 :
以下、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")
642 :
以下、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")
643 :
以下、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")
644 :
以下、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")
645 :
以下、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")
646 :
以下、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")
647 :
以下、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")
648 :
以下、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")
649 :
以下、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")
650 :
以下、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")
651 :
以下、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")
652 :
以下、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")
653 :
以下、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")
654 :
以下、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")
655 :
以下、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")
656 :
以下、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")
657 :
以下、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")
658 :
以下、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")
659 :
以下、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")
660 :
以下、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")
661 :
以下、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")
662 :
以下、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")
663 :
以下、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")
664 :
以下、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")
665 :
以下、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")
666 :
以下、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")
667 :
以下、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")
668 :
以下、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")
669 :
以下、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")
670 :
以下、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")
671 :
以下、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")
672 :
以下、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")
673 :
以下、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")
674 :
以下、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")
675 :
以下、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")
676 :
以下、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")
677 :
以下、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")
678 :
以下、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")
679 :
以下、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")
680 :
以下、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")
681 :
以下、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")
682 :
以下、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")
683 :
以下、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")
684 :
以下、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")
685 :
以下、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")
686 :
以下、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")
687 :
以下、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")
688 :
以下、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")
689 :
以下、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")
690 :
以下、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")
691 :
以下、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")
692 :
以下、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")
693 :
以下、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")
694 :
以下、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")
695 :
以下、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")
696 :
以下、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")
697 :
以下、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")
698 :
以下、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")
699 :
以下、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")
700 :
以下、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")
701 :
以下、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")
702 :
以下、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")
703 :
以下、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")
704 :
以下、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")
705 :
以下、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")
706 :
以下、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")
707 :
以下、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")
708 :
以下、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")
709 :
以下、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")
710 :
以下、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")
711 :
以下、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")
712 :
以下、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")
713 :
以下、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")
714 :
以下、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")
715 :
以下、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")
716 :
以下、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")
717 :
以下、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")
718 :
以下、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")
719 :
以下、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")
720 :
以下、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")
721 :
以下、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")
722 :
以下、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")
723 :
以下、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")
724 :
以下、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")
725 :
以下、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")
726 :
以下、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")
727 :
以下、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")
728 :
以下、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")
729 :
以下、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")
730 :
以下、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")
731 :
以下、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")
732 :
以下、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")
733 :
以下、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")
734 :
以下、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")
735 :
以下、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")
736 :
以下、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")
737 :
以下、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")
738 :
以下、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")
739 :
以下、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")
740 :
以下、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")
741 :
以下、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")
742 :
以下、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")
743 :
以下、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")
744 :
以下、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")
745 :
以下、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")
746 :
以下、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")
747 :
以下、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")
748 :
以下、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")
749 :
以下、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")
750 :
以下、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")
751 :
以下、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")
752 :
以下、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")
753 :
以下、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")
754 :
以下、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")
755 :
以下、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")
756 :
以下、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")
757 :
以下、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")
758 :
以下、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")
759 :
以下、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")
760 :
以下、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")
761 :
以下、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")
762 :
以下、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")
763 :
以下、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")
764 :
以下、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")
765 :
以下、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")
766 :
以下、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")
767 :
以下、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")
768 :
以下、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")
769 :
以下、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")
770 :
以下、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")
771 :
以下、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")
772 :
以下、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")
773 :
以下、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")
774 :
以下、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")
775 :
以下、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")
776 :
以下、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")
777 :
以下、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")
778 :
以下、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")
779 :
以下、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")
780 :
以下、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")
781 :
以下、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")
782 :
以下、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")
783 :
以下、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")
784 :
以下、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")
785 :
以下、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")
786 :
以下、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")
787 :
以下、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")
788 :
以下、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")
789 :
以下、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")
790 :
以下、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")
791 :
以下、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")
792 :
以下、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")
793 :
以下、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")
794 :
以下、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")
795 :
以下、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")
796 :
以下、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")
797 :
以下、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")
798 :
以下、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")
799 :
以下、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")
800 :
以下、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")
801 :
以下、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")
802 :
以下、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")
803 :
以下、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")
804 :
以下、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")
805 :
以下、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")
806 :
以下、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")
807 :
以下、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")
808 :
以下、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")
809 :
以下、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")
810 :
以下、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")
811 :
以下、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")
812 :
以下、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")
813 :
以下、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")
814 :
以下、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")
815 :
以下、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")
816 :
以下、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")
817 :
以下、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")
818 :
以下、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")
819 :
以下、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")
820 :
以下、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")
821 :
以下、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")
822 :
以下、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")
823 :
以下、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")
824 :
以下、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")
825 :
以下、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")
826 :
以下、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")
827 :
以下、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")
828 :
以下、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")
829 :
以下、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")
830 :
以下、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")
831 :
以下、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")
832 :
以下、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")
833 :
以下、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")
834 :
以下、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")
835 :
以下、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")
836 :
以下、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")
837 :
以下、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")
838 :
以下、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")
839 :
以下、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")
840 :
以下、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")
841 :
以下、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")
842 :
以下、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")
843 :
以下、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")
844 :
以下、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")
845 :
以下、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")
846 :
以下、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")
847 :
以下、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")
848 :
以下、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")
849 :
以下、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")
850 :
以下、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")
851 :
以下、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")
852 :
以下、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")
853 :
以下、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")
854 :
以下、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")
855 :
以下、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")
856 :
以下、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")
857 :
以下、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")
858 :
以下、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")
859 :
以下、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")
860 :
以下、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")
861 :
以下、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")
862 :
以下、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")
863 :
以下、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")
864 :
以下、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")
865 :
以下、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")
866 :
以下、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")
867 :
以下、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")
868 :
以下、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")
869 :
以下、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")
870 :
以下、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")
871 :
以下、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")
872 :
以下、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")
873 :
以下、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")
874 :
以下、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")
875 :
以下、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")
876 :
以下、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")
877 :
以下、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")
878 :
以下、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")
879 :
以下、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")
880 :
以下、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")
881 :
以下、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")
882 :
以下、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")
883 :
以下、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")
884 :
以下、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")
885 :
以下、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")
886 :
以下、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")
887 :
以下、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")
888 :
以下、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")
889 :
以下、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")
890 :
以下、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")
891 :
以下、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")
892 :
以下、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")
893 :
以下、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")
894 :
以下、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")
895 :
以下、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")
896 :
以下、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")
897 :
以下、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")
898 :
以下、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")
899 :
以下、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")
900 :
以下、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")
901 :
以下、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")
902 :
以下、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")
903 :
以下、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")
904 :
以下、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")
905 :
以下、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")
906 :
以下、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")
907 :
以下、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")
908 :
以下、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")
909 :
以下、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")
910 :
以下、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")
911 :
以下、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")
912 :
以下、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")
913 :
以下、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")
914 :
以下、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")
915 :
以下、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")
916 :
以下、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")
917 :
以下、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")
918 :
以下、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")
919 :
以下、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")
920 :
以下、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")
921 :
以下、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")
922 :
以下、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")
923 :
以下、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")
924 :
以下、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")
925 :
以下、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")
926 :
以下、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")
927 :
以下、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")
928 :
以下、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")
929 :
以下、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")
930 :
以下、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")
931 :
以下、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")
932 :
以下、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")
933 :
以下、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")
934 :
以下、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")
935 :
以下、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")
936 :
以下、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")
937 :
以下、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")
938 :
以下、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")
939 :
以下、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")
940 :
以下、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")
941 :
以下、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")
942 :
以下、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")
943 :
以下、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")
944 :
以下、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")
945 :
以下、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")
946 :
以下、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")
947 :
以下、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")
948 :
以下、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")
949 :
以下、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")
950 :
以下、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")
951 :
以下、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")
952 :
以下、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")
953 :
以下、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")
954 :
以下、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")
955 :
以下、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")
956 :
以下、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")
957 :
以下、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")
958 :
以下、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")
959 :
以下、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")
960 :
以下、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")
961 :
以下、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")
962 :
以下、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")
963 :
以下、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")
964 :
以下、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")
965 :
以下、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")
966 :
以下、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")
967 :
以下、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")
968 :
以下、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")
969 :
以下、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")
970 :
以下、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")
971 :
以下、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")
972 :
以下、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")
973 :
以下、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")
974 :
以下、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")
975 :
以下、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")
976 :
以下、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")
977 :
以下、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")
978 :
以下、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")
979 :
以下、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")
980 :
以下、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")
981 :
以下、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")
982 :
以下、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")
983 :
以下、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")
984 :
以下、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")
985 :
以下、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")
986 :
以下、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")
987 :
以下、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")
988 :
以下、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")
989 :
以下、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")
990 :
以下、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")
991 :
以下、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")
992 :
以下、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")
993 :
以下、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")
994 :
以下、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")
995 :
以下、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")
996 :
以下、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")
997 :
以下、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")
998 :
以下、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")
999 :
以下、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")
1000 :
以下、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 :
1001
Over 1000 Thread
,.――――-、
ヽ / ̄ ̄ ̄`ヽ、 【呪いのパーマン Ver2.0】
| | (・)。(・); このスレッドは1000を超えました。|
| |@_,.--、_,> このレスを見たら10秒以内に次スレを建てないと死にます。
ヽヽ___ノ 次スレを10秒以内に建てても死にます。
パー速@VIPService
http://ex14.vip2ch.com/part4vip/
ローカルルール変更に伴い、1000到達の報告が不要になりました。
1002 :
最近建ったスレッドのご案内★
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/
眼鏡うp 素直にテイクダウン @ 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/
Pastlog.cgi Ver2.0
Powered By
VIP Service
Script Base by
toshinari