Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности. Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой. Private Sub CommandButton1_Click() Dim i Dim A() As Single Dim n As Byte t = 0 n = TextBox1 g = 1 https://www.cyberforum.ru/ vba/ thread1341598.html Макрос. Начисление ЗП по нарядам VBA
Помогите, пожалуйста, доработать макрос! Задача следующая: нужно посчитать начисление ЗП для каждого человека по нарядам. Написала макрос, он работает, но только в том случае, если фамилии отсортированы, т.к. значение ячейки сравниваю с предыдущей. Не могу сообразить: как накапливать сумму к начислению, если фамилии не будут отсортированы? В прикрепленном файле таблица и текст моего макроса....
VBA Массив из n случайных чисел Помогите пожалуйста, совершенно не разбираюсь в информатике.... Написать программу, которая вводит массив из n случайных чисел (n задаёт пользователь) в диапазоне от -100 до 100, после чего вычисляет сумму четных элементов массива, абсолютное значение которых превышает 25. Огромное спасибо заранее)) https://www.cyberforum.ru/ vba/ thread1341514.html VBA Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности https://www.cyberforum.ru/ vba/ thread1341511.html
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности. Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой. Private Sub CommandButton1_Click() Dim i Dim A() As Single Dim n As Byte t = 0 n = TextBox1 g = 1
VBA Описать пользовательский тип для занесения сведений о рейсе самолета
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать пользовательский тип для занесения сведений о рейсе самолета. 		VBA Описать класс, содержащий описание статического свойства https://www.cyberforum.ru/ vba/ thread1341497.html
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать класс, содержащий описание статического свойства.
VBA Программа для вывода в окне Immediate всех элементов коллекции с указанным именем Доброго вечера. Помогите с решением задачи, пожалуйста. Фрагмент программы для вывода в окне Immediate всех элементов коллекции с указанным именем. https://www.cyberforum.ru/ vba/ thread1341496.html Фрагмент программы, переворачивающий введенную строку VBA
Доброго вечера. Помогите с решением задачи, пожалуйста. Фрагмент программы, переворачивающий введенную строку.
VBA Составить фрагмент кода для вывода словесного названия цифры вводимой с клавиатуры Доброго вечера. Помогите с решением задачи, пожалуйста. Составить фрагмент кода для вывода в окне Immediate словесного названия цифры вводимой с клавиатуры. https://www.cyberforum.ru/ vba/ thread1341494.html VBA Описать свойство класса с типом Collection https://www.cyberforum.ru/ vba/ thread1341493.html
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать свойство класса с типом Collection и соответствующие property-методы для него.
VBA Описать property-метод для присвоения значения свойству строкового типа значения календарной даты
Доброго вечера. Помогите с решением задачи, пожалуйста. Описать property-метод для присвоения значения свойству строкового типа значения календарной даты с проверкой корректности даты. 		VBA Записать оператор добавления указанного числа в эту коллекцию, расположив его между указанными числами https://www.cyberforum.ru/ vba/ thread1341491.html
Доброго вечера. Помогите с решением задачи, пожалуйста. Дана коллекция, содержащая в указанной последовательности следующие числа: ***. Записать оператор добавления указанного числа в эту коллекцию, расположив его между указанными числами.
11508 / 3794 / 681
Регистрация: 13.02.2009
Сообщений: 11,197
26.12.2014, 00:59 0

Определить, какая из переменных является радиусом, какая – диаметром - VBA - Ответ 7038996

26.12.2014, 00:59. Показов 2222. Ответов 12
Метки (Все метки)

Ответ

Кликните здесь для просмотра всего текста
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

Sub LABA2()
Dim i As Integer
Dim r1, r2, r3 As Single
Dim s As String
r1 = Range(1, 2)
r2 = Range(2, 2)
r3 = Range(3, 2)
    If r2 = (r2 * r1) And r3 = (3.14 * r2) Then
        s = "r1 = радиус, r2 = диаметр, r3 = длина"
    Else
        If r1 = (r2 * 2) And r3 = (3.14 * r1) Then
            s = "r1 = диаметр,r2 = радиус, r3 = длина"
        Else
            If r2 = (r3 * 2) And r1 = (3.14 * r2) Then
                s = "r3 = радиус, r2 = диаметр,r1 = длина"
            Else
                If r3 = (r2 * 2) And r1 = (3.14 * r3) Then
                    s = "r2 = радиус, r3 = диаметр, r1 = длина"
                Else
                    If r3 = (r1 * 2) And r2 = (3.14 * r3) Then
                        s = "r1 = радиус, r3 = диаметр, r2 = длина"
                        If r1 = (r3 * 2) And r2 = (3.14 * r1) Then
                            s = "r3 = радиус, r1 = диаметр, r2 = длина"
                        Else
                            s = "не является"
                        End If
                    End If
                End If
            End If
        End If
    End If
End Sub


Но с ElseIf будет короче
Кликните здесь для просмотра всего текста

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

Sub LABA22()
Dim i As Integer
Dim r1, r2, r3 As Single
Dim s As String
r1 = Range(1, 2)
r2 = Range(2, 2)
r3 = Range(3, 2)
    If r2 = (r2 * r1) And r3 = (3.14 * r2) Then
        s = "r1 = радиус, r2 = диаметр, r3 = длина"
        ElseIf r1 = (r2 * 2) And r3 = (3.14 * r1) Then
        s = "r1 = диаметр,r2 = радиус, r3 = длина"
        ElseIf r2 = (r3 * 2) And r1 = (3.14 * r2) Then
        s = "r3 = радиус, r2 = диаметр,r1 = длина"
        ElseIf r3 = (r2 * 2) And r1 = (3.14 * r3) Then
        s = "r2 = радиус, r3 = диаметр, r1 = длина"
        ElseIf r3 = (r1 * 2) And r2 = (3.14 * r3) Then
        s = "r1 = радиус, r3 = диаметр, r2 = длина"
            If r1 = (r3 * 2) And r2 = (3.14 * r1) Then
            s = "r3 = радиус, r1 = диаметр, r2 = длина"
            Else
            s = "не является"
            End If
    End If
End Sub


Вернуться к обсуждению:
Определить, какая из переменных является радиусом, какая – диаметром VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 26.12.2014, 00:59
Готовые ответы и решения:

Определить какая из точек лежит на окружности, какая внутри окружности, а какая вне окружности
Не могу не как понять какую формулу писать Вот задания Заданы координаты двух точек А(х,у) и...

Определить, какая из дат - поздняя
Пользователь вводит в textBox1 одна дату: дд.мм.гггг и в textBox2 другую дату. Нужно проверить, что...

Для введенного целого трехзначного числа определить, какая цифра в числе является первой, какая второй и какая третьей
Разработать программу, которая для введенного целого трехзначного числа определяет, какая цифра в...

Определить, какая из переменных является произведением двух других
Даны С1,С2,С3 Определить, какая из переменных является произведением двух других, в случае...

12
26.12.2014, 00:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 26.12.2014, 00:59
Помогаю со студенческими работами здесь

Определить, какая из переменных является суммой двух других
Задача1 Даны А, В, С. Определить, какая из переменных является суммой двух других, если такой...

Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае отсутствия такой переменной напечатать сообщение.
Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае...

Какая температура является оптимальной, а какая критической для винчестера, процессора, видеокарты и т.д. ?
Может ли кто подсказать какая температура является оптимальной, а какая критической для винчестера,...

Определить какая из точек лежит внутри а какая - снаружи треугольника
Пытаюсь разобраться помогите пожалуйста .Створиты класс Triangle и класс Point. Объявить массив из...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru