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

Страницы: 1
Замена текста-как-время на время
 
#
07.07.2020 15:44:05
Привет.
Есть столбец в ячейках которого содержится время.
Но в некоторых ячейках время сохранено как текст.
Нужно сделать макрос, который бы искал  такие ячейки  и заменял текст на время.

Думаю использовать функцию TIMEVALUE. Но вот как найти саму ячейку с текстом?
Изменено: Vova67 - 07.07.2020 15:47:22
 
Перейти    
Запуск макроса с другого компьютера
 
#
08.05.2019 12:02:54
Добрый день.
Существуют ли способы запуска макроса на другом компьютере?
То есть инициировать запуск макроса на одном компе , а выполнение на другом.
 
Перейти    
Фильтрация данных в массив, Макрос для заполнения массива данными при помощи цикла
 
#
24.01.2019 15:30:45
Всем привет. Вот хотел применить массив для фильтрации данных, но в итоге вместо максимума и минимума выдает нули.
Просмотрел разные примеры, но ответа пока не нашел. Что у меня не так?

Код
Sub Test67()

Dim i As Long
Dim Mass() As String 'Массив, в котором будут храниться данные
Dim FinalRow As Long 'Переменная последней строки
Workbooks.OpenText Filename:="C:\Expo\1.csv" 'Открываю книгу с данными
FinalRow = Range("A1").End(xlDown).Row 'Номер последней строки

ReDim Mass(FinalRow) As String

For i = 2 To FinalRow
    
    If Cells(i, 3) = "50cl - 202 Finished" And Cells(i, 4) = "Dome Growth" And Cells(i, 16) = "Production" Then
        Mass(i) = Cells(i, 5)
    End If
Next i

Максимум = Application.Max(Mass)
Минимум = Application.Min(Mass)
Cells(3, 18) = Максимум 'Выдает 0
Cells(3, 19) = Максимум 'Выдает 0

End Sub
Изменено: Vova67 - 24.01.2019 16:43:34
 
Перейти    
Отфильтровать данные в массив
 
#
26.02.2018 17:20:22
Добрый день.
Помогите с формированием массива. Честно часа 3 разбирался с массивами, но не постиг.
В этом коде нужно отфильтровать циклом нужные значения в ячейках и заполнить ими массив Arr1, затем производить с массивом некоторые операции-вычислить максимум, минимум и т.д. Но вместо этого нули.
Данных много, около 400000
Код
  Sub Макрос2()
Dim Arr1() As String
    Workbooks.OpenText Filename:="C:\Expo\1.csv"
   kolvo = Range("A1").End(xlDown).Row ' количество строк
 
   ReDim Arr1(kolvo)
 For i = 2 To kolvo - 1
  
   If Cells(i, 3) = "33cl - 200 FIT Trimmed" And Cells(i, 4) = "Top Wall" And Cells(i, 16) = "Setup" Then
   Arr1(i) = Cells(i, 5).Value
   
   End If
   Next

 Range("S3") = Application.Min(Arr1)
 Range("S4") = Application.Average(Arr1(i))
 Range("S5") = Application.Max(Arr1)
 Range("S6") = Application.StDev(Arr1)
End Sub  
Изменено: Vova67 - 26.02.2018 17:57:23
 
Перейти    
Макрос автофильтра не работает
 
#
17.11.2017 13:44:11
Всем привет!

Вот макрос фильтрации. Ошибки не выдает, но данные по столбцу 7 не фильтруются, пустая таблица, хотя фильтрация включена
Код
Sub Макрос5()
    Sheets("Все данные").Select

    c1 = ">=" & Range("AD4")
    C2 = "<=" & Range("AD6")
   
    ActiveSheet.Range("$A$1:$AD$990").AutoFilter Field:=7, Criteria1:=c1, _
        Operator:=xlAnd, Criteria2:=C2
End Sub
В чем тут может быть дело?
 
Перейти    
Как сохранить копию листа Excel в Word?
 
#
07.11.2017 15:31:36
Всем привет.

Вот фрагмент кода , где копия листа схраняется в формате Pdf.
Код
Sheets("Рапорт").Select

pathS = "\\192.168.64.33\Quality\10-ТЕСТЫ ПРОИЗВОДСТВО\Архив рапортов\"

    Application.ScreenUpdating = False
 
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     pathS & "" & Year(Date) & "-" & Month(Date) & _
    
 "-" & Day(Date) & "  " & Hour(Time) & "." & 
Minute(Time) & "   Бригада   " & Range("F5") & "-" & 
Range("F6") & ".PDF", Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Application.ScreenUpdating = True

Но так как на компьютере, где выполняется макрос установлен Excel 2003, эта операция невозможна.
Помогите пожалуйста переделать код, чтобы лист сохранялся в Worde.
Изменено: Vova67 - 07.11.2017 15:36:00
 
Перейти    
Создание копии листа в PDF формате в ексель 2003
 
#
06.11.2017 13:53:50
Всем привет.

Помогите решить проблему. В Ексель 2010 все работает, в 2003 не работает.
Вот фрагмент кода
Код
pathS = "\\192.168.64.33\Quality\10-ТЕСТЫ ПРОИЗВОДСТВО\Архив рапортов\"
    Application.ScreenUpdating = False
 
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     pathS & "" & Year(Date) & "-" & Month(Date) & _
     "-" & Day(Date) & "  " & Hour(Time) & "." & Minute(Time) & "   Бригада   " & Range("F5") & "-" & Range("F6") & ".PDF", Quality:= _
     xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Application.ScreenUpdating = True
Выдает ошибку
Цитата
Run-time error 438
Object doesnt support this property or metod
Можно ли решить проблему в принципе?
Изменено: Vova67 - 06.11.2017 15:48:38
 
Перейти    
Страницы: 1
Наверх