Microsoft Excel 1
2
3
4
5
Application.CommandBars("Stop Recording").Visible = True 6
Range("A1").Value = WorksheetFunction.RoundDown(9.27, 0) 7
modorichi = MsgBox(" ",, "") modorichi = MsgBox(prompt:=" ", Title:="") 8
9
10
11
Range(" ") 12
13
14
15
Worksheets(1).Activate shiten = Range("A1").Value MsgBox "" & shiten & "" 16
& For i = 1 To 3 Worksheets(i).Name = shiten & i & " " Next i 17
18
If Worksheets.Count < 12 Then Worksheets.Add After:=Worksheets(3), Count:=9 End If 19
sheetpass = Worksheets("").Range("B2").Value inputpass = InputBox("") If sheetpass = inputpass Then Worksheets("").Visible = True Worksheets("").Visible = True Else MsgBox "" End If 20
21
22
23