Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Uberdarkk
0 / 0 / 0
Регистрация: 30.05.2017
Сообщений: 3
1

нарисовать блок схему

04.06.2017, 15:20. Просмотров 422. Ответов 0
Метки нет (Все метки)

есть кто сможет нарисовать блок схемку по этому коду
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Option Base 1
Option Explicit
 
Dim summa1, summa2, summa3, summa4, summa5, summa6 As Long
Dim rezult1, rezult2, rezult3, rezult4, rezult5, rezult6 As Long
Dim gold(7, 4)
Dim i As Integer, x As Variant, all As Variant, y, sravnenie(2)
Sub code()
 
    gold(1, 1) = "Кольцо"
    gold(2, 1) = "Амулет"
    gold(3, 1) = "Цепь"
    gold(4, 1) = "Серьги"
    gold(5, 1) = "Подвеска"
    gold(6, 1) = "Пирсинг"
    gold(7, 1) = "Кулон"
 
    
    For i = 1 To 7
        gold(i, 2) = Format(Round(Rnd() * 300, 2), "00.0") + 500
        gold(i, 3) = CInt(Rnd() * 4) + 10
    Next
 
End Sub
 
Sub poschitat()
    Cells.ClearContents
    all = 0
    Erase gold
    For x = 0 To 5
        y = x * 3 + 1
        code
        Cells(1, y) = "Месяц " & x + 1
        Cells(2, y) = "Модель"
        Cells(2, y + 1) = "Цена:"
        Cells(2, y + 2) = "Продано:"
        For i = 1 To 7
            
            Cells(i + 2, y) = gold(i, 1)
            Cells(i + 2, y + 1) = gold(i, 2)
            Cells(i + 2, y + 2) = gold(i, 3)
            gold(i, 4) = gold(i, 4) + gold(i, 3)
            all = all + (gold(i, 2) * gold(i, 3))
        Next
 
    Next
 
    For i = 1 To 7
        Cells(i + 2, 20) = gold(i, 4)
        Cells(i + 2, 21) = ((Cells(3, 2) + Cells(3, 5) + Cells(3, 8) * gold(i, 4)))
    Next
 
    sravnenie(1) = 1000000
    For y = 7 To 1 Step -1
        If gold(y, 4) < sravnenie(1) Then
            sravnenie(1) = gold(y, 4)
            sravnenie(2) = y
        End If
    Next
    
    rezult1 = 0
     rezult2 = 0
      rezult3 = 0
       rezult4 = 0
        rezult5 = 0
         rezult6 = 0
 
For i = 3 To 9
summa1 = Cells(i, 2) * Cells(i, 3)
rezult1 = summa1 + rezult1
summa2 = Cells(i, 5) * Cells(i, 6)
rezult2 = summa2 + rezult2
summa3 = Cells(i, 8) * Cells(i, 9)
rezult3 = summa3 + rezult3
summa4 = Cells(i, 11) * Cells(i, 12)
rezult4 = summa4 + rezult4
summa5 = Cells(i, 14) * Cells(i, 15)
rezult5 = summa5 + rezult5
summa6 = Cells(i, 17) * Cells(i, 18)
rezult6 = summa6 + rezult6
 
 
 
Next i
Cells(13, 1) = "Общая выручка за месяц"
Cells(13, 2) = rezult1
Cells(13, 2).Interior.Color = 45000
Cells(13, 5) = rezult2
Cells(13, 5).Interior.Color = 45000
Cells(13, 8) = rezult3
Cells(13, 8).Interior.Color = 45000
Cells(13, 11) = rezult4
Cells(13, 11).Interior.Color = 45000
Cells(13, 14) = rezult5
Cells(13, 14).Interior.Color = 45000
Cells(13, 17) = rezult6
Cells(13, 17).Interior.Color = 45000
 
 
 
  
    Cells(1, 20) = "Всего продано"
    Cells(1, 21) = "Выручка за марку"
    Cells(16, 1) = all
    Cells(16, 1).Interior.Color = 47000
    Cells(17, 1).Interior.Color = 47000
    Cells(16, 2) = " - Общая выручка за 6 месяцев."
    Cells(17, 1) = gold(sravnenie(2), 1)
    Cells(17, 2) = " - Наименее востребованное изделие"
    MsgBox "Выполнение расчетов завершено."
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2017, 15:20
Ответы с готовыми решениями:

Как нарисовать блок-схему в vba
Как нарисовать несколько квадратов с соединительными линиями в vba? т.е. квадрат от него линия,...

Составить программу и нарисовать блок схему
Ребята нужно составить программу в Excel с макросами и нарисовать логическую блок схему помогите...

Соствить блок схему
В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов...

Составить блок-схему
А можете помочь с блок схемой ,пожалуйста ?

Составить блок-схему
Помогите составить блок-схему к тесту. тест любой

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2017, 15:20

Создать блок-схему
Пожалуйста помогите создать блок схему по коду VBA

Составить блок-схему
Помогите составить блок-схему. Private Sub Поиск_Click() Dim myArray(1 To 10, 1 To 5) As...

Составить блок-схему
Заяц стоит в центре большого катка и поет свою любимую песенку в игрушечный микрофон. От микрофона...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.