Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Макрос удаления строк по условию
 
Код
Sub asd()
    Dim delrows As New Collection
    key_words = Array("Апельсин", "Большой мандарин")
    col = 4
    For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row
        If Not IsEmpty(Cells(i, col)) Then
            If col = 3 Then col = 4
            For j = 0 To UBound(key_words)
                If key_words(j) = Cells(i, col) Then
                    col = 3
                    Exit For
                End If
            Next j
        ElseIf col = 3 Then
            delrows.Add (i)
        End If
    Next i
    
    For i = delrows.Count To 1 Step -1
        Rows(delrows.Item(i)).Delete
    Next i
End Sub
Получение данных из Access в Excel
 
В запросе пишите условия, накладываемые на другие столбцы, тогда получите в выгрузке только нужные значения.
Изменения даты при изменении даты во второй ячейке, с пропуском выходных
 
Юрий М,
Цитата
Alena2019 написал:
Есть 2 ячейки, в одной стоит дата 1 августа, во второй  2 августа.
1 августа + 1
Изменения даты при изменении даты во второй ячейке, с пропуском выходных
 
=[ЯЧЕЙКА С ПЕРВОЙ ДАТОЙ] + 1
Изменено: kavaka - 13 июн 2019 12:41:34
Макрос снятия объединения и заполнения пустых ячеек
 
Код
Sub asd()
    For i = 7 To Cells(Rows.Count, 5).End(xlUp).Row
        If Range("E" & i).MergeCells Then
            Set tng = Range("E" & i).MergeArea
            tng.UnMerge
            For j = tng.Cells(1, 1).Row To tng.Cells(1, 1).Row + tng.Rows.Count - 1
                Cells(j, "E") = tng.Cells(1, 1).Value
            Next j
        End If
    Next i
End Sub
Копирование одного массива в другой с дублированием элементов
 
Код
For i = 1 To UBound(ar1)
    ar2(i * 2, 1) = ar1(i, 1)
    ar2(i * 2 - 1, 1) = ar1(i, 1)
Next i
Помогите дописать макрос перевода Формул в Значения
 
Код
Sub Formulas_To_Values_Selection()
    For Each Row In Selection.Rows
        If Row.Cells(1, 1) <> "" Then
            Range(Row.Address) = Range(Row.Address).Value
        End If
    Next
End Sub
Макрос поиска множества значений по excel файлам в папке, Возможно ли создать макрос, который бы искал ряд заданных значений по различным книгам excel в папке?
 
Если вам нужно искать разных юр лиц, где одно ищется по наименованию, а другое по ИНН, то просто через цикл вызываете функцию и подсовываете ей аргументы, предварительно их обработав, видимо, из вводимой строки в массив.
Перенести инфу из Блокнота в EXCEL
 
Считываете макросом свой txt и обрабатываете текст в нужный вид в excel.
как удалить все кроме куска текста с определенным значение?, как удалить все кроме куска текста с определенным значение?
 
Цитата
Z написал:
Вариант - 1 из 1000 -  https://www.planetaexcel.ru/blog/novaya-statya-analiz-teksta-regulyarnymi-vyrazheniyami-regexp-v-exc....
Код
<div +class="[a-z_]+">
Макрос выделения листов
 
Код
Sub asd()
    ReDim arr(0)
    For Each st In Sheets
        If st.Visible = True Then
            arr(UBound(arr)) = st.Name
            ReDim Preserve arr(UBound(arr) + 1)
        End If
    Next
    ReDim Preserve arr(UBound(arr) - 1)
    Sheets(arr).Select
End Sub
Экспорт листа Эксель в таблицу Access
 
Код рабочий, ищите ошибку у себя.
Экспорт листа Эксель в таблицу Access
 
Код
Sub DoTrans()

  Set cn = CreateObject("ADODB.Connection")
  dbPath = "C:\**s\Database1.accdb"
  dbWb = Application.ActiveWorkbook.FullName
  dbWs = Application.ActiveSheet.Name
  scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
  dsh = "[" & Application.ActiveSheet.Name & "$]"
  cn.Open scn

  ssql = "INSERT INTO table1 SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh

  cn.Execute ssql

End Sub
Вытащить текст из элемента на веб-странице
 
По вашему HTML коду DIV  id=$PpyListViewContentPage$ppxResults$l2$pWork_StatusTitleEr­­ror закрывается раньше текста Передан
Код
               <DIV  id=$PpyListViewContentPage$ppxResults$l2$pWork_StatusTitleEr­ror  class=iconErrorDiv style="DISPLAY: none">
                  <SPAN title=""  class=iconError errId=""></SPAN>
               </DIV>
               Передан  
            </SPAN>
         </TD>
         </TR>
      </TBODY>
   </TABLE>
</DIV>

Изменено: kavaka - 23 мар 2018 18:35:58
Применение макроса для разных страниц Excel
 
Цитата
Sve1us1k написал:
Страница2 - If cell.Value > "1" Then cell.EntireRow.Hidden = TrueСтраница3 - If cell.Value > "2" Then cell.EntireRow.Hidden = True (КАК ЗДЕСЬ ЕЩЕ УКАЗАТЬ, ЧТО И ЕДИНИЦА ТОЖЕ, если =1 и >2) Страница4 - If cell.Value > "3" Then cell.EntireRow.Hidden = True (=1, =2 и >3)
Код
Sub asd()
    For i = 2 To Sheets.Count
        For Each cell In Sheets(i).UsedRange.Columns(1).Cells
            If cell.Value <> i - 1 Then
                cell.EntireRow.Hidden = True
            End If
        Next
    Next i
