Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 13 След.
Долгое копирование ячейки, Долгое копирование ячейки в Exel
 
Krasilov.AL, а сколько формул в файле?
Было б не плохо посмотреть этот фалй "А"
И подскажите какие характеристики компьютера - а вдруг )
Нумерация в умной таблице., Создание динамического столбца нумерации строк.
 
Самая обычная нумерация строк?
предыдущая строка +1, если ошибка, тогда 1
Накопительный Итог с условием PowerBI
 
Всем спасибо, решение простое
Скрытый текст
Накопительный Итог с условием PowerBI
 
Я кажись понял, как правильно задать вопрос)
Есть посчитанные уникальные значение, как получить правильные итоговые суммы?
Накопительный Итог с условием PowerBI
 
Murderface_, нужно расчитать сумму уникальных поля devtodev_id
это таблица Users_zero лист "Работает"
Накопительный Итог с условием PowerBI
 
Всем доброго времени суток, прошу вашей помощи в решение элементарной задачки, которую не могу победить
Создал с помощью "быстрой меры" накопительный итог, который суммирует только по стобцам пользователей, которые имели entry_date = 0
Вроде всё работает, но при условие, что поле install_date не должно быть в доступном диапазоне (данные за период 02/09/2019-05/09/2019), тогда нужно поставить в фильтре период который будет выходить за эти рамки с любого края например (01/01/2019-05/09/2019 или 02/09/2019-31/12/2020).

Такую же процедуру нужно сделать с полем entry_date

Столбец, которая собирает пользователей за 0 entry_date
Скрытый текст

Мера, которая правильно суммирует (с ней проблема) (таблица называеться users_zero)
Скрытый текст

Помогите победить эту проблема, заранее благодарен!
Модель прикладываю, обновлять не стоит, связь разорванна

Для наглядного понимания в модели лист "Работает" - это где всё работает, а лист "НЕТ" - где не работает
П.С. с PowerBI работаю два месяца ))
Изменено: Xapa6apga - 12.09.2019 15:34:10
Отобразить InernetExplorer, InernetExplorer отобразить, что б стал видимым
 
magistor8, нашел, отобразил, Спасибо большое!
Дмитрий(The_Prist) Щербаков, только проводник нашел

magistor8, а не подскажите, а как теперь этот IE передать в переменную, что б с ним работать как с обьектом?
Отобразить InernetExplorer, InernetExplorer отобразить, что б стал видимым
 
Здравствуйте, прошу вашей помощи в решение такой проблемы:
Есть надстройка (FAME) которая запускает процес IE (InternetExploerer), как возможно отобразить этот процесс через VBA?

типо IE.visible = true

По процессу как хотелось бы сделать, но не получается:
Найти в диспетчере задач процесс iexplorer.exe и сделать его видимым

Заранее благодарен!
Изменено: Xapa6apga - 30.01.2019 17:18:43
Удаление дублированных данных
 
Здравствуйте, только макросом.

Ручками : Данные -> Удалить Дубликаты
Но какие строки будут удаленны, уведомления не будет!
Проверка данных типа "список" из одного значения по условию текущего листа с использованием именованных диапазонов
 
Здравствуйте, так что б не заморачиваться, могу предложить вот такую формулу:
Вставить в ячейку F6
Скрытый текст
Вызвать надстройку (App Office) средствами VBA
 
Sanja, Спасибо за уделенное внимание.
Макрорекордер пуст!
Список рабочих дней без учёта выходных и праздничных
 
Здравствуйте, если правильно понял, добавте просто ВПР в колонку G, и будет у Вас Календарь с признаком (Празд. Пред.Презд, Раб, Вых)
Вызвать надстройку (App Office) средствами VBA
 
Здравствуйте, прошу помочь подсказать как возможно обратится к надстройкам средствами VBA, которые инсталяца через магазин Ofiice (Надстройки Office (App Office))
Это и не ComAddIns и не AddIns
Excel 2019

Как возможно к ним обратится. Заранее  благодарен за помощь!
Изменено: Xapa6apga - 19.01.2019 17:54:08
Експорт с EXCEL в BigQuery, как сделать INSERT через ADO
 
