Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Разбить один макрос на два Вобщем такая задача, дан макрос, который из Excel копирует диапазон ячеек, изменяет их(цвет, шрифт, размер текста) и вставляет в таблицу Word, нужно разбить макрос на 2, то есть первый макрос написан... https://www.cyberforum.ru/ vba/ thread194694.html VBA вставка картинки
Имеется кнопка, при нажатии на которую выводится определённый текст, кроме текста должна выводиться ещё и картинка, как её вывести, подскажите плиз.
VBA Перенос данных между таблицами Excel Доброго времени суток! Я сам далёк от программирования по этому ничего не получается, а объем данных очень большой и сделать все нужно срочно. Поэтому решил обратиться к профессионалам, то есть к... https://www.cyberforum.ru/ vba/ thread194572.html VBA Работа с Word из Excel https://www.cyberforum.ru/ vba/ thread194039.html
Здравствуйте. Помогите разобратся с взаимодействием ворда и екселя. У меня такой вопрос: Есть таблица в ексель с данными, есть код который обрабатывает эти данные, при выполнении кода VBA я создаю 4...
Формула по VBA VBA
Кто подскажет буду благодарен X и n вводятся с клавиатуры. Не могу сделать код под эту прогу. Заранее спасибо.
VBA Функция Replace и знаки-операторы VBA Хочется заменить с помощью Replace все знаки двойных кавычек(") на две одинарных('') для удобства сохранения из xls. в .txt (в первом случае добавляется еще пара кавычек) .Replace What:=""",... https://www.cyberforum.ru/ vba/ thread193802.html
VBA Можно ли изменить дизайн ListBox-а? https://www.cyberforum.ru/ vba/ thread193589.html
Можно ли как нибудь изменить дизайн listboxa, в том плане: можно ли поставить туда картинку, или картинку переделать в listbox.. Или хотябы можно сделать в соответствии со стилем Windows Xp, а то...
разветвляющие алгоритмы VBA
Помогите у меня что-то не совсем получается. надо составить блок-схему и вывод результатов в ячейки рабочего листа на языке VBA. Оценить уровень заработной платы работника,сравнив ее с размером...
VBA Как сделать один из листов недоступным для пользователя? как сделать один из листов недоступным для пользователя?? т.е. допустим у меня три листа: Лист1, Лист2, Лист3.. нужно сделать так, чтобы Лист1 можно было только просматривать, но ничего в нём... https://www.cyberforum.ru/ vba/ thread193322.html VBA Метод SSA-гусеницы Здравствуйте, я недавно начала заниматься методом гусеница, так как в работе для прогнозов объёмов мирового экспорта он мне необходим.Попробовала реализовать данный метод в MathCAD, но меня не совсем... https://www.cyberforum.ru/ vba/ thread193256.html
VBA Макрос для создания диаграммы
Здравствуйте программисты! Я инженер теплотехник (совсем не программист) на данном этапе еще далек от VBA))). Я сделал программу в excel для гидравлического расчета тепловой сети, но возникла...
VBA Автозапуск макроса каждые 10 минут Нужно, что бы макрос запускался через каждые 10 минут. Помогите кто может!!! https://www.cyberforum.ru/ vba/ thread193180.html
0 / 0 / 0
Регистрация: 15.10.2010
Сообщений: 9
0

Блок-схема (схема нуждается в проверке) - VBA - Ответ 1129892

21.11.2010, 22:06. Показов 3310. Ответов 3
Метки (Все метки)

Блок-схемы чертить никогда не умел, поэтому прошу помощи у знатоков. Нашёл в инэте прогу, которая схемы строит автоматически, по коду, но есть сомнения по поводу правильности построенного.
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
112
Private Sub CommandButton5_Click()
CommandButton5.ControlTipText = "Нажмите для исследования!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim U As Double
For U = 1800 To 10000
    L = L + 300
    If L >= 10300 Then Exit For
    Range("G" & (U - 1799)) = L
    Dim E As Double
    E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
    Dim Rпр As Double
    Rпр = 0.5 * E + (Sqr(0.25 * (E ^ 2) + H))
    Range("I" & (U - 1799)) = Rпр
