Лабораторная работа 4 Передача данных из рабочих листов Exel в VB программу и обратно
Работа добавлена на сайт samzan.net:
Изм.
Лист
№ докум.
Подпись
Дата
Лист
4
КПКО.ПОКС 4705.000
Подпись и дата
Инв. № дубл.
Взам. инв. №
Подпись и дата
Инв. № подл.
Копировал
Формат А4
Лабораторная работа №4
Передача данных из рабочих листов Exel в VBA программу и обратно.
|
Задание: Дан двумерный массив (mxn) и натуральные числа i,k (1<=i>=m, 1<=k>=n). Из исходного двумерного массива удалить i-ю строку, и k-ый столбец. |
Выполнение:
Sub Êíîïêà1_Ùåë÷îê()
Dim str1, sto, n, k, ch, ch2, mas As Range
Dim mas3 As Range
Dim i, j, ii, jj, mas2(1 To 100, 1 To 100) As Integer
Set str1 = Worksheets("Ëèñò1").Range("B1") считывает количество строк
Set sto = Worksheets("Ëèñò1").Range("B2") 'столбцов
Set n = Worksheets("Ëèñò1").Range("B3") 'рандом от
Set k = Worksheets("Ëèñò1").Range("B4") 'рандом до
Set ch = Worksheets("Ëèñò1").Range("B5") 'строка
Set ch2 = Worksheets("Ëèñò1").Range("B6") 'стобец
Set mas = Worksheets("Ëèñò1").Range("D8:K16") 'присваивает массиву ячейки в которых он будет выводиться
Set mas3 = Worksheets("Ëèñò1").Range("D18:J25")
If str1 >= 1 And str1 <= 8 And sto >= 1 And sto <= 8 Then 'проверяет что бы строки и столбци были не больше 8
If ch >= 1 And ch <= str1 And ch2 >= 1 And ch2 <= sto Then 'проверяет условие
For i = 1 To 8
For j = 1 To 8
mas(i, j) = ""
Next j: Next i
For i = 1 To 8
For j = 1 To 8
mas3(i, j) = ""
Next j: Next i
For i = 1 To str1
For j = 1 To sto
mas(i, j) = Int(Rnd() * (k - n) + 1) 'удаляем строку
Next j
Next i
ii = 0
For i = 1 To str1 'удаляем столбец
If i <> ch Then
ii = ii + 1
For j = 1 To sto
mas2(ii, j) = mas(i, j)
Next j
End If
Next i
ii = 0
For i = 1 To sto
If i <> ch2 Then
ii = ii + 1
For j = 1 To str1 - 1
mas3(j, ii) = mas2(j, i)
Next j
End If
Next i
Else: MsgBox ("введите данные коректно!!!")
End If
Else: MsgBox ("строки и столбци должны быть не больше 8 и не меньше 1")
End If
End Sub
2. прием пищи I hve four mels dy
3. Появление и развитие принципа вины в российском уголовном праве
4. А5 на каждом из которых хранится определенное количество компьютеров
5. Разработка плана деятельности торгового предприятия
6. Проект привода одноступенчатого червячного редуктора
7. Тема- Дослідження різних типів оперативної пам~яті ОП Розробила викладач
8. Теория и методология стимулирования внедрения научных разработок в производство
9. АЛЛЕРГОЛОГИЯ МОДУЛІ ЕМТИХАН БИЛЕТТЕРІ
10. 1 Понятия признаки и участники акционерных обществ
11. Механическая разработка грунтов
12. Договор оптовой куплипродажи
13. Платежный баланс Республики Беларусь
14. В поисках исторического
15. Разработка термокаталитического сенсора для определения природного газа и бензина в газовых средах
16. Курсовая работа- Ответственность несовершеннолетних в гражданском праве
17. восстановительный процесс протекающий в растворах и расплавах электролитов при прохождении постоянного эл
18. Законопроектная работа разработка соответствующих документов их принятие и контроль за реализацией
19. Методи одержання і вимоги до діелектричних плівок
20. Методологические основы курса Вопросы- Основные понятия теории вероятностей