Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » CATS
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Чем заменить DTPicker Ecell 2016 64 бита?
 
#
25.04.2019 10:47:42
Чем заменить DTPicker Ecell 2016 64 бита?
 
Перейти    
Не могу найти DTPicker в Excel2016, Excel 2016
 
#
24.04.2019 17:02:39
Привет всем! При программировании в VBA создал Userform и там мне надо чтобы было окошечко с выбором даты. В Additional Controls который включается через Tool Box. И там я не нашел Microsoft Date and Time Picker Control
Изменено: CATS - 24.04.2019 17:06:04
 
Перейти    
Ищу того кто поможет мне создать программу состоящую из нескольких макросов( научить меня), Помощь в написании прогаммы на VBA
 
#
23.04.2019 16:10:56
Привет всем! Ищу того кто поможет мне создать программу состоящую из нескольких макросов научить меня. О задаче мне надо  сделать пару страниц в которые надо вводить данные  выбирать дату и т.д выпадающие списки. И они заполнялись в бланк, после сделать кнопку печати этого бланка после заполнения и чтобы все что печаталось ( данные которые вводились) заполнялись автоматически после нажатия на кнопку печать в реестр. Основы VBA чутка знаю, но не все.
 
Перейти    
Помещение функции в окошечко Userform, Помогите добавить функцию в окно Userform
 
#
22.04.2019 13:22:33
Как добавить функцию в окошечко Userform
Код
Option Explicit

Sub Calculator()
    Dim perem As String
    
    perem = MyFunc("Ðàñõîä òîïëèâà = ", 160, 415, 100)
    
    Call MsgBox(perem)
    
    MsgBox "Êîíåö ïðîãðàììû"
    
End Sub


Function MyFunc(ByVal text As String, ByVal fuel As Integer, ByVal km As Long, ByVal ccc As Integer) As String
    Dim total As Double
    
    total = fuel * km / ccc
    
    MyFunc = text & total
End Function
 
Перейти    
Калькулятор расхода топлива, Вроде все правильно, но не получается
 
#
22.04.2019 12:22:10
Здравствуйте, мне надо написать калькулятор расхода топлива на VBA, сижу пишу код, вроде написал, захожу на лист и пишу "=MyFunk("Расход  топлива=";160; 415;100;)" получается 160=топливо, 415=километры, а 100 это по формуле надо :D
И почему-то вылазит в той клетке где я писал "#ЗНАЧ!" Что делать? что не так?

Код
Option Explicit

Sub Calculator()
    Dim perem As String
    
    perem = MyFunc("Расход топлива = ", 160, 415, 100)
    
    Call MsgBox(perem)
    
    MsgBox "Конец программы"
End Sub


Function MyFunk(ByVal text As String, ByVal fuel As Integer, ByVal km As Long, ByVal ccc As Integer) As String
    Dim total As Double
    
    total = fuel * km / ccc
    
    MyFunk = text & total
End Function
Изменено: CATS - 22.04.2019 12:56:13
 
Перейти    
Страницы: 1
Loading...