ivanok_v2, тю, а как они такое пропустили  ? (((
Буду писать на суппорт.
Спасибо!
Експорт с EXCEL в BigQuery, как сделать INSERT через ADO
 
Цитата
Андрей VG написал:
Доброе время сутокЦитата Xapa6apga  написал:хочу сделать запись(INSERTSelect приведён, но Insert нет. Может в синтаксисе Insert ошибка?
Здравствуйте, инсерт не работает, но если в БД ORACLE это осуществлять, вс ок.
Експорт с EXCEL в BigQuery, как сделать INSERT через ADO
 
Не помогло (
Спасибо за помощь!
Как рассчитать отставание (перевыполнение) плана продаж в рублях?
 
Здравствуйте,
ввыполнение на текущею дату (Все дни которые меньше сегодняшнего дня)
=СУММЕСЛИ('октябрь 2018'!A:A;"<="&СЕГОДНЯ();'октябрь 2018'!E:E)/СУММЕСЛИ('октябрь 2018'!A:A;"<="&СЕГОДНЯ();'октябрь 2018'!C:C)

Выполнение за сегоднешний день (Один день)
=ВПР(СЕГОДНЯ();'октябрь 2018'!A:E;5;0)/ВПР(СЕГОДНЯ();'октябрь 2018'!A:E;3;0)

Так ?
Експорт с EXCEL в BigQuery, как сделать INSERT через ADO
 
Здравствуйте, прошу помочь в решение проблемы, не как не могу осуществить инсерт из EXCEL(2016 Х64) в BigQuery
Может кто-то уже пробовал или подскажет куда бежать? Заранее благодарен!
Моя ситуация:
Скачал ODBC от гугла
Все работает для чтения
Код
Sub ADO_Connect_without_library2()
'без подключение библиотеки ACTIVEX data ojects 6.0
Dim cn As Object, rs1 As Object
Dim strSQL As String
Dim QT As QueryTable

Set cn = CreateObject("ADODB.Connection")
Set rs1 = CreateObject("ADODB.Recordset")
'cn.Provider = "oraOLEDB.Oracle"
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties="DSN=CData GoogleBigQuery Source;";Initial Catalog=**********"

On Error GoTo CnErrorHandler
cn.Open: strSQL = "select * from PRODUCTS_TBL"
rs1.Open strSQL, cn
With ThisWorkbook.Sheets(1)
    Set QT = .QueryTables.Add(rs1, .[A1])
End With
QT.Refresh: QT.Delete
rs1.Close: cn.Close
Set cn = Nothing
Exit Sub

CnErrorHandler:
For Each ADOErr In cn.Errors        'Отладчик
    MsgBox "№ ошибки " & ADOErr.Number & Chr(10) & _
    "Описание: " & ADOErr.Description & Chr(10) & _
    "Источник: " & ADOErr.Source, vbCritical
    Debug.Print "№ ошибки " & ADOErr.Number & Chr(10) & _
    "Описание: " & ADOErr.Description & Chr(10) & _
    "Источник: " & ADOErr.Source
    cn.Close
Set cn = Nothing
Next ADOErr
End Sub

Но Если хочу сделать запись(INSERT) выдает ошибку

№ ошибки -2147467259
Описание: Ссылка на объект не указывает на экземпляр объекта.
Источник: Microsoft OLE DB Provider for ODBC Drivers
Как сделать так, чтобы макрос работал при скрытом листе
 
Так? Студент ))
Как сделать так, чтобы макрос работал при скрытом листе
 
Без примера, не понятно как должен работать код
Вот предположительный:
Код
Public Sub Перенос2()
Dim m As Range
Dim m1 As Variant
Dim i As Long, j As Long
Dim a As String, b As String, s As String

With ThisWorkbook.Sheets("1.БД_анализ")
   Set m = .Range(.Cells(2, 1).Address, .Cells(Application.WorksheetFunction.CountA(.Columns(2)), 2).Address)
       m1 = m.Value
End With
With ThisWorkbook.Sheets("5.Код_дата")
    .Cells.ClearContents
    For i = 1 To m.Rows.Count
        a = m1(i, 1)
        b = m1(i, 2)
        For j = 1 To Len(b)
            If Mid(b, j, 1) = ";" Then
                .Cells(i, 1).Value = a
                .Cells(i, 2).Value = s
                s = ""
            Else
                s = s + Mid(b, j, 1)
            End If
        Next j
    Next i
End With
End Sub
Отправка SMS через Viber, Отправка Viber сообщений с помощью EXCEL VBA
 
Один раз подыму, если нет, тогда нет (
Как сделать так, чтобы макрос работал при скрытом листе
 
Вот вам пример
Это Ваше:
Код
    Sheets("5.Код_дата").Select
    Cells().Select
    Selection.ClearContents
    Cells(1, 1).Select
Можно заменить на
Код
With ThisWorkbook.Sheets("5.Код_дата")
    .Cells.ClearContents
End with
Перехват ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ, пользователь сделал двойной клик на данных сводной таблицы, надо понять, какие данные он взял
 
И вот определение на группированные столбцы в сводной:
Код
Sub GetGroupedItems()
Dim pt As Excel.PivotTable
Dim ptField As Excel.PivotField
Dim ptItem As Excel.PivotItem
Dim ptChildItem As Excel.PivotItem

Set pt = ActiveSheet.PivotTables(1)
For Each ptField In pt.PivotFields
    For Each ptItem In ptField.PivotItems
        If ptItem.ChildItems.Count > 0 Then
            Debug.Print ptItem.Name
            For Each ptChildItem In ptItem.ChildItems
                Debug.Print ptChildItem.Name
            Next ptChildItem
        End If
    Next ptItem
Next ptField
End Sub
Удачи в Ваших начинаниях  
Изменено: Xapa6apga - 16.02.2018 13:42:00
Перехват ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ, пользователь сделал двойной клик на данных сводной таблицы, надо понять, какие данные он взял
 
Немного не успел, вот Вам вариант решения
Создаем SQL на дабл-клик, а потом его выгружаем в новый кверитейбл
Перехват ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ, пользователь сделал двойной клик на данных сводной таблицы, надо понять, какие данные он взял
 
Учётная система, имею ввиду CRM, типо 1С и тд
А можно хоть кусочек примера сводной?
Перехват ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ, пользователь сделал двойной клик на данных сводной таблицы, надо понять, какие данные он взял
 
Здравствуйте, я бы предложил  реализовывать такие вещи в учётной системе.
Так же интерестно, чем важны новые строки? Если вы производите только INSERT уже в БД, у Вас может образоваться куча дублей
А если делать проверку на уникальность (или MARGE), тогда новые строки впринципе не нужны или нет?
Перестройка таблицы
 
Когда-то для себя такое делал, может подойдет
Код
Option Explicit
Sub Cross_DATA()
Dim i As Long, ii As Long, j As Long, jj As Long
Dim wsR As Worksheet, ws As Worksheet
Dim rng1 As Range, rng2 As Range, rng3 As Range
Dim s
On Error Resume Next
Set rng1 = Application.InputBox("Выделите массив ВЕРТИКАЛЬНЫЙ!", Type:=8)
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
If rng1 Is Nothing Then End
Set rng2 = Application.InputBox("Выделите массив ГОРИЗОНТАЛЬНЫЙ!", Type:=8)
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
If rng2 Is Nothing Then End
Set rng3 = Application.InputBox("Выделите массив ДАННЫХ!", Type:=8)
'If rng3 Is Nothing Then End
On Error GoTo 0
'If (rng1.Rows.Count > 1 And rng1.Columns.Count > 1) And (rng2.Rows.Count > 1 And rng2.Columns.Count > 1) Then MsgBox "Двумерные массивы невозможно размножить!", vbCritical, "Error": End
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name = "Харабардашка" Then ws.Delete: Exit For
Next ws
Application.DisplayAlerts = True
Set wsR = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)): wsR.Name = "Харабардашка"
For i = 1 To rng1.Rows.Count  'Вертикаль Массив1
    For ii = 1 To rng1.Columns.Count
        If rng1(i, ii) <> "" Then
            With wsR
                .Cells(.Cells(.Rows.Count, ii).End(xlUp).Row + 1, ii).Value = rng1(i, ii)
            End With
        End If
    Next ii
    With wsR
        For j = 1 To rng2.Rows.Count   'Горизонт Массив2
            For jj = 1 To rng2.Columns.Count
                If rng2(j) <> "" Then
                    .Cells(.Cells(.Rows.Count, rng1.Columns.Count + j).End(xlUp).Row + 1, rng1.Columns.Count + j).Value = rng2(j, jj)
                End If
            Next jj
        Next j
    End With
    'Протянуть
    With wsR
        For j = .Cells(.Rows.Count, 1).End(xlUp).Row To .Cells(.Rows.Count, rng1.Columns.Count + 1).End(xlUp).Row - 1
            .Range(.Cells(j + 1, 1), .Cells(j + 1, rng1.Columns.Count)).Value = .Range(.Cells(j, 1), .Cells(j, rng1.Columns.Count)).Value
        Next j
        If Not rng3 Is Nothing Then
            For jj = 1 To rng3.Columns.Count
                .Cells(.Cells(.Rows.Count, rng2.Rows.Count + rng1.Columns.Count + 1).End(xlUp).Row + 1, .Cells(.Cells(.Rows.Count, rng2.Rows.Count + rng1.Columns.Count + 1).End(xlUp).Row + 1, .Columns.Count).End(xlToLeft).Column + 1).Value = rng3(i, jj)
            Next jj
        End If
    End With
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Создание макроса с фильтрами, Создание макроса с фильтрами
 
Здравствуйте, зачем макросы?
Это всё делается стандартными инструментами EXCEL
ПЕРВОЕ:
Корректно вносите данные, дата -это также число. Умножите столбец на 1 и задайте корректный формат
ВТОРОЕ:
Условное Форматирование (УФ)
Сумма ВПР в одной ячейке.
 
Тема: "Расчёт калорий по дням"
Надеюсь это был не сарказм, если что все равно извините )
Отправка SMS через Viber, Отправка Viber сообщений с помощью EXCEL VBA
 
Здравствуйте, а кто-то уже пробовал реализовать отправку текста с помощью VBA с EXCEL.
Можете подсказать как это реализуемо,  готов код понятное дело не прошу, просто не могу понять куда бежать
Заранее благодарен!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 13 След.
Наверх