, , , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


-

:

: . : 12.10.2012. : 2010. : 12. antiplagiat.ru: < 30%

():


Π ޠ
ߠ -ߠ





ߠ



-
14


                  :
                  򠠠 . 5114
                  :

                  :
                  ...,
                  ..



.
2009
:
1. 蠠3
2. 堠4
3. 蠠6
3.1 蠠6
3.2 7
3.3 UserForm9
3.3.1 󠠠9
3.3.2 14
3.3.3 15
3.3.4 15
3.3.5 16
3.3.6 17
4. 25
5. 26
27
28





1.

- .
:
        ( , , , , , , ).
        ( , )
        ( , )
, , . . , .


2.
:
    ;
    ;
, . ( ):


    :
    ;
    ;
    ;
    ;
    ;
    ;
    ;
. : =(RC[-1]=0;" ";(RC[-1];''!R1C1:R10C5;2)). , . , .
, . : =(RC[-3]=0;" ";(RC[-3]; ''!R1C1:R10C5; 4)*RC[-1]).



















3.
3. 1

, , , .
.
:
= (RC[-3]=0; (RC[-3]; '' !R1C1:R10C5; 4) * RC[-1]).

. Р , .
:
= (RC[-3]; '' !R1C1:R10C5; 4)










3. 2

- , . , Visual Basic. , .
, , . , . , , .
Visual Basic , , . , , , .

.
.
. , .   ; .
, . CTRL+ , CTRL+SHIFT+ , ࠗ . , , . Microsoft Excel, , , .
, . OK.
, .
:
ActiveSheet.ShowAllData
Range("A1").Select
Range("A1:D8"). Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= xlTopToBottom, DataOption1:=xlSortNormal
.

Microsoft Excel

1) , .
2) .
3) , .
4) . .

3. 3 UserForm

UserForm , .
, , , , , .
, . , Initialize () UserForm, , UserForm .
. , Move UserForm.
BorderStyle Caption . Show Hide, .
3. 3. 1
, , . , , .

Do While Not IsEmpty()<>''''
Set = .Offset(1, 0)

Set =
Loop,
. , . OFFSET(i,j) , i j - .
IFThen Else EndIF, , ( , ).
, .
.
:
Visual Basic (Alt+F11) ( Page .
Label, TextBox, CommandButton, ComboBox.
.
- .
:
Private Sub CommandButton1_Click()
Dim Y As Byte
If TextBox1 = " " Or TextBox2 = " " Or TextBox3 = " " Or TextBox4 = " " Or TextBox5 = " " Then
MsgBox (" !"), vbExclamation, ""
Exit Sub
End If
If Not IsNumeric(TextBox1.Text) Then
Msg = MsgBox(" ", vbCritical)
Exit Sub
End If
If Not IsNumeric(TextBox3.Text) Then
Msg = MsgBox(" ", vbCritical)
Exit Sub
End If
If Not IsNumeric(TextBox4.Text) Then
Msg = MsgBox(" ", vbCritical)
Exit Sub
End If
If Not IsNumeric(TextBox5.Text) Then
Msg = MsgBox(" ", vbCritical)
Exit Sub
End If
Dim name As String, simvol As String
Dim pr As Object, X As Object
Dim As String
Dim As Integer, As Integer, As Integer, As Integer
ActiveWorkbook.Sheets( ").Activate
simvol = TextBox1
Set pr = ActiveSheet.Range("a1")
Do While Not IsEmpty(pr)
Set X = pr.Offset(1, 0)
If pr = simvol Then
Y = MsgBox(" .. ", vbOKCancel, "")
If Y = vbCancel Then GoTo e Else GoTo 12
End If
Set pr = X
Loop
ActiveWorkbook.Sheets(" ").Activate
name = TextBox2
Set pr = ActiveSheet.Range("b2")
Do While Not IsEmpty(pr)
Set X = pr.Offset(1, 0)
If pr = name Then
Y = MsgBox(" ?", vbYesNo + vbQuestion, "")
If Y = vbYes Or Y = vbNo Then GoTo 5 Else GoTo 12
End If
Set pr = X
Loop
5 = TextBox1
= TextBox2
= TextBox3
= TextBox4
= TextBox5
ActiveWorkbook.Sheets(" ").Activate
Range("a3").Select
Selection.EntireRow.Insert
Set pr = ActiveSheet.Range("a2")
Do While Not IsEmpty(pr)
Set X = pr.Offset(1, 0)
Set pr = X
Loop
pr =
pr.Offset(0, 1) =
pr.Offset(0, 2) =
pr.Offset(0, 3) =
pr.Offset(0, 4)=
Set pr = Nothing
Set X = Nothing
Selection.Sort key1:= Range("a1"), order1:= xlAscending, Header:= xlGuess, OrderCustom:= 1, MatchCase:= False, Orientation:= xlTopToBottom
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
12 UserForm1.Hide
e: End Sub
, .. ( ).

UserForm1.Show
( ).
3. 3. 2
. . . .
, .   ADDITEM( ) ADDITEM( .OFFSET(0,1)).
: .ENTIREROW.DELETE.
. .




3. 3. 3

. .
, .
:
Range("A1").Select
Selection.Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

3. 3. 4

, ,( ) .
:
Range("A1:E1").Select
Selection.AutoFilter
Range("A2").Select
Me.Hide

3. 3. 5
, . , . , , . .
, , . , , , - .
Excel , .
:
Sub ()
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("").Range("B1:C8"), PlotBy:= xlColumns
ActiveChart.Location Where:= xlLocationAsObject, name:= " "
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "
End With
End Sub

.



3. 3. 6
Excel . , . .
Sub ()
Sheets(" ").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets(" ").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "!R1C1:R41C5"). CreatePivotTable Table Destination:= "", TableName:= " 3", DefaultVersion:= xlPivotTableVersion10
.


















5.
Workbook_Open, , :
      ;
      ;
      ;
      ;
      ;
      ;
      .
:











.



6.
MS Excel.
:
If Not IsNumeric(TextBox4.Text) Then
Msg = MsgBox(" ", vbCritical)
Exit Sub
End If





















      : Microsoft Excel VBA. . /: .., .. : , 2008.
      . Excel . : . . .: "", 2004. 432 .: . . . .
      . , . . MS Office 2004 .






















Dim pr As Object, X As Object
Dim name As String
Dim h As Byte
Dim Y As Byte
h = MsgBox("Auaaenoaeoaeuii oioeoaoaaeeou yoiooiaa??", vbYesNo + vbQuestion, "Oaaeaiea")
If h = vbYes Then Else GoTo e
name = ComboBox1
If ComboBox1 = "" Then
Y = MsgBox(" ", vbYesNo + vbQuestion, "Oaaeaiea")
If Y = vbYesNo Then GoTo 12 Else GoTo e
End If
ActiveWorkbook.Sheets(" ").Activate
Set pr = ActiveSheet.Range("a2")
Do While Not IsEmpty(pr)
Set X = pr.Offset(1, 0)
If pr = name Then
pr.Select
Selection.EntireRow.Delete
..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .