Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/поиск большего целого числа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск большего целого числа (Макросы/Sub)
поиск большего целого числа
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
[/vba]

но только чтобы вместо прописывания значения вручную (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
[/vba]

но только чтобы вместо прописывания значения вручную (1,5; 2,5; и т.п.) значение бралось из назначенной ячейки.
Спасибо.

Автор - pernatij4
Дата добавления - 02.10.2019 в 20:35
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]

но теперь не выдает большее целое число...
 
Ответить
Сообщениеупростил так

[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]

но теперь не выдает большее целое число...

Автор - pernatij4
Дата добавления - 02.10.2019 в 20:43
Апострофф Дата: Среда, 02.10.2019, 20:52 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 186
Репутация: 67 ±
Замечаний: 0% ±

Excel 2003
pernatij4, не Round, а RoundUp попробуйте...
 
Ответить
Сообщениеpernatij4, не Round, а RoundUp попробуйте...

Автор - Апострофф
Дата добавления - 02.10.2019 в 20:52
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]
 
Ответить
СообщениеИзвиняюсь, сам спросил-сам ответил))))
еще слабо разбираюсь в мат.части

[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]

Автор - pernatij4
Дата добавления - 02.10.2019 в 20:53
pernatij4 Дата: Среда, 02.10.2019, 21:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Апострофф, спасибо
 
Ответить
СообщениеАпострофф, спасибо

Автор - pernatij4
Дата добавления - 02.10.2019 в 21:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » поиск большего целого числа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!