1 To 3)
Sub Sample()
Dim Ms(1 To 3)
Ms(2) = 124
Ms(1) =
"Январь"Ms(3) = True
End Sub
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Экономическая информатика I Visual Basic for Applications
Содержание
- 1. Экономическая информатика I Visual Basic for Applications
- 2. Оператор объявления массиваDim Arr (1 To 3)Dim
- 3. ПримерSub Квадраты() Dim Sq(1 To 100) Dim n For n
- 4. Вложенные циклыSub CreateArray() Dim Mat(1 To 3, 1
- 5. Ввод данных в ячейкиCells(2,3)
- 6. ПримерыCells(3,1) = 100peremennaya = Cells(2, 4)
- 7. Диапазон ячеекRange(«A1:C5") = "Hello!"Range(Cells(1,1),Cells(5,3)) = "Hello!"
- 8. Заполнение ячеек цикломSub Massiv()Dim i For
- 9. Заполнение ячеек цикломSub Massiv()Dim i, j
- 10. Работа с определенным рабочим листомWorksheets("Баланс").Cells(3,1) = 13.5
- 11. Работа со шрифтомWorksheets("Лист1").Range("A1:C5").Font.Bold = True
- 12. Ввод формул в ячейкиCells(10, 1) .Formula = "=sin(a2)^2+1"Range("A10").Formula = "=sin(b2)^2+1"
- 13. Ввод формул в ячейки Range("C1").Formula = "=сумм(A1:A5)"
- 14. Ввод формул в ячейки Range("C2").Formula = "=sum(A1:A5)"
- 15. Соответствие русских и английских имен функцийC:\Program Files\Microsoft Office\Office12\1049FUNCS.XLS
- 16. Русские имена функцийRange("C3").FormulaLocal = "=сумм(A1:A5)"
- 17. Оператор With With O P1 … Pn End WithЗдесь O — переменная, указывающая на объект, например, Worksheets("Лист2").
- 18. Оператор WithWith Worksheets("Лист3") .Cells(1,1) = "Фамилия" .Cells(1,2) = "Имя" .Range("A1:B1").Font.Bold
- 19. Функции с аргументами–массивамиПусть Mat имя аргумента некоторой функции. Mat = A1:B4KOL = Mat.Count
- 20. ПримерFunction КолОтриц(arr) Dim КолЭлем, i КолЭлем = Arr.Count КолОтриц
- 21. ПримерFunction КолСовп(Arr1, Arr2) Dim КолЭл1, КолЭл2, i КолЭл1 =
- 22. Объект WorksheetFunctionMi = WorksheetFunction.Min(3, 7, 1);Ma = WorksheetFunction.Max(8, 7);Дисперсия = WorksheetFunction.Var(8, 7, 9);Среднее = WorksheetFunction.Average(8, 7).
- 23. Объект WorksheetFunctionСУММ SumСУММЕСЛИ SumIfСУММПРОИЗВ SumProductМОДА ModeНАЙТИ FindСРЗНАЧ Averageи др.
- 24. ЗАДАЧИ
- 25. Задача 1
- 26. Задача 2
- 27. Задача 3
- 28. Скачать презентанцию
Оператор объявления массиваDim Arr (1 To 3)Dim М(1 To 2, 1 To 3)Sub Sample()Dim Ms(1 To 3)Ms(2) = 124Ms(1) = "Январь"Ms(3) = TrueEnd Sub
Слайды и текст этой презентации
Слайд 4Вложенные циклы
Sub CreateArray()
Dim Mat(1 To 3, 1 To 4)
Dim Строка,
Столбец
For Строка = 1 To 3
For Столбец = 1 To
4Mat(Строка, Столбец) = Строка + 2*Столбец
Next Столбец
Next Строка
End Sub
Слайд 9Заполнение ячеек циклом
Sub Massiv()
Dim i, j
For i =
1 To 9
For j = 1 To 9
Cells(i, j) = i * jNext j
Next i
End Sub
Слайд 12Ввод формул в ячейки
Cells(10, 1) .Formula = "=sin(a2)^2+1"
Range("A10").Formula = "=sin(b2)^2+1"
Слайд 15Соответствие русских и английских имен функций
C:\Program Files\Microsoft Office\Office12\1049
FUNCS.XLS
Слайд 17Оператор With
With O
P1
…
Pn
End With
Здесь O — переменная, указывающая на объект,
например, Worksheets("Лист2").
Слайд 18Оператор With
With Worksheets("Лист3")
.Cells(1,1) = "Фамилия"
.Cells(1,2) = "Имя"
.Range("A1:B1").Font.Bold = True
.Cells(2,1) =
"Пупкин"
.Cells(2,2) = "Вася"
Cells(3,3) = "Oops…" ' Ячейка C3 активного листа
End
With
Слайд 19Функции
с аргументами–массивами
Пусть Mat имя аргумента некоторой функции.
Mat =
A1:B4
KOL = Mat.Count
Слайд 20Пример
Function КолОтриц(arr)
Dim КолЭлем, i
КолЭлем = Arr.Count
КолОтриц = 0
For i
= 1 To КолЭлем
If arr(i) < 0 Then КолОтриц =
КолОтриц + 1Next i
End Function
Слайд 21Пример
Function КолСовп(Arr1, Arr2)
Dim КолЭл1, КолЭл2, i
КолЭл1 = Arr1.Count
КолЭл2 = Arr2.Count
If
КолЭл1 КолЭл2 Then
КолСовп ="ОШИБКА" ' несовпадение количеств элементов
Exit Function
Else
КолСовп =
0For i = 1 To КолЭл1
If arr1(i) = arr2(i) Then КолСовп = КолСовп + 1
Next i
End If
End Function
Слайд 22Объект WorksheetFunction
Mi = WorksheetFunction.Min(3, 7, 1);
Ma = WorksheetFunction.Max(8, 7);
Дисперсия =
WorksheetFunction.Var(8, 7, 9);
Среднее = WorksheetFunction.Average(8, 7).
Слайд 23Объект WorksheetFunction
СУММ Sum
СУММЕСЛИ SumIf
СУММПРОИЗВ SumProduct
МОДА Mode
НАЙТИ Find
СРЗНАЧ Average
и др.
