Очень нужно написать программу в VBA!

[Ципихович Эндрю]

как загрузить и откуда 7000 переменных быстро???

[EL_MoC]

А ты мне пример кода приведи, если не сложно, как у тебя это вообще реализовывается. То есть само применение этого легиона переменных.

[Ципихович Эндрю]

в документ переменные Вариаблес грузятся минут 50, и плевать раз загрузились и - на всю жизнь
Переменных около 7000 штук, грузятся долго, потому, что это мои личные прибамбасы
проверок море, грамматика и т. д.
суть не в этом
потом когда они уже там есть в коде я делаю так:
Имя = ActiveDocument.Variables(Имя).Value
понятно??

[EL_MoC]

Все понятно, я думаю тема уже изжила себя!

[Atlantis (RUS)]

Сообщение от Maleta

Вот задачка:
Арифметические действия над числами пронумерованы следующим образом: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление. Дан номер действия N (целое число в диапазоне 1-4) и вещественные числа А и В (В не равно 0). Выполнить над числами указанное действие и вывести результат.

Заранее спасибо!

Привет, Maleta! Эти двоечники тебе программы прислали с ошибками - шаг в право-влево и программа "вылетает". И не видно что вводилось на предыдущем шаге. А так же если ввел число с ошибкой надо заново программу перезапускать чтобы посчитать. И еще нет проверки, что введено число, а не строка. А так же у тебя по условиям второе число не должно быть равно нулю. Так же А и B должны быть вещественными числами, а не целыми. Так что вот тебе программа от меня (она еще все равно далека от совешенства, но удобство и корректность на порядок выше от тех, что тебе прислали)

Sub Арифмет()
Dim a, b, c As String

5:
a = InputBox("Введите первое число a", "Первое число a")
If a = "" Then
Exit Sub
End If
If IsNumeric(a) = False Then
MsgBox ("Введенное значение a=" & a & " не является числом." & vbNewLine & "Введите заново значение а")
GoTo 5
End If



10:
b = InputBox("Введено число а=" & a & vbNewLine & "Введите второе число b, не равное нулю", "Второе число b")
If b = "" Then
Exit Sub
End If

If IsNumeric(b) = False Then
MsgBox ("Введенное значение b=" & b & " не является числом" & vbNewLine & "Введите заново значение b")
GoTo 10
End If

If b = 0 Then
MsgBox ("Второе число не должно быть равно нулю. Введите заново второе число b.")
GoTo 10
End If



20:
c = InputBox("Введены числа а=" & a & " b=" & b & vbNewLine & "Введите номер действия(1-4):" & vbNewLine & "1-Разница" & vbNewLine & "2-Сумма" & vbNewLine & "3-Произведение" & vbNewLine & "4-Деление", "Выбор арифметдействия")
Select Case c
Case 1
MsgBox "Формула: (a-b=)" & vbNewLine & "Результат: " & a & "-" & b & "=" & (a - b), , "Разница a и b"
Case 2
MsgBox "Формула: (a+b=)" & vbNewLine & "Результат: " & a & "+" & b & "=" & (a + b), , "Сумма a и b"
Case 3
MsgBox "Формула: (a*b=)" & vbNewLine & "Результат: " & a & "*" & b & "=" & (a * b), , "Произведение a и b"
Case 4
MsgBox "Формула: (a/b=)" & vbNewLine & "Результат: " & a & "/" & b & "=" & (a / b), , "Деление a и b"
Case ""
Exit Sub
Case Else
MsgBox "Введено неправильное число арифметического действия (действие должно быть в интервале от 1 до 4 включительно)"
GoTo 20
End Select
End Sub

[Atlantis (RUS)]

Привет, Maleta! Эти двоечники тебе программы прислали с ошибками - шаг в право-влево и программа "вылетает". И не видно что вводилось на предыдущем шаге. А так же если ввел число с ошибкой надо заново программу перезапускать чтобы посчитать. И еще нет проверки, что введено число, а не строка. А так же у тебя по условиям второе число не должно быть равно нулю. Так же А и B должны быть вещественными числами, а не целыми. Так что вот тебе программа от меня (она еще все равно далека от совешенства, но удобство и корректность на порядок выше от тех, что тебе прислали)

Sub Арифмет()
Dim a, b, c As String

5:
a = InputBox("Введите первое число a", "Первое число a")
If a = "" Then
Exit Sub
End If
If IsNumeric(a) = False Then
MsgBox ("Введенное значение a=" & a & " не является числом." & vbNewLine & "Введите заново значение а")
GoTo 5
End If



10:
b = InputBox("Введено число а=" & a & vbNewLine & "Введите второе число b, не равное нулю", "Второе число b")
If b = "" Then
Exit Sub
End If

If IsNumeric(b) = False Then
MsgBox ("Введенное значение b=" & b & " не является числом" & vbNewLine & "Введите заново значение b")
GoTo 10
End If

If b = 0 Then
MsgBox ("Второе число не должно быть равно нулю. Введите заново второе число b.")
GoTo 10
End If



20:
c = InputBox("Введены числа а=" & a & " b=" & b & vbNewLine & "Введите номер действия(1-4):" & vbNewLine & "1-Разница" & vbNewLine & "2-Сумма" & vbNewLine & "3-Произведение" & vbNewLine & "4-Деление", "Выбор арифметдействия")
Select Case c
Case 1
MsgBox "Формула: (a-b=)" & vbNewLine & "Результат: " & a & "-" & b & "=" & (a - b), , "Разница a и b"
Case 2
MsgBox "Формула: (a+b=)" & vbNewLine & "Результат: " & a & "+" & b & "=" & (a + b), , "Сумма a и b"
Case 3
MsgBox "Формула: (a*b=)" & vbNewLine & "Результат: " & a & "*" & b & "=" & (a * b), , "Произведение a и b"
Case 4
MsgBox "Формула: (a/b=)" & vbNewLine & "Результат: " & a & "/" & b & "=" & (a / b), , "Деление a и b"
Case ""
Exit Sub
Case Else
MsgBox "Введено неправильное число арифметического действия (действие должно быть в интервале от 1 до 4 включительно)"
GoTo 20
End Select
End Sub

[Sasha_Smirnov]

Сообщение от Atlantis (RUS)

удобство и корректность

Да, об этом часто забывают. Вот несколько более простой вариант