, :
1) ;
2) , 1;
3) ;
4) . ;
5) 10 , 0 100, :
For i = 1 To 10
= Int(100 * Rnd())
Cells(i, 1).Value =
Next i
6) 1 . ;
7) ;
8) . ;
9) , ;
10) C:\St\ .xls;
11) : !.
, , . , - (, , Excel).
, (2) (4), (6), (8) (10). [7]:
| 1) | Sub 1() |
| 2) | With Application |
| 3) | .UserName = " .." |
| 4) | .StandardFont = "Arial Cyr" |
| 5) | .StandardFontSize = "10" |
| 6) | .DefaultFilePath = "D:\" |
| 7) | .SheetsInNewWorkbook = 3 |
| 8) | .EnableSound = False |
| 9) | .RollZoom = False |
| 10) | End With |
| 11) | Workbooks.Add |
| 12) | Sheets("1").Select |
| 13) | Sheets("1").Name = ". " |
| 14) | Range("A1").Select |
| 15) | Sheets(". ").Select |
| 16) | Sheets.Add |
| 17) | ActiveWorkbook.SaveAs _ Filename:="C:\St\ .xls", _ FileFormat:=Normal, Password:="", _ WriteResPassword:="", ReadOnlyRecommended: = False, _ CreateBackup:=False |
| 18) | End Sub |
With , 2- 10- Application. (SheetsInNewWorkbook), With :
Application.SheetsInNewWorkbook = 1
11- ( Add) (Workbooks).
, ( 1, Select) .
13- 1 Name (1 ). 1 . , , . 13- :
|
|
|
Sheets(1).Name = ". "
, , :
ActiveSheet.Name = ". "
14- 1 ( Range, Select).
15- 16- . : . After ( , ). , , :
Sheets.Add After:=Worksheets(1)
, Count:
Sheets.Add After:=Worksheets(Worksheets.Count)
17- St .xls. , , :
ActiveWorkbook.SaveAs Filename:="C:\St\ .xls"
, VBA (ActiveWorkbook).
:
| 1) | Sub () |
| 2) | Dim As Integer |
| 3) | Dim As Integer |
| 4) | = Application.SheetsInNewWorkbook |
| 5) | Application.SheetsInNewWorkbook = 1 |
| 6) | Workbooks.Add |
| 7) | ActiveSheet.Name = ". " |
| 8) | For i = 1 To 10 |
| 9) | = Int(100 * Rnd()) |
| 10) | Cells(i, 1).Value = |
| 11) | Next i |
| 12) | Sheets.Add After:=Worksheets(Worksheets.Count) |
| 13) | Worksheets(1).Select |
| 14) | Range("A1").Select |
| 15) | Application.SheetsInNewWorkbook = |
| 16) | ActiveWorkbook.SaveAs Filename:="C:\St\ .xls" |
| 17) | MsgBox " !" |
| 18) | End Sub |
:
1- .
2- 3- 2 : .
4- : Excel . , .
5- 1 (.. 1 ).
6- : .
7- . .
8- 11 10 . 0 100 Rnd Int. 0 1 ( VBA). Int , ( ). , Rnd, 100 , , 0 100.
10- . , , Cells, 1- , . , / .
|
|
|
12- .
13- 1- (. ) , .
14- 1. , - . , , . , .
15- : , , ( ). , , Application (Excel).
16- :, St, .xls.
17- . , , .
:
1) , , . 2‑1, ;
. 2‑1
2) , ;
3) . ;
4) , (. 2-2);
. 2‑2
5) .
:
. VBA , .
( 1), :
C:\St\ .xls;
: .xls !
, :
| 1) | Sub () |
| 2) | Kill "C:\St\ .xls" |
| 3) | MsgBox " .xls !" |
| 4) | End Sub |
, .xls C:\St. .xls : , , .
:
1) .xls;
2) , .xls . ( !)
, 1 , C:\St\ .xls:
Sub ()
Dim As String
= Dir("C:\St\ .xls")
If <> "" Then _
MsgBox " .xls !" _
Else MsgBox " .xls !"
End Sub
, Dir , .
. , :
| 1) | Sub () |
| 2) | Dim As String |
| 3) | = Dir("C:\St\ .xls") |
| 4) | If = "" Then |
| 5) | MsgBox " !" |
| 6) | Exit Sub |
| 7) | End If |
| 8) | For i = 1 To Workbooks.Count |
| 9) | If Workbooks(i).Name = " .xls" Then |
| 10) | Workbooks(" .xls").Close False |
| 11) | Exit For |
| 12) | End If |
| 13) | Next i |
| 14) | Kill "C:\St\ .xls" |
| 15) | MsgBox " .xls !" |
| 16) | End Sub |
:
|
|
|
1- .
2- .
3- : Dir .xls.
4 7 : , , (Exit Sub).
, .xls. :
a. .
b. .
: .xls, , (8- ). 9- . , .
.xls , (10- ), (11- ) 14- .
14- , (.. ). .
15- , (16- ).
:
1. . .
2. .
