{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Sheet1","Sheet2","Sheet3"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":101,"n_cols":14,"rows_kept":101,"cut":false,"hidden":false,"merged":[]}
[]
[]
["［１］オープニングブックを作成する。"]
["①","オープン時にフォームのみ表示させる"]
["②","フォーム上で、何からしらの変化ある表現を行う。"]
["③","その表現の動きが終わると、フォームを閉じる。"]
["④","フォームをクローズしてから、当ブックを最大化するかどうか選択。"]
[]
[]
["①","Private Sub Workbook_Open()"]
[null,"    ActiveWindow.WindowState = xlMinimized"]
[null,"   Application.Visible = False ' excelのwindowsを非表示に"]
[null,"    UserForm1.Show"]
[null,"End Sub"]
[]
["②","フォーム上の変化"]
[null,null,"フォーム上に、絵を表示する。"]
[null,null,"絵の下にラベルを作成し、"]
[null,null,"そのラベルに、指定文章を一文字ずつ表示させる。"]
[]
[null,null,"Private Sub UserForm_Activate()",null,null,null,null,null,null,null,null,null,"ワークシートでアニメーション！"]
[null,null,"Dim i As Integer, j As Integer",null,null,null,null,null,null,null,null,null,null,"http://home.att.ne.jp/zeta/gen/excel/c04p23.htm"]
[null,null,null,"Application.OnTime Now + TimeValue(\"00:00:01\"), \"Module1.kaisi_no_syori\"",null,null,null,null,null,null,null,null,"EXCEL上でGIFアニメーションを動かす方法"]
[null,null,"End Sub",null,null,null,null,null,null,null,null,null,null,"http://hokanko2008.seesaa.net/article/168786983.html"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,"http://www.excel.studio-kazu.jp/kw/20081012085557.html"]
[null,null,"　－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－"]
[null,null,"#If VBA7 And Win64 Then",null,null,"'　1000分の1秒を定義する。　例：sleep(1000)で1秒。"]
[null,null,"    ' 64 bit Excel"]
[null,null,"    Public Declare PtrSafe Sub Sleep Lib \"kernel32\" ( _"]
[null,null,"        ByVal dwMilliseconds As LongLong)"]
[null,null,"#Else"]
[null,null,"    ' 32 bit Excel"]
[null,null,"    Public Declare Sub Sleep Lib \"kernel32\" ( _"]
[null,null,"        ByVal dwMilliseconds As Long)"]
[null,null,"#End If"]
[null,null," '  http://hp.vector.co.jp/authors/VA017795/vbuseful/sleep.htm"]
[null,null,"　'　http://www.cpearson.com/excel/WaitFunctions.aspx"]
[null,"②③④","Sub kaisi_no_syori()"]
[null,null,null,"Dim i As Long, j As Long"]
[null,null,null,"Dim moji As String"]
[null,null,null,"    "]
[null,null,null,"moji = \"●●●2013　：　いつか、ふたりでこういう灯台を見に行きたいものです。 \""]
[null,null,null,"j = Len(moji)"]
[null,null,null,"    "]
[null,null,null,"For i = 1 To j"]
[null,null,null,"    DoEvents"]
[null,null,null,"    UserForm1.Label2.Caption = Left(moji, i)"]
[null,null,null,"    Sleep (200)"]
[null,null,null,"Next i"]
[null,null,null,"    "]
[null,null,null,"Beep"]
[null,null,null,"Sleep (1500)"]
[]
[null,null,null,"Application.ScreenUpdating = true"]
[null,null,null,"Application.Visible = True  '　エクセル画面を表示する。"]
[null,null,null,"Unload UserForm1"]
[null,null,null,"Module1.excel_hyouji"]
[null,null,null,"Module1.tugi_no_syori"]
[null,null,"End Sub"]
[]
[null,null,"Sub excel_hyouji()"]
[null,null," Application.Visible = True  '　エクセル画面を表示する。"]
[null,null,"End Sub"]
[]
[null,"④","Sub tugi_no_syori()"]
[null,null,"Dim atai As Variant"]
[]
[null,null,"atai = MsgBox(\"当ブックを最大化しますか？　：　現在最小化されています。\", vbInformation + vbOKCancel, \"当ブックの表示\")"]
[null,null,"If atai = vbOK Then"]
[null,null,"    ActiveWindow.WindowState = xlMaximized"]
[null,null,"End If"]
[]
[null,null,"End Sub"]
[]
[]
[]
[]
[]
[]
[]
[]
[null,null,null,null,null,null,"      "]
[]
[]
[]
[]
[]
[]
[]
[null,null,null,null,null,null,"  "]
[null,null,null,null,null,null,"    "]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[null,null,null,null,null,null,"     "]

{"sheet":"Sheet2","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"Sheet3","index":2,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}