Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Excel. функция ДДОБ. Амартизационное счисление http://www.cyberforum.ru/vba/thread1996872.html
Помогите пожалуйста разобраться в задании. 1) Само задание: Фирма приобрела автомобиль стоимость 500 тыс. руб. Время эксплуатации 4 года. Амортизация начисляется каждый квартал, методом двойного...
Решение для почти планктона VBA
Господа, коллеги, товарищи! Не хочу показаться офисным планктоном (инженер), но сутки потеряны на возможность сделать следующее: 1.Хочу чтобы ячейка А5 моргала (изменяла цвет) всегда (при передаче...
VBA Полный перебор в Excel
Нужно реализовать алгоритм полного перебора в excel на любом примере. Необходимо для тестового примера для диплома,а я с vba совсем не дружу. В программе реализовал,а для теории нужна реализация в...
VBA Run-time error 2147217887 80040e21 Здравствуйте! При нажатии на кнопки: update, new, delete, на второй форме, появляется сообщение: run-time error 2147217887 80040e21 Невозможно добавление или изменения записи. Для обеспечения... http://www.cyberforum.ru/vba/thread1996679.html
VBA Печать наклеек без полей http://www.cyberforum.ru/vba/thread1996514.html
Доброго времени суток! Пытаюсь сделать форму для распечатки наклеек на листе A4 в Excel (2010), но никак не могу подогнать размер и избавиться от полей. Размер одной наклейки - 52,5 х 21,2 мм....
Шрифт в ячейках VBA
Всем хорошего настроения! Один человек прислал мне макрос, который создаёт файлы *.xls Для этого необходимо в колонке A:2 и A:3 написать имена будущих файлов и нажать "Пуск". в папке с макросом...
VBA Перелистывание страниц
Всем привет! Реализовываю парсинг страницы. Суть, захожу на 1 страницу записываю ссылки в эксель всех компаний, потом захожу на последующие страницы и забираю с них все ссылки. ...
VBA Создать макрос для Excel Помогите создать макрос. Необходимо данные из ячейки в столбце 2 скопировать и подставить в ячейку в столбец 3, путем изменения гиперссылки добавляя к ней данные из ячейки в столбце 2. Итак с... http://www.cyberforum.ru/vba/thread1996164.html
VBA Объединение и разобъединение ячеек http://www.cyberforum.ru/vba/thread1996142.html
Добрый день друзья! Перерыл весь (думаю весь) интернет в поисках решения своей задачки. Удалось найти решение только ее части. Есть таблица в которой объединены ячейки в зависимости от времени...
VBA Дубликаты переменных В Turbo Pascal был такой фокус: Var q1 : ^Double q2 : ^Double Begin new(q1); q2 := q1 q1^ := 10.0 End. http://www.cyberforum.ru/vba/thread1996038.html
Uberdarkk
0 / 0 / 0
Регистрация: 30.05.2017
Сообщений: 3
0

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

04.06.2017, 15:20. Просмотров 424. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.