vba округление



Round excel

Автор Alton задал вопрос в разделе Другие языки и технологии

Округление с помощью "Round" в Microsoft Visual Basic 6 и получил лучший ответ

Ответ от Axel[гуру]
Этот код работает, так как в VB есть такая вещь, как неявное преобразование типов.
"Вот так", конечно, правильно, но на процессе работы программы не скажется ни грамма. Не говоря уже о результате, который в вопросе просили.. .
А в чём проблема с округлением? Всё же написано.
Изначально надо поменять типы только с integer на single или double.
А строку Text3 = s заменить на Text3 = (s, 3) где вместо тройки любое число поставить, сколько надо знаков после запятой.
Можно на самом деле вообще никаких переменных не заводить и весь код сократить до такого:
Private Sub Command1_Click()
Text3 = Round(Text1 * Text2, 3)
End Sub
Это так же будет нормально работать.

Ответ от Vic[гуру]
И что этот код работает? Текстовым переменным присваиваются числовые и наоборот? Начни с того, что используй преобразование переменных.
Правильно вот так:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
s = a * b
Text3.Text = Str(s)
End Sub

Ответ от Кай[новичек]
в VB не так работает
задаешь переменную типа double, например s
s = math.round(/выражение/, /кол-во знаков после запятой/)

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Округление с помощью "Round" в Microsoft Visual Basic 6

Подскажите формулу как перевести евро в рубли в Excel
в Excel такой формулы нет однозначно, это я вас могу заверить как человек, проработавший с экселем
подробнее...
спросили в Числа
помогите, мне нужно в EXCEL задать случайные числа ...
а если вдруг у Вас русская версия EXCEL, нужно использовать функцию слчис (), и как верно заметил
подробнее...
спросили в Reanimedia
Функция Math.Round как округлить в большую сторону?
Обычно делают так
y = Math.Round(x + 0.5)
На VB округление - это команда Int. То есть будет
подробнее...
спросили в GNOME Office
VBA EXCEL. Где найти список формул по английски??? чтоб потом вписывать формулы через VBA.
в справке VBA строка поиска: list function

Excel 2007 Developer Reference > Concepts
подробнее...

Как случайным образом перемешать ячейки в Excel?
Можно в соседнем столбце вбить функцию СЛЧИС () (на нерусском RAND) и отсортировать список по этому
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:

ктонибудь знает формулы в Excel подскажите как перевести евро в рубли
Ставите в одной ячейке (например А1) переводной коэффициент. Допустив в ячейке В3 - сумма в евро. В
подробнее...

Как в excel сделать, чтобы цифры округлялись только до сотых??
Формат - Ячейки - Вкладка Число - числовые форматы, выбираешь - числовой и ставишь число десятичных
подробнее...
спросили в Формула 2
Excel функции Подскажите, как правильно установить функцию (округл), нужно чтобы округляло в таблице все значения
Поможет только редактирование всех формул в тех ячейках, в которых требуется округление.
Т. е.
подробнее...

Есть ли в Excel функция, позволяющая случайно выбрать числа в указанном числовом диапазоне ?
Функция СЛЧИС () не имеет аргументов. В ячейке записывается следующим образом:

=СЛЧИС
подробнее...
спросили в Randomness
Как сгенерировать матрицу из случайных чисел в Excel 2007
Применение инструмента "Генератор случайных чисел" требует установки специального дополнения "Пакет
подробнее...

Как в экселе заполнить ячейки рандомно в определенном диапазоне?
В каждую ячейку диапазона вставить формулу
=ЦЕЛОЕ (СЛЧИС ()*5500+1500)
или
подробнее...
спросили в Flo Rida
Информатика. Эксель. что нужно дописать в формулу, чтобы число знаков после запятой было не больше одного?
правой кнопкой - формат ячейки - числовой. Кстати количество знаков после запятой там
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*