Описание возможностей табличного процессора Excel

Автор работы: Пользователь скрыл имя, 14 Марта 2012 в 15:01, курсовая работа

Описание работы

Программа Microsoft Excel относится к классу программ, называемых электронными таблицами. Электронные таблицы ориентированы прежде всего на решение экономических и инженерных задач, позволяют систематизировать данные из любой сферы деятельности.
Программа Microsoft Excel позволяет:
 сформировать данные в виде таблиц;
 рассчитать содержимое ячеек по формулам, при этом возможно использование более 150 встроенных функций;
 представить данные из таблиц в графическом виде;
 организовать данные в конструкции, близкие по возможностям к базе данных.

Скачать архив (45.88 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Курсовая по информатике, текст программ.doc

— 183.50 Кб (Скачать файл)
n:0pt">        Range("N1").Value = ""

    ElseIf a = "н" Then

        Range("J1").Value = ""

    ElseIf a = "с" Then

        Range("L1").Value = ""

        Range("O1").Value = ""

    ElseIf a = "и" Then

        Range("P1").Value = ""

    ElseIf a = "я" Then

        Range("Q1").Value = ""

    ElseIf m = 7 Then End

    End If

    m = MsgBox("Продолжить удаление символов?", _

               vbInformation + vbYesNo, "Работа с символами")

Loop

ElseIf m = vbNo Then End

End If

End Sub

 

2.Составить макрос, позволяющий выполнять заданные арифметические операции над кодами букв имени и фамилии пользователя.

 

 

 

Т

р

а

р

о

в

а

210

240

224

240

238

226

224

 

 

 

А

192

 

-18

-48

-32

-48

-46

-34

-32

н

237

27

-3

13

-3

-1

11

13

а

224

14

-16

0

-16

-14

-2

0

с

241

31

1

17

1

3

15

17

т

242

32

2

18

2

4

16

18

а

224

14

-16

0

-16

-14

-2

0

с

241

 

31

1

17

1

3

15

17

и

232

 

22

-8

8

-8

-6

6

8

я

255

 

45

15

31

15

17

29

31

 

 

 

 

Для начала работы нажмите клавиши ctrl+u

 

 

 

Dim i As Integer

 

Private Sub CommandButton1_Click()

'

With Workbooks("LAB_FORMA2.xls")

For i = 4 To 12

    Cells(i, 4).Value = Cells(i, 2).Value * Cells(2, 4)

    Cells(i, 5).Value = Cells(i, 2).Value * Cells(2, 5)

    Cells(i, 6).Value = Cells(i, 2).Value * Cells(2, 6)

    Cells(i, 7).Value = Cells(i, 2).Value * Cells(2, 7)

    Cells(i, 8).Value = Cells(i, 2).Value * Cells(2, 8)

    Cells(i, 9).Value = Cells(i, 2).Value * Cells(2, 9)

    Cells(i, 10).Value = Cells(i, 2).Value * Cells(2, 10)

 

Next

Range("E13").Value = "Выполнена операция арифметического умножения"

Range("A1").Select

End With

'

End Sub

 

Private Sub CommandButton2_Click()

'

With Workbooks("LAB_FORMA2.xls")

For i = 4 To 12

    Cells(i, 4).Value = Int(Cells(i, 2).Value / Cells(2, 4))

    Cells(i, 5).Value = Int(Cells(i, 2).Value / Cells(2, 5))

    Cells(i, 6).Value = Int(Cells(i, 2).Value / Cells(2, 6))

    Cells(i, 7).Value = Int(Cells(i, 2).Value / Cells(2, 7))

    Cells(i, 8).Value = Int(Cells(i, 2).Value / Cells(2, 8))

    Cells(i, 9).Value = Int(Cells(i, 2).Value / Cells(2, 9))

    Cells(i, 10).Value = Int(Cells(i, 2).Value / Cells(2, 10))

 

   

Next

Range("E13").Value = "Выполнена операция целочисленного деления"

Range("A1").Select

End With

'

End Sub

 

Private Sub CommandButton3_Click()

'

With Workbooks("LAB_FORMA2.xls")

For i = 4 To 12

    Cells(i, 4).Value = Cells(i, 2).Value + Cells(2, 4)

    Cells(i, 5).Value = Cells(i, 2).Value + Cells(2, 5)

    Cells(i, 6).Value = Cells(i, 2).Value + Cells(2, 6)

    Cells(i, 7).Value = Cells(i, 2).Value + Cells(2, 7)

    Cells(i, 8).Value = Cells(i, 2).Value + Cells(2, 8)

    Cells(i, 9).Value = Cells(i, 2).Value + Cells(2, 9)

    Cells(i, 10).Value = Cells(i, 2).Value + Cells(2, 10)

  

Next

Range("E13").Value = "Выполнена операция получения остатка от деления"

Range("A1").Select

End With

'

End Sub

 

Private Sub CommandButton4_Click()

'

Range("E13").Value = "Для начала работы нажмите клавиши ctrl+u"

Range("A1").Select

Операции.Hide

'

End Sub

 

Private Sub CommandButton5_Click()

With Workbooks("LAB_FORMA2.xls")

For i = 4 To 12

    Cells(i, 4).Value = Cells(i, 2).Value - Cells(2, 4)

    Cells(i, 5).Value = Cells(i, 2).Value - Cells(2, 5)

    Cells(i, 6).Value = Cells(i, 2).Value - Cells(2, 6)

    Cells(i, 7).Value = Cells(i, 2).Value - Cells(2, 7)

    Cells(i, 8).Value = Cells(i, 2).Value - Cells(2, 8)

    Cells(i, 9).Value = Cells(i, 2).Value - Cells(2, 9)

    Cells(i, 10).Value = Cells(i, 2).Value - Cells(2, 10)

   

Next

Range("E13").Value = "Выполнена операция получения остатка от деления"

Range("A1").Select

End With

End Sub

 

Private Sub UserForm_Click()

 

End Sub

 

 

Private Sub CommandButton1_Click()

If TextBox1.Text = "Трарова Анастасия" Then

    Range("D1").Value = "Т"

    Range("D2").Value = Asc(Range("D1").Value)

    Range("E1").Value = "р"

    Range("E2").Value = Asc(Range("E1").Value)

    Range("F1").Value = "а"

    Range("F2").Value = Asc(Range("F1").Value)

    Range("G1").Value = "р"

    Range("G2").Value = Asc(Range("G1").Value)

    Range("H1").Value = "о"

    Range("H2").Value = Asc(Range("H1").Value)

    Range("I1").Value = "в"

    Range("I2").Value = Asc(Range("I1").Value)

    Range("J1").Value = "а"

    Range("J2").Value = Asc(Range("J1").Value)

 

    Range("A4").Value = "А"

    Range("B4").Value = Asc(Range("A4").Value)

    Range("A5").Value = "н"

    Range("B5").Value = Asc(Range("A5").Value)

    Range("A6").Value = "а"

    Range("B6").Value = Asc(Range("A6").Value)

    Range("A7").Value = "с"

    Range("B7").Value = Asc(Range("A7").Value)

    Range("A8").Value = "т"

    Range("B8").Value = Asc(Range("A8").Value)

    Range("A9").Value = "а"

    Range("B9").Value = Asc(Range("A9").Value)

Информация о работе Описание возможностей табличного процессора Excel