End Sub
Применение макроса для разных страниц Excel
 
Код
Sub asd()
    Dim c As New Collection
    
    c.Add 2, "Лист1"
    c.Add 3, "Лист2"
    
    For Each st In ActiveWorkbook.Sheets
        For Each cell In st.UsedRange.Columns(1).Cells
            If cell.Value = c.Item(st.Name) Then cell.EntireRow.Hidden = True
        Next
    Next
End Sub
Импорт over9000 данных из Excel в определенные таблицы Access
 
Цитата
BladzheR написал:
По DB работаю с MySQL в основном из Python, под Linux на OrangePi, там всё элементарно
И в чем проблема использовать pandas или openpyxl, чтобы форматнуть таблицы под бд?
Макрос переноса значения из одной ячейки в другую по сравнению
 
Код
Sub asd()
    f_sn = Range("A2:B5")
    s_sn = Range("D2:E5")
    
    For i = 1 To UBound(f_sn, 1)
        For j = 1 To UBound(s_sn, 1)
            If f_sn(i, 1) = s_sn(j, 1) Then
                f_sn(i, 2) = s_sn(j, 2)
                Exit For
            End If
        Next j
    Next i
    
    Cells(2, 1).Resize(UBound(f_sn, 1), UBound(f_sn, 2)) = f_sn
End Sub
Импорт over9000 данных из Excel в определенные таблицы Access
 
BladzheR, засуньте всё в одну таблицу с дополнительным столбцом с датой этих данных типа 01.01.2018, 01.02.2018, 01.03.2018
Импорт over9000 данных из Excel в определенные таблицы Access
 
И в чем проблема засунуть всё в Access и подсосать сводные к базе?
голосовое управление excel
 
Ставите ПО для голосового управления и забиваете в него макросы с комбинациями клавиш. Нет разницы Excel это или какое-то другое приложение, но вы должны понимать, что время это вам не сократит, а только добавит геморроя, когда речь будет неправильно распознаваться.
График "Количества одновременных работ"
 
Ячейки чем залиты?
Изменено: kavaka - 26 фев 2018 23:43:26
Нажатие на кнопку на веб-странице
 
Для начала нужно увидеть саму страницу с её html-кодом.
Отфильтровать данные в массив
 
Засуньте все свои данные в массив и обращайтесь к нему с проверками, а не к ячейкам на листе. Из этого массива формируйте уже новый через ReDim Preserve.
Ошибка макроса при вычислении дат
 
Код
Sub asd()
    m = CDate(InputBox("Date"))
    
    ReDim arr(0 To 1, 0 To 1)
    
    i = 0
    For d = DateSerial(Year(m), Month(m), 1) To DateSerial(Year(m), Month(m) + 1, 0)
        If Weekday(d, 2) = 1 Then
            arr(0, i) = d
        ElseIf Weekday(d, 2) = 7 Then
            arr(1, i) = d
            If arr(1, i) <> DateSerial(Year(m), Month(m) + 1, 0) Then
                i = i + 1
                ReDim Preserve arr(1, i)
            End If
        End If
    Next
    
    If IsEmpty(arr(0, 0)) Then
        arr(0, 0) = DateSerial(Year(m), Month(m), 1)
    End If
    
    If IsEmpty(arr(1, i)) Then
        arr(1, i) = DateSerial(Year(m), Month(m) + 1, 0)
    End If
    
    
    Cells(1, 1).Resize(UBound(arr, 2) + 1, 2) = Application.Transpose(arr)
End Sub
Примечание с содержимым одноименной ячейки другого листа
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Range("B2:Y100"), Target) Is Nothing Then
        Range(Target.Address).ClearComments
        Range(Target.Address).AddComment Sheets(2).Range(Target.Address).Text
    End If
End Sub
Сводные таблицы из различных источников. Чем отличаются и какие возможности
 
Цитата
Jack Famous написал:
А если нужно несколько сводных на основе одних и тех же данных, но при этом фильтры (срезами), применённые на одной из них (главной) применялись и к другим - это только макросом?
Срезы работают на несколько сводных по одному источнику. (Срез - Параметры - Подключение к отчётам)
Изменено: kavaka - 1 фев 2018 16:59:03
Сводные таблицы из различных источников. Чем отличаются и какие возможности
 
Цитата
Jack Famous написал:
что даёт добавление в модель данных?
Возможность устанавливать отношения между полями из разных таблиц/источников (объединение данных по ключу).
То же самое можно в PQ через слияние запросов.
Изменено: kavaka - 1 фев 2018 15:07:48
Запись в одномерный массив значения примечаний ячеек
 
Код
ReDim arr(1 To 1, 1 To 31)

For i = 1 To 31
    If Not Cells(1, i).Comment Is Nothing Then
        arr(1, i) = Cells(1, i).Comment.Text
    End If
Next i
Работа с диалогами типа MsgBox Подтверждение, или отмена действий.
 
Код
Sub asd()
    act = MsgBox("Вы действительно хотите обновить данные?", vbYesNoCancel, "Обновление данных")
    If act = vbYes Then
        MsgBox "Yes"
    End If
End Sub
Страницы: 1 2 3 4 5 6 След.
Наверх