|
pernatij4 |
Дата: Среда, 02.10.2019, 20:35 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016 | |
Уважаемые форумчане, подскажите, как грамотно исправить код
[vba]Код Sub Test_2()
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single
a1 = WorksheetFunction.Round(1.5, 0)
a2 = WorksheetFunction.Round(2.5, 0)
a3 = WorksheetFunction.Round(3.5, 0)
a4 = WorksheetFunction.Round(4.5, 0)
MsgBox "WorksheetFunction.Round(1.5, 0)=" & a1 & vbNewLine & _
"WorksheetFunction.Round(2.5, 0)=" & a2 & vbNewLine & _
"WorksheetFunction.Round(3.5, 0)=" & a3 & vbNewLine & _
"WorksheetFunction.Round(4.5, 0)=" & a4
End Sub
но только чтобы вместо прописывания значения вручную (1,5; 2,5; и т.п.) значение бралось из назначенной ячейки.
Спасибо.
Уважаемые форумчане, подскажите, как грамотно исправить код
[vba]Код Sub Test_2()
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single
a1 = WorksheetFunction.Round(1.5, 0)
a2 = WorksheetFunction.Round(2.5, 0)
a3 = WorksheetFunction.Round(3.5, 0)
a4 = WorksheetFunction.Round(4.5, 0)
MsgBox "WorksheetFunction.Round(1.5, 0)=" & a1 & vbNewLine & _
"WorksheetFunction.Round(2.5, 0)=" & a2 & vbNewLine & _
"WorksheetFunction.Round(3.5, 0)=" & a3 & vbNewLine & _
"WorksheetFunction.Round(4.5, 0)=" & a4
End Sub
но только чтобы вместо прописывания значения вручную (1,5; 2,5; и т.п.) значение бралось из назначенной ячейки.
Спасибо.pernatij4
|
| |
| Ответить
|
|
pernatij4 |
Дата: Среда, 02.10.2019, 20:43 |
Сообщение № 2 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016 | |
упростил так
[vba]Код Private Sub CommandButton5_Click()
в_1 = Лист1.Cells(3, 5)
Dim a1 As Single
h = WorksheetFunction.Round(в_1, 0)
MsgBox "h =" & h
End Sub
но теперь не выдает большее целое число...
упростил так
[vba]Код Private Sub CommandButton5_Click()
в_1 = Лист1.Cells(3, 5)
Dim a1 As Single
h = WorksheetFunction.Round(в_1, 0)
MsgBox "h =" & h
End Sub
но теперь не выдает большее целое число...pernatij4
|
| |
| Ответить
|
|
Апострофф |
Дата: Среда, 02.10.2019, 20:52 |
Сообщение № 3 |
|
|
Группа: Проверенные
Ранг: Обитатель
Сообщений: 448
Репутация:
124
±
Замечаний:
0% ±
Excel 1997 | |
pernatij4, не Round, а RoundUp попробуйте...
pernatij4, не Round, а RoundUp попробуйте...Апострофф
|
| |
| Ответить
|
|
pernatij4 |
Дата: Среда, 02.10.2019, 20:53 |
Сообщение № 4 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016 | |
Извиняюсь, сам спросил-сам ответил))))
еще слабо разбираюсь в мат.части
[vba]Код Private Sub CommandButton5_Click()
в_1 = Лист1.Cells(3, 5)
Dim a1 As Double
h = WorksheetFunction.RoundUp(в_1, 0)
MsgBox "h =" & h
End Sub
Извиняюсь, сам спросил-сам ответил))))
еще слабо разбираюсь в мат.части
[vba]Код Private Sub CommandButton5_Click()
в_1 = Лист1.Cells(3, 5)
Dim a1 As Double
h = WorksheetFunction.RoundUp(в_1, 0)
MsgBox "h =" & h
End Sub
|
| |
| Ответить
|
|
pernatij4 |
Дата: Среда, 02.10.2019, 21:55 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
0% ±
Excel 2016 | |
Апострофф, спасибо
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
