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

Страницы: 1
Как отфильтровать список только по тем номерам, которые содержат 3 или меньше знака в номере?
 
#
04.04.2018 10:42:59
есть список товаров с номерами в одной ячеки через пробел
подскажите как фильтром отфильтровать список по этим номерам только те которые содержат только 3 или меньше знака в номере

вот номера в ячейке
002554100000 8GH 431 13336MDC1 64156 06706 9939027SX 9939027SX N460 1   431
значит фильтр должен найти эту строку потому что здесь есть 3-х значные номера или меньше 8GH

я пробовал Условия с подстановочными знакам, но чтото не получается. может разобрать эти номера в соседней ячейке или сделать условие.
подскажите как проще быть?
 
Перейти    
как правильно записать дату со временем из vba в ячейку чтоб формат был датой, как правильно записать дату со временем из vba в ячейку чтоб формат был датой
 
#
31.01.2018 18:03:05
вот так я записываю дату в ячейку .Cells(iLastRow, 5) = Format(SecondD, "d.mm.yy h:mm")    "31.01.18 17:26"
но она там записывается как текст и следовательно к ней не применяется нормально фильтр по дате

так делал DateValue(Format(FirstD, "d.mm.yy h:mm")) но он записывает дату в формате но время по 0:00:00

как записать со временем, может просто прибавить время к этому формату Format(Hours, "00") & ":" & Format(Minutes, "00") типа так
 
Перейти    
помогите в форме vba с подсчетом времени и умножением на стоимость
 
#
19.01.2018 17:29:29
вобщем вот что накидал
Код
Private Sub CommandButton1_Click()
Dim iLastRow As Long
Dim iBazaSht As Worksheet
Dim MinuteCnt As Long
    MinuteCnt = Minute(Me.TextBox4) - Minute(Me.TextBox3)  'пытался так MinuteCnt = DateDiff("n", Me.TextBox4, Me.TextBox3) но тут выходит только минуты или часы с минусом
    MsgBox MinuteCnt
Dim mtime As Date
    mtime = Range("B2") 'здесь из ячейки "0:05:00" время
    MsgBox mtime
Dim cena
    cena = Range("C2") 'здесь из ячейки "25" стоимость
Dim stoimost
    stoimost = MinuteCnt / mtime * cena
    MsgBox stoimost
    If Me.ComboBox1 = "" Then
        MsgBox "Âûáåðåòå ìåñòî", vbExclamation, "Îøèáêà"
        Exit Sub
    End If
    Set iBazaSht = ThisWorkbook.Sheets("Ëèñò2") 
        Protect_for_User_Non_for_VBA Sheets(iBazaSht.Name)
    With Sheets(iBazaSht.Name)
        iLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(iLastRow, 1) = Me.ComboBox1
        .Cells(iLastRow, 2) = Me.TextBox1
        .Cells(iLastRow, 3) = Me.TextBox2
        .Cells(iLastRow, 4) = Me.TextBox3
        .Cells(iLastRow, 5) = Me.TextBox4
        .Cells(iLastRow, 6) = MinuteCnt
        .Cells(iLastRow, 7) = stoimost
        .Cells(iLastRow, 8) = Me.TextBox7
    End With
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
    Me.TextBox7 = ""
    MsgBox "Èíôîðìàöèÿ äîáàâëåíà â Ëèñò2!", vbInformation, "Ëèñò2"
End Sub
stoimost  - не знаю как разделить время на 5 минут и умножить на 25 рублей чтоб получить стоимость, в эксель это делается просто

Me.TextBox4 получаю макросом по нажатию на кнопку значение такое 19.01.2018 18:36:57, а Me.TextBox3 также значение такое 19.01.2018 17:26:57. их потом в форме редактируют

подскажите хотя-бы как разобраться со временем
 
Перейти    
Применить формулу ко всем заполненым ячейкам в столбце макросом
 
#
26.04.2017 17:59:53
подскажите как применить формулу ко всем заполненым ячейкам в столбце с помощью макроса ?

описание:
вот сделал макрос копирование из одного документа в другой созданный, разобрал там все
и есть столбик к которому допустим нужно добавить процент, ко всем ячейкам в этом столбце
я знаю как это быстро делать руками (нажать два раза на точку в выделенной ячейке в начале этого столбца и формула применится к остальным ячейкам в этом столбце)
макрос записал это, но сохранил определенный диапазон ячеек
а количество строк всегда разное

так вот как правильно делать такую операцию?
нужно подсчитать количество строк и как то в эту формулу запихать переменную к диапазону ячеек?
или изначально подсчитать сколько строк копируется из документа и потом добавить как то к формуле?

подскажите, а то не могу уложить в уме этот процесс
 
Перейти    
Проверка включен автофильтр или нет (макрос)
 
#
26.04.2017 13:13:47
подскажите хочу сделать проверку макросом проверку включен автофильтр или нет и если не включен то включить

при записи макроса и включении кнопки записывается это
Код
Selection.AutoFilter

а так хотел сделать проверку
Код
Sub Ìàêðîñ1()

    Windows("âåñü ïðàéñ.xls").Activate
    If Selection.AutoFilter Then
    Selection.AutoFilter
    End If
End Sub

пробовал
Код
If ActiveSheet.FilterMode Then

и
Код
 If Me.AutoFilterMode = False Then
а так включает(если выключен) и выключает(если включен)
If Selection.AutoFilter = False Then
   Selection.AutoFilter
   End If

и не работает
подскажите как сделать?
Изменено: virtpetr - 26.04.2017 13:17:22
 
Перейти    
Страницы: 1
Наверх