Next
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "='Лист1'!$G$1:$G$28"
ActiveChart.SeriesCollection(1).Values = "='Лист1'!$I$1:$I$28"
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
End Sub
 
Private Sub Image1_Click()
End Sub
 
Private Sub Label11_Click()
 
End Sub
 
Private Sub TextBox1_Change()
TextBox1.ControlTipText = "Введите нужное значение для расчёта базы автомобиля"
If IsNumeric(TextBox1.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение L, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox2_Change()
TextBox2.ControlTipText = "Введите нужное значение для расчёта свободного радиуса колеса"
If IsNumeric(TextBox2.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение Rc, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox3_Change()
TextBox3.ControlTipText = "Введите нужное значение для расчёта Hk"
If IsNumeric(TextBox3.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение Hk, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub TextBox4_Change()
TextBox4.ControlTipText = "Введите нужное значение для расчёта n"
If IsNumeric(TextBox4.Value) = False Then
    MsgBox "Введена не цифра, введите цифровое значение n, которое должно быть больше 0", vbCritical, "Ошибка ввода"
End If
End Sub
Private Sub CommandButton1_Click()
CommandButton1.ControlTipText = "Нажмите для вычисления!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim E As Double
E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
Range("B2").Name = "E"
Range("B2").Value = E
End Sub
Private Sub CommandButton2_Click()
CommandButton2.ControlTipText = "Нажмите для вычисления!"
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim H As Double
H = (n ^ 2) * (Hk - Rc) / (2 * Hk)
Range("D2").Name = "H"
Range("D2").Value = H
End Sub
Private Sub CommandButton3_Click()
CommandButton3.ControlTipText = "Нажмите для вычисления!"
Dim L As Integer
L = TextBox1
Dim Rc As Single
Rc = TextBox2
Dim Hk As Integer
Hk = TextBox3
Dim n As Integer
n = TextBox4
Dim E As Double
E = (0.25 * (L ^ 2) + (Hk ^ 2) - (n ^ 2) - (2 * Rc * Hk)) / (2 * Hk)
Dim H As Double
H = (n ^ 2) * (Hk - Rc) / (2 * Hk)
Dim Rпр As Double
Rпр = 0.5 * E + (Sqr(0.25 * (E ^ 2) + H))
Range("C4").Name = "Rпр"
Range("C4").Value = Rпр
End Sub
Private Sub CommandButton4_Click()
CommandButton4.ControlTipText = "Нажмите для прочтения теоретической части"
UserForm2.Show
End Sub
Блок-схема построенная прогой:
http://img.ii4.ru/images/2010/11/21/66483_1.jpg
http://img.ii4.ru/images/2010/11/21/66484_22.jpg
http://img.ii4.ru/images/2010/11/21/66485_3.jpg
http://img.ii4.ru/images/2010/11/21/66487_4.jpg
http://img.ii4.ru/images/2010/11/21/66488_5.jpg

Вернуться к обсуждению:
Блок-схема (схема нуждается в проверке) VBA
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2010, 22:06
Готовые ответы и решения:

Блок схема ( схема алгоритма )
Доброго времени суток . Есть вот такая програмка : bool checktwo(const int x); int main(){ ...

Нужна схема СМ Beko WKB61041, Схема любой модели с модулем, как на фото
Нужна схема любой модели с модулем, как на фото. ...

блок-схема
Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова...

Блок-схема
Необходимо поменять местами главную и побочную диагонали в двумерном массиве, программу написал, но...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2010, 22:06

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Блок-схема
Если не сложно, то составьте пожалуста блок - схему к этой программе(можно даже в Paint) Program...

блок схема!!!
Ни разу не чертил блок схема графики паскаль!!! прошу помочь начертить блок схему =) uses...

Блок-схема!
Помогите составить блок-схему!!! Пожалуйста!

блок- схема
Один из простейших способов шифровки состоит в табличной замене одного символа на другой. Выбрать...

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