VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Присвоить переменной число с ведущими нулями Добрый день всем! Проблема с длиною нескольких одинаковых табельных номеров, а поточнее 96, 0096 и 096 и есть еще 000096. Все они фактически 96, и длина их 2 знака, каким способом присвоить переменным 96, 0096, 096 и 000096 ? Добавлено через 1 минуту пробовал числа переводить в строку https://www.cyberforum.ru/ vba/ thread998368.html	VBA Открытие книги по имени, находящемуся в ячейке другой книги Как в VBA открыть книгу по имени, находящемуся в ячейке другой книги?
VBA база данных здравствуйте, как в listbox при поиске выделить все найденные строки?поиск сделал, но выделяется последняя найденная строка!заранее спасибО! https://www.cyberforum.ru/ vba/ thread998274.html	VBA регулярные выражения https://www.cyberforum.ru/ vba/ thread998257.html помогите пожалуйста написать регулярные выражения. на VBA. есть текстовое поле, для ввода фамилии, нужно сделать так что бы фамилия не начиналась на "ЙйЫыЬьЪъ" и что бы не повторялись любые три буквы подряд.
VBA Исправить ошибки в коде Dim Банк As Long Dim Партия As Long Dim НомерМаксимум As Long Dim НомерМинимум As Long Dim Максимум As Long Dim Минимум As Long Private Sub TextBox1_Change() End Sub	VBA Все четные элементы целочисленного элемента K поместить в массив L, а нечетные в массив M Все четные элементы целочисленного элемента K(n) поместить в массив L(n), а нечетные в массив M(n). Подсчитать количество тех и других https://www.cyberforum.ru/ vba/ thread998064.html
VBA Выбор данных из таблицы в форму Приветствую, господа! Делаю excel-файл с VBA, вкратце - хочу так изучить английский как по карточкам. С VBA не дружу особо, часть сделал, часть нашёл, часть додумался (по другому функционалу)..но сейчас со временем думания плохо, поэтому прошу помощи! Табличка Excel выглядит так, например: столбец А(рус) - дом столбец B(англ) - house столбец C(тематика) - город столбец D(сложность... https://www.cyberforum.ru/ vba/ thread997890.html	Как сформулировать условие задачи по обработке информации с использованием операторов цикла и ветвления VBA При выполнении третьей части требуется самостоятельно сформулировать условие задачи по обработке информации с использованием операторов цикла и разветвления, а также разработать в прикладном программном продукте Word макрос для решения поставленной задачи. надо написать, любую)
VBA проверка на степень 3ки https://www.cyberforum.ru/ vba/ thread997719.html Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False. попробовал сделать через остаток от деления, не получается, укажите, пож-та, ошибку Public Sub qwe() Dim x As Integer x = InputBox("f", "f", "1") While x Mod 3 = 0 Do x = x \ 3	VBA Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее https://www.cyberforum.ru/ vba/ thread997685.html Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее. Помогите пожалуйста...
VBA программа в вба Докажите, что любой оператор цикла с постусловием можно записать с помощью условного оператора и цикла с предусловием.	VBA Вводить определенные символы https://www.cyberforum.ru/ vba/ thread996309.html Дан TextBox в него можно вводить только цифры и запятые или точки причем 2 раз нельзя вводит запятую или точку мне нужно что б в текстбокс получалось только корректное число

Hugo121

6922 / 2832 / 543

Регистрация: 19.10.2012

Сообщений: 8,645

05.11.2013, 12:50

Определить социальный статус по возрасту - VBA - Ответ 5288654

05.11.2013, 12:50. Показов 3319. Ответов 11

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Не будет - но работает!

Только как-то странно по F8...
Вообще конечно тут select case нужно.

Добавлено через 3 минуты

Visual Basic

Sub example_03()
    Dim stroka As String
    Dim Var1
 
    Var1 = Application.InputBox( _
           prompt:="Введите возраст", _
           Title:="Определение социального статуса", _
           Type:=1)
    If Not (TypeName(Var1) = "Boolean") Then
        Select Case Var1
        Case Is > 60: stroka = "пенсионер"
        Case Is > 22: stroka = "рабочий"
        Case Is > 6: stroka = "учащийся"
        Case Is > 2: stroka = "дошкольник"
        Case Else: stroka = "это кто вообще?"
        End Select
        MsgBox Var1 & " лет - это " & stroka
    Else
        MsgBox "не введены данные"
    End If
End Sub

Вернуться к обсуждению:
Определить социальный статус по возрасту VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.11.2013, 12:50

Готовые ответы и решения:

По возрасту определить статус
Написать программу ,определяющую по авозросту человека, его статус: дошкольник(до 6 лет),...

Написать программу, определяющую по возрасту человека его статус
Написать программу ,определяющую по авозросту человека, его статус: дошкольник(до 6 лет),...

По возрасту человека определить
Решите пожалуйста) По возрасту человека определить ходит ли он в садик, в школу, на работу или...

Определить группу по возрасту
Составьте программу, которая позволяет по возрасту определить, к какой группе относится данный...

	05.11.2013, 12:50

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.11.2013, 12:50

Помогаю со студенческими работами здесь

Определить старшего по возрасту человека
1)Известны год, номер месяца и день рождения каждого из двух человек. Определить кто из них старше....

Определить старшего по возрасту человека
Даны 3 календарные даты, которые представляют собой даты рождения трёх друзей: Сергея, Ивана,...

По введенному возрасту определить принадлежность к возрастной группе
Написать программу, которая запрашивает у пользователя ввести пол (1-мужской, 2-женский) и возраст...

Определить по вводимому возрасту отряд для ребенка
Группу детей, приехавшую в пионерский лагерь, распределяют по отрядам следующим образом: 6-7 лет –...

Наверх